home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume34 / mserv / patch01 < prev    next >
Text File  |  1993-01-18  |  19KB  |  657 lines
  1. Newsgroups: comp.sources.misc
  2. From: jv@mh.nl (Johan Vromans)
  3. Subject: v34i119:  mserv - Squirrel Mail Server Software, version 3.1, Patch01
  4. Message-ID: <1993Jan18.183350.27032@sparky.imd.sterling.com>
  5. X-Md4-Signature: a0a10da35d09d549890f526a4eee6e2f
  6. Date: Mon, 18 Jan 1993 18:33:50 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: jv@mh.nl (Johan Vromans)
  10. Posting-number: Volume 34, Issue 119
  11. Archive-name: mserv/patch01
  12. Environment: Perl
  13. Patch-To: mserv: Volume 34, Issue 92-97
  14.  
  15. This patch updates the Squirrel Mail Server Software version 3.1 to 3.1A.
  16.  
  17. Changes in version 3.1A:
  18. ------------------------
  19. Most important change is the implementation of the $errlimit
  20. configuration variable. This variable controls the number of errors
  21. that are allowed before the mail server quits input processing.
  22.  
  23. Other changes in the configuration file ms_config.pl:
  24.  - the archie command is now disabled by default.
  25.  - pdtar has been replaced by gtar (GNU tar).
  26.  
  27. A few small bugs were corrected.
  28.  
  29. READ THIS BEFORE PATCHING:
  30. --------------------------
  31. To apply this patch:
  32.  
  33.   1. Take a fresh copy of the 3.1 kit, e.g.:
  34.  
  35.     % uncompress < mserv-3.1.tar.Z | tar xvf -
  36.  
  37.   2. Rename ChangeLog to ChangeLog-3.1. This is necessary since the
  38.      patch expects the old ChangeLog to have the indicated name.
  39.  
  40.     % mv mserv-3.1/ChangeLog mserv-3.1/ChangeLog-3.1
  41.  
  42.   3. Change the directory name where the kit resides from mserv-3.1 to
  43.      mserv-3.1A. This is needed since a new file is created by the
  44.      patch, which would otherwise be placed in the wrong directory.
  45.  
  46.     % mv mserv-3.1 mserv-3.1A
  47.  
  48.   4. Run this file through 'patch':
  49.  
  50.     % patch -p0 -N < thisfile
  51.  
  52. Index: patchlevel.h
  53. Prereq: 3.1.19
  54. *** mserv-3.1/patchlevel.h    Tue Jan  5 19:44:16 1993
  55. --- mserv-3.1A/patchlevel.h    Sat Jan 16 13:48:19 1993
  56. ***************
  57. *** 1,4 ****
  58. ! # @(#)@ patchlevel.h    3.1.19        -*- perl -*-
  59.   # Squirrel Mail Server Software -- Copyright 1988, 1992 Johan Vromans
  60.   # This file is used to verify the correctness of a batch of patches.
  61. ! $ms_version = "V3.01";        # Should match version in ms_common.pl
  62. --- 1,4 ----
  63. ! # @(#)@ patchlevel.h    3.1.20        -*- perl -*-
  64.   # Squirrel Mail Server Software -- Copyright 1988, 1992 Johan Vromans
  65.   # This file is used to verify the correctness of a batch of patches.
  66. ! $ms_version = "V3.01A";        # Should match version in ms_common.pl
  67. Index: ChangeLog-3.1
  68. *** mserv-3.1/ChangeLog-3.1    Tue Jan  5 20:28:15 1993
  69. --- mserv-3.1A/ChangeLog-3.1    Sat Jan 16 14:26:29 1993
  70. ***************
  71. *** 1,3 ****
  72. --- 1,7 ----
  73. + Tue Jan  5 21:08:02 1993  Johan Vromans  (jv@squirrel)
  74. + 
  75. +     * Version 3.1 released to comp.sources.misc.
  76. + 
  77.   Tue Jan  5 19:43:53 1993  Johan Vromans  (jv@squirrel)
  78.   
  79.       * patchlevel.h 1.19:
  80. Index: ChangeLog-3.1A
  81. *** /dev/null    Sat Jan 16 14:46:04 1993
  82. --- mserv-3.1A/ChangeLog-3.1A    Sat Jan 16 14:51:37 1993
  83. ***************
  84. *** 0 ****
  85. --- 1,44 ----
  86. + Sat Jan 16 13:47:38 1993  Johan Vromans  (jv@squirrel)
  87. + 
  88. +     * Version 3.1A released, patch sent to comp.sources.misc.
  89. + 
  90. +     * README 3.13:
  91. +       Update to 3.1A.
  92. + 
  93. +     * Makefile 1.3:
  94. +     * patchlevel.h 1.20:
  95. +     * ms_common.pl 1.39:
  96. +       Bump to V3.01A.
  97. + 
  98. + Sun Jan 10 16:28:00 1993  Johan Vromans  (jv@squirrel)
  99. + 
  100. +     * process.pl 3.68:
  101. +       Avoid feedback problem when using '-nomail' option.
  102. + 
  103. +     * pr_parse.pl 1.8:
  104. +       Implement $errlimit.
  105. +       Correct feed-back on the RESEND command.
  106. + 
  107. +     * ms_config.pl:
  108. +       Add $errlimit (default value: 20).
  109. + 
  110. + Fri Jan  8 23:25:37 1993  Johan Vromans  (jv@squirrel)
  111. + 
  112. +     * ms_config.pl:
  113. +       Small corrections.
  114. + 
  115. +     * README 3.12:
  116. +     * mservmgr.txt 1.13:
  117. +       Change 'usrguide' to 'mservusr' where appropriate.
  118. + 
  119. +     * Makefile 1.2:
  120. +     * Makefile 1.1:
  121. +       Move development code from Makefile to GNUmakefile.
  122. +       Add 'dist' target to reproduce the distribution kit.
  123. + 
  124. +     * MANIFEST 1.16:
  125. +       Added Changelog-3.1A.
  126. +       Renamed ChangeLog to ChangeLog-3.1.
  127. + 
  128. +     * ChangeLog-3.1A:
  129. +       New file.
  130. Index: INSTALL
  131. *** mserv-3.1/INSTALL    Tue Jan  5 20:30:34 1993
  132. --- mserv-3.1A/INSTALL    Sat Jan 16 13:59:19 1993
  133. ***************
  134. *** 1227,1232 ****
  135.         send a mail message to <mail-server@nluug.nl> with contents: 
  136.   
  137.               begin
  138. !             send usrguide.ps.Z
  139.               send mservmgr.ps.Z
  140.               end
  141. --- 1227,1232 ----
  142.         send a mail message to <mail-server@nluug.nl> with contents: 
  143.   
  144.               begin
  145. !             send mservusr.ps.Z
  146.               send mservmgr.ps.Z
  147.               end
  148. Index: MANIFEST
  149. *** mserv-3.1/MANIFEST    Wed Dec 23 23:12:38 1992
  150. --- mserv-3.1A/MANIFEST    Sat Jan 16 14:35:09 1993
  151. ***************
  152. *** 2,8 ****
  153.   INSTALL
  154.   MANIFEST
  155.   CRONTAB.sample
  156. ! ChangeLog
  157.   HELP
  158.   Makefile
  159.   chat2.pl
  160. --- 2,9 ----
  161.   INSTALL
  162.   MANIFEST
  163.   CRONTAB.sample
  164. ! ChangeLog-3.1
  165. ! ChangeLog-3.1A
  166.   HELP
  167.   Makefile
  168.   chat2.pl
  169. Index: Makefile
  170. *** mserv-3.1/Makefile    Wed Dec 23 23:13:14 1992
  171. --- mserv-3.1A/Makefile    Sat Jan 16 13:55:29 1993
  172. ***************
  173. *** 1,16 ****
  174.   # Makefile -- for mail server
  175. ! # SCCS Status     : %Z%@ %M%    %I%
  176.   # Author          : Johan Vromans
  177.   # Created On      : Fri May  1 15:44:47 1992
  178.   # Last Modified By: Johan Vromans
  179. ! # Last Modified On: Wed Dec 23 23:13:14 1992
  180. ! # Update Count    : 109
  181. ! # Status          : 
  182.   
  183.   SHELL    = /bin/sh
  184. - CC    = gcc -Wall
  185. - CFLAGS    = -O
  186.   
  187.   # Perl 4.035 needs fixes!
  188.   PERL    = /usr/local/bin/perl
  189.   # Where programs and files reside.
  190. --- 1,17 ----
  191.   # Makefile -- for mail server
  192. ! # SCCS Status     : @(#)@ Makefile    1.3
  193.   # Author          : Johan Vromans
  194.   # Created On      : Fri May  1 15:44:47 1992
  195.   # Last Modified By: Johan Vromans
  196. ! # Last Modified On: Sat Jan 16 13:52:43 1993
  197. ! # Update Count    : 120
  198. ! # Status          : OK
  199.   
  200.   SHELL    = /bin/sh
  201.   
  202. + # Mail Server Version
  203. + VERSION    = 3.1A
  204. + 
  205.   # Perl 4.035 needs fixes!
  206.   PERL    = /usr/local/bin/perl
  207.   # Where programs and files reside.
  208. ***************
  209. *** 137,184 ****
  210.   
  211.   ################ Maintenance ################
  212.   
  213. ! REV    = X3.01
  214.   
  215. ! dist:    tar.Z
  216. ! 
  217. ! tar.Z:    HELP INSTALL
  218. !     rm -f mserv-$(REV)
  219. !     ln -s . mserv-$(REV)
  220. !     sed < MANIFEST -e "s/^/mserv-$(REV)\//" | \
  221. !         pdtar -zcv -T - -f mserv-$(REV).tar.Z
  222. !     rm -f mserv-$(REV)
  223. ! 
  224. ! shar:    HELP INSTALL
  225. !     rm -f mserv-$(REV)
  226. !     ln -s . mserv-$(REV)
  227. !     rm -f mserv-$(REV).shar.*
  228. !     sed < MANIFEST -e "s/^/mserv-$(REV)\//" | \
  229. !         shar -p -F -S -L 50 -o mserv-$(REV).shar \
  230. !         -a -n mserv-$(REV).shar -s 'jv@mh.nl (Johan Vromans)'
  231. !     rm -f mserv-$(REV)
  232. !     ls -l mserv-$(REV).shar.*
  233. ! 
  234. ! AUX   = Makefile ms_config.pl ChangeLog* Misc
  235. ! 
  236. ! TZ:
  237. !     tar cvf - $(AUX) SCCS | compress > mserv.TZ
  238. ! 
  239. ! #
  240. ! # Create formatted documents (Ascii or PostScript)
  241. ! #
  242. ! .SUFFIXES:    .ps .txt .asc
  243. ! MH_DOC    = mh_doc -language uk
  244. ! 
  245. ! .txt.ps:
  246. !     rm -f $@
  247. !     $(MH_DOC) -expert -verbose -ps -printer foo:ps -output $@ $<
  248. ! 
  249. ! .txt.asc:
  250. !     rm -f $@
  251. !     $(MH_DOC) -text -output $@ $<
  252. ! 
  253. ! HELP:    usrguide.asc
  254. !     rm -f $@ && cp $< $@ && chmod -w $@
  255. ! 
  256. ! INSTALL:    mservmgr.asc
  257. !     rm -f $@ && cp $< $@ && chmod -w $@
  258. --- 138,149 ----
  259.   
  260.   ################ Maintenance ################
  261.   
  262. ! # Uses GNU tar or John Gillmore's pdtar. 
  263. ! TAR     = gtar
  264.   
  265. ! dist:
  266. !     rm -f mserv-$(VERSION)
  267. !     ln -s . mserv-$(VERSION)
  268. !     sed < MANIFEST -e "s/^/mserv-$(VERSION)\//" | \
  269. !         $(TAR) -zcv -T - -f mserv-$(VERSION).tar.Z
  270. !     rm -f mserv-$(VERSION)
  271. Index: README
  272. *** mserv-3.1/README    Tue Jan  5 20:15:37 1993
  273. --- mserv-3.1A/README    Sat Jan 16 14:51:20 1993
  274. ***************
  275. *** 40,45 ****
  276. --- 40,59 ----
  277.   Files retrieved via FTP are kept on local store for some time, so
  278.   subsequent requests can be honoured from the cache.
  279.   
  280. + Changes in version 3.1A:
  281. + ------------------------
  282. + Most important change is the implementation of the $errlimit
  283. + configuration variable. This variable controls the number of errors
  284. + that are allowed before the mail server quits input processing.
  285. + 
  286. + Other changes in the configuration file ms_config.pl:
  287. +  - the archie command is now disabled by default.
  288. +  - pdtar has been replaced by gtar (GNU tar).
  289. + 
  290. + A few small bugs were corrected.
  291. + 
  292. + For details, see ChangeLog-3.1A.
  293. + 
  294.   Requirements:
  295.   -------------
  296.   Perl 4.0 patchlevel 35 or later.
  297. ***************
  298. *** 56,66 ****
  299.   
  300.   How to get it:
  301.   --------------
  302.   Send a mail message to <mail-server@nluug.nl> with contents
  303.   
  304.       begin
  305. !     send mserv-3.1.tar.Z
  306. !     send XPatch-4.035.tar.Z
  307.       end
  308.   
  309.   The latter file contains some unofficial patches to perl 4.0
  310. --- 70,85 ----
  311.   
  312.   How to get it:
  313.   --------------
  314. + IMPORTANT: If you have retrieved this file from a posting in a netnews
  315. +         sources group, you probably have the source kit already and you
  316. +     do not need to retrieve it from the mail server.
  317. + 
  318.   Send a mail message to <mail-server@nluug.nl> with contents
  319.   
  320.       begin
  321. !     send mserv-3.1.tar.Z        <<< only if you need a new kit
  322. !     send mserv-3.1-3.1A.diff.Z        <<< to update the 3.1 kit
  323. !     send XPatch-4.035.tar.Z        <<< to fix perl4.0 pl35
  324.       end
  325.   
  326.   The latter file contains some unofficial patches to perl 4.0
  327. ***************
  328. *** 69,76 ****
  329.   Also available are nicely formatted PostScript versions of the 
  330.   User Guide and Installation Guide:
  331.   
  332. !     send usrguide.ps.Z
  333.       send mservmgr.ps.Z
  334.   
  335.   The Squirrel Mail Server Software is 
  336.   
  337. --- 88,97 ----
  338.   Also available are nicely formatted PostScript versions of the 
  339.   User Guide and Installation Guide:
  340.   
  341. !     send mservusr.ps.Z
  342.       send mservmgr.ps.Z
  343. + 
  344. + The above documents have NOT changed since the 3.1 release.
  345.   
  346.   The Squirrel Mail Server Software is 
  347.   
  348. Index: ms_common.pl
  349. Prereq: 1.38
  350. *** mserv-3.1/ms_common.pl    Tue Jan  5 19:44:06 1993
  351. --- mserv-3.1A/ms_common.pl    Sat Jan 16 13:47:55 1993
  352. ***************
  353. *** 1,16 ****
  354.   # ms_common.pl -- common info for mail server
  355. ! # SCCS Status     : @(#)@ ms_common    1.38
  356.   # Author          : Johan Vromans
  357.   # Created On      : Fri Apr 17 11:02:58 1992
  358.   # Last Modified By: Johan Vromans
  359. ! # Last Modified On: Tue Jan  5 19:43:48 1993
  360. ! # Update Count    : 110
  361.   # Status          : OK
  362.   
  363.   ################ Preamble ################
  364.   #
  365.   # Package info. Do not change this.
  366. ! $my_package = "Squirrel Mail Server Software V3.01";
  367.   #
  368.   if ( defined $config_file && $config_file ne '' ) {
  369.       require $config_file;
  370. --- 1,16 ----
  371.   # ms_common.pl -- common info for mail server
  372. ! # SCCS Status     : @(#)@ ms_common    1.39
  373.   # Author          : Johan Vromans
  374.   # Created On      : Fri Apr 17 11:02:58 1992
  375.   # Last Modified By: Johan Vromans
  376. ! # Last Modified On: Sat Jan 16 13:47:35 1993
  377. ! # Update Count    : 111
  378.   # Status          : OK
  379.   
  380.   ################ Preamble ################
  381.   #
  382.   # Package info. Do not change this.
  383. ! $my_package = "Squirrel Mail Server Software V3.01A";
  384.   #
  385.   if ( defined $config_file && $config_file ne '' ) {
  386.       require $config_file;
  387. Index: ms_config.pl
  388. *** mserv-3.1/ms_config.pl    Sat Jan  2 14:18:04 1993
  389. --- mserv-3.1A/ms_config.pl    Sun Jan 10 16:26:37 1993
  390. ***************
  391. *** 2,9 ****
  392.   # Author          : Johan Vromans
  393.   # Created On      : ***
  394.   # Last Modified By: Johan Vromans
  395. ! # Last Modified On: Sat Jan  2 14:18:04 1993
  396. ! # Update Count    : 74
  397.   # Status          : OK
  398.   
  399.   ################ Preamble ################
  400. --- 2,9 ----
  401.   # Author          : Johan Vromans
  402.   # Created On      : ***
  403.   # Last Modified By: Johan Vromans
  404. ! # Last Modified On: Sun Jan 10 16:26:37 1993
  405. ! # Update Count    : 76
  406.   # Status          : OK
  407.   
  408.   ################ Preamble ################
  409. ***************
  410. *** 286,296 ****
  411.    # Tools.
  412.   $du       = "/bin/du";            # get size of dir
  413.   $find     = "/usr/local/bin/gfind";    # find
  414. !  # If you do not have 'pdtar', undefine it and the mail server will use
  415.    # $tar and $compress instead.
  416. ! $pdtar    = "/usr/local/bin/pdtar";    # create compressed ustar
  417.   $tar      = "/bin/tar";            # if no $pdtar...
  418. ! $compress = "/usr/ucb/compress";    # if no $pdtar...
  419.   $zoo      = "/usr/local/bin/zoo";    # zoo
  420.   $zip      = "/usr/local/bin/zip";    # zip
  421.   
  422. --- 286,298 ----
  423.    # Tools.
  424.   $du       = "/bin/du";            # get size of dir
  425.   $find     = "/usr/local/bin/gfind";    # find
  426. !  # If you have a tar that understands the '-z' command line option,
  427. !  # (e.g. GNU tar or John Gillmore's pdtar) define $pdtar below.
  428. !  # If you do not have it, undefine it and the mail server will use
  429.    # $tar and $compress instead.
  430. ! $pdtar    = "/usr/local/bin/gtar";    # create compressed ustar
  431.   $tar      = "/bin/tar";            # if no $pdtar...
  432. ! $compress = "/usr/ucb/compress";    # compress
  433.   $zoo      = "/usr/local/bin/zoo";    # zoo
  434.   $zip      = "/usr/local/bin/zip";    # zip
  435.   
  436. ***************
  437. *** 299,306 ****
  438.    # Command to produce a useful listing of files.
  439.   $dircmd = "/bin/ls -lL";
  440.    #
  441. !  # Command to call Archie.
  442. ! $archie = "archie";
  443.    #
  444.    # Limit (in K) for command output to be included in the feedback
  445.    # mail.  If it is bigger, it will be compressed and transferred.
  446. --- 301,308 ----
  447.    # Command to produce a useful listing of files.
  448.   $dircmd = "/bin/ls -lL";
  449.    #
  450. !  # Command to call Archie (if you have it).
  451. ! #$archie = "/usr/local/bin/archie";
  452.    #
  453.    # Limit (in K) for command output to be included in the feedback
  454.    # mail.  If it is bigger, it will be compressed and transferred.
  455. ***************
  456. *** 336,341 ****
  457. --- 338,346 ----
  458.    # Note: the $trace_file must exist.
  459.   $trace_headers = 0;
  460.   $trace_file = $libdir . "/tracefile";
  461. + 
  462. +  # This enforces a limit on the maximum number of errors we'll allow.
  463. + $errlimit = 20;
  464.   
  465.   ################ End of configuation info ################
  466.   
  467. Index: pr_parse.pl
  468. Prereq: 1.7
  469. *** mserv-3.1/pr_parse.pl    Sat Jan  2 14:10:42 1993
  470. --- mserv-3.1A/pr_parse.pl    Sun Jan 10 16:29:22 1993
  471. ***************
  472. *** 1,10 ****
  473.   # pr_parse.pl -- 
  474. ! # SCCS Status     : @(#)@ pr_parse.pl    1.7
  475.   # Author          : Johan Vromans
  476.   # Created On      : Fri Dec 18 21:03:34 1992
  477.   # Last Modified By: Johan Vromans
  478. ! # Last Modified On: Fri Jan  1 15:10:55 1993
  479. ! # Update Count    : 97
  480.   # Status          : Unknown, Use with caution!
  481.   
  482.   $cmd_tbl{'END'}      = 'cmd_end';
  483. --- 1,10 ----
  484.   # pr_parse.pl -- 
  485. ! # SCCS Status     : @(#)@ pr_parse.pl    1.8
  486.   # Author          : Johan Vromans
  487.   # Created On      : Fri Dec 18 21:03:34 1992
  488.   # Last Modified By: Johan Vromans
  489. ! # Last Modified On: Sun Jan 10 16:27:41 1993
  490. ! # Update Count    : 102
  491.   # Status          : Unknown, Use with caution!
  492.   
  493.   $cmd_tbl{'END'}      = 'cmd_end';
  494. ***************
  495. *** 56,62 ****
  496.       local ($curdir) = "";    # track current directory
  497.       local ($ftphost);        # empty -> no FTP, otherwise -> FTP
  498.       local (*line, *DATA_LINE) = (*rfc822'line, *rfc822'DATA_LINE);
  499. !     local (*line_in_cache) = (*rfc822'line_in_cache);
  500.       local ($tmp, $proc, $result);
  501.   
  502.       while ( $res = &read_body ) {
  503. --- 56,62 ----
  504.       local ($curdir) = "";    # track current directory
  505.       local ($ftphost);        # empty -> no FTP, otherwise -> FTP
  506.       local (*line, *DATA_LINE) = (*rfc822'line, *rfc822'DATA_LINE);
  507. !     local (*line_in_cache) = *rfc822'line_in_cache;    #';
  508.       local ($tmp, $proc, $result);
  509.   
  510.       while ( $res = &read_body ) {
  511. ***************
  512. *** 75,81 ****
  513.       $line = $tmp . $line;
  514.   
  515.       last unless &split_and_exec_line;
  516. ! 
  517.       print STDOUT ("\n");
  518.       }
  519.       print STDOUT ("\n");
  520. --- 75,84 ----
  521.       $line = $tmp . $line;
  522.   
  523.       last unless &split_and_exec_line;
  524. !     if ( $errlimit && $errflag >= $errlimit ) {
  525. !         &errmsg ("Too many errors -- aborted");
  526. !         last;
  527. !     }
  528.       print STDOUT ("\n");
  529.       }
  530.       print STDOUT ("\n");
  531. ***************
  532. *** 415,421 ****
  533.       return &errmsg ($msg) unless @cmd > 1;
  534.   
  535.       local ($item) = shift (@cmd);
  536. !     local ($plist) = "";
  537.       local ($ftphost) = $ftphost;
  538.   
  539.       if ( $item =~ m:(^\.|/\.|[*?%]): ) {
  540. --- 418,424 ----
  541.       return &errmsg ($msg) unless @cmd > 1;
  542.   
  543.       local ($item) = shift (@cmd);
  544. !     local (@plist) = ();
  545.       local ($ftphost) = $ftphost;
  546.   
  547.       if ( $item =~ m:(^\.|/\.|[*?%]): ) {
  548. ***************
  549. *** 423,437 ****
  550.       }
  551.       foreach $num (@cmd) {
  552.       if ( $num =~ /^\d+$/ ) {
  553. !         $plist .= 0+$num . ",";
  554.       }
  555.       else {
  556.           return &errmsg ($msg);
  557.       }
  558.       }
  559.       if ( $item =~ /:/ || $ftphost ) {
  560.       return 1 unless &check_ftp;
  561. -     chop ($plist);
  562.       push (@workq, &zp ('G', 'G', $curdir.$item, $plist));
  563.       print STDOUT ("=> Resend: $curdir$item, part",
  564.                 (@plist > 0) ? "s " : " ",
  565. --- 426,441 ----
  566.       }
  567.       foreach $num (@cmd) {
  568.       if ( $num =~ /^\d+$/ ) {
  569. !         push (@plist, 0+$num);
  570.       }
  571.       else {
  572.           return &errmsg ($msg);
  573.       }
  574.       }
  575. +     local ($plist) = join (',', @plist);
  576. + 
  577.       if ( $item =~ /:/ || $ftphost ) {
  578.       return 1 unless &check_ftp;
  579.       push (@workq, &zp ('G', 'G', $curdir.$item, $plist));
  580.       print STDOUT ("=> Resend: $curdir$item, part",
  581.                 (@plist > 0) ? "s " : " ",
  582. ***************
  583. *** 439,445 ****
  584.       }
  585.       else {
  586.       return 1 unless &setdefaults;
  587. -     chop ($plist);
  588.       push (@workq, &zp ("S", $curdir.$item, $plist));
  589.       print STDOUT ("=> Resend: $curdir$item, part",
  590.                 (@plist > 0) ? "s " : " ",
  591. --- 443,448 ----
  592. Index: process.pl
  593. Prereq: 3.67
  594. *** mserv-3.1/process.pl    Sat Jan  2 14:36:47 1993
  595. --- mserv-3.1A/process.pl    Sun Jan 10 16:39:26 1993
  596. ***************
  597. *** 1,11 ****
  598.   #!/usr/local/bin/perl
  599.   # process.pl -- 
  600. ! # SCCS Status     : @(#)@ process    3.67
  601.   # Author          : Johan Vromans
  602.   # Created On      : ***
  603.   # Last Modified By: Johan Vromans
  604. ! # Last Modified On: Sat Jan  2 14:14:45 1993
  605. ! # Update Count    : 672
  606.   # Status          : Going steady.
  607.   
  608.   # This program processes mail messages, and enqueues requests for
  609. --- 1,11 ----
  610.   #!/usr/local/bin/perl
  611.   # process.pl -- 
  612. ! # SCCS Status     : @(#)@ process    3.68
  613.   # Author          : Johan Vromans
  614.   # Created On      : ***
  615.   # Last Modified By: Johan Vromans
  616. ! # Last Modified On: Sun Jan 10 16:32:41 1993
  617. ! # Update Count    : 673
  618.   # Status          : Going steady.
  619.   
  620.   # This program processes mail messages, and enqueues requests for
  621. ***************
  622. *** 14,20 ****
  623.   # For options and calling, see subroutine 'usage'.
  624.   #
  625.   $my_name = "process";
  626. ! $my_version = "3.67";
  627.   #
  628.   ################ Common stuff ################
  629.   
  630. --- 14,20 ----
  631.   # For options and calling, see subroutine 'usage'.
  632.   #
  633.   $my_name = "process";
  634. ! $my_version = "3.68";
  635.   #
  636.   ################ Common stuff ################
  637.   
  638. ***************
  639. *** 58,64 ****
  640.       open (STDOUT, ">" . $tmpfile) unless $opt_debug;
  641.   }
  642.   # Catch stderr also.
  643. ! open (STDERR, ">&STDOUT");
  644.   
  645.   # Motd.
  646.   &include ($notesfile);
  647. --- 58,64 ----
  648.       open (STDOUT, ">" . $tmpfile) unless $opt_debug;
  649.   }
  650.   # Catch stderr also.
  651. ! open (STDERR, ">&STDOUT") unless $opt_nomail;
  652.   
  653.   # Motd.
  654.   &include ($notesfile);
  655.  
  656. exit 0 # Just in case...
  657.