--- register/prgsrc/register.cgi 2002/12/25 21:36:01 1.15 +++ register/prgsrc/register.cgi 2003/07/16 02:08:28 1.16 @@ -20,11 +20,11 @@ Boris Veytsman =head1 DATE -$Date: 2002/12/25 21:36:01 $ +$Date: 2003/07/16 02:08:28 $ =head1 REVISION -$Revision: 1.15 $ +$Revision: 1.16 $ =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/12/25 21:36:01 $'; +my $date='$Date: 2003/07/16 02:08:28 $'; $date =~ s/[^ ]* ([^ ]*) .*/$1/; @@ -53,7 +53,7 @@ my $dbh = DBI->connect("DBI:mysql:chgk", or do { print h1("Временные проблемы") . "База данных временно не работает. Заходите попозже."; - print &Include_virtual("../dimrub/db/reklama.html"); + print &Include_virtual("../../dimrub/db/reklama.html"); print end_html; die "Can't connect to DB chgk\n"; }; @@ -66,12 +66,12 @@ print header(-charset=>'koi8-r'); ################################################## print start_html(-"title"=>'Register of Clubs', -author=>'borisv@lk.net', - -background=>"../images/map.jpg"); -print &Include_virtual("../dimrub/db/reklama.html"); + -background=>"../../images/map.jpg"); +print &Include_virtual("../../dimrub/db/reklama.html"); print < - + END ################################################ @@ -126,7 +126,7 @@ END Журнал "Игра"
и
Интернет Клуб Что? Где? Когда?
ПРЕДСТАВЛЯЮТ
Регистр Клубов Интеллектуальных Игр @@ -174,7 +174,7 @@ END

END -print &Include_virtual("../boris/register/regions.html"); +print &Include_virtual("../../boris/register/regions.html"); print < END @@ -194,7 +194,7 @@ END print <

-owl +owl Boris Veytsman, $date