/[webmail]/cgi-bin/sendform.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/sendform.pl

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

revision 1.1.1.1 by dpavlin, Mon Feb 28 09:34:40 2000 UTC revision 1.4 by dpavlin, Wed Apr 19 11:43:21 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 44  $cache      = $in{'cache'}; Line 44  $cache      = $in{'cache'};
44  @bodylines=split("\n",$body);  @bodylines=split("\n",$body);
45  $body="";  $body="";
46  foreach (@bodylines) {  foreach (@bodylines) {
47                  $body.="> ".$_;                  $body.="> $_\n";
48          }  }
49    
50  $sender = $loginname."\@".$POPserver;  $sender = $loginname."\@".$POPserver;
51  $addrvrfyed=$sender;  $addrvrfyed=$sender;
52  if ($verifysmtp==1) {  if ($verifysmtp==1) {
53          $addrvrfyed=sendmailvrfy($sender,$SMTPserver);          $addrvrfyed=sendmailvrfy($sender,$SMTPserver);
54          if ($addrvrfyed=~ m/^\-[0-9]/) { $addrvrfyed=$sender; }          if ($addrvrfyed=~ m/^\-[0-9]/) { $addrvrfyed=$sender; }
55            $addrvrfyed=~s/^2\.1\.5 //g;    # nuke sendmail 8.10.x vrfy feature
56            if (defined($masquarade)) {
57                    $addrvrfyed=~s/\@([^>^ ]+)/\@$masquarade/;
58            }
59            $from_html=$addrvrfyed;
60            $from_html =~ s/</&lt\;/;
61            $from_html =~ s/>/&gt\;/;
62          }          }
63    
64  print "Content-type: text/html\n\n";  print "Content-type: text/html\n\n";
# Line 97  print "</FORM>"; Line 104  print "</FORM>";
104  print "<FORM METHOD='POST' ACTION='".$CGI_PATH_NSWM."send.pl'>\n";  print "<FORM METHOD='POST' ACTION='".$CGI_PATH_NSWM."send.pl'>\n";
105  print "<TABLE BORDER=0><TR><TD>\n";  print "<TABLE BORDER=0><TR><TD>\n";
106  print "";  print "";
107  print "$fromtext: </td><td> <INPUT TYPE='text'   NAME='sender'     VALUE='$addrvrfyed'    SIZE=$width>\n";  print "$fromtext: </td><td> <INPUT TYPE='hidden'   NAME='sender'     VALUE='$addrvrfyed'    SIZE=$width> $from_html\n";
108  print "</TD><TD WIDTH=100  valign='middle' rowspan=3>\n";  print "</TD><TD WIDTH=100  valign='middle' rowspan=3>\n";
109  print "</td></tr>\n";  print "</td></tr>\n";
110  print "<tr><td>";  print "<tr><td>";
# Line 199  close S; Line 206  close S;
206  $addrresolved=~ s/^[0-9]*\s(.*)/$1/;  $addrresolved=~ s/^[0-9]*\s(.*)/$1/;
207    
208  return $addrresolved;  return $addrresolved;
 }  
209    }
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.26