Parent Directory | Revision Log | Patch
revision 1.3 by dpavlin, Wed Apr 19 09:07:13 2000 UTC | revision 1.4 by dpavlin, Fri Apr 28 08:14:01 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) = chomp($from); | my $fromaddr = $from; chomp $fromaddr; chomp $from; |
215 | my ($replyaddr) = chomp($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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |