home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / compsrcs / misc / volume37 / ftpmail / patch01 < prev    next >
Encoding:
Text File  |  1993-05-15  |  6.7 KB  |  212 lines
  1. Newsgroups: comp.sources.misc
  2. From: lmjm@doc.ic.ac.uk (Lee M J McLoughlin)
  3. Subject: v37i054:  ftpmail - Automatic Email to FTP Gateway, Patch01
  4. Message-ID: <1993May12.142823.26813@sparky.imd.sterling.com>
  5. X-Md4-Signature: d7161c57b9e3960ede4bfb5e79415c49
  6. Date: Wed, 12 May 1993 14:28:23 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: lmjm@doc.ic.ac.uk (Lee M J McLoughlin)
  10. Posting-number: Volume 37, Issue 54
  11. Archive-name: ftpmail/patch01
  12. Environment: UNIX, Perl, Sun, Dec, INET
  13. Patch-To: ftpmail: Volume 37, Issue 51-52
  14.  
  15. Below is a small patch for ftpmail.  This brings ftpmail to version 1.15.
  16.  
  17. The original sources required for patching are available in any of the
  18. comp.sources.misc archives.  ftpmail is archived at:
  19.  
  20.         src.doc.ic.ac.uk:packages/ftpmail/
  21.         grasp1.univ-lyon1.fr:pub/unix/mail/tools/ftpmail/
  22.         ftp.sterling.com:mail/ftpmail/
  23.  
  24. Ftpmail is an email->ftp gateway.  It is all writen in perl and sends 
  25. responses using either mail or by directly calling sendmail.  When using 
  26. sendmail MIME support is available.
  27.  
  28. ------------------------------------------
  29. diff -cr ../ftpmail-1.13/README ./README
  30. *** ../ftpmail-1.13/README    Wed May 12 09:10:07 1993
  31. --- ./README    Wed May 12 09:09:26 1993
  32. ***************
  33. *** 51,57 ****
  34.   to cause any mail delivered to that ftpmail to invoke q.pl. But
  35.   anything that causes q.pl to be run on the input request will do.
  36.   Under sendmail create ~ftpmail/.forward containing:
  37. ! "|/src.doc.ic.ac.uk/public/ic.doc/ftpmail/q.pl"
  38.   (Or similar.)
  39.   
  40.   The file crontab contains a suggested cron entry that should be run as
  41. --- 51,57 ----
  42.   to cause any mail delivered to that ftpmail to invoke q.pl. But
  43.   anything that causes q.pl to be run on the input request will do.
  44.   Under sendmail create ~ftpmail/.forward containing:
  45. ! |"/src.doc.ic.ac.uk/public/ic.doc/ftpmail/q.pl"
  46.   (Or similar.)
  47.   
  48.   The file crontab contains a suggested cron entry that should be run as
  49. diff -cr ../ftpmail-1.13/config.pl ./config.pl
  50. *** ../ftpmail-1.13/config.pl    Wed May 12 09:10:11 1993
  51. --- ./config.pl    Wed May 12 09:09:34 1993
  52. ***************
  53. *** 1,7 ****
  54.   # Local configuration details for ftpmail.
  55.   #
  56. ! # $Header: /a/swan/home/swan/staff/csg/lmjm/src/perl/mirror/ftpmail/RCS/config.pl,v 1.10 1993/04/25 20:27:48 lmjm Exp lmjm $
  57.   # $Log: config.pl,v $
  58.   # Revision 1.10  1993/04/25  20:27:48  lmjm
  59.   # Added mail_overhead.
  60.   #
  61. --- 1,10 ----
  62.   # Local configuration details for ftpmail.
  63.   #
  64. ! # $Header: /a/swan/home/swan/staff/csg/lmjm/src/perl/mirror/ftpmail/RCS/config.pl,v 1.11 1993/05/11 20:07:56 lmjm Exp lmjm $
  65.   # $Log: config.pl,v $
  66. + # Revision 1.11  1993/05/11  20:07:56  lmjm
  67. + # Optionally ban connecting to a.b.c.d
  68. + #
  69.   # Revision 1.10  1993/04/25  20:27:48  lmjm
  70.   # Added mail_overhead.
  71.   #
  72. ***************
  73. *** 92,97 ****
  74. --- 95,104 ----
  75.   
  76.   # If set to 1 limit to just login=anonymous, passwd=-ftpmail/$replyto
  77.   $restricted = 0;
  78. + 
  79. + # If set to 1, only FQDNs are allowed in the open command instead
  80. + # of also IP numbers.
  81. + $fqdn_only = 0;
  82.   
  83.   # TODO:
  84.   # If set is the name of a file containing restrictions on when to
  85. diff -cr ../ftpmail-1.13/dq.pl ./dq.pl
  86. *** ../ftpmail-1.13/dq.pl    Wed May 12 09:10:12 1993
  87. --- ./dq.pl    Wed May 12 09:09:31 1993
  88. ***************
  89. *** 7,14 ****
  90.   #  organisation can be held liable for any problems caused by the use or
  91.   #  storage of this package.
  92.   #
  93. ! # $Header: /a/swan/home/swan/staff/csg/lmjm/src/perl/mirror/ftpmail/RCS/dq.pl,v 1.16 1993/04/28 18:19:19 lmjm Exp lmjm $
  94.   # $Log: dq.pl,v $
  95.   # Revision 1.16  1993/04/28  18:19:19  lmjm
  96.   # From chris, corrected filename in mime message.
  97.   #
  98. --- 7,17 ----
  99.   #  organisation can be held liable for any problems caused by the use or
  100.   #  storage of this package.
  101.   #
  102. ! # $Header: /a/swan/home/swan/staff/csg/lmjm/src/perl/mirror/ftpmail/RCS/dq.pl,v 1.17 1993/05/11 20:07:56 lmjm Exp lmjm $
  103.   # $Log: dq.pl,v $
  104. + # Revision 1.17  1993/05/11  20:07:56  lmjm
  105. + # Init right variable for btoa!
  106. + #
  107.   # Revision 1.16  1993/04/28  18:19:19  lmjm
  108.   # From chris, corrected filename in mime message.
  109.   #
  110. ***************
  111. *** 193,199 ****
  112.       $compress_it = 0;
  113.       $gzip_it = 0;
  114.       $uuencode_it = 0;
  115. !     $atob_it = 0;
  116.       $mime_it = 0;
  117.   
  118.       # Set the max file size from the local config file.
  119. --- 196,202 ----
  120.       $compress_it = 0;
  121.       $gzip_it = 0;
  122.       $uuencode_it = 0;
  123. !     $btoa_it = 0;
  124.       $mime_it = 0;
  125.   
  126.       # Set the max file size from the local config file.
  127. diff -cr ../ftpmail-1.13/q.pl ./q.pl
  128. *** ../ftpmail-1.13/q.pl    Wed May 12 09:10:09 1993
  129. --- ./q.pl    Wed May 12 09:09:35 1993
  130. ***************
  131. *** 7,14 ****
  132.   #  organisation can be held liable for any problems caused by the use or
  133.   #  storage of this package.
  134.   #
  135. ! # $Header: /a/swan/home/swan/staff/csg/lmjm/src/perl/mirror/ftpmail/RCS/q.pl,v 1.13 1993/05/07 19:05:52 lmjm Exp lmjm $
  136.   # $Log: q.pl,v $
  137.   # Revision 1.13  1993/05/07  19:05:52  lmjm
  138.   # Added Chris's fixed not_ok code.
  139.   #
  140. --- 7,20 ----
  141.   #  organisation can be held liable for any problems caused by the use or
  142.   #  storage of this package.
  143.   #
  144. ! # $Header: /a/swan/home/swan/staff/csg/lmjm/src/perl/mirror/ftpmail/RCS/q.pl,v 1.15 1993/05/12 11:14:50 lmjm Exp lmjm $
  145.   # $Log: q.pl,v $
  146. + # Revision 1.15  1993/05/12  11:14:50  lmjm
  147. + # Upgraded support.pl
  148. + #
  149. + # Revision 1.14  1993/05/11  20:07:57  lmjm
  150. + # Optionally ban connection to a.b.c.d type addresses
  151. + #
  152.   # Revision 1.13  1993/05/07  19:05:52  lmjm
  153.   # Added Chris's fixed not_ok code.
  154.   #
  155. ***************
  156. *** 66,72 ****
  157.   
  158.   $ftpmail = 'ftpmail';
  159.   
  160. ! $Revision = '$Revision: 1.13 $';
  161.   
  162.   if( $test ){
  163.       $ftpmail_dir = '/tmp/ftpmail-test';
  164. --- 72,78 ----
  165.   
  166.   $ftpmail = 'ftpmail';
  167.   
  168. ! $Revision = '$Revision: 1.15 $';
  169.   
  170.   if( $test ){
  171.       $ftpmail_dir = '/tmp/ftpmail-test';
  172. ***************
  173. *** 236,241 ****
  174. --- 242,250 ----
  175.           ($site, $user, $pass ) = ($3, $5, $7);
  176.           if( $site eq ''){
  177.               $site = $default_site;
  178. +         }
  179. +         if( $fqdn_only && $site =~ /^\d+\.\d+\.\d+\.\d+$/ ){
  180. +             &mail_back( "Cannot ftp you may only use the NAME for the host to connect to" );
  181.           }
  182.           if( $ftp_permitted && $site !~ /$ftp_permitted/ ){
  183.               &mail_back( "Cannot ftp to that site only sites matching $ftp_permitted are allowed" );
  184. diff -cr ../ftpmail-1.13/sendmail_forward ./sendmail_forward
  185. *** ../ftpmail-1.13/sendmail_forward    Wed May 12 09:10:14 1993
  186. --- ./sendmail_forward    Wed May 12 09:09:36 1993
  187. ***************
  188. *** 1 ****
  189. ! "|/src.doc.ic.ac.uk/public/ic.doc/ftpmail/q.pl"
  190. --- 1 ----
  191. ! |"/src.doc.ic.ac.uk/public/ic.doc/ftpmail/q.pl"
  192. diff -cr ../ftpmail-1.13/support.pl ./support.pl
  193. *** ../ftpmail-1.13/support.pl    Wed May 12 09:10:14 1993
  194. --- ./support.pl    Wed May 12 09:09:35 1993
  195. ***************
  196. *** 94,99 ****
  197. --- 94,106 ----
  198.       }
  199.   }
  200.   
  201. + sub fail
  202. + {
  203. +     local( $fatal_error ) = @_;
  204. + 
  205. +     die( "Fatal error $fatal_error, probably due to config problems" );
  206. + }
  207. + 
  208.   sub fatal
  209.   {
  210.       local( $fatal_error ) = @_;
  211. exit 0 # Just in case...
  212.