CGI e Perl per una mailform

[esteban]

Ho su questa pagina un form per richieste, il mailform è su di un'altro host di un altro mio sito, il problema è che quando invio i dati mi rimanda questo messaggio...


%1 is not a valid Win32 application.

Che é?

vi post anche il file mailform.cgi è un pò lunghetto :

!/usr/local/bin/perl
#
################################################## ####################
# A&M MailForm Version 1.2
# Copyright 1999 Alex Iatskovski 74642.3600@compuserve.com
# Created 06/10/99
# Last Modified 06/15/99
# Home URL http://www.anmweb.com
#
################################################## ####################
#
# This is a MailForm program that allows you to communicate with the
# visitors of your home page without publishing your E-mail address on
# the Web. Your real E-mail address is completely hidden from spammers
# (it is not shown in web-page source in contrast to most such programs),
# but at the same time you are not losing ability to communicate with
# a civilized visitors of your Web Site. This program is using Java Script
# to display form in a nice popup window. But it works as well if Java Script
# is disabled in visitor's browser. It will work with all known Web Browsers.
# No more HTML forms programming! This script is generating all necessary
# forms dynamically on the fly.
#
################################################## ####################
#
# Installation:
#
# Put this script into your cgi-bin directory and make it executable
# (chmod 755 on most system). Then change variables according to your
# requirements.
#
# 1. Make sure the very top line of script is pointed to the exact location
# of Perl program on your server.
#
# 2. Make sure the "$mailprog" variable is pointed to the exact location of
# "sendmail" program on your server.
#
# 3. Make sure to change "$admin_mail" variable to your real E-mal address.
#
# 4. Make sure the "$cgiurl" variable is pointed to the exact URL of
# your script.
#
# To call this program from the Web pages use something like this:
#
# ----------Cut here----------
# <a href="/cgi-bin/mailform.cgi" target="NewWindow"
# onclick="window.open('/cgi-bin/mailform.cgi','newWindow','toolbar=0,
# location=0,directories=0,status=0,menubar=0,scroll bars=0,resizable=0,
# width=500,height=420');return false"><strong>Contact Us</strong></a>
# ----------End of cut----------
#
# IMPORTANT! This whole HTML link should be written in ONE LINE! Otherwise
# the Java Script will not work. Make sure also that the "/cgi-bin/mailform.cgi"
# part is pointed to the real location of the script. If not, you should change
# it (two times!) in above example and put it to your HTML page.This construction
# will work even with Java Script disabled browsers.
#
# That's all! Your program is now up and running.
#
################################################## ####################
#
# COPYRIGHT NOTICE
# (c)Copyright 1999 Alex Iatskovski All Rights Reserved.
#
# A&M Register program is FREEWARE BUT IT IS NOT PUBLIC DOMAIN! This
# program may be used free of charge by anyone so long as this copyright
# notice and the comments above remain intact. Any modification to this
# program except configuration user variables is strictly prohibited!
# By using this code you agree to indemnify A.Iatskovski from any liability
# that might arise from its use.
#
# Selling the code for this program without prior written consent
# is expressly forbidden. In other words, please ask first before
# you try and make money off of my program.
#
# Obtain permission before redistributing this software over the
# Internet or in any other medium. In all cases copyright and header
# must remain intact.
#
################################################## ####################

# Perl's use strict directive checks to make sure variables are
# declared before use. It's a handy check to make sure you are doing
# what you think you are doing. Always
use strict;

# Make sure your Perl version is not earlier than this one
require 5.003;

################################################## ####################
# Define Variables

# Mail program path
my ($mailprog) = '/usr/sbin/sendmail';

# Admin E-mail
my ($admin_mail) = 'hcaldana@ivg.it';

# CGI URL
my ($cgiurl) = 'http://www.hotelvillamarina.eu/cgi-bin/mailform.cgi';

# Global Vars, don't change!
my ($buffer, @pairs, $pair, $name, $value, %FORM);

# Done
################################################## ####################

###################################
### Do not edit below this line ###
###################################

# Antihacker's rooting

if ($ENV{'QUERY_STRING'} ne '') {
my ($text) = <<EOT;
To be a hacker indicates to be a man with more than just one cerebral bend.
What do you attempt to do here boy? These tries do not roll on this server!
If you have something to say - speak up, if not - get lost and say your mother
that your stupid attempt to hack this Web Site was logged by server's security staff.
EOT
&error($text);
}
else {
&parse_form();
}

if ($FORM{'action'} eq 'send_form') {
&check_form();
&mail_form();
&show_thanks();
}
else {
&main_form();
}

###############
sub parse_form {
###############
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "POST"){
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
}
else {
$buffer = $ENV{'QUERY_STRING'};
}
# Split information into name/value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs){
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}

##############
sub main_form {
##############
my $title = 'Contact Us';
my $text = <<EOF;
<FORM ACTION="$cgiurl" METHOD="POST">
<INPUT TYPE="text" SIZE="30" NAME="nome" VALUE="Nome" MAXLENGTH="30">
<BR><BR>
<INPUT TYPE="text" SIZE="30" NAME="cognome" VALUE="Cognome" MAXLENGTH="30">
<BR><BR>
<INPUT TYPE="text" SIZE="30" NAME="email" VALUE="Your E-mail" MAXLENGTH="30">
<BR><BR>
<INPUT TYPE="text" SIZE="30" NAME="via" VALUE="via" MAXLENGTH="30">
<BR><BR>
<INPUT TYPE="text" SIZE="30" NAME="cap" VALUE="CAP" MAXLENGTH="30">
<BR><BR>
<INPUT TYPE="text" SIZE="30" NAME="città" VALUE="città" MAXLENGTH="30">
<BR><BR>
<INPUT TYPE="text" SIZE="30" NAME="provincia" VALUE="provincia" MAXLENGTH="30">
<BR><BR>
<INPUT TYPE="text" SIZE="30" NAME="stato" VALUE="stato" MAXLENGTH="30">
<BR><BR>
<TEXTAREA NAME="richiesta" ROWS="5" COLS="50">Type your text here</TEXTAREA>
<BR><BR>
<select name="Per quale albergo?">
<option value="Tutti e tre" selected>Tutti e tre</option>
<option value="Hotel Villa Marina">Hotel Villa Marina</option>
<option value="Hotel Nuovo Bristol">Hotel Nuovo Bristol</option>
<option value="Hotel Corallo">Hote Corallo</option>
</select><br><br>
<select name="come ci hai trovato">
<option value="amici e/o parenti" selected>amici e/o parenti</option>
<option value="motori di ricerca">motori di ricerca</option>
<option value="opuscoli pubblicitari">opuscoli pubblicitari</option>
<option value="portali turistici e non">portali turistici e non</option>
</select><br><br>
<INPUT TYPE="submit" NAME="submit" VALUE="Send Comments">&nbsp;
<INPUT TYPE="reset" NAME="Button" VALUE="Clear Comments">
<input type=hidden name="action" value="send_form">
</FORM>
EOF
&show_form($title,$text);
}

###############
sub check_form {
###############
if($FORM{'realname'} eq "Your name"){
&error('You forgot to enter your name!');
}
elsif($FORM{'realname'} eq ""){
&error('You forgot to enter your name!');
}
elsif(!($FORM{'email'} =~ /([\w-.]+\@[\w-.]+)/)){
&error('You forgot to enter your E-mail address!');
}
elsif($FORM{'subject'} eq "Subject"){
&error('You forgot to enter a Subject!');
}
elsif($FORM{'subject'} eq ""){
&error('You forgot to enter a Subject!');
}
elsif($FORM{'body'} eq "Type your text here"){
&error('You forgot to write a message!');
}
elsif($FORM{'body'} eq ""){
&error('You forgot to write a message!');
}
}

##############
sub mail_form {
##############
my $text = <<EOF;
Administrator of this server forgot to enter his E-mail
address to this program! I can't continue without correct
E-mail address of the site administrator.
EOF
if ($admin_mail eq 'yourname@yourhost.com'){&error($text);}
open(MAIL,"|$mailprog -t");
print MAIL "To: $admin_mail\n";
print MAIL "From: $FORM{'email'} ($FORM{'realname'})\n";
print MAIL "Subject: $FORM{'subject'}\n";
print MAIL "X-Priority: 1 (Highest)\n\n";
print MAIL "#\n";
print MAIL "# Entered from $ENV{'REMOTE_HOST'} ($ENV{'REMOTE_ADDR'}) with $ENV{'SERVER_PROTOCOL'}.\n";
print MAIL "#\n\n";
print MAIL "$FORM{'body'}\n";
close(MAIL);
}

################
sub show_thanks {
################
my $title = 'Form Input Accepted';
my $text = <<EOF;
<small>Your form details have been sent.</small><br>
<h1><b>Thank you!</b></h1>
EOF
&show_form($title,$text);
}

###################################
# Sub Error
# Usage - &error('Your text here');
###################################
sub error {
my $title = 'Error';
my $text1 = $_[0];
my $text = <<EOF;
<small>The program could not complete your request. This was because:</small>
<br><br>
<small><b>$text1</b></small><br><br>
<small>Click <a href="$cgiurl"><font color="#0000FF">here</font></a> to
start over, otherwise close this window.</small>
EOF
&show_form($title,$text);
}

###################################
# Sub main_form
# Usage - &show_form($title,$text);
###################################
sub show_form {
print "Content-type:text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<meta http-equiv=\"Content-Type\" content=\"text/html\;\n";
print "charset=iso-8859-1\">\n";
print "<meta name=\"robots\" content=\"noindex\">\n";
print "<title>$_[0]</title>\n";
print "</head>\n";
print "<body bgcolor=\"#FFFFFF\">\n";
print "<div align=\"center\">\n";
print "<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\"\n";
print "bgcolor=\"#FFFFFF\">\n";
print "<tr><th align=\"left\" colspan=\"3\" width=\"100%\" bgcolor=\"#000080\"\n";
print "nowrap>\n";
print "<font color=\"#FFFFFF\" size=\"6\">\n";
print "\&nbsp\;$_[0]\n";
print "</font>\n";
print "</th>\n";
print "</tr>\n";
print "<tr>\n";
print "<td width=\"10%\">\&nbsp\;</td>\n";
print "<td width=\"80%\">\&nbsp\;</td>\n";
print "<td width=\"10%\">\&nbsp\;</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td width=\"10%\">\&nbsp\;</td>\n";
print "<td width=\"80%\">$_[1]</td>\n";
print "<td width=\"10%\">\&nbsp\;</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<td width=\"10%\">\&nbsp\;</td>\n";
print "<td width=\"80%\">\&nbsp\;</td>\n";
print "<td width=\"10%\">\&nbsp\;</td>\n";
print "</tr>\n";
print "<tr>\n";
print "<th align=\"right\" colspan=\"3\" width=\"100%\" bgcolor=\"#000080\"\n";
print "nowrap>\n";
print "<a href=\"http://www.anmweb.com/programs/\" target=\"top\">\n";
print "<small><font color=\"#FFCC33\">\n";
print "A\&amp\;M MailForm Ver.1.2\n";
print "</font></small></a>\&nbsp\;\n";
print "</th>\n";
print "</tr>\n";
print "</table>\n";
print "</div>\n";
print "<br /><div style="z-index:3" class="smallfont" align="center">SEO by <a rel="nofollow" href="http://www.crawlability.com/vbseo/">vBSEO</a> 3.0.0 RC3</div><br /><div style="z-index:3" class="smallfont" align="center">SEO by <a rel="nofollow" href="http://www.crawlability.com/vbseo/">vBSEO</a> 3.0.0 RC3</div><br /><div style="z-index:3" class="smallfont" align="center">SEO by <a rel="nofollow" href="http://www.crawlability.com/vbseo/">vBSEO</a> 3.0.0 RC3</div><br /><div style="z-index:3" class="smallfont" align="center">SEO by <a rel="nofollow" href="http://www.crawlability.com/vbseo/">vBSEO</a> 3.0.0 RC3</div></body>\n";
print "</html>\n";
exit (0);
}

#####################
### END OF SCRIPT ###
#####################