SAS/C SAMPLE: FINGER - Sample TCPIP Finger client, demonstrating typical socket functions/TITLE>  <script language="JavaScript" type="text/javascript" src="http://www.sas.com/lib/global.js"></script> </head> <body bgcolor="#FFFFFF" marginwidth="0" marginheight="0" leftmargin="0" topmargin="0">   <table width="100%" height="27" border="0" cellpadding="0" cellspacing="0"> <tr bgcolor="#000000">  <td height="27" valign="middle" align="left" nowrap> <b> <a href="http://www.sas.com/SASHome.html"><font color="#FFFFFF" size="2"><span class="topnav">www.sas.com</span></font> </a>  <font color="#FFFFFF" size="2">></font> <a href="http://www.sas.com/service/index.html"><font color="#FFFFFF" size="2"><span class="topnav">Service and Support</span></font> </a> <font color="#FFFFFF" size="2">></font> <a href="http://www.sas.com/service/techsup/intro.html"><font color="#FFFFFF" size="2"><span class="topnav">Technical Support</span></font> </a>  </b></td>   <form action="http://www.sas.com/bin/jump.pl" method="get"> <td height="27" valign="middle" align="right" nowrap> <select name="sasnav" onChange="if (options[selectedIndex].value) window.location.href=(options[selectedIndex].value)"> <option value="http://www.sas.com/"> -- Navigate our Site -- </option> <option value="http://www.sas.com/corporate/index.html">Our Company</option> <option value="http://www.sas.com/jobs/index.html">Employment</option> <option value="http://www.sas.com/news/index.html">News & Events</option> <option value="http://www.sas.com/partners/index.html">Partners</option> <option value="http://www.sas.com/solutions/index.html">Software Solutions</option> <option value="http://www.sas.com/service/index.html">Service & Support</option> <option value="http://www.sas.com/service/publications.html">Publications</option> <option value="http://www.sas.com/offices/intro.html">Worldwide Offices</option> <option value="http://www.sas.com/search/index.html">Search & Browse</option> <option value="http://www.sas.com/apps/profile.jsp">Create/Edit User Profile</option> <option value="http://www.sas.com/FAQ/intro.html">FAQ</option> <option value="http://www.sas.com/contact/intro.html">Contact Us</option> <option value="http://www.sas.com/SASHome.html">Home</option> </select> <noscript><input type="submit" value="Go"></noscript> </td> </form>  </tr> </table> <table border="0" cellpadding="0" cellspacing="0" height="50" width="100%"> <tr>   <td width="46%" height="50" bgcolor="#003399"> <img src="http://www.sas.com/images/banner/l2_hdd_techsupp.gif" width="310" height="50" alt="Technical Support"></td> <td valign="middle" height="50" align="right" width="54%" bgcolor="#003399"> <a href="http://www.sas.com/SASHome.html"> <img border="0" src="http://www.sas.com/images/global/hdd_rt.gif" width="159" height="50" alt="SAS - The power to know(tm)"></a></td>  </tr> </table> <table width="100%" height="18" border="0" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#FFCC33" height="2" colspan="3" nowrap><img src="http://www.sas.com/images/global/clear.gif" width="1" height="2" alt=""></td> </tr> <tr>  <td bgcolor="#003399" width="99%" height="18" valign="middle" nowrap>  <a href="http://www.sas.com/service/techsup/intro.html"><font color="#FFFFFF" size="2"><span class="topnav"> TS Home</span></font> </a> <font color="#FFFFFF" size="2">|</font> <a href="http://www.sas.com/service/techsup/service_intro.html"><font color="#FFFFFF" size="2"><span class="topnav">Intro to Services</span></font> </a> <font color="#FFFFFF" size="2">|</font> <a href="http://www.sas.com/service/techsup/news/index.html"><font color="#FFFFFF" size="2"><span class="topnav">News and Info</span></font> </a> <font color="#FFFFFF" size="2">|</font> <a href="http://www.sas.com/service/techsup/contact/index.html"><font color="#FFFFFF" size="2"><span class="topnav">Contact TS</span></font> </a> <font color="#FFFFFF" size="2">|</font> <a href="http://www.sas.com/service/techsup/sitemap.html"><font color="#FFFFFF" size="2"><span class="topnav">Site Map</span></font></a> <font color="#FFFFFF" size="2">|</font> <a href="http://www.sas.com/service/techsup/faq/"><font color="#FFFFFF" size="2"><span class="topnav">FAQ</span></font></a> <font color="#FFFFFF" size="2">|</font> <a href="http://www.sas.com/service/techsup/feedback/feedback.html"><font color="#FFFFFF" size="2"><span class="topnav">Feedback</span></font> </a> </td>  <td bgcolor="#003399" width="14" height="18" valign="bottom" align="right"><a href="http://www.sas.com/service/techsup/search/index.html"><img src="http://www.sas.com/images/global/search.gif" width="49" height="13" align="right" vspace="2" hspace="8" border="0" alt=""></a></td> <td bgcolor="#003399" width="5" height="18" valign="bottom" align="right" nowrap> <img src="http://www.sas.com/images/global/clear.gif" width="5" height="18" alt=""></td> </tr> </table>  <table border="5" cellpadding="7" cellspacing="7" width="100%"> <tr>  <td width="70%" valign="top">  <img src="http://www.sas.com/images/global/samples.gif" border="0" align="middle" alt=""><br> <pre> <B> /*---------------------------------------------------------------------+ | Copyright (c) 1995, SAS Institute Inc. | | Unpublished - All Rights Reserved | | S A S / C S A M P L E | | | | NAME: FINGER | | LANGUAGE: C | | PURPOSE: This is a sample FINGER client. The client queries the | | finger server on the remote host. The finger server | | returns information about currently logged on users. | | This is a complete sample using: gethostbyname(), | | getservbyname(), socket(), connect(), write(), and | | close(). The syntax of the command is: | | finger [-l] host_name | | NOTES: -l is optional, and produces additional output. | | MVS - | | COMPILE, LINK, EXECUTE: SUBMIT prefix.SAMPLE.AUX(LC370CLG) | | NOTES: "prefix" is the SAS/C installation defined high-level | | qualifier. | | NOTES: on the EXEC statement add a: ,PARM.GO='host_name' | | Where "host_name" is the host running a "fingerd". | | TSO - | | COMPILE: LC370 CLIST | | LINK: CLK370 CLIST | | EXECUTE: CALL 'your.load.lib(FINGER)' 'host_name' asis | | Where "host_name" is the host running a "fingerd". | | CMS - | | COMPILE: LC370 | | LINK: CLINK FINGER (GENMOD | | EXECUTE: FINGER host_name | | Where "host_name" is the host running a "fingerd". | +---------------------------------------------------------------------*/ #include <stdlib.h> #include <sys/types.h> #include <sys/socket.h> #include <netinet/in.h> #include <arpa/inet.h> #include <netdb.h> #include <stdio.h> #include <string.h> #include <fcntl.h> /* No need to translate characters on ASCII systems. */ #ifndef __SASC__ #define ntohcs(c) (c) #define htoncs(c) (c) #endif /* Define some useful constants. */ #define FALSE 0 #define TRUE 1 #define READ_BLOCK_SIZE 256 #define OUTBUF_SIZE 2 #define FINGER_PORT 79 #define ASCII_CR 0x0D #define ASCII_LF 0x0A main(int argc, char *argv[]) { int n,i; /* Socket descriptor for communication with the */ /* finger server. */ int s; /* Socket address for server. */ struct sockaddr_in sa; /* Use to send ASCII CR and LF characters required by */ /* the protocol. */ char cr = ASCII_CR, lf = ASCII_LF; /* Buffers. */ char in[READ_BLOCK_SIZE]; char out[OUTBUF_SIZE]; /* Option status. */ int longlist = FALSE; char *op; /* Will contain information about the finger service. */ struct servent *serv; /* Will contain information about the remote host. */ struct hostent *host; /* Argument processing. */ if (*++argv && *argv[0] == '-') { op = *argv; if (op[1]=='l') longlist = 1; else printf("finger: unsupported option \"%c\"",op[1]); argv++; } if (!*argv) { printf("finger: hostname missing"); exit(EXIT_FAILURE); } /* Assume *argv now points to hostname. */ /* Find the IP address for the requested host. */ host = gethostbyname(*argv); if (host==NULL) { printf("finger: Host %s is unknown.\n",*argv); exit(EXIT_FAILURE); } /* Find the port for the finger service. If the */ /* services file is not available, we will use the */ /* standard number. We specify "tcp" as the protocol.*/ /* This call will attempt to find the services file. */ serv = getservbyname("finger", "tcp"); /* Prepare a socket address for the server. We need an */ /* IP address (corresponding to the given hostname) */ /* and a port number (corresponding to the "finger" */ /* service. */ memset(&sa,'\0',sizeof(sa)); sa.sin_family = AF_INET; memcpy(&sa.sin_addr,host->h_addr,sizeof(sa.sin_addr)); sa.sin_port = serv ? serv->s_port : htons(FINGER_PORT); /* Get a socket of the proper type. We use SOCK_STREAM */ /* because we want to communicate using TCP */ /* (we want a reliable protocol). */ s = socket(AF_INET, SOCK_STREAM, 0); if (s == -1) { perror("finger - socket() failed"); exit(EXIT_FAILURE); } /* Connect to the host and port. */ if (connect(s, &sa, sizeof(sa)) == -1) { perror("finger - connect() failed"); return(EXIT_FAILURE); } /* read() and write() are the most convenient calls */ /* for transmitting and receiving data over stream */ /* sockets. */ /* Write to server. */ /* If long option specified, pass that first. */ if (longlist) { out[0] = htoncs('/'); out[1] = htoncs('W'); write(s,out,2); } /* Terminate msg with CR-LF. */ write(s,&cr,1); write(s,&lf,1); /* Server should respond. */ /* Read until EOF indicated. */ while (n=read(s,in,READ_BLOCK_SIZE)) { for (i=0; i<n ; i++) { if (in[i]==ASCII_CR) continue; /* Presume part of CR-LF pair */ putchar(ntohcs(in[i])); } } /* Close the socket. */ close(s); } </B> </pre> </td>  </tr>  <tr bgcolor="#FFCC33"> <td height="20" colspan="4" valign="bottom"><center> <img src="http://www.sas.com/images/global/clear.gif" width="13" height="8" alt=""> <span class="yllwbar"> <font size="2"></font> Copyright (c) 2000 SAS Institute Inc. All Rights Reserved.<br> <a href="http://www.sas.com/Copyright.html">Terms of Use & Legal Information</a> <font size="2">|</font> <a href="http://www.sas.com/Privacy.html">Privacy Statement</a> </span> </center></td> </tr>  </table> </body> </html>