V
Vit
Hi All,
I was just trying to read a webform to send an email.. (using
sendemail)
in the webform I have a selection form like that:
<select name="interest" style="height: 109px; width: 484px"
multiple="multiple">
<option selected="selected"><--- Select One or More ---></
option>
<option>Option 1</option>
<option>Option 2</option>
</select>
I have notice that my perl code it breaks on this select form...
the perl code is the following:
#!/usr/bin/perl
use CGI;
# Create the CGI object
my $query = new CGI;
# Output the HTTP header
print $query->header ( );
# Capture the form results
my $company = $query->param("company");
my $enquiry = $query->param("enquiry");
my $interest = $query->param("interest");
# Filter the form results
$email_address = filter_header_field ( $email_address );
$enquiry = filter_field ( $enquiry );
#$interest = filter_field ( $interest );
# Email the form results
open ( MAIL, "| /usr/sbin/sendmail -t" );
print MAIL "From: $email_address\n";
print MAIL "To: test\@domain.com\n";
print MAIL "Subject: Web Request\n\n";
print MAIL "Comment: $enquiry\n";
#print MAIL "Interest: $interest\n"
print MAIL "\n.\n";
close ( MAIL );
# Thank the user
print <<END_HTML;
<html>
<head></head>
<body>Thanks for filling in our form!</body>
</html>
END_HTML
# Functions for filtering user input
sub filter_field
{
my $field = shift;
$field =~ s/From://gi;
$field =~ s/To://gi;
$field =~ s/BCC://gi;
$field =~ s/CC://gi;
$field =~ s/Subject://gi;
$field =~ s/Content-Type://gi;
return $field;
}
sub filter_header_field
{
my $field = shift;
$field =~ s/From://gi;
$field =~ s/To://gi;
$field =~ s/BCC://gi;
$field =~ s/CC://gi;
$field =~ s/Subject://gi;
$field =~ s/Content-Type://gi;
$field =~ s/[\0\n\r\|\!\/\<\>\^\$\%\*\&]+/ /g;
return $field;
}
how can I "read" the select form value??? how can I read if it is
multivalue???
thanks all
Vit
I was just trying to read a webform to send an email.. (using
sendemail)
in the webform I have a selection form like that:
<select name="interest" style="height: 109px; width: 484px"
multiple="multiple">
<option selected="selected"><--- Select One or More ---></
option>
<option>Option 1</option>
<option>Option 2</option>
</select>
I have notice that my perl code it breaks on this select form...
the perl code is the following:
#!/usr/bin/perl
use CGI;
# Create the CGI object
my $query = new CGI;
# Output the HTTP header
print $query->header ( );
# Capture the form results
my $company = $query->param("company");
my $enquiry = $query->param("enquiry");
my $interest = $query->param("interest");
# Filter the form results
$email_address = filter_header_field ( $email_address );
$enquiry = filter_field ( $enquiry );
#$interest = filter_field ( $interest );
# Email the form results
open ( MAIL, "| /usr/sbin/sendmail -t" );
print MAIL "From: $email_address\n";
print MAIL "To: test\@domain.com\n";
print MAIL "Subject: Web Request\n\n";
print MAIL "Comment: $enquiry\n";
#print MAIL "Interest: $interest\n"
print MAIL "\n.\n";
close ( MAIL );
# Thank the user
print <<END_HTML;
<html>
<head></head>
<body>Thanks for filling in our form!</body>
</html>
END_HTML
# Functions for filtering user input
sub filter_field
{
my $field = shift;
$field =~ s/From://gi;
$field =~ s/To://gi;
$field =~ s/BCC://gi;
$field =~ s/CC://gi;
$field =~ s/Subject://gi;
$field =~ s/Content-Type://gi;
return $field;
}
sub filter_header_field
{
my $field = shift;
$field =~ s/From://gi;
$field =~ s/To://gi;
$field =~ s/BCC://gi;
$field =~ s/CC://gi;
$field =~ s/Subject://gi;
$field =~ s/Content-Type://gi;
$field =~ s/[\0\n\r\|\!\/\<\>\^\$\%\*\&]+/ /g;
return $field;
}
how can I "read" the select form value??? how can I read if it is
multivalue???
thanks all
Vit