$msg
EOF if (defined $q) { my $dump = $q->dump(); print "\n";
for my $key (keys %ENV) {
print "$key=$ENV{$key}\n";
}
print "\n";
}
print <| '.@$labels[$i*$c+$j].' | '; } } $ret .= '
Please make sure that the form is filled in correctly:\n" . "
$company_name products are proudly presented by:
KAN HOUSE OF KAGROO INC.
We are one of the major manufacturers of safety $products in Canada established since 1986. We have dealers all over Canada and export to many other countries as well.
To contact us please fill in the following form and send to us.
Fields with asterisk [*] are optional.
$errorsOr, contact us directly:
KAN HOUSE OF KAGROO INC.
253 College Street, Suite 219, Toronto, Ontario, Canada M5T 1R5.
Telephone: +1 (416) 540-6966
Toll free: +1 866 633-6966
Fax: +1 (416) 875-6999
E-mail: $email_sales
Webpage: http://$website_name
E-mail with your contact information has been sent to $recipient.
The following is a copy of the information that you have sent:
| '; my $_td_head_none = ' | '; my $td_head = ''; my $_td_head = ' | '; my $td_data = ''; my $_td_data = ' | '; my $_tr = '
Sorry, your request could not be sent. $error
EOF } sub qp_send ($$) { my($smtp, $data) = @_; if (length $data) { local($&, $1); $data =~ s{([\0-\037\177-\377=])}{ sprintf("=%02X", ord $1) }sge; $data =~ s/((?:^|=0A)F)(?=rom )/\1=46/sg; $data =~ s/=0A$/\n/s; $data .= "=\n" unless $data =~ /\n$/s; # FIXME: length should be checked smtp_datasend($smtp, $data); } 1; } sub smtp_unix_p ($) { my($smtp) = @_; my $det = ref $smtp; defined $det && $det eq ''; # FIXME this is probably wrong } sub smtp_new () { #my $smtp = Net::SMTP->new('mail'); my $smtp = *SENDMAIL; my $sendmail = undef; for my $candidate ('/usr/lib/sendmail', '/usr/sbin/sendmail') { $sendmail = $candidate if -x $candidate; last if defined $sendmail; } if (smtp_unix_p($smtp)) { # We have sendmail, so this is probably Unix, have fork, and we are happy my $pid = open($smtp, '|-'); die "sendmail: fork: $!\n" unless defined $pid; if (!$pid) { exec($sendmail, '-t'); die "sendmail: exec: $!\n"; } } else { eval { require 'Net/Domain.pm'; import Net::Domain; # deferred use require 'Net/SMTP.pm'; import Net::SMTP; # deferred use }; die "Cannot find sendmail, but cannot use Net::SMTP either ($@)" if length $@; } return $smtp; } sub smtp_mail ($$) { my($smtp, $sender) = @_; if (!smtp_unix_p($smtp)) { $smtp->mail($sender) || die "MAIL command failed.\n"; } } sub smtp_to ($@) { my($smtp, @recipient) = @_; if (!smtp_unix_p($smtp)) { $smtp->to(@recipient) || die "RCPT command failed.\n"; } } sub smtp_data ($) { my($smtp) = @_; if (!smtp_unix_p($smtp)) { $smtp->data() || die "DATA command failed\n"; } } sub smtp_datasend ($$) { my($smtp, $data) = @_; if (smtp_unix_p($smtp)) { print $smtp $data; } else { $smtp->datasend($data) || die; } } sub smtp_dataend ($) { my($smtp) = @_; if (smtp_unix_p($smtp)) { close $smtp; } else { $smtp->dataend() || die ". command failed\n"; } } sub smtp_quit ($) { my($smtp) = @_; $smtp->quit() if !smtp_unix_p($smtp); } sub send_mail () { my $smtp = smtp_new(); local $@; die "Net::SMTP->new() returned undef" unless defined $smtp; eval { local $SIG{__DIE__} = 'DEFAULT'; my $domain = $ENV{HTTP_HOST};#XXX Net::Domain::hostdomain(); my($sender, $recipient) = ($email_sales, recipient); my $boundary = '=_'; for (my $i = 1; $i <= 32; $i += 1) { no integer; $boundary .= substr($boundary_chars, length($boundary_chars)*rand, 1) } my $subboundary = "-$boundary"; # $boundary is prefix > confusion in IE smtp_mail($smtp, $sender); smtp_to($smtp, $recipient); smtp_data($smtp); my $user_agent = $q->user_agent(); my $origin = $ENV{'REMOTE_HOST'}."(".$ENV{'REMOTE_ADDR'}.")"; $origin .= " (for $ENV{HTTP_X_FORWARDED_FOR})" if $ENV{HTTP_X_FORWARDED_FOR} =~ /\S/; smtp_datasend($smtp, <| ' . $data . ' ' . ' | ' . $val . ' |