--- register/prgsrc/register.cgi 2002/01/28 17:00:56 1.10
+++ register/prgsrc/register.cgi 2002/12/25 21:36:01 1.15
@@ -20,11 +20,11 @@ Boris Veytsman
=head1 DATE
-$Date: 2002/01/28 17:00:56 $
+$Date: 2002/12/25 21:36:01 $
=head1 REVISION
-$Revision: 1.10 $
+$Revision: 1.15 $
=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: 2002/01/28 17:00:56 $';
+my $date='$Date: 2002/12/25 21:36:01 $';
$date =~ s/[^ ]* ([^ ]*) .*/$1/;
@@ -86,23 +86,23 @@ my $self=url();
# The navigation panel has three special lines
###############################################
print <
-Home
-Все регионы
-Все клубы
-Добавить клуб
-Кто есть кто
+
+- Home
+- Все регионы
+- Все клубы
+- Добавить клуб
+- Кто есть кто
END
#################################################
# And the navpanel itself
##################################################
- print ListRegions(dbh=>$dbh,rid=>1,level=>1,tag=>'dt',
+ print ListRegions(dbh=>$dbh,rid=>1,level=>1,tag=>'li',
self=>$self);
print <
+
END
@@ -125,8 +125,8 @@ END
Журнал "Игра"
и
-![](http:../images/logo.gif)
ПРЕДСТАВЛЯЮТ
Регистр Клубов Интеллектуальных Игр
@@ -189,10 +189,7 @@ END
$sth->finish;
print "
";
- print "Всего клубов: $count
\n";
- print "Эту страничку посмотрели ";
- print `/home/piataev/public_html/cgi-bin/counter.sh /znatoki/cgi-bin/register.cgi`;
- print " раз(а)
\n";
+ print "Всего клубов: $count
\n";
print <
@@ -271,7 +268,7 @@ SELECT Child FROM RegionRegion WHERE Par
push @kids,"rid=$kid";
}
my $clause = join(' OR ', @kids);
- $result .= "\n";
+ $result .= "\n";
$sth=$args{'dbh'}->prepare("
SELECT rid FROM Regions WHERE $clause ORDER BY Name");
$sth->execute;
@@ -279,9 +276,9 @@ SELECT rid FROM Regions WHERE $clause OR
$result .= ListRegions(
%args,'rid'=>$kid,
'level'=>$args{'level'}-1,
- 'tag'=>'dt');
+ 'tag'=>'li');
}
- $result .= "
\n";
+ $result .= "\n";
}
}
return $result;
@@ -344,13 +341,12 @@ SELECT cid FROM ClubRegion WHERE rid=$ar
$result=<Клубы:
-\n
+\n
END
} else {
$result=<- Клубы:
-\n
+\n
END
}
my @clubs=();
@@ -362,9 +358,9 @@ END
SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name");
$sth->execute;
while (my ($cid,$Name)=$sth->fetchrow_array) {
- $result .= dt("$Name\n");
+ $result .= li("$Name\n");
}
- $result .= "
\n";
+ $result .= "\n";
}
@@ -562,7 +558,7 @@ SELECT * FROM People WHERE pid=$args{'pi
if (my $string=$person->{'URL'}) {
$string = htmlize($string);
- push @entries, "Домашнаяя страничка: $string";
+ push @entries, "Домашняя страничка: $string";
}
if (my $string=$person->{'Phone'}) {
@@ -767,11 +763,8 @@ sub AddClub {
# Sending the letter with results
#####################################################################
sub SendLetter {
- open(MAIL,"| $SENDMAIL -t");
+ open(MAIL,"| $SENDMAIL -s 'Registracionnaya kartochka kluba' $TO");
print MAIL <