home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume36 / mserv / patch02 < prev    next >
Encoding:
Text File  |  1993-03-10  |  10.7 KB  |  377 lines
  1. Newsgroups: comp.sources.misc
  2. From: jv@mh.nl (Johan Vromans)
  3. Subject: v36i009:  mserv - Squirrel Mail Server Software, version 3.1, Patch02
  4. Message-ID: <1993Mar12.035001.15009@sparky.imd.sterling.com>
  5. X-Md4-Signature: 90d29c82bd535cf18ce39ddec17626be
  6. Date: Fri, 12 Mar 1993 03:50:01 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: jv@mh.nl (Johan Vromans)
  10. Posting-number: Volume 36, Issue 9
  11. Archive-name: mserv/patch02
  12. Environment: Perl
  13. Patch-To: mserv, Volume 34, Issue 92-97,119
  14.  
  15. This patch updates the Squirrel Mail Server Software version 3.1A to 3.1B.
  16.  
  17. Changes in version 3.1B:
  18. ------------------------
  19. If an FTP connection cannot be established, subsequent requests for
  20. this host are flushed.
  21.  
  22. READ THIS BEFORE PATCHING:
  23. --------------------------
  24. To apply this patch:
  25.  
  26.   1. Take a fresh copy of the 3.1A kit, e.g.:
  27.  
  28.     % uncompress < mserv-3.1A.tar.Z | tar xvf -
  29.  
  30.   2. Change the directory name where the kit resides from mserv-3.1A to
  31.      mserv-3.1B. This is needed since a new file is created by the
  32.      patch, which would otherwise be placed in the wrong directory.
  33.  
  34.     % mv mserv-3.1A mserv-3.1B
  35.  
  36.   4. Run this file through 'patch':
  37.  
  38.     % patch -p0 -N < thisfile
  39.  
  40. Index: patchlevel.h
  41. Prereq: 3.1.20
  42. *** mserv-3.1A/patchlevel.h    Sat Jan 16 13:48:19 1993
  43. --- mserv-3.1B/patchlevel.h    Fri Feb  5 22:09:26 1993
  44. ***************
  45. *** 1,4 ****
  46. ! # @(#)@ patchlevel.h    3.1.20        -*- perl -*-
  47.   # Squirrel Mail Server Software -- Copyright 1988, 1992 Johan Vromans
  48.   # This file is used to verify the correctness of a batch of patches.
  49. ! $ms_version = "V3.01A";        # Should match version in ms_common.pl
  50. --- 1,4 ----
  51. ! # @(#)@ patchlevel.h    3.1.21        -*- perl -*-
  52.   # Squirrel Mail Server Software -- Copyright 1988, 1992 Johan Vromans
  53.   # This file is used to verify the correctness of a batch of patches.
  54. ! $ms_version = "V3.01B";        # Should match version in ms_common.pl
  55. Index: ChangeLog-3.1B
  56. *** /dev/null    Fri Feb  5 22:40:27 1993
  57. --- mserv-3.1B/ChangeLog-3.1B    Fri Feb  5 22:39:32 1993
  58. ***************
  59. *** 0 ****
  60. --- 1,19 ----
  61. + Fri Feb  5 22:08:26 1993  Johan Vromans  (jv@squirrel)
  62. + 
  63. +     * README 3.14:
  64. +       Documented changes.
  65. + 
  66. +     * pr_dowork.pl 3.25:
  67. +       Flush requests if a server connection could not be made.
  68. + 
  69. +     * pr_ftp.pl 1.7:
  70. +       Transmit connection result to caller.
  71. + 
  72. +     * Makefile 1.4:
  73. +     * patchlevel.h 1.21:
  74. +     * ms_common.pl 1.40:
  75. +       Bump to V3.01B.
  76. + 
  77. +     * MANIFEST 1.17:
  78. +     * ChangeLog-3.1B:
  79. +       New file.
  80. Index: MANIFEST
  81. *** mserv-3.1A/MANIFEST    Sat Jan 16 14:35:09 1993
  82. --- mserv-3.1B/MANIFEST    Fri Feb  5 22:39:20 1993
  83. ***************
  84. *** 4,9 ****
  85. --- 4,10 ----
  86.   CRONTAB.sample
  87.   ChangeLog-3.1
  88.   ChangeLog-3.1A
  89. + ChangeLog-3.1B
  90.   HELP
  91.   Makefile
  92.   chat2.pl
  93. Index: Makefile
  94. Prereq: 1.3
  95. *** mserv-3.1A/Makefile    Sat Jan 16 13:55:29 1993
  96. --- mserv-3.1B/Makefile    Fri Feb  5 22:09:10 1993
  97. ***************
  98. *** 1,16 ****
  99.   # Makefile -- for mail server
  100. ! # SCCS Status     : @(#)@ Makefile    1.3
  101.   # Author          : Johan Vromans
  102.   # Created On      : Fri May  1 15:44:47 1992
  103.   # Last Modified By: Johan Vromans
  104. ! # Last Modified On: Sat Jan 16 13:52:43 1993
  105. ! # Update Count    : 120
  106.   # Status          : OK
  107.   
  108.   SHELL    = /bin/sh
  109.   
  110.   # Mail Server Version
  111. ! VERSION    = 3.1A
  112.   
  113.   # Perl 4.035 needs fixes!
  114.   PERL    = /usr/local/bin/perl
  115. --- 1,16 ----
  116.   # Makefile -- for mail server
  117. ! # SCCS Status     : @(#)@ Makefile    1.4
  118.   # Author          : Johan Vromans
  119.   # Created On      : Fri May  1 15:44:47 1992
  120.   # Last Modified By: Johan Vromans
  121. ! # Last Modified On: Fri Feb  5 22:09:03 1993
  122. ! # Update Count    : 121
  123.   # Status          : OK
  124.   
  125.   SHELL    = /bin/sh
  126.   
  127.   # Mail Server Version
  128. ! VERSION    = 3.1B
  129.   
  130.   # Perl 4.035 needs fixes!
  131.   PERL    = /usr/local/bin/perl
  132. Index: README
  133. *** mserv-3.1A/README    Sat Jan 16 14:51:20 1993
  134. --- mserv-3.1B/README    Fri Feb  5 22:38:23 1993
  135. ***************
  136. *** 40,45 ****
  137. --- 40,52 ----
  138.   Files retrieved via FTP are kept on local store for some time, so
  139.   subsequent requests can be honoured from the cache.
  140.   
  141. + Changes in version 3.1B:
  142. + ------------------------
  143. + If an FTP connection cannot be established, subsequent requests for
  144. + this host are flushed.
  145. + 
  146. + For details, see ChangeLog-3.1B.
  147. + 
  148.   Changes in version 3.1A:
  149.   ------------------------
  150.   Most important change is the implementation of the $errlimit
  151. ***************
  152. *** 78,84 ****
  153.   
  154.       begin
  155.       send mserv-3.1.tar.Z        <<< only if you need a new kit
  156. !     send mserv-3.1-3.1A.diff.Z        <<< to update the 3.1 kit
  157.       send XPatch-4.035.tar.Z        <<< to fix perl4.0 pl35
  158.       end
  159.   
  160. --- 85,92 ----
  161.   
  162.       begin
  163.       send mserv-3.1.tar.Z        <<< only if you need a new kit
  164. !     send mserv-3.1-3.1A.diff.Z        <<< to update the 3.1 kit to 3.1A
  165. !     send mserv-3.1A-3.1B.diff.Z        <<< to update the 3.1A kit to 3.1B
  166.       send XPatch-4.035.tar.Z        <<< to fix perl4.0 pl35
  167.       end
  168.   
  169. Index: ms_common.pl
  170. Prereq: 1.39
  171. *** mserv-3.1A/ms_common.pl    Sat Jan 16 13:47:55 1993
  172. --- mserv-3.1B/ms_common.pl    Fri Feb  5 22:08:46 1993
  173. ***************
  174. *** 1,16 ****
  175.   # ms_common.pl -- common info for mail server
  176. ! # SCCS Status     : @(#)@ ms_common    1.39
  177.   # Author          : Johan Vromans
  178.   # Created On      : Fri Apr 17 11:02:58 1992
  179.   # Last Modified By: Johan Vromans
  180. ! # Last Modified On: Sat Jan 16 13:47:35 1993
  181. ! # Update Count    : 111
  182.   # Status          : OK
  183.   
  184.   ################ Preamble ################
  185.   #
  186.   # Package info. Do not change this.
  187. ! $my_package = "Squirrel Mail Server Software V3.01A";
  188.   #
  189.   if ( defined $config_file && $config_file ne '' ) {
  190.       require $config_file;
  191. --- 1,16 ----
  192.   # ms_common.pl -- common info for mail server
  193. ! # SCCS Status     : @(#)@ ms_common    1.40
  194.   # Author          : Johan Vromans
  195.   # Created On      : Fri Apr 17 11:02:58 1992
  196.   # Last Modified By: Johan Vromans
  197. ! # Last Modified On: Fri Feb  5 22:08:23 1993
  198. ! # Update Count    : 112
  199.   # Status          : OK
  200.   
  201.   ################ Preamble ################
  202.   #
  203.   # Package info. Do not change this.
  204. ! $my_package = "Squirrel Mail Server Software V3.01B";
  205.   #
  206.   if ( defined $config_file && $config_file ne '' ) {
  207.       require $config_file;
  208. Index: pr_dowork.pl
  209. Prereq: 3.24
  210. *** mserv-3.1A/pr_dowork.pl    Sat Jan  2 15:11:28 1993
  211. --- mserv-3.1B/pr_dowork.pl    Fri Feb  5 22:34:10 1993
  212. ***************
  213. *** 1,10 ****
  214.   # pr_dowork.pl -- execute work loop
  215. ! # SCCS Status     : @(#)@ pr_dowork.pl    3.24
  216.   # Author          : Johan Vromans
  217.   # Created On      : Thu Jun  4 22:14:50 1992
  218.   # Last Modified By: Johan Vromans
  219. ! # Last Modified On: Sat Jan  2 15:11:05 1993
  220. ! # Update Count    : 221
  221.   # Status          : OK
  222.   
  223.   # Format of work queue entries.
  224. --- 1,10 ----
  225.   # pr_dowork.pl -- execute work loop
  226. ! # SCCS Status     : @(#)@ pr_dowork.pl    3.25
  227.   # Author          : Johan Vromans
  228.   # Created On      : Thu Jun  4 22:14:50 1992
  229.   # Last Modified By: Johan Vromans
  230. ! # Last Modified On: Fri Feb  5 22:30:56 1993
  231. ! # Update Count    : 231
  232.   # Status          : OK
  233.   
  234.   # Format of work queue entries.
  235. ***************
  236. *** 112,118 ****
  237.       @workq = ();
  238.   
  239.       # Close any pending FTP connection.
  240. !     if ( $ftphost && !$interactive ) {
  241.       print STDOUT ("FTP Command execution:\n    CLOSE $ftphost\n");
  242.       &ftp'close;        #';
  243.       $ftphost = '';
  244. --- 112,118 ----
  245.       @workq = ();
  246.   
  247.       # Close any pending FTP connection.
  248. !     if ( $ftphost && !$interactive && $ftp_ok ) {
  249.       print STDOUT ("FTP Command execution:\n    CLOSE $ftphost\n");
  250.       &ftp'close;        #';
  251.       $ftphost = '';
  252. ***************
  253. *** 421,436 ****
  254.       return 1 if $ftphost eq $work[0];
  255.       $ftppass = $recipient if $ftppass eq '';
  256.       $ftppass = $uunote if $ftppass eq '?';
  257. !     &ftp_connect (shift (@work), $ftpuser, $ftppass);
  258.       print STDOUT ("\n");
  259.       return 1;
  260.       }
  261.       if ( $type eq 'C' ) {
  262.       return 1 unless $ftphost;
  263.       print STDOUT ("FTP Command execution:\n",
  264.                 "    CLOSE $work[0]\n");
  265. !     &ftp'close;                #';
  266.       $ftphost = '';
  267.       print STDOUT ("\n");
  268.       return 1;
  269.       }
  270. --- 421,443 ----
  271.       return 1 if $ftphost eq $work[0];
  272.       $ftppass = $recipient if $ftppass eq '';
  273.       $ftppass = $uunote if $ftppass eq '?';
  274. !     $ftp_ok = &ftp_connect (shift (@work), $ftpuser, $ftppass);
  275.       print STDOUT ("\n");
  276.       return 1;
  277.       }
  278.       if ( $type eq 'C' ) {
  279. +     if ( $ftphost ne '' && !$ftp_ok ) {
  280. +         print STDOUT ("=> Flushed: CLOSE $ftphost\n",
  281. +               "   (No server connection)\n\n");
  282. +         $ftphost = '';
  283. +         return 1;
  284. +     }
  285.       return 1 unless $ftphost;
  286.       print STDOUT ("FTP Command execution:\n",
  287.                 "    CLOSE $work[0]\n");
  288. !     &ftp'close;            #';
  289.       $ftphost = '';
  290. +     $ftp_ok = 0;
  291.       print STDOUT ("\n");
  292.       return 1;
  293.       }
  294. ***************
  295. *** 446,451 ****
  296. --- 453,463 ----
  297.       }
  298.   
  299.       if ( $type eq 'D' ) {
  300. +     unless ( $ftp_ok ) {
  301. +         print STDOUT ("=> Flushed: DIR $ftphost:$work[0]\n",
  302. +               "   (No server connection)\n\n");
  303. +         return 1;
  304. +     }
  305.       local ($thefile) = &fttemp;
  306.       local ($dir) = shift (@work);
  307.       &ftp_dir ($dir, $thefile);
  308. ***************
  309. *** 468,473 ****
  310. --- 480,490 ----
  311.       return 1;
  312.       }
  313.       if ( $type eq 'G' ) {
  314. +     unless ( $ftp_ok ) {
  315. +         print STDOUT ("=> Flushed: GET $ftphost:$work[0]\n",
  316. +               "   (No server connection)\n\n");
  317. +         return 1;
  318. +     }
  319.       local ($thefile) = &ftp_get ($work[0]);
  320.       &ftqueue ($ftphost . ':' .$work[0],
  321.             $thefile, $encoding, 
  322. Index: pr_ftp.pl
  323. Prereq: 1.6
  324. *** mserv-3.1A/pr_ftp.pl    Thu Dec 31 16:25:37 1992
  325. --- mserv-3.1B/pr_ftp.pl    Fri Feb  5 22:17:35 1993
  326. ***************
  327. *** 1,10 ****
  328.   # pr_ftp.pl -- mail server support for FTP
  329. ! # SCCS Status     : @(#)@ pr_ftp.pl    1.6
  330.   # Author          : Johan Vromans
  331.   # Created On      : Sat Dec  5 01:06:44 1992
  332.   # Last Modified By: Johan Vromans
  333. ! # Last Modified On: Thu Dec 31 16:23:04 1992
  334. ! # Update Count    : 35
  335.   # Status          : Unknown, Use with caution!
  336.   
  337.   # This is the Squirrel Mail Server interface to the ftp.pl package.
  338. --- 1,10 ----
  339.   # pr_ftp.pl -- mail server support for FTP
  340. ! # SCCS Status     : @(#)@ pr_ftp.pl    1.7
  341.   # Author          : Johan Vromans
  342.   # Created On      : Sat Dec  5 01:06:44 1992
  343.   # Last Modified By: Johan Vromans
  344. ! # Last Modified On: Fri Feb  5 22:10:14 1993
  345. ! # Update Count    : 36
  346.   # Status          : Unknown, Use with caution!
  347.   
  348.   # This is the Squirrel Mail Server interface to the ftp.pl package.
  349. ***************
  350. *** 20,28 ****
  351.             "    OPEN $host\n");
  352.   
  353.       &ftp'close if $ftphost;            #';
  354. -     &ftp'open ($host, 21, 0, 2);        #';
  355. -     &ftp'login ($user, $pass);            #';
  356.       $ftphost = $host;
  357.   }
  358.   
  359.   sub ftp_get {
  360. --- 20,27 ----
  361.             "    OPEN $host\n");
  362.   
  363.       &ftp'close if $ftphost;            #';
  364.       $ftphost = $host;
  365. +     &ftp'open ($host, 21, 0, 2) && &ftp'login ($user, $pass);
  366.   }
  367.   
  368.   sub ftp_get {
  369.  
  370. --
  371. Johan Vromans                       jv@mh.nl via internet backbones
  372. Multihouse Automatisering bv               uucp:..!{uunet,sun4nl}!mh.nl!jv
  373. Doesburgweg 7, 2803 PL Gouda, The Netherlands  phone/fax: +31 1820 62911/62500
  374. ------------------------ "Arms are made for hugging" -------------------------
  375.  
  376. exit 0 # Just in case...
  377.