Click to See Complete Forum and Search --> : Old Perl Script on new server


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

CyCo
08-06-2007, 10:04 PM
mail_response2.lib cannot be found. You'll need to add that to the new server.