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