/[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.2 by dpavlin, Wed Apr 19 06:08:53 2000 UTC revision 1.3 by dpavlin, Wed Apr 19 09:07:13 2000 UTC
# 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) = chomp($from);
215  my ($replyaddr) = $reply;  my ($replyaddr) = chomp($reply);
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.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26