Это значит у тебя идет вызов несуществующего обьекта. И неважно где.
Как раз таки объект существует, но вот в последнее время скрипты на хосте валяют дурака, так как до этого я же там же и тестировал его и он(скрипт) работал отлично.
И если ты прочел до этого сообщение что скрипт работает с -w, а без нет.
Что за скрипт? Если небольшой - выложи сюда.
Скрипт авторизалка для пользователей.
#!/usr/bin/perl
###############################################################
$pass = "/путь до паролей/passwd.dat";
use CGI::Carp qw (fatalsToBrowser);
use CGI::Cookie;
use CGI qw(:standard);
###############################################################
# Form Data Parsing
################
# Comparison
read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
local($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~
s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
# strip off any possible SSI comment tags.
$value =~ s///g;
$in{$name} = $value;
}
open(LIST, $pass);
@pass =
;
close(LIST);
foreach $line(@pass)
{
chomp($line);
($correctUsername,$correctPassword) = split(/\\|/,$line);
if ($in{\'username\'} ne $correctUsername) {
if($in{\'password\'} ne $correctPassword)
{
$urlerror="http://$ENV{\'HTTP_HOST\'}/error-authorisation.html";
print redirect( -URL => $urlerror);
}}
if ($in{\'username\'} eq $correctUsername) {
if($in{\'password\'} eq $correctPassword)
{
$cookie1 = new CGI::Cookie(-name=>\'username\',-value=>$in{\'username\'},-path=> \'/\',-expires=>\'+3h\');
$cookie2 = new CGI::Cookie(-name=>\'password\',-value=>$in{\'password\'},-path=> \'/\',-expires=>\'+3h\');
$cookie3 = new CGI::Cookie(-name=>\'ip\',-value=>$ENV{\'REMOTE_ADDR\'},-path=> \'/\',-expires=>\'+3h\');
#print header(-cookie=>[$cookie1,$cookie2,$cookie3]);
$url="http://$ENV{\'HTTP_HOST\'}/custom/$in{\'username\'}/";
print redirect( -URL => $url,
-COOKIE => [$cookie1,$cookie2,$cookie3]);
}}
}
