Ребята помогите пожалуйста. Никогда не прежде не устанавливал скрипт на сервер, пользовался только локально под W32. Скрипт очень простой
и использует LWP и LWP::UserAgent;
Попробовал его на триподе, но пишет, что не найдет
этот модуль. Как его установить? Просто скопировать в cgi-bin все .pm файлы из libwww-perl-5.53.tar.gz или нужно как то инсталировать.
Спасибо.
=====================================
Dslft nfre. jib,re
It looks like there was an error:
Your script produced this error: Can\'t locate LWP/Simple.pm in @INC (@INC contains: .) at ./ns.pl line 36. BEGIN failed--compilation aborted at ./ns.pl line 36.
=====================================
Скрипт вот такой: выводит заголовки новостей...
=====================================
#!/usr/bin/perl
use LWP::Simple;
use LWP::UserAgent;
print "Content-type:text/html
";
print "
";
if ($ENV{\'QUERY_STRING\'} eq "aerospace" ||$ENV{\'QUERY_STRING\'} eq "automotive" || $ENV{\'QUERY_STRING\'} eq "business" || $ENV{\'QUERY_STRING\'} eq "entertainment" || $ENV{\'QUERY_STRING\'} eq "environment" || $ENV{\'QUERY_STRING\'} eq "health" || $ENV{\'QUERY_STRING\'} eq "international" || $ENV{\'QUERY_STRING\'} eq "sports" || $ENV{\'QUERY_STRING\'} eq "tech" || $ENV{\'QUERY_STRING\'} eq "us"){
$url = "http://www.maximumedge.com/cgi/news/$ENV{\'QUERY_STRING\'}.txt";
}
else {
$url = "http://www.maximumedge.com/cgi/news/top.txt";
}
my $ua = new LWP::UserAgent;
my $res = $ua->request(HTTP::Request->new(GET => $url));
my $content = $res->content;
@lines = split("
",$content);
foreach $line (@lines) {
@parts = split(/\\|/,$line);
print "- http://www.maximumedge.com/cgi/news/article.cgi/$parts[0]\\">$parts[1] $parts[2]
";
}
print "
";
========================================
