Source Code 1994 March/Source_Code_CD-ROM_Walnut_Creek_March_1994.iso/compsrcs/misc/volume37/ftpmail/patch02

Text File | 1993-05-15 | 5.0 KB | 163 lines

Newsgroups: comp.sources.misc
From: [e-mail] (Lee M J McLoughlin)
Subject: REPOST: v37i060:  ftpmail - Automatic Email to FTP Gateway, Patch02
Message-ID: <[e-mail]>
X-Md4-Signature: 96c542ddba0846575f53ada1654fcadc
Date: Sun, 16 May 1993 01:43:06 GMT
Approved: [e-mail]

Submitted-by: [e-mail] (Lee M J McLoughlin)
Posting-number: Volume 37, Issue 60
Archive-name: ftpmail/patch02
Environment: UNIX, Perl, Sun, Dec, INET
Patch-To: ftpmail: Volume 37, Issue 51-52

[ Moderator error - There is only one part to this posting. ]
[ The specified Archive-name was incorrect.      -Kent+     ]

This patch to brings ftpmail to version 1.16.

The original sources required for patching are available in any of the
comp.sources.misc archives.  ftpmail is archived at:

        src.doc.ic.ac.uk:packages/ftpmail/
        grasp1.univ-lyon1.fr:pub/unix/mail/tools/ftpmail/
        ftp.sterling.com:mail/ftpmail/

Ftpmail is an email->ftp gateway.  It is all writen in perl and sends
responses using either mail or by directly calling sendmail.  When using
sendmail MIME support is available.

------------------------------------------
diff -cr ../ftpmail-1.15/README ./README
*** ../ftpmail-1.15/README    Sat May 15 20:26:59 1993
--- ./README    Sat May 15 20:24:26 1993
***************
*** 26,31 ****
--- 26,32 ----
  This packages is available from:
      src.doc.ic.ac.uk:packages/ftpmail/
      grasp1.univ-lyon1.fr:pub/unix/mail/tools/ftpmail/
+         ftp.sterling.com:mail/ftpmail/


  TO INSTALL
diff -cr ../ftpmail-1.15/chat2.pl ./chat2.pl
*** ../ftpmail-1.15/chat2.pl    Sat May 15 20:26:33 1993
--- ./chat2.pl    Sat May 15 20:24:27 1993
***************
*** 246,251 ****
--- 246,255 ----
                   select($rmask, undef, undef, $endtime - time);
              if ($nfound) {
                  $nread = sysread(S, $thisbuf, 1024);
+                 if( $chat'debug ){
+                     print STDERR "sysread $nread ";
+                     print STDERR ">>$thisbuf<<\n";
+                 }
                  if ($nread > 0) {
                      $S .= $thisbuf;
                  } else {
diff -cr ../ftpmail-1.15/dq.pl ./dq.pl
*** ../ftpmail-1.15/dq.pl    Sat May 15 20:27:00 1993
--- ./dq.pl    Sat May 15 20:24:29 1993
***************
*** 7,14 ****
  #  organisation can be held liable for any problems caused by the use or
  #  storage of this package.
  #
! # $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 $
  # $Log: dq.pl,v $
  # Revision 1.17  1993/05/11  20:07:56  lmjm
  # Init right variable for btoa!
  #
--- 7,17 ----
  #  organisation can be held liable for any problems caused by the use or
  #  storage of this package.
  #
! # $Header: /a/swan/home/swan/staff/csg/lmjm/src/perl/mirror/ftpmail/RCS/dq.pl,v 1.18 1993/05/13 21:23:03 lmjm Exp lmjm $
  # $Log: dq.pl,v $
+ # Revision 1.18  1993/05/13  21:23:03  lmjm
+ # Change all atob to be btoa
+ #
  # Revision 1.17  1993/05/11  20:07:56  lmjm
  # Init right variable for btoa!
  #
***************
*** 451,457 ****
          local( $f ) = '';
          $f .= 'c' if $compress_it;
          $f .= 'g' if $gzip_it;
!         $f .= 'a' if $atob_it;
          $f .= 'u' if $uuencode_it;
          $f .= 'm' if $mime_it;
          $f .= 'F' if $force;
--- 454,460 ----
          local( $f ) = '';
          $f .= 'c' if $compress_it;
          $f .= 'g' if $gzip_it;
!         $f .= 'a' if $btoa_it;
          $f .= 'u' if $uuencode_it;
          $f .= 'm' if $mime_it;
          $f .= 'F' if $force;
***************
*** 470,476 ****
          local( $f ) = $filters[ $cmdno ];
          $compress_it = ($f =~ /c/);
          $gzip_it = ($f =~ /g/);
!         $atob_it = ($f =~ /a/);
          $uuencode_it = ($f =~ /u/);
          $mime_it = ($f =~ /m/);
          $force_it = ($f =~ /F/);
--- 473,479 ----
          local( $f ) = $filters[ $cmdno ];
          $compress_it = ($f =~ /c/);
          $gzip_it = ($f =~ /g/);
!         $btoa_it = ($f =~ /a/);
          $uuencode_it = ($f =~ /u/);
          $mime_it = ($f =~ /m/);
          $force_it = ($f =~ /F/);
diff -cr ../ftpmail-1.15/q.pl ./q.pl
*** ../ftpmail-1.15/q.pl    Sat May 15 20:27:00 1993
--- ./q.pl    Sat May 15 20:24:30 1993
***************
*** 7,14 ****
  #  organisation can be held liable for any problems caused by the use or
  #  storage of this package.
  #
! # $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 $
  # $Log: q.pl,v $
  # Revision 1.15  1993/05/12  11:14:50  lmjm
  # Upgraded support.pl
  #
--- 7,17 ----
  #  organisation can be held liable for any problems caused by the use or
  #  storage of this package.
  #
! # $Header: /a/swan/home/swan/staff/csg/lmjm/src/perl/mirror/ftpmail/RCS/q.pl,v 1.16 1993/05/13 21:23:35 lmjm Exp lmjm $
  # $Log: q.pl,v $
+ # Revision 1.16  1993/05/13  21:23:35  lmjm
+ # Corrected btoa_it use in dq.pl
+ #
  # Revision 1.15  1993/05/12  11:14:50  lmjm
  # Upgraded support.pl
  #
***************
*** 72,78 ****

  $ftpmail = 'ftpmail';

! $Revision = '$Revision: 1.15 $';

  if( $test ){
      $ftpmail_dir = '/tmp/ftpmail-test';
--- 75,81 ----

  $ftpmail = 'ftpmail';

! $Revision = '$Revision: 1.16 $';

  if( $test ){
      $ftpmail_dir = '/tmp/ftpmail-test';
exit 0 # Just in case...