what do i wrong...
i have install perl and do all the things the instaler ask
i have put in the pad... /cgi-bin
i have did the index.pl
the cgi script works on server on the www
but in my own room it's not working that good
when i open the script it starts downloading
or it shows the content of the script.
i am new to this. so dont make fun of me 8O
#!/usr/local/bin/perl -w
# mail_form.cgi
$sendmail = '/usr/sbin/sendmail'; # where is sendmail?
$recipient = 'simon_wildvank@hotmail.com'; # who gets the form data?
$sender = 'Anonymous User <simon_wildvank@hotmail.com>'; # default sender?
$site_name = 'my site'; # name of site to return to afterwards
$site_url = 'rec.htm/'; # URL of site to return to afterwards
# script proper begins...
use CGI;
$query = new CGI;
# bundle up form submissions into a mail_body
$mail_body = '';
foreach $field (sort ($query->param)) {
foreach $value ($query->param($field)) {
$mail_body .= "$field: $value\n";
}
}
# set an appropriate From: address
if ($email = $query->param('07_email')) {
# the user supplied an email address
if ($name = $query->param('01_naam')) {
# the user supplied a name
$name =~ s/"//g; # lose any double-quotes in name
$sender = "\"$name\" <$email>";
} else {
# user did not supply a name
$sender = "$email";
}
}
# send the email message
open(MAIL, "|$sendmail -oi -t") or die "Can't open pipe to $sendmail: $!\n";
print MAIL "To: $recipient\n";
print MAIL "From: $sender\n";
print MAIL "Subject: aan melding infobulletin\n\n";
print MAIL "$mail_body";
close(MAIL) or die "Can't close pipe to $sendmail: $!\n";
# now show the thank-you screen
print "Content-type: text/html\n\n";
print <<"EOF";
<HTML>
<HEAD>
<TITLE>Bedankt</TITLE>
</HEAD>
<body bgcolor="#FFFFFF" text="#000000" background="Mainframe.jpg" bgproperties="FIXED"leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<BODY>
<H1>Bedankt</H1>
<P>bedankt voor het aanmelden voor het infobulletin
.</P>
<P>Return to
<A HREF="rec.htm">$site_name</A>.</P>
</BODY>
</HTML>
EOF