/[cvs]/cgi/mailback/mailback.pl

Diff of /cgi/mailback/mailback.pl

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

revision 1.1 by erik, Thu Jul 25 01:40:35 2002 UTC revision 1.2 by erik, Thu Jul 25 01:41:21 2002 UTC
# Line 13  Line 13 
13  #   Source available at http://www.erc.msstate.edu/~phil/src/mailback.pl  #   Source available at http://www.erc.msstate.edu/~phil/src/mailback.pl
14  #  #
15  #   Also based on "sendmail-cgi.pl" by Erik C. Thauvin <erik@skytouch.com>  #   Also based on "sendmail-cgi.pl" by Erik C. Thauvin <erik@skytouch.com>
16  #   Copyright (C) 1995-97 Erik C. Thauvin. All rights reserved.  #   Copyright (C) 1995-99 Erik C. Thauvin. All rights reserved.
17  #  #
18  #   Date:   10/09/97  #   Date:   02/26/99
19  #  #
20  #   Usage:  You must reference this script in your HTML forms with  #   Usage:  You must reference this script in your HTML forms with
21  #           the method=POST option. Options are passed inside the  #           the method=POST option. Options are passed inside the
# Line 344  sub isvalidhost Line 344  sub isvalidhost
344    
345      foreach (@validhosts)      foreach (@validhosts)
346      {      {
347          if ($_ eq $host)          if ( /$host/i )
348          {          {
349               return 1;               return 1;
350          }          }
# Line 573  else Line 573  else
573          }          }
574          else          else
575          {          {
576              print SOCK "$eol --- Sender's Name ---$eol$posted{namefrom}$eol"              print SOCK "$eol--- Sender's Name ---$eol$posted{namefrom}$eol"
577                       . "$eol --- Sender's Email Address ---$eol$posted{mailfrom}$eol";                       . "$eol--- Sender's Email Address ---$eol$posted{mailfrom}$eol";
578          }          }
579      }      }
580    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Mail
 ViewVC Help
cvs.thauvin.net
svn.thauvin.net
Powered by ViewVC 1.2-dev