I tried to run recip.cgi on the new virtual server but it gives me the following error
Can't locate LWP/Simple.pm in @INC (@INC contains: /usr/lib/perl5/5.6.0/i386-linux /usr/lib/perl5/5.6.0 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl .) at /home/virtual/site/fst/var/www/cgi-bin/links/admin/recip.cgi line 46.
BEGIN failed--compilation aborted at /home/virtual/site/fst/var/www/cgi-bin/links/admin/recip.cgi line 46.
[Wed Aug 14 19:09:04 2002] [error] [client 66.81.58.9] Premature end of script headers: /home/virtual/site/fst/var/www/cgi-bin/links/admin/recip.cgi
I am assuming that LWP::Simple is not installed on this server.
So my question is Is there a modification to this mod that would change the LWP::Simple to IO::Socket; since I know this is installed and the error messages stopped but it is not checking for reciprocal links. I blelieve the section of the program that needs changing is below.
sub getcontent{
use LWP::Simple; change to IO::Socket;
$counter=0;
local ($url) = @_;
$page = get($url);
if ($page) {
if ($page =~ /$site_check/i){
}
please help me with this modification so I can check for reciprocal links.
MetaSearchAt! and SearchAt! Directory
http://metasearchat.com
Can't locate LWP/Simple.pm in @INC (@INC contains: /usr/lib/perl5/5.6.0/i386-linux /usr/lib/perl5/5.6.0 /usr/lib/perl5/site_perl/5.6.0/i386-linux /usr/lib/perl5/site_perl/5.6.0 /usr/lib/perl5/site_perl .) at /home/virtual/site/fst/var/www/cgi-bin/links/admin/recip.cgi line 46.
BEGIN failed--compilation aborted at /home/virtual/site/fst/var/www/cgi-bin/links/admin/recip.cgi line 46.
[Wed Aug 14 19:09:04 2002] [error] [client 66.81.58.9] Premature end of script headers: /home/virtual/site/fst/var/www/cgi-bin/links/admin/recip.cgi
I am assuming that LWP::Simple is not installed on this server.
So my question is Is there a modification to this mod that would change the LWP::Simple to IO::Socket; since I know this is installed and the error messages stopped but it is not checking for reciprocal links. I blelieve the section of the program that needs changing is below.
sub getcontent{
use LWP::Simple; change to IO::Socket;
$counter=0;
local ($url) = @_;
$page = get($url);
if ($page) {
if ($page =~ /$site_check/i){
}
please help me with this modification so I can check for reciprocal links.
MetaSearchAt! and SearchAt! Directory
http://metasearchat.com