home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume34 / netuse / part04 < prev    next >
Encoding:
Text File  |  1993-01-09  |  50.1 KB  |  1,620 lines
  1. Newsgroups: comp.sources.misc
  2. From: amber@engin.umich.edu (Lee Liming)
  3. Subject: v34i102:  netuse - A Network Host Usage Monitoring System, Part04/06
  4. Message-ID: <1993Jan11.023756.25510@sparky.imd.sterling.com>
  5. X-Md4-Signature: e0dcd4684308d55878127b720773193e
  6. Date: Mon, 11 Jan 1993 02:37:56 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: amber@engin.umich.edu (Lee Liming)
  10. Posting-number: Volume 34, Issue 102
  11. Archive-name: netuse/part04
  12. Environment: UNIX, MS-DOS, OS/2, INET, MSC
  13.  
  14. #! /bin/sh
  15. # This is a shell archive.  Remove anything before this line, then feed it
  16. # into a shell via "sh file" or similar.  To overwrite existing files,
  17. # type "sh file -c".
  18. # Contents:  netuse/clients/netuseadmin.c netuse/daemons/caenlab.c
  19. #   netuse/daemons/getload.c netuse/lib/netuse.h netuse/lib/parser.c
  20. #   netuse/lib/protocol.h
  21. # Wrapped by kent@sparky on Sun Jan 10 20:28:36 1993
  22. PATH=/bin:/usr/bin:/usr/ucb:/usr/local/bin:/usr/lbin ; export PATH
  23. echo If this archive is complete, you will see the following message:
  24. echo '          "shar: End of archive 4 (of 6)."'
  25. if test -f 'netuse/clients/netuseadmin.c' -a "${1}" != "-c" ; then 
  26.   echo shar: Will not clobber existing file \"'netuse/clients/netuseadmin.c'\"
  27. else
  28.   echo shar: Extracting \"'netuse/clients/netuseadmin.c'\" \(6994 characters\)
  29.   sed "s/^X//" >'netuse/clients/netuseadmin.c' <<'END_OF_FILE'
  30. X/******************************************************************************
  31. X NETUSEADMIN.C - NETUSE Network Monitoring System Administrative Client
  32. X
  33. X This program provides a user interface to the remote NETUSE server, allowing
  34. X various opertaions to be made on the host database.
  35. X
  36. X Lee Liming, The Computer Aided Engineering Network
  37. X The University of Michigan
  38. X
  39. X Copyright (C) 1990, 1991, 1992 by the Regents of the University of Michigan.
  40. X
  41. X User agrees to reproduce said copyright notice on all copies of the software
  42. X made by the recipient.  
  43. X
  44. X All Rights Reserved. Permission is hereby granted for the recipient to make
  45. X copies and use this software for its own internal purposes only. Recipient of
  46. X this software may re-distribute this software outside of their own
  47. X institution. Permission to market this software commercially, to include this
  48. X product as part of a commercial product, or to make a derivative work for
  49. X commercial purposes, is explicitly prohibited.  All other uses are also
  50. X prohibited unless authorized in writing by the Regents of the University of
  51. X Michigan.
  52. X
  53. X This software is offered without warranty. The Regents of the University of
  54. X Michigan disclaim all warranties, express or implied, including but not
  55. X limited to the implied warranties of merchantability and fitness for any
  56. X particular purpose. In no event shall the Regents of the University of
  57. X Michigan be liable for loss or damage of any kind, including but not limited
  58. X to incidental, indirect, consequential, or special damages. 
  59. X******************************************************************************/
  60. X
  61. X#include <stdio.h>
  62. X#include <netuse.h>
  63. X#include <parser.h>
  64. X
  65. X
  66. X#ifdef __STDC__
  67. Xint get_command(char *buf)
  68. X#else
  69. Xint get_command(buf)
  70. Xchar *buf;
  71. X#endif
  72. X{
  73. X     printf("\nnetuseadmin> ");
  74. X     gets(buf);
  75. X     return(0);
  76. X}
  77. X
  78. X
  79. X#ifdef __STDC__
  80. Xvoid display_help(void)
  81. X#else
  82. Xvoid display_help()
  83. X#endif
  84. X{
  85. X     printf("\nCommands:\n\n");
  86. X     printf("add       <vendor> <hostname> <model>  Add a new host to the database.\n");
  87. X     printf("delete    <hostname>           Delete a host from the database.\n");
  88. X     printf("list      [<vendor>]           List all hosts (or hosts from a given vendor)\n");
  89. X     printf("reload                         Load hosts from NETUSE hostfile.\n");
  90. X     printf("savestate                      Store host list in NETUSE hostfile.\n");
  91. X     printf("use       <filename>           Read additional commands from a file.\n");
  92. X     printf("\n?,help                         Display this help text.\n");
  93. X     printf("exit,quit                      Exit the program.\n");
  94. X     printf("\nVendor designations are currently 'dec', 'sun', 'apollo', 'hp', and 'ibm'.\n");
  95. X     printf("Hostnames may be either internet hostnames or IP addresses in standard format.\n");
  96. X     printf("All commands and arguments EXCEPT hostnames are case-insensitive.\n");
  97. X}
  98. X
  99. X
  100. X#ifdef __STDC__
  101. Xint execute_command(char *cstr)
  102. X#else
  103. Xint execute_command(cstr)
  104. Xchar *cstr;
  105. X#endif
  106. X{
  107. X     char command[128],buf[256];
  108. X     int mtype,modtype,mode,rv;
  109. X     FILE *inf;
  110. X
  111. X     strcpy(buf,cstr);
  112. X     stoupper(strip(strip_leading(buf)));
  113. X     if (!strlen(buf)) return(0);
  114. X     if (!strcmp(textparam(buf,0,command),"QUIT") || !strcmp(command,"EXIT"))
  115. X          return(1);
  116. X     if (!strcmp(command,"?") || !strcmp(command,"HELP")) {
  117. X          display_help();
  118. X          return(0);
  119. X     }
  120. X     if (!strcmp(command,"SAVESTATE")) {
  121. X          if (!netuseSaveState()) printf("Host database has been stored.\n");
  122. X          else printf("An error occurred while storing the database.\n");
  123. X          return(0);
  124. X     }
  125. X     if (!strcmp(command,"RELOAD")) {
  126. X          if (!netuseLoadHosts()) printf("Host database has been reloaded.\n");
  127. X          else printf("An error occurred while loading the database.\n");
  128. X          return(0);
  129. X     }
  130. X     if (!strcmp(command,"DELETE")) {
  131. X          if (!strlen(textparam(cstr,1,command))) {
  132. X               printf("Missing hostname.  Use ? to view the command list.\n");
  133. X               return(0);
  134. X          }
  135. X          if (!netuseDelName(command)) printf("Delete command successful.\n");
  136. X          else printf("An error occurred during the delete operation.\n");
  137. X          return(0);
  138. X     }
  139. X     if (!strcmp(command,"ADD")) {
  140. X          if (!strlen(textparam(cstr,1,command))) {
  141. X               printf("Missing vendor type.  Use ? to view the command list.\n");
  142. X               return(0);
  143. X          }
  144. X          if (!(mtype=netStrToMach(command))) {
  145. X               printf("Invalid vendor type.  Vendors are DEC, IBM, Apollo, HP, and Sun.\n");
  146. X               return(0);
  147. X          }
  148. X          if (!strlen(textparam(cstr,3,command))) {
  149. X               printf("Missing model type.  Use ? to view the command list.\n");
  150. X               return(0);
  151. X          }
  152. X          if (!(modtype=netStrToModel(command))) {
  153. X               printf("Invalid model type.\n");
  154. X               return(0);
  155. X          }
  156. X          if (!strlen(textparam(cstr,2,command))) {
  157. X               printf("Missing hostname.  Use ? to view the command list.\n");
  158. X               return(0);
  159. X          }
  160. X          if (!(rv=netuseAddName(command,mtype,modtype))) 
  161. X               printf("Add command successful.\n");
  162. X          else printf("Error %d occurred during the add operation.\n",rv);
  163. X          return(0);
  164. X     }
  165. X     if (!strcmp(command,"USE")) {
  166. X          if (!strlen(textparam(cstr,1,command))) {
  167. X               printf("Missing filename.  Use ? to view the command list.\n");
  168. X               return(0);
  169. X          }
  170. X          if ((inf=fopen(command,"r"))==NULL) {
  171. X               printf("Unable to open %s for input.  USE command aborted...\n");
  172. X               return(0);
  173. X          }
  174. X          printf("\n");
  175. X          mtype=0;
  176. X          while (fgets(buf,sizeof(buf),inf) && !mtype) {
  177. X               buf[strlen(buf)-1]='\0';
  178. X               if (!strlen(buf) || (buf[0]=='#')) continue;
  179. X               printf("Executing: \"%s\"...\n",buf);
  180. X               mtype=execute_command(buf);
  181. X          }
  182. X          close(inf);
  183. X          return(0);
  184. X     }
  185. X     if (!strcmp(command,"LIST")) {
  186. X          mtype=0; mode=MODE_ALL;
  187. X          if (strlen(textparam(cstr,1,command))) {
  188. X               if (!(mtype=netStrToMach(command))) {
  189. X                    printf("Valid vendor types are DEC, IBM, Apollo, HP, and Sun.\n");
  190. X                    return(0);
  191. X               }
  192. X          }
  193. X          if (netuseGetList(mtype,0,mode)) {
  194. X               printf("Unable to display host list.\n");
  195. X               return(0);
  196. X          }
  197. X          return(0);
  198. X     }
  199. X     printf("\nType \"?\" or \"help\" to receive a list of valid commands.\n");
  200. X     return(0);
  201. X}
  202. X
  203. X
  204. X#ifdef __STDC__
  205. Xmain(int argc,char *argv[])
  206. X#else
  207. Xmain(argc,argv)
  208. Xint argc;
  209. Xchar *argv[];
  210. X#endif
  211. X{
  212. X     char command[256];
  213. X     int done;
  214. X
  215. X     printf("\nNETUSE Administration Command Interpretor\n");
  216. X     netSetup();
  217. X     do {
  218. X          get_command(command);
  219. X          if (!feof(stdin)) done=execute_command(command);
  220. X     } while (!done && !feof(stdin));
  221. X     putchar('\n');
  222. X     netShutdown();
  223. X}
  224. END_OF_FILE
  225.   if test 6994 -ne `wc -c <'netuse/clients/netuseadmin.c'`; then
  226.     echo shar: \"'netuse/clients/netuseadmin.c'\" unpacked with wrong size!
  227.   fi
  228.   # end of 'netuse/clients/netuseadmin.c'
  229. fi
  230. if test -f 'netuse/daemons/caenlab.c' -a "${1}" != "-c" ; then 
  231.   echo shar: Will not clobber existing file \"'netuse/daemons/caenlab.c'\"
  232. else
  233.   echo shar: Extracting \"'netuse/daemons/caenlab.c'\" \(6849 characters\)
  234.   sed "s/^X//" >'netuse/daemons/caenlab.c' <<'END_OF_FILE'
  235. X/******************************************************************************
  236. X CAENLAB.C - CAEN-specific heuristics for telling netused whether to run or 
  237. X             to quit.
  238. X
  239. X At CAEN, we have a file called /etc/hostconfig on all non-Apollo
  240. X workstations.  If this file contains a line of the form "CLASS=LAB" in it, it
  241. X means that the machine is in a public CAEN lab.  Apollos have a config file
  242. X of a more complex format with similar information in it.
  243. X
  244. X We only run netused on lab machines, so this module contains code to tell
  245. X netused whether it's supposed to run or not on this workstation.
  246. X
  247. X To enable this code, the macro USE_CAENLAB must be defined in 
  248. X ../lib/config.h.
  249. X
  250. X Lee Liming and Michael Neil, The Computer Aided Engineering Network
  251. X The University of Michigan
  252. X
  253. X Copyright (C) 1992 by the Regents of the University of Michigan.
  254. X
  255. X User agrees to reproduce said copyright notice on all copies of the software
  256. X made by the recipient.  
  257. X
  258. X All Rights Reserved. Permission is hereby granted for the recipient to make
  259. X copies and use this software for its own internal purposes only. Recipient of
  260. X this software may re-distribute this software outside of their own
  261. X institution. Permission to market this software commercially, to include this
  262. X product as part of a commercial product, or to make a derivative work for
  263. X commercial purposes, is explicitly prohibited.  All other uses are also
  264. X prohibited unless authorized in writing by the Regents of the University of
  265. X Michigan.
  266. X
  267. X This software is offered without warranty. The Regents of the University of
  268. X Michigan disclaim all warranties, express or implied, including but not
  269. X limited to the implied warranties of merchantability and fitness for any
  270. X particular purpose. In no event shall the Regents of the University of
  271. X Michigan be liable for loss or damage of any kind, including but not limited
  272. X to incidental, indirect, consequential, or special damages. 
  273. X******************************************************************************/
  274. X
  275. X#include <stdio.h>
  276. X#include <ctype.h>
  277. X#include <sys/types.h>
  278. X#include <sys/stat.h>
  279. X#include <string.h>
  280. X#include "../lib/parser.h"
  281. X#include "caenlab.h"
  282. X
  283. X
  284. X#define CONFIGFILE     "/sys/node_data/etc/config"
  285. X#define HOSTCONFIGFILE "/etc/hostconfig"
  286. X
  287. X
  288. X#ifdef __STDC__
  289. Xchar *getfield(char *buf,int start,int stop,char *field)
  290. X#else
  291. Xchar *getfield(buf,start,stop,field)
  292. Xchar *buf;
  293. Xint start,stop;
  294. Xchar *field;
  295. X#endif
  296. X{
  297. X     --start;
  298. X     --stop;
  299. X     if (strlen(buf)<(start+1)) field[0]='\0';
  300. X     else {
  301. X          strncpy(field,buf+start,(stop-start+1));
  302. X          field[stop-start+1]='\0';
  303. X     }
  304. X     strip(field);
  305. X     return(field);
  306. X}
  307. X
  308. X
  309. X#ifdef __STDC__
  310. Xchar *pwGetField(char *pwline,int n,char *buf)
  311. X#else
  312. Xchar *pwGetField(pwline,n,buf)
  313. Xchar *pwline;
  314. Xint n;
  315. Xchar *buf;
  316. X#endif
  317. X{
  318. X     int i;
  319. X     char *p,*q;
  320. X
  321. X     p=pwline;
  322. X     for (i=0; (i<n) && (*p!='\0'); p++) 
  323. X          if (*p==':') i++;
  324. X     for (q=buf; (*p!=':') && (*p!='\0'); )
  325. X          *(q++)=(*(p++));
  326. X     *q='\0';
  327. X     return(buf);
  328. X}
  329. X
  330. X
  331. Xchar *stolower(in)
  332. Xchar *in;
  333. X{
  334. X     char *p;
  335. X
  336. X     for (p=in; *p!='\0'; p++)
  337. X          if (isupper(*p)) *p=tolower(*p);
  338. X}
  339. X
  340. X
  341. X#ifdef __STDC__
  342. Xint apolloShouldRun(void)
  343. X#else
  344. Xint apolloShouldRun()
  345. X#endif
  346. X{
  347. X     struct stat buf;
  348. X     int nameStart,nameEnd;
  349. X     int restStart,restEnd;
  350. X     int gotem,searchfield,print,theanswer;
  351. X     char name[20],rest[25];
  352. X     char inbuf[512],temp[256],*p,hostname[128];
  353. X     FILE *inf;
  354. X     
  355. X     theanswer=0;
  356. X     gethostname(hostname,sizeof(hostname));
  357. X     if ((p=strchr(hostname,'.'))!=NULL) *p='\0';
  358. X     if (stat(CONFIGFILE,&buf)) {
  359. X#ifdef TESTING
  360. X          printf("Apollo config file does not exist!\n");
  361. X#else
  362. X          logit("Apollo config file does not exist!");
  363. X#endif
  364. X          exit(1);
  365. X     }
  366. X     if ((inf=fopen(CONFIGFILE,"r"))==NULL) {
  367. X#ifdef TESTING
  368. X          printf("Unable to open the Apollo config file.\n");
  369. X#else
  370. X          logit("Unable to open the Apollo config file.");
  371. X#endif
  372. X          exit(1);
  373. X     }
  374. X     gotem=0;
  375. X     while (fgets(inbuf,sizeof(inbuf),inf)!=NULL) {
  376. X          if (!strlen(inbuf)) continue;
  377. X          inbuf[strlen(inbuf)]='\0';
  378. X          if (gotem<2) {
  379. X               if (!strncmp(inbuf,"#|<var> NODENAME",16)) {
  380. X                    nameStart=atoi(textparam(inbuf,2,temp));
  381. X                    nameEnd=atoi(textparam(inbuf,3,temp));
  382. X                    ++gotem;
  383. X               }
  384. X               if (!strncmp(inbuf,"#|<var> RESTRICTION",19)) {
  385. X                    restStart=atoi(textparam(inbuf,2,temp));
  386. X                    restEnd=atoi(textparam(inbuf,3,temp));
  387. X                    ++gotem;
  388. X               }
  389. X          }
  390. X          else {
  391. X               if ((inbuf[0]=='#') || !strlen(inbuf)) continue;
  392. X               print=0;
  393. X               getfield(inbuf,nameStart,nameEnd,name);
  394. X               for (p=name; (*p!='\0') && (*p=='/'); p++)
  395. X                    ;
  396. X               strcpy(name,p);
  397. X               stolower(name);
  398. X               getfield(inbuf,restStart,restEnd,rest);
  399. X               if (!strcmp(hostname,name) && !strcmp(rest,"L")) theanswer=1;
  400. X          }
  401. X     }
  402. X     if (gotem<2) {
  403. X#ifdef TESTING
  404. X          printf("Error in Apollo config file.\n");
  405. X#else
  406. X          logit("Error in Apollo config file.");
  407. X#endif
  408. X          exit(1);
  409. X     }
  410. X     fclose(inf);
  411. X     return(theanswer);
  412. X}
  413. X
  414. X
  415. X#ifdef __STDC__
  416. Xint hostconfigShouldRun(void)
  417. X#else
  418. Xint hostconfigShouldRun()
  419. X#endif
  420. X{
  421. X     char inbuf[132],*p,temp[132];
  422. X     FILE *inf;
  423. X     int theanswer,i;
  424. X     struct stat buf;
  425. X     
  426. X     theanswer=0;
  427. X     if (stat(HOSTCONFIGFILE,&buf)) {
  428. X#ifdef TESTING
  429. X          printf("hostconfig file does not exist!\n");
  430. X#else
  431. X          logit("hostconfig file does not exist!");
  432. X#endif
  433. X          exit(1);
  434. X     }
  435. X     if ((inf=fopen(HOSTCONFIGFILE,"r"))==NULL) {
  436. X#ifdef TESTING
  437. X          printf("Unable to open the hostconfig file.\n");
  438. X#else
  439. X          logit("Unable to open the hostconfig file.");
  440. X#endif
  441. X          exit(1);
  442. X     }
  443. X     while (fgets(inbuf,sizeof(inbuf),inf)!=NULL) {
  444. X          if (!strlen(inbuf)) continue;
  445. X          inbuf[strlen(inbuf)-1]='\0';
  446. X          if (!(p=strchr(inbuf,'='))) continue;
  447. X          *p='\0'; ++p;
  448. X          strip(strip_leading(inbuf));
  449. X          strip(strip_leading(p));
  450. X#ifdef TESTING
  451. X          printf("inbuf=\"%s\", p=\"%s\".\n",inbuf,p);
  452. X#endif
  453. X          if (!strcmp(inbuf,"CLASS")) {
  454. X               for (i=0; strlen(pwGetField(p,i,temp)) && !theanswer; i++)
  455. X                    if (!strcmp(temp,"LAB")) theanswer=1;
  456. X               break;
  457. X          }
  458. X     }
  459. X     fclose(inf);
  460. X     return(theanswer);
  461. X}
  462. X
  463. X
  464. X#ifdef __STDC__
  465. Xint netusedShouldRun(void)
  466. X#else
  467. Xint netusedShouldRun()
  468. X#endif
  469. X{
  470. X#ifdef apollo
  471. X     return(apolloShouldRun());
  472. X#else
  473. X     return(hostconfigShouldRun());
  474. X#endif
  475. X}
  476. X
  477. X
  478. X#ifdef TESTING
  479. X
  480. X/* Test program for verifying functionality */
  481. X
  482. Xmain()
  483. X{
  484. X     printf("netusedShouldRun() returns %d.\n",netusedShouldRun());
  485. X}
  486. X
  487. X
  488. X#endif
  489. END_OF_FILE
  490.   if test 6849 -ne `wc -c <'netuse/daemons/caenlab.c'`; then
  491.     echo shar: \"'netuse/daemons/caenlab.c'\" unpacked with wrong size!
  492.   fi
  493.   # end of 'netuse/daemons/caenlab.c'
  494. fi
  495. if test -f 'netuse/daemons/getload.c' -a "${1}" != "-c" ; then 
  496.   echo shar: Will not clobber existing file \"'netuse/daemons/getload.c'\"
  497. else
  498.   echo shar: Extracting \"'netuse/daemons/getload.c'\" \(8710 characters\)
  499.   sed "s/^X//" >'netuse/daemons/getload.c' <<'END_OF_FILE'
  500. X/******************************************************************************
  501. X This code gets the load average for a DEC or SUN.  (See below for extensions 
  502. X to other platforms.)
  503. X 
  504. X define mips for DEC
  505. X define sun for sun. (the sun needs libkvm.a linked in)
  506. X define testing for complilable program
  507. X 
  508. X Hacked up by: Mike Neil on Oct 11, 1990.
  509. X
  510. X Copyright (C) 1990, 1991, 1992 by the Regents of the University of Michigan.
  511. X
  512. X User agrees to reproduce said copyright notice on all copies of the software
  513. X made by the recipient.  
  514. X
  515. X All Rights Reserved. Permission is hereby granted for the recipient to make
  516. X copies and use this software for its own internal purposes only. Recipient of
  517. X this software may re-distribute this software outside of their own
  518. X institution. Permission to market this software commercially, to include this
  519. X product as part of a commercial product, or to make a derivative work for
  520. X commercial purposes, is explicitly prohibited.  All other uses are also
  521. X prohibited unless authorized in writing by the Regents of the University of
  522. X Michigan.
  523. X
  524. X This software is offered without warranty. The Regents of the University of
  525. X Michigan disclaim all warranties, express or implied, including but not
  526. X limited to the implied warranties of merchantability and fitness for any
  527. X particular purpose. In no event shall the Regents of the University of
  528. X Michigan be liable for loss or damage of any kind, including but not limited
  529. X to incidental, indirect, consequential, or special damages. 
  530. X******************************************************************************/
  531. X
  532. X
  533. X#if (defined(mips ) || defined(hpux))
  534. X
  535. X/*
  536. X * This code gets the load average for a DEC running Ultrix
  537. X *
  538. X * Hacked up by: Mike Neil from the xload sources.
  539. X */
  540. X
  541. X
  542. X#include <stdio.h>
  543. X#include <nlist.h>
  544. X
  545. X
  546. Xextern long lseek();
  547. Xextern void exit();
  548. X
  549. Xstatic struct nlist namelist[] = {        
  550. X#ifdef hpux
  551. X    {"avenrun"},
  552. X#else
  553. X    {"_avenrun"},
  554. X#endif
  555. X    {0}
  556. X};
  557. X
  558. Xlong loadavg_seek;
  559. X
  560. X#ifdef __STDC__
  561. Xvoid InitGetLoad(void)
  562. X#else
  563. Xvoid InitGetLoad()
  564. X#endif
  565. X{
  566. X    extern void nlist();
  567. X
  568. X#ifdef hpux
  569. X    nlist( "/hp-ux", namelist);
  570. X#else
  571. X    nlist( "/vmunix", namelist);
  572. X#endif
  573. X    if (namelist[0].n_type == 0 || namelist[0].n_value == 0) {
  574. X    /* error getting name index */
  575. X      exit(-1);
  576. X    }
  577. X    loadavg_seek = namelist[0].n_value;
  578. X
  579. X}
  580. X
  581. X#ifdef __STDC__
  582. Xdouble GetLoadPoint(double *l1,double *l2,double *l3)
  583. X#else
  584. Xdouble GetLoadPoint(l1,l2,l3)
  585. Xdouble *l1,*l2,*l3;
  586. X#endif
  587. X{
  588. X    static kmem;
  589. X
  590. X    kmem = open("/dev/kmem", 000        );
  591. X    if (kmem < 0)
  592. X    {
  593. X      /* Error opening /dev/kmem */
  594. X    }
  595. X    
  596. X    (void) lseek(kmem, loadavg_seek, 0);
  597. X    {
  598. X#ifdef hpux
  599. X        read(kmem, (char *)l1, sizeof(double));
  600. X        read(kmem, (char *)l2, sizeof(double));
  601. X        read(kmem, (char *)l3, sizeof(double));
  602. X#else
  603. X        int temp;
  604. X        (void) read(kmem, (char *)&temp, sizeof(int));
  605. X        *l1 =     (((double)(temp))/(1<<    8));
  606. X        (void) read(kmem, (char *)&temp, sizeof(int));
  607. X        *l2 =     (((double)(temp))/(1<<    8));
  608. X        (void) read(kmem, (char *)&temp, sizeof(int));
  609. X        *l3 =     (((double)(temp))/(1<<    8));
  610. X#endif
  611. X    }
  612. X  close(kmem);    
  613. X    
  614. X    return(*l1);
  615. X}
  616. X#endif
  617. X
  618. X
  619. X#ifdef sun
  620. X/*
  621. X * This code gets the load average for a SUN running 4.x.x
  622. X *
  623. X * Hacked up by: Mike Neil from the w sources.
  624. X */
  625. X
  626. X#include <stdio.h>
  627. X#include <nlist.h>
  628. X#include <sys/stat.h>
  629. X#include <sys/proc.h>
  630. X#include <kvm.h>
  631. X#include <fcntl.h>
  632. X
  633. X
  634. Xlong    avenrun[3];
  635. Xkvm_t    *kd;            /* kernel descriptor for Kernel VM calls */
  636. Xchar    *prog;            /* pointer to invocation name */
  637. X
  638. Xstruct    nlist nl[] = {
  639. X    { "_avenrun" },
  640. X#define    X_AVENRUN    0
  641. X    { "" },
  642. X};
  643. X
  644. X
  645. X/*
  646. X * readsym: get the value of a symbol from the namelist.
  647. X * exit if error.
  648. X */
  649. Xreadsym(n, b, s)
  650. Xint n;
  651. Xchar *b;
  652. Xint s;
  653. X{
  654. X    if (nl[n].n_type == 0) {
  655. X        fprintf(stderr, "%s: '%s' not in namelist\n",
  656. X            prog, nl[n].n_name);
  657. X        return(-1);
  658. X    }
  659. X    if (kvm_read(kd, nl[n].n_value, b, s) != s) {
  660. X        fprintf(stderr, "%s: kernel read error\n", prog);
  661. X        return(-1);
  662. X    }
  663. X}
  664. X
  665. X#ifdef __STDC__
  666. Xvoid InitGetLoad(void)
  667. X#else
  668. Xvoid InitGetLoad()
  669. X#endif
  670. X{
  671. X    /*Just a stub */
  672. X}
  673. X
  674. X#ifdef __STDC__
  675. Xdouble GetLoadPoint(double *l1,double *l2,double *l3)
  676. X#else
  677. Xdouble GetLoadPoint(l1,l2,l3)
  678. Xdouble *l1,*l2,*l3;
  679. X#endif
  680. X{
  681. X    double loadavg;
  682. X
  683. X            if ((kd = kvm_open(NULL, NULL, NULL, O_RDONLY, prog)) == NULL) {
  684. X                return(-1);
  685. X            }
  686. X            if (kvm_nlist(kd, nl) != 0) {
  687. X                fprintf(stderr, "%s: symbols missing from namelist\n", prog);
  688. X                return(-1);
  689. X            }
  690. X    
  691. X            readsym(X_AVENRUN, avenrun, sizeof(avenrun));
  692. X            
  693. X            *l1 = (double)avenrun[0]/FSCALE;
  694. X            *l2 = (double)avenrun[1]/FSCALE;
  695. X            *l3 = (double)avenrun[2]/FSCALE;
  696. X
  697. X                        kvm_close(kd);
  698. X            return(*l1);
  699. X}
  700. X#endif
  701. X
  702. X#ifdef _AIX
  703. X
  704. X/*
  705. X * This version of this module (getload.c) is specifically for the IBM
  706. X * RS/6000 AIX 3.1 platform.
  707. X *
  708. X *  Charley Kline, University of Illinois Computing Services
  709. X *  c-kline@uiuc.edu
  710. X *
  711. X * Modified for use with 1, 5, and 15 minute averages by Michael Neil and
  712. X * Lee Liming.
  713. X */
  714. X
  715. X
  716. X#include <stdio.h>
  717. X#include <sys/sysinfo.h>
  718. X#include <sys/types.h>
  719. X#include <unistd.h>
  720. X#include <fcntl.h>
  721. X#include <math.h>
  722. X#include <nlist.h>
  723. X
  724. X
  725. Xstruct nlist kernelnames[] = {{"sysinfo", 0, 0, 0, 0, 0},{NULL, 0, 0, 0, 0, 0}};
  726. X
  727. X
  728. X#ifdef __STDC__
  729. Xvoid InitGetLoad(void)
  730. X#else
  731. Xvoid InitGetLoad()
  732. X#endif
  733. X{
  734. X    /*Just a stub */
  735. X}
  736. X
  737. X
  738. X#ifdef __STDC__
  739. Xdouble GetLoadPoint(double *l1,double *l2,double *l3)
  740. X#else
  741. Xdouble GetLoadPoint(l1,l2,l3)
  742. Xdouble *l1,*l2,*l3;
  743. X#endif
  744. X{
  745. X    static double avenrun=0.0,avenrun5=0.0,avenrun15=0.0;
  746. X    double loadav;
  747. X    struct sysinfo si;
  748. X    static int rq_old = 0, ro_old = 0;
  749. X    static initted = 0;
  750. X    static int fd;
  751. X    double multiplier;
  752. X    double t;
  753. X
  754. X    /*
  755. X    ** Do stuff we only need to do once per invocation, like opening
  756. X    ** the kmem file and fetching the parts of the symbol table.
  757. X    */
  758. X        if (!initted) {
  759. X                initted = 1;
  760. X                knlist(kernelnames, 1, sizeof (struct nlist));
  761. X                fd = open("/dev/kmem", O_RDONLY);
  762. X                if (fd < 0) {
  763. X                        perror("kmem");
  764. X                        exit(1);
  765. X                }
  766. X        }
  767. X        
  768. X        /*
  769. X    ** Get the system info structure from the running kernel.
  770. X    */
  771. X    lseek(fd, kernelnames[0].n_value, SEEK_SET);
  772. X    read(fd, &si, sizeof (struct sysinfo));
  773. X
  774. X    /*
  775. X    ** AIX doesn't keep the load average variables in the kernel; all
  776. X    ** we can get is the current number of runnable processes by
  777. X    ** observing the difference between the runque and runocc values
  778. X    ** in sysinfo, and dividing. Having done this, however, we can apply
  779. X    ** a TENEX-style exponential time-average to it by computing an
  780. X    ** averaging multiplier based on the sampling interval. This is then
  781. X    ** used to factor in the current number of runnable processes to our
  782. X    ** running load average. The result "looks right" when observed in
  783. X    ** conjunction with the process table and user activity.
  784. X    **
  785. X    ** We subtract one from the number of running processes given us by
  786. X    ** the kernel because for some reason AIX always calls one of the
  787. X    ** kprocs "runnable" even though it uses very little CPU. Subtracting
  788. X    ** this out gives a load average near zero when the machine is mostly
  789. X    ** idle, which is more familiar to those of us who are used to
  790. X    ** bsd-style load averages.                   /cvk
  791. X    */
  792. X    
  793. X    t = (double)(si.runocc - ro_old);
  794. X    loadav = (double)(si.runque - rq_old) / t - 1.0;
  795. X    rq_old = si.runque;
  796. X    ro_old = si.runocc;
  797. X    multiplier = exp(-t/60.);
  798. X    avenrun = multiplier * avenrun + (1.0 - multiplier) * loadav;
  799. X
  800. X    multiplier = exp(-t/300.);
  801. X    avenrun5 = multiplier * avenrun5 + (1.0 - multiplier) * loadav;
  802. X
  803. X    multiplier = exp(-t/900.);
  804. X    avenrun15 = multiplier * avenrun15 + (1.0 - multiplier) * loadav;
  805. X    
  806. X/*
  807. X    printf("%d %d %f %f %f %f %f\n", si.runque, si.runocc, t, loadav, avenrun,
  808. X    avenrun5, avenrun15);
  809. X*/
  810. X    *l1=avenrun; *l2=avenrun5; *l3=avenrun15;
  811. X    return(*l1);
  812. X    }
  813. X
  814. X/*
  815. Xvoid main()
  816. X{
  817. X        int    i;
  818. X        
  819. X        for (i = 0; i < 10; i++) {
  820. X                GetLoadPoint();
  821. X                sleep(10);
  822. X        }
  823. X}
  824. X*/
  825. X
  826. X#endif
  827. X
  828. X
  829. X#ifdef apollo
  830. X
  831. X/* 
  832. X  This code hacked up by Lee Liming, 10/11/91, from the Apollo uptime sources.
  833. X*/
  834. X
  835. X#include <stdio.h>
  836. X#include <sys/time.h>
  837. X
  838. X
  839. Xtypedef long proc1_$loadav_t[3];
  840. X
  841. Xvoid proc1_$get_loadav();
  842. X
  843. X
  844. X#ifdef __STDC__
  845. Xvoid InitGetLoad(void)
  846. X#else
  847. Xvoid InitGetLoad()
  848. X#endif
  849. X{
  850. X}
  851. X
  852. X
  853. X#ifdef __STDC__
  854. Xdouble GetLoadPoint(double *l1,double *l2,double *l3)
  855. X#else
  856. Xdouble GetLoadPoint(l1,l2,l3)
  857. Xdouble *l1,*l2,*l3;
  858. X#endif
  859. X{
  860. X     proc1_$loadav_t avenrun;
  861. X     int i;
  862. X
  863. X     proc1_$get_loadav(avenrun);
  864. X     *l1=avenrun[0]/65536.;
  865. X     *l2=avenrun[1]/65536.;
  866. X     *l3=avenrun[2]/65536.;
  867. X     return(*l1);
  868. X}
  869. X
  870. X#endif /* apollo */
  871. X
  872. X
  873. X#ifdef testing
  874. Xmain()
  875. X{
  876. X     double l1,l2,l3,rv;
  877. X
  878. X     printf("Starting...\n"); fflush(stdout);
  879. X     InitGetLoad();
  880. X     printf("Between...\n"); fflush(stdout);
  881. X     rv=GetLoadPoint(&l1,&l2,&l3);
  882. X     printf("rv=%0.2lf l1=%0.2lf l2=%0.2lf l3=%0.2lf\n",rv,l1,l2,l3);
  883. X}
  884. X#endif
  885. END_OF_FILE
  886.   if test 8710 -ne `wc -c <'netuse/daemons/getload.c'`; then
  887.     echo shar: \"'netuse/daemons/getload.c'\" unpacked with wrong size!
  888.   fi
  889.   # end of 'netuse/daemons/getload.c'
  890. fi
  891. if test -f 'netuse/lib/netuse.h' -a "${1}" != "-c" ; then 
  892.   echo shar: Will not clobber existing file \"'netuse/lib/netuse.h'\"
  893. else
  894.   echo shar: Extracting \"'netuse/lib/netuse.h'\" \(5782 characters\)
  895.   sed "s/^X//" >'netuse/lib/netuse.h' <<'END_OF_FILE'
  896. X/******************************************************************************
  897. X NETUSE.H - NETUSE Client Library header file
  898. X
  899. X This header file defines the functions and data types provided by the NETUSE
  900. X client library.  This is the header file which should be used when linking
  901. X with the libNetuse.a library to create a NETUSE client.
  902. X
  903. X Lee Liming and Michael Neil, The Computer Aided Engineering Network
  904. X The University of Michigan
  905. X
  906. X Copyright (C) 1990, 1991, 1992 by the Regents of the University of Michigan.
  907. X
  908. X User agrees to reproduce said copyright notice on all copies of the software
  909. X made by the recipient.  
  910. X
  911. X All Rights Reserved. Permission is hereby granted for the recipient to make
  912. X copies and use this software for its own internal purposes only. Recipient of
  913. X this software may re-distribute this software outside of their own
  914. X institution. Permission to market this software commercially, to include this
  915. X product as part of a commercial product, or to make a derivative work for
  916. X commercial purposes, is explicitly prohibited.  All other uses are also
  917. X prohibited unless authorized in writing by the Regents of the University of
  918. X Michigan.
  919. X
  920. X This software is offered without warranty. The Regents of the University of
  921. X Michigan disclaim all warranties, express or implied, including but not
  922. X limited to the implied warranties of merchantability and fitness for any
  923. X particular purpose. In no event shall the Regents of the University of
  924. X Michigan be liable for loss or damage of any kind, including but not limited
  925. X to incidental, indirect, consequential, or special damages. 
  926. X******************************************************************************/
  927. X
  928. X#ifndef _NETUSE_INCLUDED_
  929. X#define _NETUSE_INCLUDED_
  930. X
  931. X#include <sys/types.h>
  932. X#include "config.h"
  933. X
  934. X
  935. X#ifndef _PROTOCOL_INCLUDED_
  936. X
  937. X/* Machine/vendor types */
  938. X
  939. X#define MACH_DEC           1                                   /* DECstation */
  940. X#define MACH_SUN           2                                          /* Sun */
  941. X#define MACH_IBM_RS6000    3                                  /* IBM RS/6000 */
  942. X#define MACH_APOLLO        4                                       /* Apollo */
  943. X#define MACH_HP            5                                       /* HP9000 */
  944. X
  945. X#define MODEL_DS3100       1                          /* Machine model types */
  946. X#define MODEL_DS5000200    2
  947. X#define MODEL_DS5000120    3
  948. X#define MODEL_SUN4         4
  949. X#define MODEL_SUN4_65      5
  950. X#define MODEL_SUN4_50      6
  951. X#define MODEL_RS320        7
  952. X#define MODEL_RS520        8
  953. X#define MODEL_RS530        9
  954. X#define MODEL_RS540       10
  955. X#define MODEL_RS730       11
  956. X#define MODEL_RS930       12
  957. X#define MODEL_AP3000      13
  958. X#define MODEL_AP3500      14
  959. X#define MODEL_AP4000      15
  960. X#define MODEL_AP4500      16
  961. X#define MODEL_AP5500      17
  962. X#define MODEL_AP10010     18
  963. X#define MODEL_AP10020     19
  964. X#define MODEL_HP425E      20
  965. X#define MODEL_HP425T      21
  966. X#define MODEL_HP9000720   22
  967. X#define MODEL_SUN3        23
  968. X#define MODEL_AP2500      24
  969. X#define MODEL_DS5000133   25
  970. X#define MODEL_HP9000705   26
  971. X#define MODEL_HP9000710   27
  972. X#define MODEL_HP9000730   28
  973. X#define MODEL_HP9000750   29
  974. X#define MODEL_RS220       30
  975. X#define MODEL_RS320H      31
  976. X#define MODEL_RS340       32
  977. X#define MODEL_RS350       33
  978. X#define MODEL_RS530H      34
  979. X#define MODEL_RS550       35
  980. X#define MODEL_RS560       36
  981. X#define MODEL_RS950       37
  982. X
  983. X/* Modes for netuseGetList() */
  984. X
  985. X#define MODE_DISP       0x00        /* Normal listing (limited # of machines */
  986. X#define MODE_ALL        0x01     /* List ALL hosts (even ones that are down) */
  987. X#define MODE_DOWN       0x02                /* List only hosts that are down */
  988. X#define MODE_MASK       0x03                      /* Mask for all list modes */
  989. X#define MODE_MODELS     0x04 /* List model types instead of last report time */
  990. X#define MODE_NET        0x80                /* Network listing mode (add \r) */
  991. X
  992. X#define RV_OK              0     /* Protocol response: All's well            */
  993. X#define RV_ACK             1     /* Protocol response: Report acknowledged   */
  994. X#define RV_NACK            2     /* Protocol response: Report not ack'ed     */
  995. X#define RV_TIMEOUT         3     /* Protocol response: Timeout               */
  996. X#define RV_NOMATCH         4     /* Protocol response: Nothing matched       */
  997. X#define RV_NOFILE          5     /* Protocol response: Unable to access file */
  998. X
  999. X#define RV_nOK             0     /* Network response: All's well             */
  1000. X#define RV_nTIMEOUT       -1     /* Network response: Timeout                */
  1001. X#define RV_nBADSEND       -2     /* Network response: Unable to send packet  */
  1002. X#define RV_nBADRECV       -3     /* Network response: Unable to receive      */
  1003. X
  1004. X#endif   /* !defined(_PROTOCOL_INCLUDED_) */
  1005. X
  1006. X
  1007. X#ifdef __STDC__
  1008. X
  1009. Xint     netuseGetList(u_char machine,u_char model,int mode);
  1010. Xu_long  netGetAddress(char *buf);
  1011. Xchar   *netGetHostname(u_long ipaddr,char *buf);
  1012. Xchar   *netGetMachType(u_char mtype,char *mtname);
  1013. Xu_char  netStrToMach(char *mtname);
  1014. Xchar   *netGetModelType(u_char mtype,char *mtname);
  1015. Xu_char  netStrToModel(char *mtname);
  1016. Xchar   *netuseFind(char *name,double l1,double l2,double l3,int users,
  1017. X                   int console,int tmp,u_char machine,u_char model);
  1018. Xint     netuseAddName(char *name,u_char type,u_char model);
  1019. Xint     netuseAddIP(u_long ip_addr,u_short type);
  1020. Xint     netuseDelName(char *name);
  1021. Xint     netuseSaveState(void);
  1022. Xint     netuseLoadHosts(void);
  1023. X
  1024. X#else
  1025. X
  1026. Xint     netuseGetList();
  1027. Xu_long  netGetAddress();
  1028. Xchar   *netGetHostname();
  1029. Xchar   *netGetMachType();
  1030. Xu_char  netStrToMach();
  1031. Xchar   *netGetModelType();
  1032. Xu_char  netStrToModel();
  1033. Xchar   *netuseFind();
  1034. Xint     netuseAddName();
  1035. Xint     netuseAddIP();
  1036. Xint     netuseDelName();
  1037. Xint     netuseSaveState();
  1038. Xint     netuseLoadHosts();
  1039. X
  1040. X#endif
  1041. X
  1042. X#endif  /* _NETUSE_INCLUDED_ */
  1043. END_OF_FILE
  1044.   if test 5782 -ne `wc -c <'netuse/lib/netuse.h'`; then
  1045.     echo shar: \"'netuse/lib/netuse.h'\" unpacked with wrong size!
  1046.   fi
  1047.   # end of 'netuse/lib/netuse.h'
  1048. fi
  1049. if test -f 'netuse/lib/parser.c' -a "${1}" != "-c" ; then 
  1050.   echo shar: Will not clobber existing file \"'netuse/lib/parser.c'\"
  1051. else
  1052.   echo shar: Extracting \"'netuse/lib/parser.c'\" \(9550 characters\)
  1053.   sed "s/^X//" >'netuse/lib/parser.c' <<'END_OF_FILE'
  1054. X/******************************************************************************
  1055. X PARSER.C - String parsing functions
  1056. X
  1057. X (c) 1990, 1991, 1992, R. Lee Liming, Jr.
  1058. X USED WITH PERMISSION OF THE AUTHOR
  1059. X ALL RIGHTS RESERVED
  1060. X
  1061. X This file provides basic string manipulation functions for general-purpose
  1062. X parsing.
  1063. X
  1064. X strip() removes trailing spaces from a string.
  1065. X strip_leading() removes leading spaces from a string.
  1066. X scrunch() removes all spaces from a string.
  1067. X stoupper() converts an entire string to uppercase.
  1068. X spicture() puts a string into a fixed-size text field.
  1069. X whitespace() returns true if it's argument is a whitespace character,
  1070. X   false otherwise.
  1071. X textparam() extracts the nth token (separated by whitespace, starting at 0)
  1072. X   from its first argument.
  1073. X limits() parses a number range string and returns the start and end values.
  1074. X strstr() returns a pointer to a substring within another string.
  1075. X******************************************************************************/
  1076. X
  1077. X#include <ctype.h>
  1078. X#include <stdio.h>
  1079. X#include <string.h>
  1080. X#include <strings.h>
  1081. X
  1082. X#include "parser.h"
  1083. X
  1084. X
  1085. X/*****************************************************************************
  1086. X char *strip(str)
  1087. X
  1088. X This function removes trailing spaces from the string passed to it, and
  1089. X returns a pointer to its argument.
  1090. X*****************************************************************************/
  1091. X
  1092. X#ifdef __STDC__
  1093. Xchar *strip(char *s)
  1094. X#else
  1095. Xchar *strip(s)
  1096. Xchar *s;
  1097. X#endif
  1098. X{
  1099. X     char *p;
  1100. X
  1101. X     for (p=s+strlen(s)-1; (p>=s) && (*p==' '); p--)
  1102. X          *p='\0';
  1103. X     return(s);
  1104. X}
  1105. X
  1106. X
  1107. X/*****************************************************************************
  1108. X char *strip_leading(str)
  1109. X
  1110. X This function removes leading spaces from the string passed to it, and
  1111. X returns a pointer to its argument.
  1112. X*****************************************************************************/
  1113. X
  1114. X#ifdef __STDC__
  1115. Xchar *strip_leading(char *s)
  1116. X#else
  1117. Xchar *strip_leading(s)
  1118. Xchar *s;
  1119. X#endif
  1120. X{
  1121. X     char *p;
  1122. X
  1123. X     for (p=s; (*p!='\0') && (*p==' '); p++)
  1124. X          ;
  1125. X     strcpy(s,p);
  1126. X     return(s);
  1127. X}
  1128. X
  1129. X
  1130. X/*****************************************************************************
  1131. X char *scrunch(char *str)
  1132. X
  1133. X This function removes ALL spaces from a string, including internal spaces.
  1134. X*****************************************************************************/
  1135. X
  1136. X#ifdef __STDC__
  1137. Xchar *scrunch(char *str)
  1138. X#else
  1139. Xchar *scrunch(str)
  1140. Xchar *str;
  1141. X#endif
  1142. X{
  1143. X     char *p,*q;
  1144. X
  1145. X     for (p=str; (*p!='\0'); p++)
  1146. X          if (*p==' ') {
  1147. X               for (q=p; (*q==' '); q++)
  1148. X                    ;
  1149. X               strcpy(p,q);
  1150. X          }
  1151. X     return(str);
  1152. X}
  1153. X
  1154. X
  1155. X/*****************************************************************************
  1156. X char *stoupper(char *str)
  1157. X
  1158. X This function converts the string passed to it to uppercase, and returns a
  1159. X pointer to it.
  1160. X*****************************************************************************/
  1161. X
  1162. X#ifdef __STDC__
  1163. Xchar *stoupper(char *s)
  1164. X#else
  1165. Xchar *stoupper(s)
  1166. Xchar *s;
  1167. X#endif
  1168. X{
  1169. X     char *p;
  1170. X
  1171. X     for (p=s; *p!='\0'; p++) if (islower(*p)) *p=toupper(*p);
  1172. X     return(s);
  1173. X}
  1174. X
  1175. X
  1176. X/*****************************************************************************
  1177. X char *spicture(char *str,int n,char *temp)
  1178. X
  1179. X This function left-justifies a string in a fixed-size text field of size n.
  1180. X The string is padded or truncated as necessary.
  1181. X*****************************************************************************/
  1182. X
  1183. X#ifdef __STDC__
  1184. Xchar *spicture(char *str,int n,char *temp)
  1185. X#else
  1186. Xchar *spicture(str,n,temp)
  1187. Xchar *str;
  1188. Xint n;
  1189. Xchar *temp;
  1190. X#endif
  1191. X{
  1192. X     char *p,*q;
  1193. X     int i;
  1194. X
  1195. X     for (p=str,q=temp,i=0; i<n; i++)
  1196. X          if ((p==NULL) || (*p=='\0')) *(q++)=' ';
  1197. X          else *(q++)=(*(p++));
  1198. X     *q='\0';
  1199. X     return(temp);
  1200. X}
  1201. X
  1202. X
  1203. X/*****************************************************************************
  1204. X int whitespace(ch)
  1205. X
  1206. X This function returns true if its argument is a whitespace character (or
  1207. X comma), false otherwise.  Used for separating tokens in a string.
  1208. X*****************************************************************************/
  1209. X
  1210. X#ifdef __STDC__
  1211. Xint whitespace(char ch)
  1212. X#else
  1213. Xint whitespace(ch)
  1214. Xchar ch;
  1215. X#endif
  1216. X{
  1217. X     switch (ch) {
  1218. X          case ' ':
  1219. X          case '\t':
  1220. X          case ',':
  1221. X               return(1);
  1222. X          default:
  1223. X               return(0);
  1224. X     }
  1225. X}
  1226. X
  1227. X
  1228. X/*****************************************************************************
  1229. X char *textparam(str,n,buf)
  1230. X
  1231. X This is an interesting function, which breaks the first string up into
  1232. X tokens (separated by whitespace(), defined above), and returns the nth one
  1233. X in the third parameter.  n starts at 0 (zero) for the first token on the
  1234. X line.  The function returns a pointer to the extracted token.  Yeah, it's
  1235. X got a lot of +'s and ='s, but it seems to work...  ;-)
  1236. X*****************************************************************************/
  1237. X
  1238. X#ifdef __STDC__
  1239. Xchar *textparam(char *s,int n,char t[])
  1240. X#else
  1241. Xchar *textparam(s,n,t)
  1242. Xchar *s;
  1243. Xint n;
  1244. Xchar t[];
  1245. X#endif
  1246. X{
  1247. X     int i;
  1248. X     char *p;
  1249. X
  1250. X     for (p=s; (*p!='\0') && whitespace(*p); p++)
  1251. X          ;
  1252. X     for (i=0; (i<n) && (*p!='\0'); i++) {
  1253. X          if (*p=='"') {
  1254. X               for (p++; (*p!='\0') && (*p!='"'); p++)
  1255. X                    if ((*p=='\\') && (*(p+1)!='\0')) p++;
  1256. X               if (*p=='"') p++;
  1257. X          }
  1258. X          else for ( ; (*p!='\0') && !whitespace(*p); p++)
  1259. X                    ;
  1260. X          for ( ; (*p!='\0') && whitespace(*p); p++)
  1261. X               ;
  1262. X     }
  1263. X     if (*p=='"') {
  1264. X          for (i=0,p++; (*p!='\0') && (*p!='"'); p++,i++)
  1265. X               if ((*p=='\\') && (*(p+1)!='\0')) t[i]=(*(++p));
  1266. X               else t[i]=(*p);
  1267. X     }
  1268. X     else for (i=0; (*p!='\0') && !whitespace(*p); p++,i++)
  1269. X               t[i]=(*p);
  1270. X     t[i]='\0';
  1271. X     return(t);
  1272. X}
  1273. X
  1274. X
  1275. X/*****************************************************************************
  1276. X char *encapsulate(char *str,char *buf)
  1277. X
  1278. X The encapsulate() function encapsulates a string into a format that can be
  1279. X quoted and then successfully parsed by the textparam() function.  It escapes
  1280. X all double quotes with a backslash, and doubles all backslashes in the
  1281. X original string.  The breakout() function is used to break the string out
  1282. X of this encapsulation.
  1283. X*****************************************************************************/
  1284. X
  1285. X#ifdef __STDC__
  1286. Xchar *encapsulate(char *str,char *buf)
  1287. X#else
  1288. Xchar *encapsulate(str,buf)
  1289. Xchar *str;
  1290. Xchar *buf;
  1291. X#endif
  1292. X{
  1293. X     char *p,*q;
  1294. X
  1295. X     for (p=str,q=buf; *p!='\0'; p++) {
  1296. X          switch (*p) {
  1297. X               case '"':
  1298. X                    *(q++)='\\';
  1299. X                    *(q++)='"';
  1300. X                    break;
  1301. X               case '\\':
  1302. X                    *(q++)='\\';
  1303. X                    *(q++)='\\';
  1304. X                    break;
  1305. X               default:
  1306. X                    *(q++)=(*p);
  1307. X                    break;
  1308. X          }
  1309. X     }
  1310. X     *q='\0';
  1311. X     return(buf);
  1312. X}
  1313. X
  1314. X
  1315. X/*****************************************************************************
  1316. X char *breakout(char *str,char *buf)
  1317. X
  1318. X The breakout() function is used to break the string out of an encapsulated
  1319. X string format made using the encapsulate() function.
  1320. X*****************************************************************************/
  1321. X
  1322. X#ifdef __STDC__
  1323. Xchar *breakout(char *str,char *buf)
  1324. X#else
  1325. Xchar *breakout(str,buf)
  1326. Xchar *str;
  1327. Xchar *buf;
  1328. X#endif
  1329. X{
  1330. X     char *p,*q;
  1331. X
  1332. X     for (p=str,q=buf; *p!='\0'; p++) {
  1333. X          switch (*p) {
  1334. X               case '\\':
  1335. X                    *(q++)=(*(++p));
  1336. X                    break;
  1337. X               default:
  1338. X                    *(q++)=(*p);
  1339. X                    break;
  1340. X          }
  1341. X     }
  1342. X     *q='\0';
  1343. X     return(buf);
  1344. X}
  1345. X
  1346. X
  1347. X/*****************************************************************************
  1348. X int limits(char *rstr,int *start,int *stop)
  1349. X
  1350. X The limits function parses a range string of the form "<num> [ - <num> ]"
  1351. X into a start and stop value.  If the range syntax is legal, the return
  1352. X value is zero.
  1353. X*****************************************************************************/
  1354. X
  1355. X#ifdef __STDC__
  1356. Xint limits(char *rstr,int *start,int *stop)
  1357. X#else
  1358. Xint limits(rstr,start,stop)
  1359. Xchar *rstr;
  1360. Xint *start,*stop;
  1361. X#endif
  1362. X{
  1363. X     char *p,temp[10];
  1364. X     int i;
  1365. X
  1366. X     strip(strip_leading(rstr));
  1367. X     if (!strlen(rstr)) return(-1);
  1368. X     for (p=rstr,i=0; (*p>='0') && (*p<='9'); p++,i++)
  1369. X          temp[i]=(*p);
  1370. X     temp[i]='\0';
  1371. X     if ((*p!='\0') && (*p!='-') && (*p!=' ')) return(-1);
  1372. X     (*stop)=(*start)=atoi(temp);
  1373. X     if (*p=='\0') return(0);
  1374. X     strcpy(temp,++p);
  1375. X     strip_leading(temp);
  1376. X     if (temp[0]=='-') {
  1377. X          strcpy(temp,temp+1);
  1378. X          strip_leading(temp);
  1379. X     }
  1380. X     for (p=temp,i=0; (*p>='0') && (*p<='9'); p++,i++)
  1381. X          ;
  1382. X     if (*p!='\0') return(-2);
  1383. X     *stop=atoi(temp);
  1384. X     return(0);
  1385. X}
  1386. X
  1387. X
  1388. X/*****************************************************************************
  1389. X char *strstr(source,target)
  1390. X
  1391. X This function searches for the first occurence of the target string in the
  1392. X source string, and returns a pointer to it within the source string.  The
  1393. X function returns NULL if no match is found.
  1394. X*****************************************************************************/
  1395. X
  1396. X#ifdef __STDC__
  1397. Xchar *strstr(char *p,char s[])
  1398. X#else
  1399. Xchar *strstr(p,s)
  1400. Xchar *p,s[];
  1401. X#endif
  1402. X{
  1403. X     char *idx,*tmp;
  1404. X     int i,found=0;
  1405. X
  1406. X     if (!strlen(p)) return(NULL);
  1407. X     while (!found) {
  1408. X          if ((tmp=idx=index(p,s[0]))==0) break;
  1409. X          else {
  1410. X               for (i=0; (s[i]!='\0') && (*idx==s[i]); idx++,i++)
  1411. X                    ;
  1412. X               if (s[i]=='\0') found=1;
  1413. X               else p=(++tmp);
  1414. X          }
  1415. X     }
  1416. X     if (!found) return(NULL);
  1417. X     else return(tmp);
  1418. X}
  1419. END_OF_FILE
  1420.   if test 9550 -ne `wc -c <'netuse/lib/parser.c'`; then
  1421.     echo shar: \"'netuse/lib/parser.c'\" unpacked with wrong size!
  1422.   fi
  1423.   # end of 'netuse/lib/parser.c'
  1424. fi
  1425. if test -f 'netuse/lib/protocol.h' -a "${1}" != "-c" ; then 
  1426.   echo shar: Will not clobber existing file \"'netuse/lib/protocol.h'\"
  1427. else
  1428.   echo shar: Extracting \"'netuse/lib/protocol.h'\" \(7650 characters\)
  1429.   sed "s/^X//" >'netuse/lib/protocol.h' <<'END_OF_FILE'
  1430. X/******************************************************************************
  1431. X PROTOCOL.H - NETUSE Protocol Definition
  1432. X
  1433. X This header file defines the NETUSE protocol, used for communication with
  1434. X the NETUSE server (netuse).  All clients, including the netused daemon, use
  1435. X this protocol to send and receive information to/from the server.
  1436. X
  1437. X Lee Liming and Michael Neil, The Computer Aided Engineering Network
  1438. X The University of Michigan
  1439. X
  1440. X Copyright (C) 1990, 1991, 1992 by the Regents of the University of Michigan.
  1441. X
  1442. X User agrees to reproduce said copyright notice on all copies of the software
  1443. X made by the recipient.  
  1444. X
  1445. X All Rights Reserved. Permission is hereby granted for the recipient to make
  1446. X copies and use this software for its own internal purposes only. Recipient of
  1447. X this software may re-distribute this software outside of their own
  1448. X institution. Permission to market this software commercially, to include this
  1449. X product as part of a commercial product, or to make a derivative work for
  1450. X commercial purposes, is explicitly prohibited.  All other uses are also
  1451. X prohibited unless authorized in writing by the Regents of the University of
  1452. X Michigan.
  1453. X
  1454. X This software is offered without warranty. The Regents of the University of
  1455. X Michigan disclaim all warranties, express or implied, including but not
  1456. X limited to the implied warranties of merchantability and fitness for any
  1457. X particular purpose. In no event shall the Regents of the University of
  1458. X Michigan be liable for loss or damage of any kind, including but not limited
  1459. X to incidental, indirect, consequential, or special damages. 
  1460. X******************************************************************************/
  1461. X
  1462. X#ifndef _PROTOCOL_INCLUDED_
  1463. X#define _PROTOCOL_INCLUDED_
  1464. X
  1465. X#include <sys/types.h>
  1466. X#include "config.h"
  1467. X
  1468. X
  1469. X#define SEND_RETRIES       2   /* Send tries before conceding a send failure */
  1470. X#define REQ_RETRIES        2     /* Request tries before conceding a failure */
  1471. X#define TIMEOUT            5    /* Time between request and response timeout */
  1472. X
  1473. X#define OP_NOP             0                      /* NETUSE protocol opcodes */
  1474. X#define OP_STATUS          1                        /* netused status report */
  1475. X#define OP_QUERY           2               /* Request a host of a given type */
  1476. X#define OP_GETLIST         3                 /* Request the entire host list */
  1477. X#define OP_DISPLIST        4              /* Request a host list for display */
  1478. X#define OP_GETDOWN         5         /* Request list of hosts which are down */
  1479. X#define OP_ADDHOST         6                   /* Add a host to the database */
  1480. X#define OP_DELHOST         7              /* Remove a host from the database */
  1481. X#define OP_SAVESTATE       8          /* Store the database in a static file */
  1482. X#define OP_LOADHOSTS       9     /* Re-read the static file to get host list */
  1483. X#define OP_TEXTSTATUS     10              /* netused report on users & class */
  1484. X#define OP_TEXTSTATUS2    11      /* netused report (cont.) on users & class */
  1485. X#define OP_GETMLIST       12     /* Request the entire host list with models */
  1486. X#define OP_DISPMLIST      13  /* Request a host list for display with models */
  1487. X#define OP_GETMDOWN       14       /* Request models of hosts which are down */
  1488. X
  1489. X#define RV_OK              0     /* Protocol response: All's well            */
  1490. X#define RV_ACK             1     /* Protocol response: Report acknowledged   */
  1491. X#define RV_NACK            2     /* Protocol response: Report not ack'ed     */
  1492. X#define RV_TIMEOUT         3     /* Protocol response: Timeout               */
  1493. X#define RV_NOMATCH         4     /* Protocol response: Nothing matched       */
  1494. X#define RV_NOFILE          5     /* Protocol response: Unable to access file */
  1495. X
  1496. X#define RV_nOK             0     /* Network response: All's well             */
  1497. X#define RV_nTIMEOUT       -1     /* Network response: Timeout                */
  1498. X#define RV_nBADSEND       -2     /* Network response: Unable to send packet  */
  1499. X#define RV_nBADRECV       -3     /* Network response: Unable to receive      */
  1500. X
  1501. X#define MODE_DISP       0x00        /* Normal listing (limited # of machines */
  1502. X#define MODE_ALL        0x01     /* List ALL hosts (even ones that are down) */
  1503. X#define MODE_DOWN       0x02                /* List only hosts that are down */
  1504. X#define MODE_MASK       0x03                      /* Mask for all list modes */
  1505. X#define MODE_MODELS     0x04 /* List model types instead of last report time */
  1506. X#define MODE_NET        0x80                /* Network listing mode (add \r) */
  1507. X
  1508. X#define MACH_DEC           1                                /* Machine types */
  1509. X#define MACH_SUN           2
  1510. X#define MACH_IBM_RS6000    3
  1511. X#define MACH_APOLLO        4
  1512. X#define MACH_HP            5
  1513. X
  1514. X#define MODEL_DS3100       1                          /* Machine model types */
  1515. X#define MODEL_DS5000200    2
  1516. X#define MODEL_DS5000120    3
  1517. X#define MODEL_SUN4         4
  1518. X#define MODEL_SUN4_65      5
  1519. X#define MODEL_SUN4_50      6
  1520. X#define MODEL_RS320        7
  1521. X#define MODEL_RS520        8
  1522. X#define MODEL_RS530        9
  1523. X#define MODEL_RS540       10
  1524. X#define MODEL_RS730       11
  1525. X#define MODEL_RS930       12
  1526. X#define MODEL_AP3000      13
  1527. X#define MODEL_AP3500      14
  1528. X#define MODEL_AP4000      15
  1529. X#define MODEL_AP4500      16
  1530. X#define MODEL_AP5500      17
  1531. X#define MODEL_AP10010     18
  1532. X#define MODEL_AP10020     19
  1533. X#define MODEL_HP425E      20
  1534. X#define MODEL_HP425T      21
  1535. X#define MODEL_HP9000720   22
  1536. X#define MODEL_SUN3        23
  1537. X#define MODEL_AP2500      24
  1538. X#define MODEL_DS5000133   25
  1539. X#define MODEL_HP9000705   26
  1540. X#define MODEL_HP9000710   27
  1541. X#define MODEL_HP9000730   28
  1542. X#define MODEL_HP9000750   29
  1543. X#define MODEL_RS220       30
  1544. X#define MODEL_RS320H      31
  1545. X#define MODEL_RS340       32
  1546. X#define MODEL_RS350       33
  1547. X#define MODEL_RS530H      34
  1548. X#define MODEL_RS550       35
  1549. X#define MODEL_RS560       36
  1550. X#define MODEL_RS950       37
  1551. X
  1552. X#ifdef mips
  1553. X#define MACHINETYPE MACH_DEC                  /* Program is running on a DEC */
  1554. X#endif
  1555. X
  1556. X#ifdef hpux
  1557. X#define MACHINETYPE MACH_HP                   /* Program is running on an HP */
  1558. X#endif
  1559. X
  1560. X#ifdef sun
  1561. X#define MACHINETYPE MACH_SUN                  /* Program is running on a Sun */
  1562. X#endif
  1563. X
  1564. X#ifdef _IBMR2
  1565. X#define MACHINETYPE MACH_IBM_RS6000      /* Program is running on an RS/6000 */
  1566. X#endif
  1567. X
  1568. X#ifdef apollo
  1569. X#define MACHINETYPE MACH_APOLLO           /* Program is running on an Apollo */
  1570. X#endif
  1571. X
  1572. X
  1573. Xtypedef struct _userec {
  1574. X             u_char  chksum;               /* Checksum (for error detection) */
  1575. X             u_char  opcode;                                /* Packet opcode */
  1576. X             u_char  retcode;                    /* Return code from request */
  1577. X             u_char  ack;                            /* Acknowedgement field */
  1578. X             u_short load1,load2,load3;                     /* Load averages */
  1579. X             u_short users;                      /* Number of login sessions */
  1580. X             u_long  tmp;                              /* Free space in /tmp */
  1581. X             u_short console;         /* Number of login sessions on display */
  1582. X             u_short uid;                   /* User ID (for making requests) */
  1583. X             u_short filler1;
  1584. X             u_char  machine;                             /* Type of machine */
  1585. X             u_char  model;                                 /* Machine model */
  1586. X        } USEREC;                             /* A NETUSE packet as a struct */
  1587. X
  1588. X#define ipaddr tmp                                   /* Packet field aliases */
  1589. X#define portno load1
  1590. X
  1591. Xtypedef u_char PACKET[sizeof(USEREC)];  /* Used for treating packet as array */
  1592. X
  1593. X#define PACKET_SIZE     sizeof(PACKET)           /* Size (bytes) of a packet */
  1594. X
  1595. X
  1596. X#endif   /* _PROTOCOL_INCLUDED_ */
  1597. END_OF_FILE
  1598.   if test 7650 -ne `wc -c <'netuse/lib/protocol.h'`; then
  1599.     echo shar: \"'netuse/lib/protocol.h'\" unpacked with wrong size!
  1600.   fi
  1601.   # end of 'netuse/lib/protocol.h'
  1602. fi
  1603. echo shar: End of archive 4 \(of 6\).
  1604. cp /dev/null ark4isdone
  1605. MISSING=""
  1606. for I in 1 2 3 4 5 6 ; do
  1607.     if test ! -f ark${I}isdone ; then
  1608.     MISSING="${MISSING} ${I}"
  1609.     fi
  1610. done
  1611. if test "${MISSING}" = "" ; then
  1612.     echo You have unpacked all 6 archives.
  1613.     rm -f ark[1-9]isdone
  1614. else
  1615.     echo You still must unpack the following archives:
  1616.     echo "        " ${MISSING}
  1617. fi
  1618. exit 0
  1619. exit 0 # Just in case...
  1620.