home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / info-service / gopher / Unix / gopher2.0-patches / patch3 < prev    next >
Encoding:
Text File  |  1993-08-12  |  34.7 KB  |  1,334 lines
  1. diff -c gopher+/Makefile:3.7 gopher+/Makefile:3.8
  2. *** gopher+/Makefile:3.7    Thu Aug 12 02:26:39 1993
  3. --- gopher+/Makefile    Thu Aug 12 02:26:39 1993
  4. ***************
  5. *** 1,7 ****
  6.   #********************************************************************
  7.   # $Author: lindner $
  8. ! # $Revision: 3.7 $
  9. ! # $Date: 1993/07/27 05:32:28 $
  10.   # $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/Makefile,v $
  11.   # $State: Exp $
  12.   #
  13. --- 1,7 ----
  14.   #********************************************************************
  15.   # $Author: lindner $
  16. ! # $Revision: 3.8 $
  17. ! # $Date: 1993/08/05 22:22:40 $
  18.   # $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/Makefile,v $
  19.   # $State: Exp $
  20.   #
  21. ***************
  22. *** 15,20 ****
  23. --- 15,23 ----
  24.   #*********************************************************************
  25.   # Revision History:
  26.   # $Log: Makefile,v $
  27. + # Revision 3.8  1993/08/05  22:22:40  lindner
  28. + # warning message for archive
  29. + #
  30.   # Revision 3.7  1993/07/27  05:32:28  lindner
  31.   # added gophfilt and zip stuff
  32.   #
  33. ***************
  34. *** 111,116 ****
  35. --- 114,121 ----
  36.       find $$HERE -type f -print |grep -v '.o$$' |grep -v '~$$' |grep -v 'CVS' >$$HERE/MANIFEST ; \
  37.       /usr/gnu/bin/tar  -T $$HERE/MANIFEST -czvf $$HERE.tar.Z ;\
  38.       zip -@ $$HERE.zip <$$HERE/MANIFEST
  39. +     @echo "Did you remember to update the patchlevel.h Paul?..."
  40. +     @echo "Hmmm...  Hmmmm...."
  41.   
  42.   tags:
  43.       etags `find . -print | egrep '\.[ch]$$'`
  44. diff -c gopher+/make.com:3.1 gopher+/make.com:3.2
  45. *** gopher+/make.com:3.1    Thu Aug 12 02:26:40 1993
  46. --- gopher+/make.com    Thu Aug 12 02:26:40 1993
  47. ***************
  48. *** 5,10 ****
  49. --- 5,12 ----
  50.           @make UCX
  51.           @make WOLLONGONG
  52.           @make MULTINET
  53. +         @make CMUIP
  54. +             @make NETLIB
  55.   $    exit
  56.   $ ENDIF
  57.   $!
  58. diff -c gopher+/patchlevel.h:3.3 gopher+/patchlevel.h:3.4
  59. *** gopher+/patchlevel.h:3.3    Thu Aug 12 02:26:42 1993
  60. --- gopher+/patchlevel.h    Thu Aug 12 02:26:42 1993
  61. ***************
  62. *** 5,8 ****
  63.   #define GOPHER_MAJOR_VERSION "2"
  64.   #define GOPHER_MINOR_VERSION "0"
  65.   
  66. ! #define PATCHLEVEL 1
  67. --- 5,8 ----
  68.   #define GOPHER_MAJOR_VERSION "2"
  69.   #define GOPHER_MINOR_VERSION "0"
  70.   
  71. ! #define PATCHLEVEL 3
  72. diff -c gopher+/doc/Makefile:3.3 gopher+/doc/Makefile:3.4
  73. *** gopher+/doc/Makefile:3.3    Thu Aug 12 02:26:45 1993
  74. --- gopher+/doc/Makefile    Thu Aug 12 02:26:45 1993
  75. ***************
  76. *** 2,12 ****
  77.   
  78.   install:
  79.       
  80. !     $(INSTALL) -c gopherd.conf.5 $(MAN5DIR)
  81. !     $(INSTALL) -c gopherd.8 $(MAN8DIR)
  82. !     $(INSTALL) -c gopherindex.8 $(MAN8DIR)
  83. !     $(INSTALL) -c gopher.1 $(MAN1DIR)
  84. !     $(INSTALL) -c gophfilt.1 $(MAN1DIR)
  85.   
  86.   clean:
  87.       -rm -f *~
  88. --- 2,12 ----
  89.   
  90.   install:
  91.       
  92. !     $(INSTALL)  gopherd.conf.5 $(MAN5DIR)
  93. !     $(INSTALL)  gopherd.8 $(MAN8DIR)
  94. !     $(INSTALL)  gopherindex.8 $(MAN8DIR)
  95. !     $(INSTALL)  gopher.1 $(MAN1DIR)
  96. !     $(INSTALL)  gophfilt.1 $(MAN1DIR)
  97.   
  98.   clean:
  99.       -rm -f *~
  100. diff -c gopher+/doc/client.changes:3.7 gopher+/doc/client.changes:3.8
  101. *** gopher+/doc/client.changes:3.7    Thu Aug 12 02:26:46 1993
  102. --- gopher+/doc/client.changes    Thu Aug 12 02:26:46 1993
  103. ***************
  104. *** 1,4 ****
  105. ! $Id: client.changes,v 3.7 1993/08/04 22:23:41 lindner Exp $
  106.   
  107.   Gopher+2.0 patchlevel 2
  108.   -----------------------
  109. --- 1,14 ----
  110. ! $Id: client.changes,v 3.8 1993/08/05 22:41:05 lindner Exp $
  111. ! 
  112. ! Gopher+2.0 patchlevel 3
  113. ! -----------------------
  114. ! 
  115. !  * Should compile for CMUIP and NETLIB on VMS (not tested)
  116. ! 
  117. !  * Fix for control-c on startup
  118. ! 
  119. !  * Added warning comments in mail_file()
  120. ! 
  121.   
  122.   Gopher+2.0 patchlevel 2
  123.   -----------------------
  124. diff -c gopher+/doc/server.changes:3.7 gopher+/doc/server.changes:3.8
  125. *** gopher+/doc/server.changes:3.7    Thu Aug 12 02:26:48 1993
  126. --- gopher+/doc/server.changes    Thu Aug 12 02:26:49 1993
  127. ***************
  128. *** 1,4 ****
  129. ! $Id: server.changes,v 3.7 1993/08/04 22:23:45 lindner Exp $
  130.   
  131.   Gopher 2.0 patchlevel 2
  132.   -----------------------
  133. --- 1,16 ----
  134. ! $Id: server.changes,v 3.8 1993/08/05 22:41:06 lindner Exp $
  135. ! 
  136. ! Gopher 2.0 patchlevel 3
  137. ! -----------------------
  138. ! 
  139. !  * Only install gopherindex if built
  140. ! 
  141. !  * Added fix for dedot to remove quotes for when using system or popen
  142. ! 
  143. !  * Log execution of programs
  144. ! 
  145. !  * Add one more call to Gpopen for shellindexquery
  146. ! 
  147.   
  148.   Gopher 2.0 patchlevel 2
  149.   -----------------------
  150. diff -c /dev/null gopher+/gopher/cmuip.opt:3.1
  151. *** /dev/null    Thu Aug 12 02:26:53 1993
  152. --- gopher+/gopher/cmuip.opt    Thu Aug 12 02:26:54 1993
  153. ***************
  154. *** 0 ****
  155. --- 1,3 ----
  156. + identification="CMUIP-1.12"
  157. + sys$library:neterror
  158. + sys$share:vaxcrtl.exe/share
  159. diff -c gopher+/gopher/compile.com:3.3 gopher+/gopher/compile.com:3.4
  160. *** gopher+/gopher/compile.com:3.3    Thu Aug 12 02:26:55 1993
  161. --- gopher+/gopher/compile.com    Thu Aug 12 02:26:55 1993
  162. ***************
  163. *** 1,7 ****
  164.   $!********************************************************************
  165.   $! $Author: lindner $
  166. ! $! $Revision: 3.3 $
  167. ! $! $Date: 1993/06/22 06:12:53 $
  168.   $! $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopher/compile.com,v $
  169.   $! $State: Exp $
  170.   $!
  171. --- 1,7 ----
  172.   $!********************************************************************
  173.   $! $Author: lindner $
  174. ! $! $Revision: 3.4 $
  175. ! $! $Date: 1993/08/05 03:24:37 $
  176.   $! $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopher/compile.com,v $
  177.   $! $State: Exp $
  178.   $!
  179. ***************
  180. *** 15,20 ****
  181. --- 15,23 ----
  182.   $!*********************************************************************
  183.   $! Revision History:
  184.   $! $Log: compile.com,v $
  185. + $! Revision 3.4  1993/08/05  03:24:37  lindner
  186. + $! Changes for CMUIP and NETLIB
  187. + $!
  188.   $! Revision 3.3  1993/06/22  06:12:53  lindner
  189.   $! mods for DEC C
  190.   $!
  191. ***************
  192. *** 40,45 ****
  193. --- 43,50 ----
  194.           @compile UCX
  195.           @compile WOLLONGONG
  196.           @compile MULTINET
  197. +         @compile CMUIP
  198. +         @compile NETLIB
  199.   $    exit
  200.   $ ENDIF
  201.   $!
  202. diff -c gopher+/gopher/gopher.c:3.26 gopher+/gopher/gopher.c:3.27
  203. *** gopher+/gopher/gopher.c:3.26    Thu Aug 12 02:26:57 1993
  204. --- gopher+/gopher/gopher.c    Thu Aug 12 02:26:58 1993
  205. ***************
  206. *** 1,7 ****
  207.   /********************************************************************
  208.    * $Author: lindner $
  209. !  * $Revision: 3.26 $
  210. !  * $Date: 1993/08/04 22:08:47 $
  211.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopher/gopher.c,v $
  212.    * $State: Exp $
  213.    *
  214. --- 1,7 ----
  215.   /********************************************************************
  216.    * $Author: lindner $
  217. !  * $Revision: 3.27 $
  218. !  * $Date: 1993/08/05 03:24:21 $
  219.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopher/gopher.c,v $
  220.    * $State: Exp $
  221.    *
  222. ***************
  223. *** 15,20 ****
  224. --- 15,23 ----
  225.    *********************************************************************
  226.    * Revision History:
  227.    * $Log: gopher.c,v $
  228. +  * Revision 3.27  1993/08/05  03:24:21  lindner
  229. +  * Fix for control-c on startup
  230. +  *
  231.    * Revision 3.26  1993/08/04  22:08:47  lindner
  232.    * Fix for problems with '=' and '?' and /bin/mail Gripe mods
  233.    *
  234. ***************
  235. *** 750,756 ****
  236.   /*     RCdestroy(GlobalRC);*/
  237.   
  238.        do {
  239. !       GDdestroy(CurrentDir);
  240.        }
  241.        while (popgopher(&CurrentDir) != -1);
  242.        
  243. --- 753,760 ----
  244.   /*     RCdestroy(GlobalRC);*/
  245.   
  246.        do {
  247. !       if (CurrentDir != NULL)
  248. !            GDdestroy(CurrentDir);
  249.        }
  250.        while (popgopher(&CurrentDir) != -1);
  251.        
  252. diff -c gopher+/gopher/link.com:3.1.1.1 gopher+/gopher/link.com:3.2
  253. *** gopher+/gopher/link.com:3.1.1.1    Thu Aug 12 02:27:00 1993
  254. --- gopher+/gopher/link.com    Thu Aug 12 02:27:00 1993
  255. ***************
  256. *** 1,7 ****
  257.   $!********************************************************************
  258.   $! $Author: lindner $
  259. ! $! $Revision: 3.1.1.1 $
  260. ! $! $Date: 1993/02/11 18:02:59 $
  261.   $! $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopher/link.com,v $
  262.   $! $State: Exp $
  263.   $!
  264. --- 1,7 ----
  265.   $!********************************************************************
  266.   $! $Author: lindner $
  267. ! $! $Revision: 3.2 $
  268. ! $! $Date: 1993/08/05 03:24:39 $
  269.   $! $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopher/link.com,v $
  270.   $! $State: Exp $
  271.   $!
  272. ***************
  273. *** 15,20 ****
  274. --- 15,23 ----
  275.   $!*********************************************************************
  276.   $! Revision History:
  277.   $! $Log: link.com,v $
  278. + $! Revision 3.2  1993/08/05  03:24:39  lindner
  279. + $! Changes for CMUIP and NETLIB
  280. + $!
  281.   $! Revision 3.1.1.1  1993/02/11  18:02:59  lindner
  282.   $! Gopher+1.2beta release
  283.   $!
  284. ***************
  285. *** 34,39 ****
  286. --- 37,44 ----
  287.           @link UCX
  288.           @link WOLLONGONG
  289.           @link MULTINET
  290. +         @link CMUIP
  291. +         @link NETLIB
  292.   $    exit
  293.   $ ENDIF
  294.   $!
  295. diff -c /dev/null gopher+/gopher/netlib.opt:3.1
  296. *** /dev/null    Thu Aug 12 02:27:01 1993
  297. --- gopher+/gopher/netlib.opt    Thu Aug 12 02:27:01 1993
  298. ***************
  299. *** 0 ****
  300. --- 1,3 ----
  301. + identification = "NETLIB-1.12"
  302. + sys$share:netlib_shrxfr/shareable
  303. + sys$share:vaxcrtl/shareable
  304. diff -c gopher+/gopher/ourutils.c:3.19 gopher+/gopher/ourutils.c:3.20
  305. *** gopher+/gopher/ourutils.c:3.19    Thu Aug 12 02:27:02 1993
  306. --- gopher+/gopher/ourutils.c    Thu Aug 12 02:27:03 1993
  307. ***************
  308. *** 1,7 ****
  309.   /********************************************************************
  310.    * $Author: lindner $
  311. !  * $Revision: 3.19 $
  312. !  * $Date: 1993/08/04 22:07:23 $
  313.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopher/ourutils.c,v $
  314.    * $State: Exp $
  315.    *
  316. --- 1,7 ----
  317.   /********************************************************************
  318.    * $Author: lindner $
  319. !  * $Revision: 3.20 $
  320. !  * $Date: 1993/08/05 20:40:43 $
  321.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopher/ourutils.c,v $
  322.    * $State: Exp $
  323.    *
  324. ***************
  325. *** 15,20 ****
  326. --- 15,23 ----
  327.    *********************************************************************
  328.    * Revision History:
  329.    * $Log: ourutils.c,v $
  330. +  * Revision 3.20  1993/08/05  20:40:43  lindner
  331. +  * Added warning message..
  332. +  *
  333.    * Revision 3.19  1993/08/04  22:07:23  lindner
  334.    * Use /bin/mail instead of ucbmail
  335.    *
  336. ***************
  337. *** 184,189 ****
  338. --- 187,198 ----
  339.        
  340.        if (*SaveName == '\0')
  341.         return;
  342. + 
  343. + /*
  344. +  * You should be very careful when you add characters to this list..
  345. +  * 
  346. +  * It could create a nasty security hole!
  347. +  */
  348.        
  349.   #define ACHARS "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789%.@!-_"
  350.               
  351. diff -c gopher+/gopherd/Makefile:3.6 gopher+/gopherd/Makefile:3.7
  352. *** gopher+/gopherd/Makefile:3.6    Thu Aug 12 02:27:08 1993
  353. --- gopher+/gopherd/Makefile    Thu Aug 12 02:27:09 1993
  354. ***************
  355. *** 1,7 ****
  356.   #********************************************************************
  357.   # $Author: lindner $
  358. ! # $Revision: 3.6 $
  359. ! # $Date: 1993/08/04 22:12:01 $
  360.   # $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopherd/Makefile,v $
  361.   # $State: Exp $
  362.   #
  363. --- 1,7 ----
  364.   #********************************************************************
  365.   # $Author: lindner $
  366. ! # $Revision: 3.7 $
  367. ! # $Date: 1993/08/05 22:20:19 $
  368.   # $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopherd/Makefile,v $
  369.   # $State: Exp $
  370.   #
  371. ***************
  372. *** 15,20 ****
  373. --- 15,23 ----
  374.   #*********************************************************************
  375.   # Revision History:
  376.   # $Log: Makefile,v $
  377. + # Revision 3.7  1993/08/05  22:20:19  lindner
  378. + # Only install gopherindex if built
  379. + #
  380.   # Revision 3.6  1993/08/04  22:12:01  lindner
  381.   # Rebuild server if patchlevel.h changes
  382.   #
  383. ***************
  384. *** 138,144 ****
  385.       -mv $(SERVERDIR)/gopherd.conf $(SERVERDIR)/gopherd.conf.old
  386.       $(INSTALL)  $(TARGET) $(SERVERDIR)
  387.       $(INSTALL)  gopherd.conf $(SERVERDIR)
  388. !     $(INSTALL)  gopherindex $(SERVERDIR)
  389.       -rm    $(SERVERDIR)/gopherls $(SERVERDIR)/gindexd
  390.       -ln     -s $(SERVERDIR)/$(TARGET) $(SERVERDIR)/gopherls
  391.       -ln     -s $(SERVERDIR)/$(TARGET) $(SERVERDIR)/gindexd
  392. --- 141,148 ----
  393.       -mv $(SERVERDIR)/gopherd.conf $(SERVERDIR)/gopherd.conf.old
  394.       $(INSTALL)  $(TARGET) $(SERVERDIR)
  395.       $(INSTALL)  gopherd.conf $(SERVERDIR)
  396. !     if [ -f gopherindex ]; then \
  397. !         $(INSTALL)  gopherindex $(SERVERDIR)
  398.       -rm    $(SERVERDIR)/gopherls $(SERVERDIR)/gindexd
  399.       -ln     -s $(SERVERDIR)/$(TARGET) $(SERVERDIR)/gopherls
  400.       -ln     -s $(SERVERDIR)/$(TARGET) $(SERVERDIR)/gindexd
  401. diff -c gopher+/gopherd/dedot.c:3.1.1.1 gopher+/gopherd/dedot.c:3.3
  402. *** gopher+/gopherd/dedot.c:3.1.1.1    Thu Aug 12 02:27:09 1993
  403. --- gopher+/gopherd/dedot.c    Thu Aug 12 02:27:10 1993
  404. ***************
  405. *** 1,9 ****
  406.   /********************************************************************
  407.    * $Author: lindner $
  408. !  * $Revision: 3.1.1.1 $
  409. !  * $Date: 1993/02/11 18:02:50 $
  410.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopherd/dedot.c,v $
  411. !  * $Status: $
  412.    *
  413.    * Paul Lindner, University of Minnesota CIS.
  414.    *
  415. --- 1,9 ----
  416.   /********************************************************************
  417.    * $Author: lindner $
  418. !  * $Revision: 3.3 $
  419. !  * $Date: 1993/08/05 22:19:43 $
  420.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopherd/dedot.c,v $
  421. !  * $State: Exp $
  422.    *
  423.    * Paul Lindner, University of Minnesota CIS.
  424.    *
  425. ***************
  426. *** 15,20 ****
  427. --- 15,26 ----
  428.    *********************************************************************
  429.    * Revision History:
  430.    * $Log: dedot.c,v $
  431. +  * Revision 3.3  1993/08/05  22:19:43  lindner
  432. +  * Fix for single quotes
  433. +  *
  434. +  * Revision 3.2  1993/08/05  20:43:07  lindner
  435. +  * Added fix for dedot to remove quotes for when using system or popen
  436. +  *
  437.    * Revision 3.1.1.1  1993/02/11  18:02:50  lindner
  438.    * Gopher+1.2beta release
  439.    *
  440. ***************
  441. *** 49,89 ****
  442.   ** John Sellens jmsellens@watdragon.waterloo.edu
  443.   */
  444.   
  445. ! /* If DOSINGLE is defined, references to '.' are also removed */
  446. ! #define DOSINGLE
  447. ! 
  448.   void dedot1();
  449.   void dedot2();
  450.   
  451.   void
  452.   dedot1( src )
  453.   char *src;
  454.   {
  455. !     if ( *src == '.' ) {
  456. !     if (
  457. ! #ifdef DOSINGLE
  458. !     src[1] == '\0' || src[1] == '/' ||
  459. ! #endif
  460. !     ( src[1] == '.' && ( src[2] == '\0' || src[2] == '/' ) ) ) {
  461. !         dedot2( src, src );
  462. !         return;
  463. !     }
  464. !     }
  465. !     while ( *src ) {
  466. !     if ( *src++ == '/' ) {
  467. !         if ( *src == '.' ) {
  468. !         if (
  469. ! #ifdef DOSINGLE
  470. !         src[1] == '\0' || src[1] == '/' ||
  471. ! #endif
  472. !         ( src[1] == '.' && ( src[2] == '\0' || src[2] == '/' ) ) ) {
  473. !             dedot2( src, src );
  474. !             return;
  475. !         }
  476. !         }
  477. !     }
  478. !     }
  479. !     return;
  480.   }
  481.   
  482.   /* copy src to dst, blindly removing (not interpreting) ./ and ../ */
  483. --- 55,106 ----
  484.   ** John Sellens jmsellens@watdragon.waterloo.edu
  485.   */
  486.   
  487. ! void dequote();
  488.   void dedot1();
  489.   void dedot2();
  490.   
  491. + 
  492.   void
  493. + dequote1(src)
  494. +   char *src;
  495. + {
  496. +      char *cp2; 
  497. + 
  498. +      /** Strip out the quotes.. **/
  499. +      while (*src != '\0') {
  500. +       if (*src == '"' || *src == '\'') {
  501. +            for (cp2=src; *cp2 != '\0'; cp2++) {
  502. +             *cp2 = *(cp2+1);
  503. +            }
  504. +       }
  505. +       src++;
  506. +      }
  507. + }
  508. + 
  509. + void
  510.   dedot1( src )
  511.   char *src;
  512.   {
  513. !      dequote1(src);
  514. !      if ( *src == '.' ) {
  515. !       if (src[1] == '\0' || src[1] == '/' ||
  516. !           ( src[1] == '.' && ( src[2] == '\0' || src[2] == '/' ) ) ) {
  517. !            dedot2( src, src );
  518. !            return;
  519. !       }
  520. !      }
  521. !      while ( *src ) {
  522. !       if ( *src++ == '/' ) {
  523. !            if ( *src == '.' ) {
  524. !             if (src[1] == '\0' || src[1] == '/' ||
  525. !             ( src[1] == '.' && ( src[2] == '\0' || src[2] == '/' ) ) ) {
  526. !              dedot2( src, src );
  527. !              return;
  528. !             }
  529. !            }
  530. !       }
  531. !      }
  532. !      return;
  533.   }
  534.   
  535.   /* copy src to dst, blindly removing (not interpreting) ./ and ../ */
  536. ***************
  537. *** 92,137 ****
  538.     char *src;
  539.     char *dst;
  540.   {
  541. !     /*
  542. !     ** We either have /, a filename, ./ or ../
  543. !     */
  544.   
  545. !     while ( *src ) {
  546. !     switch ( *src ) {
  547. !         case '/':
  548. !         /* copy it, and skip any extras e.g. /a///b */
  549. !         *dst++ = *src++;
  550. !         while ( *src == '/' )
  551.               src++;
  552. !         break;
  553. !         case '.':
  554. ! #ifdef DOSINGLE
  555. !         /* don't forget about trailing . and .. */
  556. !         if ( src[1] == '/'  ) {        /* ./ */
  557. !             src += 2;
  558.               break;
  559. !         }
  560. !         if ( src[1] == '\0'  ) {    /* .\0 */
  561. !             src += 1;    /* only 1 so we don't fall off the end */
  562.               break;
  563. !         }
  564. ! #endif
  565. !         if ( src[1] == '.' && src[2] == '/' ) {        /* ../ */
  566. !             src += 3;
  567.               break;
  568. !         }
  569. !         if ( src[1] == '.' && src[2] == '\0' ) {    /* .. */
  570. !             src += 2;    /* don't fall off the end */
  571.               break;
  572. !         }
  573. !         /* must be a filename - fall through */
  574. !         default:
  575. !         /* must be filename - copy it over */
  576. !         while ( *src != '\0' && *src != '/' )
  577.               *dst++ = *src++;
  578. !         break;
  579. !     }
  580. !     }
  581. !     /* and terminate it */
  582. !     *dst = '\0';
  583.   }
  584. --- 109,164 ----
  585.     char *src;
  586.     char *dst;
  587.   {
  588. !      /*
  589. !       ** We either have /, a filename, ./ or ../
  590. !       */
  591. !      int i;
  592.   
  593. !      while ( *src ) {
  594. !       switch ( *src ) {
  595. !       case '"':
  596. !            /* Ignore it.. */
  597. !            src++;
  598. !            break;
  599. !       case '/':
  600. !            /* copy it, and skip any extras e.g. /a///b */
  601. !            *dst++ = *src++;
  602. !            while ( *src == '/' )
  603.               src++;
  604. !            break;
  605. !       case '.':
  606. !            /* don't forget about trailing . and .. */
  607. ! 
  608. !            /* Nuke any quotes */
  609. !            for (i=1; src[i] == '"' || *src == '\''; i++)
  610. !             ;
  611. !            
  612. !            if ( src[i] == '/'  ) {        /* ./ */
  613. !             src += i+1;
  614.               break;
  615. !            }
  616. !            if ( src[i] == '\0'  ) {    /* .\0 */
  617. !             src += i;    /* only 1 so we don't fall off the end */
  618.               break;
  619. !            }
  620. !            if ( src[i] == '.' && src[i+2] == '/' ) { /* ../ */
  621. !             src += i+2;
  622.               break;
  623. !            }
  624. !            if ( src[i] == '.' && src[i+2] == '\0' ) {    /* .. */
  625. !             src += i+1;    /* don't fall off the end */
  626.               break;
  627. !            }
  628. !            /* must be a filename - fall through */
  629. !       default:
  630. !            /* must be filename - copy it over */
  631. !            while ( *src != '\0' && *src != '/' && *src != '"')
  632.               *dst++ = *src++;
  633. !            break;
  634. !       }
  635. !      }
  636. !      /* and terminate it */
  637. !      *dst = '\0';
  638.   }
  639. + 
  640. + 
  641. diff -c gopher+/gopherd/gopherd.c:3.27 gopher+/gopherd/gopherd.c:3.28
  642. *** gopher+/gopherd/gopherd.c:3.27    Thu Aug 12 02:27:11 1993
  643. --- gopher+/gopherd/gopherd.c    Thu Aug 12 02:27:11 1993
  644. ***************
  645. *** 1,7 ****
  646.   /********************************************************************
  647.    * $Author: lindner $
  648. !  * $Revision: 3.27 $
  649. !  * $Date: 1993/08/02 17:59:26 $
  650.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopherd/gopherd.c,v $
  651.    * $State: Exp $
  652.    *
  653. --- 1,7 ----
  654.   /********************************************************************
  655.    * $Author: lindner $
  656. !  * $Revision: 3.28 $
  657. !  * $Date: 1993/08/05 20:47:16 $
  658.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopherd/gopherd.c,v $
  659.    * $State: Exp $
  660.    *
  661. ***************
  662. *** 15,20 ****
  663. --- 15,23 ----
  664.    *********************************************************************
  665.    * Revision History:
  666.    * $Log: gopherd.c,v $
  667. +  * Revision 3.28  1993/08/05  20:47:16  lindner
  668. +  * Log execution of programs
  669. +  *
  670.    * Revision 3.27  1993/08/02  17:59:26  lindner
  671.    * Fix for Debug syntax error when using DL
  672.    *
  673. ***************
  674. *** 1098,1103 ****
  675. --- 1101,1107 ----
  676.              EXECargs = args;
  677.   
  678.              printfile(sockfd, command, 0, -1, CMDisGplus(cmd));
  679. +            LOGGopher(sockfd, "Executed %s %s", command, args);
  680.         }
  681.         break;
  682.   
  683. diff -c gopher+/gopherd/index.c:3.8 gopher+/gopherd/index.c:3.9
  684. *** gopher+/gopherd/index.c:3.8    Thu Aug 12 02:27:12 1993
  685. --- gopher+/gopherd/index.c    Thu Aug 12 02:27:13 1993
  686. ***************
  687. *** 1,7 ****
  688.   /********************************************************************
  689.    * $Author: lindner $
  690. !  * $Revision: 3.8 $
  691. !  * $Date: 1993/08/04 22:12:43 $
  692.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopherd/index.c,v $
  693.    * $State: Exp $
  694.    *
  695. --- 1,7 ----
  696.   /********************************************************************
  697.    * $Author: lindner $
  698. !  * $Revision: 3.9 $
  699. !  * $Date: 1993/08/05 20:44:02 $
  700.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopherd/index.c,v $
  701.    * $State: Exp $
  702.    *
  703. ***************
  704. *** 15,20 ****
  705. --- 15,23 ----
  706.    *********************************************************************
  707.    * Revision History:
  708.    * $Log: index.c,v $
  709. +  * Revision 3.9  1993/08/05  20:44:02  lindner
  710. +  * Use Gpopen instead of popen, remove extra filtering code
  711. +  *
  712.    * Revision 3.8  1993/08/04  22:12:43  lindner
  713.    * Mods to use Gpopen
  714.    *
  715. ***************
  716. *** 367,384 ****
  717.   
  718.        gd = GDnew(32);
  719.   
  720. -      /*** Clean up the arguments, remove  ; and " and `**/
  721. -      cp = Searchstring;
  722. -      while (*cp != '\0') {
  723. -       if (*cp == ';' ||*cp == '"' || *cp == '`' || *cp == '$')
  724. -            *cp = '.';
  725. -       cp++;
  726. -      }
  727. -       
  728. - 
  729.        sprintf(Command, "\"%s\" \"%s\"", Script, Searchstring);
  730.   
  731. !      Searchprocess = popen(Command, "r");
  732.   
  733.        if (Searchprocess == NULL) {
  734.         writestring(sockfd, ".\r\n");
  735. --- 370,378 ----
  736.   
  737.        gd = GDnew(32);
  738.   
  739.        sprintf(Command, "\"%s\" \"%s\"", Script, Searchstring);
  740.   
  741. !      Searchprocess = Gpopen(Command, "r");
  742.   
  743.        if (Searchprocess == NULL) {
  744.         writestring(sockfd, ".\r\n");
  745. diff -c gopher+/gopherd/serverutil.c:3.10 gopher+/gopherd/serverutil.c:3.11
  746. *** gopher+/gopherd/serverutil.c:3.10    Thu Aug 12 02:27:14 1993
  747. --- gopher+/gopherd/serverutil.c    Thu Aug 12 02:27:14 1993
  748. ***************
  749. *** 1,7 ****
  750.   /********************************************************************
  751.    * $Author: lindner $
  752. !  * $Revision: 3.10 $
  753. !  * $Date: 1993/08/04 22:14:51 $
  754.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopherd/serverutil.c,v $
  755.    * $State: Exp $
  756.    *
  757. --- 1,7 ----
  758.   /********************************************************************
  759.    * $Author: lindner $
  760. !  * $Revision: 3.11 $
  761. !  * $Date: 1993/08/05 20:46:36 $
  762.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/gopherd/serverutil.c,v $
  763.    * $State: Exp $
  764.    *
  765. ***************
  766. *** 15,20 ****
  767. --- 15,23 ----
  768.    *********************************************************************
  769.    * Revision History:
  770.    * $Log: serverutil.c,v $
  771. +  * Revision 3.11  1993/08/05  20:46:36  lindner
  772. +  * Fix for Gpopen for single quotes and !
  773. +  *
  774.    * Revision 3.10  1993/08/04  22:14:51  lindner
  775.    * Mods to use Gpopen
  776.    *
  777. ***************
  778. *** 483,488 ****
  779. --- 486,492 ----
  780.     char *rw;
  781.   {
  782.        int inquote = 0;
  783. +      int insquote = 0;
  784.        int i;
  785.   
  786.        /** Strip out the naughty bits..  **/
  787. ***************
  788. *** 489,497 ****
  789.        for (i=0; cmd[i] != '\0'; i++) {
  790.         switch (cmd[i]) {
  791.         case '"':
  792. !            inquote = 1-inquote;
  793.              break;
  794.              
  795.         case '*':
  796.         case '&':
  797.         case '|':
  798. --- 493,507 ----
  799.        for (i=0; cmd[i] != '\0'; i++) {
  800.         switch (cmd[i]) {
  801.         case '"':
  802. !            if (!insquote)
  803. !             inquote = 1-inquote;
  804.              break;
  805.              
  806. +       case '\'':
  807. +            if (!inquote)
  808. +             insquote = 1-insquote;
  809. +            break;
  810. + 
  811.         case '*':
  812.         case '&':
  813.         case '|':
  814. ***************
  815. *** 500,506 ****
  816.         case '?':
  817.         case '<':
  818.         case '>':
  819. -       case '!':
  820.         case '(':
  821.         case ')':
  822.         case '{':
  823. --- 510,515 ----
  824. ***************
  825. *** 510,522 ****
  826.         case '^':
  827.              /*** Stuff that's okay if quoted.. ***/
  828.   
  829. !            if (!inquote) {
  830. !             LOGGopher("Possible Security Violation '%s'", cmd);
  831.               return(NULL);
  832.              }
  833.              
  834.              break;
  835.   
  836.         case '\\':
  837.         case '`':
  838.         case '\n':
  839. --- 519,532 ----
  840.         case '^':
  841.              /*** Stuff that's okay if quoted.. ***/
  842.   
  843. !            if (!inquote && !insquote) {
  844. !             LOGGopher(0, "Possible Security Violation '%s'", cmd);
  845.               return(NULL);
  846.              }
  847.              
  848.              break;
  849.   
  850. +       case '!':
  851.         case '\\':
  852.         case '`':
  853.         case '\n':
  854. ***************
  855. *** 523,529 ****
  856.         case '$':
  857.              /*** Stuff that shouldn't be in there at all! **/
  858.   
  859. !            LOGGopher("Possible Security Violation '%s'", cmd);
  860.              return(NULL);
  861.   
  862.              break;
  863. --- 533,539 ----
  864.         case '$':
  865.              /*** Stuff that shouldn't be in there at all! **/
  866.   
  867. !            LOGGopher(0, "Possible Security Violation '%s'", cmd);
  868.              return(NULL);
  869.   
  870.              break;
  871. diff -c gopher+/object/Sockets.c:3.3 gopher+/object/Sockets.c:3.4
  872. *** gopher+/object/Sockets.c:3.3    Thu Aug 12 02:27:17 1993
  873. --- gopher+/object/Sockets.c    Thu Aug 12 02:27:18 1993
  874. ***************
  875. *** 1,7 ****
  876.   /********************************************************************
  877.    * $Author: lindner $
  878. !  * $Revision: 3.3 $
  879. !  * $Date: 1993/07/29 20:01:02 $
  880.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/object/Sockets.c,v $
  881.    * $State: Exp $
  882.    *
  883. --- 1,7 ----
  884.   /********************************************************************
  885.    * $Author: lindner $
  886. !  * $Revision: 3.4 $
  887. !  * $Date: 1993/08/05 03:23:37 $
  888.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/object/Sockets.c,v $
  889.    * $State: Exp $
  890.    *
  891. ***************
  892. *** 15,20 ****
  893. --- 15,23 ----
  894.    *********************************************************************
  895.    * Revision History:
  896.    * $Log: Sockets.c,v $
  897. +  * Revision 3.4  1993/08/05  03:23:37  lindner
  898. +  * Changes for CMUIP and NETLIB
  899. +  *
  900.    * Revision 3.3  1993/07/29  20:01:02  lindner
  901.    * Removed dead variables
  902.    *
  903. ***************
  904. *** 37,57 ****
  905.   
  906.   /* Socket specific stuff, ugh! */
  907.   #ifdef VMS
  908. ! #include <socket.h>
  909. ! #include <in.h>
  910. ! #include <file.h>
  911. ! #include <inet.h>
  912. ! #include <netdb.h>
  913.   
  914. ! #else
  915. ! #include <sys/types.h>
  916. ! #include <sys/socket.h>
  917. ! #include <netinet/in.h>
  918. ! #include <sys/file.h>
  919. ! #ifndef hpux
  920. ! #include <arpa/inet.h>
  921. ! #endif
  922. ! #include <netdb.h>
  923.   #endif  /* not VMS */
  924.   
  925.   #include "Malloc.h"
  926. --- 40,67 ----
  927.   
  928.   /* Socket specific stuff, ugh! */
  929.   #ifdef VMS
  930. ! #  if !defined(CMUIP) && !defined(NETLIB)
  931. ! #    include <socket.h>
  932. ! #    include <in.h>
  933. ! #    include <file.h>
  934. ! #    include <inet.h>
  935. ! #    include <netdb.h>
  936. ! #    include iodef
  937. ! #    include ssdef
  938. ! #  else
  939. ! #    include iodef
  940. ! #    include ssdef
  941. ! #  endif        /* if !CMUIP && !NETLIB */
  942.   
  943. ! #else  /* VMS */
  944. ! #  include <sys/types.h>
  945. ! #  include <sys/socket.h>
  946. ! #  include <netinet/in.h>
  947. ! #  include <sys/file.h>
  948. ! #  ifndef hpux
  949. ! #    include <arpa/inet.h>
  950. ! #  endif
  951. ! #  include <netdb.h>
  952.   #endif  /* not VMS */
  953.   
  954.   #include "Malloc.h"
  955. ***************
  956. *** 134,139 ****
  957. --- 144,150 ----
  958.     char *hostname;
  959.     int port;
  960.   {
  961. + #if !defined(CMUIP) && !defined(NETLIB)
  962.        struct sockaddr_in Server;
  963.        struct hostent *HostPtr;
  964.        int sockfd = 0;
  965. ***************
  966. *** 177,182 ****
  967. --- 188,252 ----
  968.        }
  969.   
  970.        return(sockfd);
  971. + 
  972. + #else /* !NETLIB && !CMUIP */
  973. + #ifdef NETLIB
  974. +      int status;
  975. +      static int iSock = 0;
  976. +      struct {
  977. +           long len;
  978. +           char *adr;
  979. +      } host_desc;
  980. + 
  981. + #define NET_K_TCP 1
  982. +      status = NET_ASSIGN (&iSock);
  983. +      if ((status & 1) == 0)
  984. +           return (-3);
  985. +      status = NET_BIND (&iSock, NET_K_TCP, 0, 0, 0);
  986. +      if ((status & 1) == 0)
  987. +           return (-3);
  988. +      host_desc.adr = hostname;
  989. +      host_desc.len = strlen (host_desc.adr);
  990. +      status = TCP_CONNECT (&iSock, &host_desc, port);
  991. +      if ((status & 1) == 0) {
  992. +           NET_DEASSIGN (&iSock);
  993. +           if (status == SS$_REJECT)
  994. +                return (-4);
  995. +           if (status == SS$_ENDOFFILE)
  996. +                return (-2);
  997. +           return (-1);
  998. +      }
  999. +      return (iSock);
  1000. + #else /* ifdef NETLIB:  assume CMUIP */
  1001. +      short channel;
  1002. +      int status;
  1003. +      struct {
  1004. +           short status;
  1005. +           short size;
  1006. +           long xxx;
  1007. +      } cmu_iosb;
  1008. +      static struct {long l; char *a;} ip_dev = {12, "INET$DEVICE:"};
  1009. +      globalvalue NET$_CREF;           /* Connection refused */
  1010. +      globalvalue NET$_DSNAMERR;               /* Domain server name error */
  1011. +      status = SYS$ASSIGN (&ip_dev, &channel, 0, 0);
  1012. +      if ((status & 1) == 0)
  1013. +           return (-3);
  1014. +      status = SYS$QIOW (0, channel, IO$_CREATE, &cmu_iosb, 0, 0,
  1015. +           hostname, port, 0, 1, 0, 0);
  1016. +      if ((status & 1) == 0 || (cmu_iosb.status & 1) == 0) {
  1017. +           SYS$DASSGN (channel);
  1018. +           if (cmu_iosb.status == SS$_ABORT) {
  1019. +                if (cmu_iosb.xxx == NET$_CREF)
  1020. +                     return (-4);
  1021. +                if (cmu_iosb.xxx == NET$_DSNAMERR)
  1022. +                     return (-2);
  1023. +           }
  1024. +           return (-1);
  1025. +      }
  1026. +      return (channel);
  1027. + #endif
  1028. + #endif
  1029. + 
  1030.   }
  1031.   
  1032.   
  1033. diff -c gopher+/object/compile.com:3.5 gopher+/object/compile.com:3.6
  1034. *** gopher+/object/compile.com:3.5    Thu Aug 12 02:27:18 1993
  1035. --- gopher+/object/compile.com    Thu Aug 12 02:27:19 1993
  1036. ***************
  1037. *** 35,40 ****
  1038. --- 35,42 ----
  1039.            @compile UCX
  1040.            @compile WOLLONGONG
  1041.            @compile MULTINET
  1042. +          @compile CMUIP
  1043. +              @compile NETLIB
  1044.   $    exit
  1045.   $ ENDIF
  1046.   $ ON CONTROL_Y THEN GOTO CLEANUP
  1047. diff -c gopher+/object/util.c:3.7 gopher+/object/util.c:3.8
  1048. *** gopher+/object/util.c:3.7    Thu Aug 12 02:27:19 1993
  1049. --- gopher+/object/util.c    Thu Aug 12 02:27:20 1993
  1050. ***************
  1051. *** 1,7 ****
  1052.   /********************************************************************
  1053.    * $Author: lindner $
  1054. !  * $Revision: 3.7 $
  1055. !  * $Date: 1993/07/27 05:30:30 $
  1056.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/object/util.c,v $
  1057.    * $State: Exp $
  1058.    *
  1059. --- 1,7 ----
  1060.   /********************************************************************
  1061.    * $Author: lindner $
  1062. !  * $Revision: 3.8 $
  1063. !  * $Date: 1993/08/05 03:23:40 $
  1064.    * $Source: /tmp_mnt/home/mudhoney/GopherSrc/CVS/gopher+/object/util.c,v $
  1065.    * $State: Exp $
  1066.    *
  1067. ***************
  1068. *** 15,20 ****
  1069. --- 15,23 ----
  1070.    *********************************************************************
  1071.    * Revision History:
  1072.    * $Log: util.c,v $
  1073. +  * Revision 3.8  1993/08/05  03:23:40  lindner
  1074. +  * Changes for CMUIP and NETLIB
  1075. +  *
  1076.    * Revision 3.7  1993/07/27  05:30:30  lindner
  1077.    * Mondo Debug overhaul from Mitra
  1078.    *
  1079. ***************
  1080. *** 75,82 ****
  1081.   #endif
  1082.    
  1083.   
  1084. ! #if defined(VMS) && (defined(WOLLONGONG) || defined(MULTINET))
  1085. ! /* Multinet and Wollongong (non UCX-emulation) use channel numbers */
  1086.   /* for sockets, which are small multiples of 16.  The first 5 */
  1087.   /* channels can be assumed to be already used, so we assume that */
  1088.   /* sockets start at 64, and that only 64 VAXC fds are simultaneously */
  1089. --- 78,85 ----
  1090.   #endif
  1091.    
  1092.   
  1093. ! #if defined(VMS) && (defined(WOLLONGONG) || defined(MULTINET) ||defined(CMUIP)||defined(NETLIB))
  1094. ! /* Multinet and Wollongong,etc. (non UCX-emulation) use channel numbers */
  1095.   /* for sockets, which are small multiples of 16.  The first 5 */
  1096.   /* channels can be assumed to be already used, so we assume that */
  1097.   /* sockets start at 64, and that only 64 VAXC fds are simultaneously */
  1098. ***************
  1099. *** 95,101 ****
  1100.       if (IS_SOCKET(s)) {
  1101.   #ifdef MULTINET
  1102.       return (socket_close(s));
  1103. ! #else /* WOLLONGONG */
  1104.       return (netclose(s));
  1105.   #endif
  1106.       }
  1107. --- 98,104 ----
  1108.       if (IS_SOCKET(s)) {
  1109.   #ifdef MULTINET
  1110.       return (socket_close(s));
  1111. ! #else /* WOLLONGONG, CMUIP, NETLIB */
  1112.       return (netclose(s));
  1113.   #endif
  1114.       }
  1115. ***************
  1116. *** 120,126 ****
  1117.        
  1118.        nleft = nbytes;
  1119.        while (nleft > 0) {
  1120. ! #if defined(VMS) && defined(WOLLONGONG)
  1121.         nread = IS_SOCKET(fd) ? netread(fd, ptr, nleft) : read(fd, ptr, nleft);
  1122.   #else
  1123.   #if defined(VMS) && defined(MULTINET)
  1124. --- 123,129 ----
  1125.        
  1126.        nleft = nbytes;
  1127.        while (nleft > 0) {
  1128. ! #if defined(VMS) && (defined(WOLLONGONG) || defined(CMUIP) || defined(NETLIB))
  1129.         nread = IS_SOCKET(fd) ? netread(fd, ptr, nleft) : read(fd, ptr, nleft);
  1130.   #else
  1131.   #if defined(VMS) && defined(MULTINET)
  1132. ***************
  1133. *** 163,169 ****
  1134.        
  1135.        nleft = nbytes;
  1136.        while(nleft > 0) {
  1137. ! #if defined(VMS) && defined(WOLLONGONG)
  1138.         nwritten = IS_SOCKET(fd) ? netwrite(fd, ptr, nleft) : write(fd, ptr, nleft);
  1139.   #else
  1140.   #if defined(VMS) && defined(MULTINET)
  1141. --- 166,172 ----
  1142.        
  1143.        nleft = nbytes;
  1144.        while(nleft > 0) {
  1145. ! #if defined(VMS) && (defined(WOLLONGONG) || defined(CMUIP) || defined(NETLIB))
  1146.         nwritten = IS_SOCKET(fd) ? netwrite(fd, ptr, nleft) : write(fd, ptr, nleft);
  1147.   #else
  1148.   #if defined(VMS) && defined(MULTINET)
  1149. ***************
  1150. *** 229,235 ****
  1151.        int bytesread = 0;
  1152.   
  1153.        if (recvbufptr == 0 || Oldsockfd != sockfd) {
  1154. ! #if defined(VMS) && defined(WOLLONGONG)
  1155.         recvbufsize = IS_SOCKET(sockfd) ?
  1156.           netread(sockfd, recvbuf, RECVSIZE) : read(sockfd, recvbuf, RECVSIZE);
  1157.   #else
  1158. --- 232,238 ----
  1159.        int bytesread = 0;
  1160.   
  1161.        if (recvbufptr == 0 || Oldsockfd != sockfd) {
  1162. ! #if defined(VMS) && (defined(WOLLONGONG)||defined(CMUIP)||defined(NETLIB))
  1163.         recvbufsize = IS_SOCKET(sockfd) ?
  1164.           netread(sockfd, recvbuf, RECVSIZE) : read(sockfd, recvbuf, RECVSIZE);
  1165.   #else
  1166. ***************
  1167. *** 624,630 ****
  1168. --- 627,782 ----
  1169.   }
  1170.   
  1171.   
  1172. + 
  1173. + #if defined(VMS) && defined(NETLIB)
  1174. + 
  1175.   /*
  1176. +  * netclose, netread, and netwrite for NETLIB
  1177. +  */
  1178. + 
  1179. + #include iodef
  1180. + 
  1181. + static struct {
  1182. +      short status;
  1183. +      short size;
  1184. +      long xxx;
  1185. + } netlib_iosb;
  1186. + 
  1187. + void netlib_ast (param)
  1188. + int param;
  1189. + {
  1190. +      SYS$SETEF (0);
  1191. + }
  1192. + 
  1193. + int netclose (channel)
  1194. + int channel;
  1195. + {
  1196. +      NET_DEASSIGN (&channel);
  1197. + 
  1198. +      return (0);
  1199. + }
  1200. + 
  1201. + int netread (channel, buffer, length)
  1202. + int channel;
  1203. + char *buffer;
  1204. + int length;
  1205. + {
  1206. +      struct {
  1207. +           long len;
  1208. +           char *adr;
  1209. +      } buffer_desc;
  1210. +      int status;
  1211. + 
  1212. +      if (length > 1500) length = 1500;
  1213. +      buffer_desc.len = length;
  1214. +      buffer_desc.adr = buffer;
  1215. +      SYS$CLREF (0);
  1216. +      status = TCP_RECEIVE (&channel, &buffer_desc, &netlib_iosb, netlib_ast, 0);
  1217. +      if ((status & 1) == 0)
  1218. +           return (-1);
  1219. +      SYS$WAITFR (0);
  1220. +      if ((netlib_iosb.status & 1) == 0) {
  1221. +           return (-1);
  1222. +      }
  1223. +      return (netlib_iosb.size);
  1224. + }
  1225. + 
  1226. + int netwrite (channel, buffer, length)
  1227. + int channel;
  1228. + char *buffer;
  1229. + int length;
  1230. + {
  1231. +      struct {
  1232. +           long len;
  1233. +           char *adr;
  1234. +      } buffer_desc;
  1235. +      int status;
  1236. + 
  1237. +      buffer_desc.len = length;
  1238. +      buffer_desc.adr = buffer;
  1239. +      SYS$CLREF (0);
  1240. +      status = TCP_SEND (&channel, &buffer_desc, 6, &netlib_iosb, netlib_ast, 0);
  1241. +      if ((status & 1) == 0)
  1242. +           return (-1);
  1243. +      SYS$WAITFR (0);
  1244. +      if ((netlib_iosb.status & 1) == 0) {
  1245. +           return (-1);
  1246. +      }
  1247. +      return (netlib_iosb.size);
  1248. + }
  1249. + 
  1250. + #endif    /* NETLIB */
  1251. + 
  1252. + #if defined(VMS) && defined(CMUIP)
  1253. + 
  1254. + /*
  1255. +  * netclose, netread, and netwrite for CMUIP
  1256. +  */
  1257. + 
  1258. + #include iodef
  1259. + 
  1260. + static struct {
  1261. +      short status;
  1262. +      short size;
  1263. +      long xxx;
  1264. + } cmu_iosb;
  1265. + 
  1266. + int netclose (channel)
  1267. +   int channel;
  1268. + {
  1269. +      int status;
  1270. + 
  1271. +      status = SYS$QIOW (0, channel, IO$_DELETE, &cmu_iosb, 0, 0,
  1272. +             0, 0, 0, 0, 0, 0);
  1273. +      status = SYS$DASSGN (channel);
  1274. + 
  1275. +      return (0);
  1276. + }
  1277. + 
  1278. + int netread (channel, buffer, length)
  1279. +   int channel;
  1280. +   char *buffer;
  1281. +   int length;
  1282. + {
  1283. +      int status;
  1284. + 
  1285. +      if (length > 1500) length = 1500;
  1286. +      status = SYS$QIOW (0, channel, IO$_READVBLK, &cmu_iosb, 0, 0,
  1287. +             buffer, length, 0, 0, 0, 0);
  1288. +      if ((status & 1) == 0)
  1289. +           return (-1);
  1290. +      if ((cmu_iosb.status & 1) == 0) {
  1291. +           if (cmu_iosb.status == 44)
  1292. +                exit (cmu_iosb.xxx);
  1293. +           return (-1);
  1294. +      }
  1295. +      return (cmu_iosb.size);
  1296. + }
  1297. + 
  1298. + int netwrite (channel, buffer, length)
  1299. +   int channel;
  1300. +   char *buffer;
  1301. +   int length;
  1302. + {
  1303. +      int status;
  1304. + 
  1305. +      status = SYS$QIOW (0, channel, IO$_WRITEVBLK, &cmu_iosb, 0, 0,
  1306. +             buffer, length, 0, 1, 0, 0);
  1307. +      if ((status & 1) == 0)
  1308. +           return (-1);
  1309. +      if ((cmu_iosb.status & 1) == 0) {
  1310. +           if (cmu_iosb.status == 44)
  1311. +                exit (cmu_iosb.xxx);
  1312. +           return (-1);
  1313. +      }
  1314. +      return (cmu_iosb.size);
  1315. + }
  1316. + 
  1317. + #endif    /* CMUIP */
  1318. + 
  1319. + 
  1320. + 
  1321. + /*
  1322.    *  Checks to see if Remote server is up..
  1323.    */
  1324.   
  1325. ***************
  1326. *** 636,639 ****
  1327. --- 788,793 ----
  1328.        ;
  1329.   
  1330.   }
  1331. + 
  1332. + 
  1333.   
  1334.