D
David Staschover
We are getting numerous bounceback messages with the following script in the
bounced email. It appears that someone is using this script to send spam. Is
there any way for a visitor to break this script over the web, changing the
recipient, or added Bcc's to this message through a web browser? And if so,
any idea how to fix it?
Thanks in advance!
#!/usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
open (MAIL, "|/usr/lib/sendmail -oi -oem -odi -t ") || die "Can't open
$mailpro>
print MAIL "To: recipient\@domain.com\n";
print MAIL "From: $FORM{'username'} ($FORM{'realname'})\n";
print MAIL "Subject: Site Comments
$FORM{'username'} ($FORM{'realname'}) sent the following
------------------------------------------------------------
Email: $FORM{'username'}
Name: $FORM{'realname'}
Subject: $FORM{'subject'}
Comments:
$FORM{'comments'}
------------------------------------------------------------\n\n";
close (MAIL);
print "Location: http://www.domain.com/thankyou.html\n\n";
bounced email. It appears that someone is using this script to send spam. Is
there any way for a visitor to break this script over the web, changing the
recipient, or added Bcc's to this message through a web browser? And if so,
any idea how to fix it?
Thanks in advance!
#!/usr/bin/perl
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
open (MAIL, "|/usr/lib/sendmail -oi -oem -odi -t ") || die "Can't open
$mailpro>
print MAIL "To: recipient\@domain.com\n";
print MAIL "From: $FORM{'username'} ($FORM{'realname'})\n";
print MAIL "Subject: Site Comments
$FORM{'username'} ($FORM{'realname'}) sent the following
------------------------------------------------------------
Email: $FORM{'username'}
Name: $FORM{'realname'}
Subject: $FORM{'subject'}
Comments:
$FORM{'comments'}
------------------------------------------------------------\n\n";
close (MAIL);
print "Location: http://www.domain.com/thankyou.html\n\n";