/[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.3 by erik, Thu Jul 25 01:43:40 2002 UTC revision 1.4 by erik, Mon Feb 6 18:03:49 2006 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-2001 Erik C. Thauvin. All rights reserved.  #   Copyright (C) 1995-2006 Erik C. Thauvin. All rights reserved.
17  #  #
18  #   Date:   02/22/01  #   Date:   2006-02-06
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 471  else Line 471  else
471  {  {
472      $posted{subject} =~ s/^\s*//;      $posted{subject} =~ s/^\s*//;
473      $posted{subject} =~ s/\s*$//;      $posted{subject} =~ s/\s*$//;
474        $posted{subject} =~ s/(\r|\n)//g;
475  }  }
476    
477  #  #
# Line 557  else Line 558  else
558          print SOCK "Subject: $posted{subject}$eol";          print SOCK "Subject: $posted{subject}$eol";
559      }      }
560    
561      if (defined($ENV{REMOTE_ADDRESS})) { print SOCK "X-Remote-Address: $ENV{REMOTE_ADDRESS}$eol"; }      if (defined($ENV{REMOTE_ADDR})) { print SOCK "X-Remote-Address: $ENV{REMOTE_ADDR}$eol"; }
562      if (defined($ENV{REMOTE_HOST})) { print SOCK "X-Remote-Host: $ENV{REMOTE_HOST}$eol"; }      if (defined($ENV{REMOTE_HOST})) { print SOCK "X-Remote-Host: $ENV{REMOTE_HOST}$eol"; }
563      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"; }
564      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"; }
# Line 700  else Line 701  else
701      print "\n<p>\n";      print "\n<p>\n";
702      &printfooter;      &printfooter;
703  }  }
 exit 0;  
704    exit 0;
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
Mail
 ViewVC Help
cvs.thauvin.net
svn.thauvin.net
Powered by ViewVC 1.2-dev