ÃÎÑÒÅÂÀß ÊÍÈÃÀ

ÄÎÁÀÂÈÒÜ ÑÎÎÁÙÅÍÈÅ


#!/usr/bin/perl $page = $ENV{'QUERY_STRING'}; print "Content-type: text/html\n\n"; if ($page=='') { $page=0; } open (FILE,"; close(FILE); $SIZE = @LINES; $messages = 0; for ($i=0;$i<=$size;$i++) {="" $_="$LINES[$i];" if="" (($messages="">=($page*10))&&($messages<(($page+1)*10))) {="" print;="" }="" if="">/) { $messages++; } } $pages=$messages/10; if ($pages>=1) { print '

ÑÒÐÀÍÈÖÛ:'; for ($p=0;$p<=$pages;$p++) {="" if="" ($p="=$page)" {="" print="" "="" $p";="" }="" else="" {="" print="" "="">$p"; } } } print '

'; exit;