#!/usr/bin/perl
use CGI;
use warnings;
use strict;
use CGI::Carp qw/fatalsToBrowser/;
use Mail::SendEasy;
my $query = new CGI;
print $query->header();
print "it works";
####
Can't locate Mail/SendEasy.pm in @INC (@INC contains: d:/perl/site/lib d:/perl/lib .) at d:\domains\....etc
####
#!/usr/bin/perl
use CGI;
use warnings;
use strict;
use CGI::Carp qw/fatalsToBrowser/;
my $query = new CGI;
print $query->header();
my $mailprog ="/usr/sbin/sendmail";
my $mailflags ="-t -n -oi";
my $recipient = 'recipient@domain.com';
my $msg_goes_here = "you're message";
open SENDMAIL, "| $mailprog $mailflags" or warn $!;
print SENDMAIL "From: user\@domain.com\n";
print SENDMAIL "To: $recipient\n";
print SENDMAIL "Subject: testing 123\n\n";
print SENDMAIL $msg_goes_here;
close SENDMAIL;
####
Send_Details.pl: Bad file descriptor at d:\domains\mysite.co.uk\wwwroot\cgi-bin\Send_Details.pl line 20 …etc
####
use CGI;
use warnings;
use strict;
use CGI::Carp qw/fatalsToBrowser/;
use Net::SMTP;
my $query = new CGI;
print $query->header();
my $smtp = Net::SMTP->new(
Host => 'mailhost.from.com',
Hello => 'thishost.from.com'
);
$smtp->mail('from@from.com');
$smtp->to('to@to.com');
$smtp->data('this is the text of the message');
$smtp->quit;
####
Can't load 'd:/perl/lib/auto/Socket/Socket.dll' for module Socket: load_file:Access is denied at d:/perl/lib/XSLoader.pm line 64.
at d:/perl/lib/Socket.pm line 412
Compilation failed in require at d:/perl/lib/Net/SMTP.pm line 13.
BEGIN failed--compilation aborted at d:/perl/lib/Net/SMTP.pm line 13.
Compilation failed in require at d:\domains\mysite.co.uk\wwwroot\cgi-bin\Send_Details.pl line 10.
BEGIN failed--compilation aborted at d:\domains\mysite.co.uk\wwwroot\cgi-bin\Send_Details.pl line 10.
####
use CGI;
use Net::SMTP;
use warnings;
use strict;
use CGI::Carp qw/fatalsToBrowser/;
####
CGI Error
The specified CGI application misbehaved by not returning a complete set of HTTP headers.
####
#!/usr/bin/perl
use CGI;
use warnings;
use strict;
use CGI::Carp qw/fatalsToBrowser/;
use Postal::Dispatch;
my $query = new CGI;
print $query->header();
print "it works";
####
Can't locate Postal/Dispatch.pm in @INC (@INC contains: d:/perl/site/lib d:/perl/lib .) at d:\domains\mysite.co.uk\wwwroot\cgi-bin\Send_Details.pl line 11.
BEGIN failed--compilation aborted at d:\domains\mysite.co.uk\wwwroot\cgi-bin\Send_Details.pl line 11.