version 1.13, 2002/11/04 05:02:13
|
version 1.16, 2003/07/16 02:08:28
|
Line 53 my $dbh = DBI->connect("DBI:mysql:chgk",
|
Line 53 my $dbh = DBI->connect("DBI:mysql:chgk",
|
or do { |
or do { |
print h1("Временные проблемы") . "База данных временно не |
print h1("Временные проблемы") . "База данных временно не |
работает. Заходите попозже."; |
работает. Заходите попозже."; |
print &Include_virtual("../dimrub/db/reklama.html"); |
print &Include_virtual("../../dimrub/db/reklama.html"); |
print end_html; |
print end_html; |
die "Can't connect to DB chgk\n"; |
die "Can't connect to DB chgk\n"; |
}; |
}; |
Line 66 print header(-charset=>'koi8-r');
|
Line 66 print header(-charset=>'koi8-r');
|
################################################## |
################################################## |
print start_html(-"title"=>'Register of Clubs', |
print start_html(-"title"=>'Register of Clubs', |
-author=>'borisv@lk.net', |
-author=>'borisv@lk.net', |
-background=>"../images/map.jpg"); |
-background=>"../../images/map.jpg"); |
print &Include_virtual("../dimrub/db/reklama.html"); |
print &Include_virtual("../../dimrub/db/reklama.html"); |
print <<END; |
print <<END; |
<table> |
<table> |
<tr> |
<tr> |
<td background=../images/compass.gif valign=top> |
<td background=../../images/compass.gif valign=top> |
END |
END |
|
|
################################################ |
################################################ |
Line 126 END
|
Line 126 END
|
Журнал "Игра"<br> |
Журнал "Игра"<br> |
и<br> |
и<br> |
<a href="/znatoki/klub/znat.html"><img |
<a href="/znatoki/klub/znat.html"><img |
ismap border=0 src= "../images/logo.gif" |
ismap border=0 src= "../../images/logo.gif" |
alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a> |
alt="Интернет Клуб Что? Где? Когда?" width=319 height=27></a> |
<br>ПРЕДСТАВЛЯЮТ<br> |
<br>ПРЕДСТАВЛЯЮТ<br> |
Регистр Клубов Интеллектуальных Игр |
Регистр Клубов Интеллектуальных Игр |
Line 174 END
|
Line 174 END
|
</dl> |
</dl> |
<p align=center> |
<p align=center> |
END |
END |
print &Include_virtual("../boris/register/regions.html"); |
print &Include_virtual("../../boris/register/regions.html"); |
print <<END; |
print <<END; |
</p> |
</p> |
END |
END |
Line 189 END
|
Line 189 END
|
$sth->finish; |
$sth->finish; |
|
|
print "<p align=center>"; |
print "<p align=center>"; |
print "Всего клубов: $count<br>\n"; |
print "Всего клубов: $count</p>\n"; |
print "Эту страничку посмотрели "; |
|
print `/home/piataev/public_html/cgi-bin/counter.sh /znatoki/cgi-bin/register.cgi`; |
|
print " раз(а)</p>\n"; |
|
|
|
print <<END; |
print <<END; |
<hr> |
<hr> |
<address> |
<address> |
<img width = 60 height = 80 src="../images/owl.gif" alt = "owl"> |
<img width = 60 height = 80 src="../../images/owl.gif" alt = "owl"> |
<a href="http://users.lk.net/~borisv"> |
<a href="http://users.lk.net/~borisv"> |
Boris Veytsman</a>, $date |
Boris Veytsman</a>, $date |
</address> |
</address> |
Line 561 SELECT * FROM People WHERE pid=$args{'pi
|
Line 558 SELECT * FROM People WHERE pid=$args{'pi
|
|
|
if (my $string=$person->{'URL'}) { |
if (my $string=$person->{'URL'}) { |
$string = htmlize($string); |
$string = htmlize($string); |
push @entries, "Домашнаяя страничка: $string"; |
push @entries, "Домашняя страничка: $string"; |
} |
} |
|
|
if (my $string=$person->{'Phone'}) { |
if (my $string=$person->{'Phone'}) { |