/[webmail]/cgi-bin/send.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /cgi-bin/send.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by dpavlin, Tue Feb 22 13:28:20 2000 UTC revision 1.4 by dpavlin, Fri Apr 28 08:14:01 2000 UTC
# Line 1  Line 1 
1  #!/usr/local/bin/perl  #!/usr/local/bin/perl
2    
3  BEGIN { $APP_PATH="foo/bar"; }  BEGIN { $APP_PATH="/home/httpd/html/webmail/cgi-bin/"; }
4    
5  # @ ----------------------------------------------------------------------------------------------------------  # @ ----------------------------------------------------------------------------------------------------------
6  # @ This code is (c) 1999 Alexandre Aufrere and NikoSoft.  # @ This code is (c) 1999 Alexandre Aufrere and NikoSoft.
# Line 211  my ($afrom,$from, $reply, $to, $cc, $smt Line 211  my ($afrom,$from, $reply, $to, $cc, $smt
211    
212  $date=localtime();  $date=localtime();
213    
214  my ($fromaddr) = $from;  my $fromaddr = $from; chomp $fromaddr; chomp $from;
215  my ($replyaddr) = $reply;  my $replyaddr = $reply; chomp $replyaddr;
216    
217  $to =~ s/[ \t]+/, /g; # pack spaces and add comma  $to =~ s/[ \t]+/, /g; # pack spaces and add comma
218  $cc =~ s/[ \t]+/, /g; # pack spaces and add comma  $cc =~ s/[ \t]+/, /g; # pack spaces and add comma
# Line 250  $_ = <S>; if (/^[45]/) { close S; return Line 250  $_ = <S>; if (/^[45]/) { close S; return
250  print S "mail from: <$fromaddr>\r\n";  print S "mail from: <$fromaddr>\r\n";
251  $_ = <S>; if (/^[45]/) { close S; return -5; }  $_ = <S>; if (/^[45]/) { close S; return -5; }
252    
253  foreach (split(/, /, $to)) {  foreach (split(/, */, $to)) {
254  print S "rcpt to: <$_>\r\n";          chomp;
255  $_ = <S>; if (/^[45]/) { close S; return -6; }          print S "rcpt to: <$_>\r\n";
256            $_ = <S>; if (/^[45]/) { close S; return -6; }
257  }  }
258  foreach (split(/, /, $cc)) {  foreach (split(/, */, $cc)) {
259  print S "rcpt to: <$_>\r\n";          chomp;
260  $_ = <S>; if (/^[45]/) { close S; return -6; }          print S "rcpt to: <$_>\r\n";
261            $_ = <S>; if (/^[45]/) { close S; return -6; }
262  }  }
263  print S "data\r\n";  print S "data\r\n";
264  $_ = <S>; if (/^[45]/) { close S; return -5; }  $_ = <S>; if (/^[45]/) { close S; return -5; }
# Line 279  $_ = <S>; Line 281  $_ = <S>;
281    
282  close S;  close S;
283  return 1;  return 1;
 }  
284    }
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26