|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Mitya Gladyshev 2:5020/1698 27 Aug 2002 07:39:40
To : All
Subject : возник небольшой бед
--------------------------------------------------------------------------------
Апач под вин 32 пеpл
имеем ошибкy
[Wed Aug 21 01:28:36 2002] [error] [client 192.168.4.20] [Wed Aug 21 01:28:36 20
02] c:\inetpub\cgi-bin\map.pl: Can't use string ("E:\Users\Ara\Scan\ara2002_1.jp
g") as a symbol ref while "strict refs" in use at c:\inetpub\cgi-bin\map.pl line
350.
как бы это залечить?
а возникает она тyт:
my $foto = $query->param('file');
my $ofoto = $query->param('ofoto');
my $nfoto = $query->param('foto');
my $bytesread = "";
my $buffer = "";
my $res = 0;
if ($ofoto) {
$foto = $nfoto;
$ofoto = "0";
}
else
{
if ($foto !~ /([\w-]+ \. (?: jpe?g ))$/ix)
{
$foto = "%TS";
$ofoto = "0";
}
else
{
open (FILE,">$regdir/$newip.jpg");
binmode FILE;
350: while ($bytesread=read($foto,$buffer,1024)) {
print FILE $buffer;
}
close FILE;
$foto = "$newip.jpg";
$ofoto = "1";
}
}
if ($korp eq "") {$korp = "0"};
if ($show eq "") {$show = "no"};
my $addr =
join(":",$query->param('street'),$query->param('house'),$korp,$query->param('st
roj'));
my $STRING = join("::",$pdata,$show,$addr,$newip,$nick,$name,$foto,$url);
my $str1 = join("::",$addr,$newip,$nick,$name,$foto,$url);
my $stg = "^$newip\$";
my $found = "";
my @finddata = '';
my $fd = '';
open (HEADER,"$filewho");
while (<HEADER>)
{
@finddata = split(/::/,$_);
$fd = @finddata[1];
if($fd =~/$stg/)
{
$found = "1";
# ($st,$hn,$kn,$si) = split(/:/,@finddata[0]);
# print ($st,$hn,$kn,$si,@finddata);
last;
}
}
close (HEADER);
# print "!$_!<br>!$str1!";
Don't worry, be happy All.
Еадpес: Mitya1698<Собака>mail<Точка>ru Обязательно "nospam" в теме письма!
... @T:\Golded\tagline.lst
--- GoldED+/W32 Заходите в ФАH-Клyб любителей сеpиала _Ru.La.Femme.Nikita_
* Origin: Мы вас тyт ждем! (2:5020/1698)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
