--- register/prgsrc/register.cgi 2001/10/13 23:19:21 1.9
+++ register/prgsrc/register.cgi 2002/08/12 21:10:55 1.12
@@ -20,11 +20,11 @@ Boris Veytsman
=head1 DATE
-$Date: 2001/10/13 23:19:21 $
+$Date: 2002/08/12 21:10:55 $
=head1 REVISION
-$Revision: 1.9 $
+$Revision: 1.12 $
=cut
@@ -41,11 +41,11 @@ use POSIX qw(locale_h);
setlocale(LC_CTYPE,'russian');
$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 $FROM = 'borisv@lk.net';
-my $date='$Date: 2001/10/13 23:19:21 $';
+my $date='$Date: 2002/08/12 21:10:55 $';
$date =~ s/[^ ]* ([^ ]*) .*/$1/;
@@ -58,7 +58,7 @@ my $dbh = DBI->connect("DBI:mysql:chgk",
die "Can't connect to DB chgk\n";
};
-print header;
+print header(-charset=>'koi8-r');
##################################################
@@ -125,8 +125,8 @@ END
Журнал "Игра"
и
-![](http:../images/logo.gif)
ПРЕДСТАВЛЯЮТ
Регистр Клубов Интеллектуальных Игр
@@ -259,6 +259,7 @@ SELECT Name FROM Regions WHERE RID=$args
# Frist, we print clubs
if ($args{'clubs'}) {
+ $result .= ListRegionURLs(%args);
$result .= ListClubs(%args);
}
$sth=$args{'dbh'}->prepare("
@@ -287,6 +288,37 @@ 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=<Странички:
+\n
+END
+
+ while (my ($string)=$sth->fetchrow_array) {
+ $string=htmlize($string);
+ $result .= p($string);
+ }
+ $result .= "
\n";
+ return $result;
+}
+
+
+############################################################
# List the clubs of a given region or a given association
###########################################################
sub ListClubs {
@@ -735,11 +767,8 @@ sub AddClub {
# Sending the letter with results
#####################################################################
sub SendLetter {
- open(MAIL,"| $SENDMAIL -t -n");
+ open(MAIL,"| $SENDMAIL -s 'Registracionnaya kartochka kluba' $TO");
print MAIL <