/[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.2 by erik, Thu Jul 25 01:41:21 2002 UTC revision 1.3 by erik, Thu Jul 25 01:43:40 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-99 Erik C. Thauvin. All rights reserved.  #   Copyright (C) 1995-2001 Erik C. Thauvin. All rights reserved.
17  #  #
18  #   Date:   02/26/99  #   Date:   02/22/01
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 352  sub isvalidhost Line 352  sub isvalidhost
352      return 0;      return 0;
353  }  }
354    
   
355  #  #
356  # Ensure that the proper environment variables are defined  # Ensure that the proper environment variables are defined
357  #  #
# Line 501  else Line 500  else
500                  select(SOCK); $| = 1;                  select(SOCK); $| = 1;
501                  select(STDOUT); $| = 1;                  select(STDOUT); $| = 1;
502    
503                  if (&getresultcode != 220)                  if (&getresultcode == 220)
504                  {                  {
505                      $mailagent = 'smtp';                      $mailagent = 'smtp';
506                  }                  }
# Line 563  else Line 562  else
562      if (defined($ENV{REMOTE_IDENT})) { print SOCK "X-Remote-Ident: $ENV{REMOTE_IDENT}$eol"; }      if (defined($ENV{REMOTE_IDENT})) { print SOCK "X-Remote-Ident: $ENV{REMOTE_IDENT}$eol"; }
563      if (defined($ENV{REMOTE_USER})) { print SOCK "X-Remote-User: $ENV{REMOTE_USER}$eol"; }      if (defined($ENV{REMOTE_USER})) { print SOCK "X-Remote-User: $ENV{REMOTE_USER}$eol"; }
564      if (defined($ENV{HTTP_REFERER})) { print SOCK "X-URL: $ENV{HTTP_REFERER}$eol"; }      if (defined($ENV{HTTP_REFERER})) { print SOCK "X-URL: $ENV{HTTP_REFERER}$eol"; }
565    
566        print SOCK "X-Mailback-Agent: $mailagent$eol";
567    
568      if (defined($posted{senderinfo}))      if (defined($posted{senderinfo}))
569      {      {
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
Mail
 ViewVC Help
cvs.thauvin.net
svn.thauvin.net
Powered by ViewVC 1.2-dev