/[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.2 by dpavlin, Wed Apr 19 06:08:53 2000 UTC revision 1.3 by dpavlin, Wed Apr 19 09:23:35 2000 UTC
# Line 52  $addrvrfyed=$sender; Line 52  $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>";
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26