izbryte
08-06-2007, 06:38 PM
Hi.
I have an old Perl script that I wrote years ago that was still working ok on their current server. We are now changing servers and it keeps kicking back an internal error. It's been so long since I've used Perl I have no idea what's wrong. Can anyone help?
Here's the code:
#!/usr/bin/perl -w
# send_mail.pl
# brooke robilio
# 01/07/04
# simply emails names and values of elements on a form; uses library functions
# required HTML fields
# - recipient = recipient's email address
# - subject = subject line of email message
# optional HTML fields
# - sender = sender's name
# - email = sender's email address
require './mail_response2.lib';
use CGI ':standard';
$mailprog = '/usr/sbin/sendmail -t'; # define email path
$date = `/bin/date`; # must use funny single quotes
chop ($date);
@keys = param(); # receive all parameters
$email = param('email');
$sender = param('sender');
$recipient = param('recipient');
$subject = param('subject');
$ip = $ENV{'REMOTE_ADDR'};
&displayResponses; # print a simple HTML response (required!)
&emailResponses($recipient); # send mail to recipient
exit;
Here's the error its outputtting:
[Mon Aug 06 17:30:56 2007] [error] Can't locate ./mail_response2.lib in @INC (@INC contains: /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.5/i386-linux-thread-multi /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.5 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.4 /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.3 /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.2 /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.1 /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.0 /usr/local/psa/lib/perl5/site_perl/5.8.5 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.5 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/i386-linux-thread-multi /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.4 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.3 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.2 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.1 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.0 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl . /etc/httpd/ /etc/httpd/lib/perl) at /var/www/vhosts/sacredheartpalmdesert.com/httpdocs/church/cgi-bin/send_mail2.pl line 17.\n
I have an old Perl script that I wrote years ago that was still working ok on their current server. We are now changing servers and it keeps kicking back an internal error. It's been so long since I've used Perl I have no idea what's wrong. Can anyone help?
Here's the code:
#!/usr/bin/perl -w
# send_mail.pl
# brooke robilio
# 01/07/04
# simply emails names and values of elements on a form; uses library functions
# required HTML fields
# - recipient = recipient's email address
# - subject = subject line of email message
# optional HTML fields
# - sender = sender's name
# - email = sender's email address
require './mail_response2.lib';
use CGI ':standard';
$mailprog = '/usr/sbin/sendmail -t'; # define email path
$date = `/bin/date`; # must use funny single quotes
chop ($date);
@keys = param(); # receive all parameters
$email = param('email');
$sender = param('sender');
$recipient = param('recipient');
$subject = param('subject');
$ip = $ENV{'REMOTE_ADDR'};
&displayResponses; # print a simple HTML response (required!)
&emailResponses($recipient); # send mail to recipient
exit;
Here's the error its outputtting:
[Mon Aug 06 17:30:56 2007] [error] Can't locate ./mail_response2.lib in @INC (@INC contains: /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.5/i386-linux-thread-multi /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.5 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.4 /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.3 /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.2 /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.1 /usr/local/psa/lib/perl5/site_perl/5.8.5/5.8.0 /usr/local/psa/lib/perl5/site_perl/5.8.5 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.5/i386-linux-thread-multi /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.5 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/i386-linux-thread-multi /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.4 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.3 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.2 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.1 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/5.8.0 /usr/local/psa/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl . /etc/httpd/ /etc/httpd/lib/perl) at /var/www/vhosts/sacredheartpalmdesert.com/httpdocs/church/cgi-bin/send_mail2.pl line 17.\n