version 1.9, 2001/10/13 23:19:21
|
version 1.12, 2002/08/12 21:10:55
|
Line 41 use POSIX qw(locale_h);
|
Line 41 use POSIX qw(locale_h);
|
|
|
setlocale(LC_CTYPE,'russian'); |
setlocale(LC_CTYPE,'russian'); |
$ENV{'LANG'}='ru_RU.KOI8-R'; |
$ENV{'LANG'}='ru_RU.KOI8-R'; |
my ($SENDMAIL) = "/usr/sbin/sendmail"; |
my ($SENDMAIL) = "mail"; |
my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua'; |
my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua'; |
my $FROM = 'borisv@lk.net'; |
my $FROM = 'borisv@lk.net'; |
|
|
Line 58 my $dbh = DBI->connect("DBI:mysql:chgk",
|
Line 58 my $dbh = DBI->connect("DBI:mysql:chgk",
|
die "Can't connect to DB chgk\n"; |
die "Can't connect to DB chgk\n"; |
}; |
}; |
|
|
print header; |
print header(-charset=>'koi8-r'); |
|
|
|
|
################################################## |
################################################## |
Line 125 END
|
Line 125 END
|
<h1 align=center> |
<h1 align=center> |
Журнал "Игра"<br> |
Журнал "Игра"<br> |
и<br> |
и<br> |
<a href="http:/znatoki/klub/znat.html"><img |
<a href="/znatoki/klub/znat.html"><img |
ismap border=0 src= "http:../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 259 SELECT Name FROM Regions WHERE RID=$args
|
Line 259 SELECT Name FROM Regions WHERE RID=$args
|
|
|
# Frist, we print clubs |
# Frist, we print clubs |
if ($args{'clubs'}) { |
if ($args{'clubs'}) { |
|
$result .= ListRegionURLs(%args); |
$result .= ListClubs(%args); |
$result .= ListClubs(%args); |
} |
} |
$sth=$args{'dbh'}->prepare(" |
$sth=$args{'dbh'}->prepare(" |
Line 287 SELECT rid FROM Regions WHERE $clause OR
|
Line 288 SELECT rid FROM Regions WHERE $clause OR
|
} |
} |
|
|
############################################################ |
############################################################ |
|
# List the URLs of a given region |
|
########################################################### |
|
sub ListRegionURLs { |
|
my %args = @_; |
|
my $sth; |
|
$sth = $args{'dbh'}->prepare(" |
|
SELECT URL FROM Regions WHERE rid=$args{'rid'} and NOT ISNULL(URL)"); |
|
|
|
$sth->execute; |
|
|
|
if (!$sth->rows) { |
|
return ""; |
|
} |
|
|
|
my $result; |
|
|
|
$result=<<END; |
|
<dl><dt>Странички:</dt> |
|
<dd><dl>\n |
|
END |
|
|
|
while (my ($string)=$sth->fetchrow_array) { |
|
$string=htmlize($string); |
|
$result .= p($string); |
|
} |
|
$result .= "</dl></dd></dl>\n"; |
|
return $result; |
|
} |
|
|
|
|
|
############################################################ |
# List the clubs of a given region or a given association |
# List the clubs of a given region or a given association |
########################################################### |
########################################################### |
sub ListClubs { |
sub ListClubs { |
Line 735 sub AddClub {
|
Line 767 sub AddClub {
|
# Sending the letter with results |
# Sending the letter with results |
##################################################################### |
##################################################################### |
sub SendLetter { |
sub SendLetter { |
open(MAIL,"| $SENDMAIL -t -n"); |
open(MAIL,"| $SENDMAIL -s 'Registracionnaya kartochka kluba' $TO"); |
print MAIL <<END; |
print MAIL <<END; |
To: $TO |
|
From: $FROM |
|
Subject: Registracionnaya kartochka kluba |
|
MIME-Version: 1.0 |
MIME-Version: 1.0 |
Content-type: text/plain; charset=koi8-r |
Content-type: text/plain; charset=koi8-r |
|
|