lynx
Advanced lynx | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Упс... Если бы Ревинский не ткнул носом, не нашла бы эту тему, а искала.
Вопрос программерам. Почему у меня в таком виде - а это первое, что я сделала, - не стало работать,
Цитата:| $lastposter|$lastpostdate |
время слетало и имя последнего запостившего напрочь. Мне пришлось объявлять новые переменные, вот так:
http://forum.ru-board.com/forums.cgi?forum=21
Ессно, я пробовала менять на:
print FILE "$intopic|$topictitle|$topicdescription|closed|$threadposts|
$threadviews|$startedby|$startedpostdate|$lastposter|$lastpostdate|$sticky";
Ессно, без перевода строки.
Я в большом недоумении...
Вот весь (нынешний) интересующий кусок кода:
Код:
my $file = "$ikondir" . "forum$inforum/$intopic.pl";
open (ENT, $file);
flock ENT, 1;
$in = <ENT>;
close (ENT);
($topicid,$topictitle,$topicdescription,$threadstate,$threadposts,$threadviews,$startedby,$startedpostdate,$lastposter,$lastpostdate,$sticky) = split(/\|/,$in);
my $lastpostermy=$lastposter;
my $lastpostdatemy=$lastpostdate;
##start
$shorttime = &shorttime("$currenttime");
$shortdate = &shortdate("$currenttime");
if ($incommenttoclose ne "") { $incommenttoclose = qq~ $incommenttoclose $inmembername. $shortdate, $shorttime~; }
else { $incommenttoclose = ""; }
open (FILEWITHDISCR, ">forum$inforum/$intopic.clos");
flock(FILEWITHDISCR, 2);
print FILEWITHDISCR "closed\|$incommenttoclose";
close (FILEWITHDISCR);
## end
open(FILE, ">$file");
flock(FILE, 2);
print FILE "$intopic|$topictitle|$topicdescription|closed|$threadposts|$threadviews|$startedby|$startedpostdate|$lastpostermy|$lastpostdatemy|$sticky";
close(FILE);
rebuildLIST(-Forum=>"$inforum");
|
|
