version 1.15, 2002/12/25 21:36:01
|
version 1.20, 2011/05/09 02:22:01
|
Line 38 use vars qw(%ENV);
|
Line 38 use vars qw(%ENV);
|
use CGI qw(:standard); |
use CGI qw(:standard); |
use DBI; |
use DBI; |
use POSIX qw(locale_h); |
use POSIX qw(locale_h); |
|
use locale; |
|
|
setlocale(LC_CTYPE,'russian'); |
my $thislocale; |
|
if ($^O =~ /win/i) { |
|
$thislocale = "Russian_Russia.20866"; |
|
} else { |
|
$thislocale = "ru_RU.KOI8-R"; |
|
} |
|
POSIX::setlocale( &POSIX::LC_ALL, $thislocale ); |
$ENV{'LANG'}='ru_RU.KOI8-R'; |
$ENV{'LANG'}='ru_RU.KOI8-R'; |
my ($SENDMAIL) = "mail"; |
my ($SENDMAIL) = "mail"; |
my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua'; |
my $TO = 'borisv@lk.net'; |
my $FROM = 'borisv@lk.net'; |
my $FROM = 'borisv@lk.net'; |
|
|
my $date='$Date$'; |
my $date='$Date$'; |
$date =~ s/[^ ]* ([^ ]*) .*/$1/; |
$date =~ s/[^ ]* ([^ ]*) .*/$1/; |
|
|
|
|
my $dbh = DBI->connect("DBI:mysql:chgk", "piataev", "") |
my $dbh = DBI->connect("DBI:mysql:register", "piataev", "") |
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"; |
}; |
}; |
|
|
|
$dbh->do("set names koi8r"); |
|
|
print header(-charset=>'koi8-r'); |
print header(-charset=>'koi8-r'); |
|
|
|
|
Line 66 print header(-charset=>'koi8-r');
|
Line 75 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 125 END
|
Line 134 END
|
<h1 align=center> |
<h1 align=center> |
Журнал "Игра"<br> |
Журнал "Игра"<br> |
и<br> |
и<br> |
<a href="/znatoki/klub/znat.html"><img |
<a href="http://internet.chgk.info"><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 183 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 194 END
|
Line 203 END
|
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> |
</address> |
</address> |
</body> |
</body> |
</html> |
</html> |
Line 323 sub ListClubs {
|
Line 332 sub ListClubs {
|
my $sth; |
my $sth; |
if ($args{'cid'}) { |
if ($args{'cid'}) { |
$sth = $args{'dbh'}->prepare(" |
$sth = $args{'dbh'}->prepare(" |
SELECT Child FROM ClubClub WHERE Parent=$args{'cid'}"); |
SELECT Child, Status FROM ClubClub WHERE Parent=$args{'cid'}"); |
} else { |
} else { |
$sth = $args{'dbh'}->prepare(" |
$sth = $args{'dbh'}->prepare(" |
SELECT cid FROM ClubRegion WHERE rid=$args{'rid'}"); |
SELECT cid FROM ClubRegion WHERE rid=$args{'rid'}"); |
Line 350 END
|
Line 359 END
|
END |
END |
} |
} |
my @clubs=(); |
my @clubs=(); |
while (my ($club)=$sth->fetchrow_array) { |
my %stat=(); |
|
while (my ($club,$status)=$sth->fetchrow_array) { |
push @clubs,"cid=$club"; |
push @clubs,"cid=$club"; |
|
if ($status) { |
|
$stat{$club}=$status; |
|
} |
} |
} |
my $clause = join(' OR ', @clubs); |
my $clause = join(' OR ', @clubs); |
$sth=$args{'dbh'}->prepare(" |
$sth=$args{'dbh'}->prepare(" |
SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name"); |
SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name"); |
$sth->execute; |
$sth->execute; |
while (my ($cid,$Name)=$sth->fetchrow_array) { |
while (my ($cid,$Name)=$sth->fetchrow_array) { |
$result .= li("<a href=\"$self?cid=$cid\">$Name</a>\n"); |
my $res="<a href=\"$self?cid=$cid\">$Name</a>\n"; |
|
if (exists $stat{$cid}) { |
|
$res .= " ($stat{$cid})\n"; |
|
} |
|
$result .= li($res); |
} |
} |
$result .= "</ul>\n"; |
$result .= "</ul>\n"; |
} |
} |
Line 372 sub ListParents {
|
Line 389 sub ListParents {
|
my $sth; |
my $sth; |
|
|
$sth = $args{'dbh'}->prepare(" |
$sth = $args{'dbh'}->prepare(" |
SELECT Parent FROM ClubClub WHERE Child=$args{'cid'}"); |
SELECT Parent, Status FROM ClubClub WHERE Child=$args{'cid'}"); |
|
|
$sth->execute; |
$sth->execute; |
|
|
Line 388 SELECT Parent FROM ClubClub WHERE Child=
|
Line 405 SELECT Parent FROM ClubClub WHERE Child=
|
END |
END |
|
|
my @clubs=(); |
my @clubs=(); |
while (my ($club)=$sth->fetchrow_array) { |
my %stat=(); |
|
while (my ($club,$status)=$sth->fetchrow_array) { |
push @clubs,"cid=$club"; |
push @clubs,"cid=$club"; |
|
if ($status) { |
|
$stat{$club}=$status; |
|
} |
} |
} |
my $clause = join(' OR ', @clubs); |
my $clause = join(' OR ', @clubs); |
$sth=$args{'dbh'}->prepare(" |
$sth=$args{'dbh'}->prepare(" |
SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name"); |
SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name"); |
$sth->execute; |
$sth->execute; |
while (my ($cid,$Name)=$sth->fetchrow_array) { |
while (my ($cid,$Name)=$sth->fetchrow_array) { |
$result .= dt("<a href=\"$self?cid=$cid\">$Name</a>\n"); |
my $res = "<a href=\"$self?cid=$cid\">$Name</a>\n"; |
|
if (exists $stat{$cid}) { |
|
$res .= " ($stat{$cid})\n"; |
|
} |
|
$result .= dt($res); |
} |
} |
$result .= "</dl></dd></dl>\n"; |
$result .= "</dl></dd></dl>\n"; |
} |
} |
Line 513 sub htmlize {
|
Line 538 sub htmlize {
|
sub ListPeople { |
sub ListPeople { |
my %args = @_; |
my %args = @_; |
my $sth = $args{'dbh'}->prepare(" |
my $sth = $args{'dbh'}->prepare(" |
SELECT pid,Position FROM ClubPeople WHERE cid=$args{'cid'} ORDER BY Weight DESC"); |
SELECT a.pid,a.Position FROM ClubPeople=a,People=b WHERE a.cid=$args{'cid'} and a.pid=b.pid ORDER BY a.Weight Desc, b.Name"); |
$sth->execute; |
$sth->execute; |
|
|
if (!$sth->rows) { |
if (!$sth->rows) { |
Line 723 sub AddClub {
|
Line 748 sub AddClub {
|
-size=> 60)])), |
-size=> 60)])), |
); |
); |
|
|
$result .= h3("Дополнительные вопросы"); |
# $result .= h3("Дополнительные вопросы"); |
$result .= table( |
# $result .= table( |
|
|
Tr(td(["Что вам больше всего нравится в журнале 'Игра'?", |
# Tr(td(["Что вам больше всего нравится в журнале 'Игра'?", |
textarea(-name=>'IgraA', |
# textarea(-name=>'IgraA', |
-rows=>5, |
# -rows=>5, |
-columns=>60)])), |
# -columns=>60)])), |
Tr(td(["Что вам больше всего не нравится в журнале 'Игра'?", |
# Tr(td(["Что вам больше всего не нравится в журнале 'Игра'?", |
textarea(-name=>'IgraB', |
# textarea(-name=>'IgraB', |
-rows=>5, |
# -rows=>5, |
-columns=>60)])), |
# -columns=>60)])), |
Tr(td(["Что бы вы хотели увидеть в журнале 'Игра' - то |
# Tr(td(["Что бы вы хотели увидеть в журнале 'Игра' - то |
чего нет в настоящее время?", |
# чего нет в настоящее время?", |
textarea(-name=>'IgraC', |
# textarea(-name=>'IgraC', |
-rows=>5, |
# -rows=>5, |
-columns=>60)])), |
# -columns=>60)])), |
); |
# ); |
|
|
$result .= h3("Кто регистрировал"); |
$result .= h3("Кто регистрировал"); |
$result .= table( |
$result .= table( |
Line 774 END
|
Line 799 END
|
if ($value =~ /^\s*$/) { |
if ($value =~ /^\s*$/) { |
next; |
next; |
} |
} |
print MAIL "$key=$value\n\n"; |
$value =~ s/'/\\'/g; |
|
print MAIL "$key=\'$value\'\n\n"; |
} |
} |
|
|
|
|