--- register/prgsrc/register.cgi 2002/11/18 03:36:26 1.14 +++ register/prgsrc/register.cgi 2002/12/25 21:36:01 1.15 @@ -20,11 +20,11 @@ Boris Veytsman =head1 DATE -$Date: 2002/11/18 03:36:26 $ +$Date: 2002/12/25 21:36:01 $ =head1 REVISION -$Revision: 1.14 $ +$Revision: 1.15 $ =cut @@ -45,7 +45,7 @@ my ($SENDMAIL) = "mail"; my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua'; my $FROM = 'borisv@lk.net'; -my $date='$Date: 2002/11/18 03:36:26 $'; +my $date='$Date: 2002/12/25 21:36:01 $'; $date =~ s/[^ ]* ([^ ]*) .*/$1/; @@ -189,10 +189,7 @@ END $sth->finish; print "

"; - print "Всего клубов: $count
\n"; - print "Эту страничку посмотрели "; - print `/home/piataev/public_html/cgi-bin/counter.sh /znatoki/cgi-bin/register.cgi`; - print " раз(а)

\n"; + print "Всего клубов: $count

\n"; print <