--- db/prgsrc/db.cgi 2000/10/15 19:49:22 1.1
+++ db/prgsrc/db.cgi 2000/10/19 23:04:46 1.5
@@ -9,13 +9,16 @@ use POSIX qw(locale_h);
my ($PWD) = `pwd`;
chomp $PWD;
my ($SRCPATH) = "$PWD/../dimrub/src";
-my ($ZIP) = "/usr/local/bin/zip";
+my ($ZIP) = "/usr/bin/zip";
my ($SENDMAIL) = "/usr/sbin/sendmail";
my ($TMSECS) = 30*24*60*60;
my (%RevMonths) =
('Jan', '0', 'Feb', '1', 'Mar', '2', 'Apr', '3', 'May', '4', 'Jun', '5',
'Jul', '6', 'Aug', '7', 'Sep', '8', 'Oct', '9', 'Nov', '10',
- 'Dec', '11');
+ 'Dec', '11',
+ 'Янв', '0', 'Фев', 1, 'Мар', 2, 'Апр', 3, 'Май', '4',
+ 'Июн', '5', 'Июл', 6, 'Авг', '7', 'Сен', '8',
+ 'Окт', '9', 'Ноя', '19', 'Дек', '11');
# Determine whether the given time is within 2 months from now.
sub NewEnough {
@@ -333,7 +336,8 @@ sub PrintTour {
my ($qnum) = $Tour{'QuestionsNum'};
my ($suffix) = &Suffix($qnum);
- $output .= h2({align=>"center"}, $Tour{"Title"} .
+ $output .= h2({align=>"center"}, $Tournament{"Title"},
+ "
", $Tour{"Title"} .
" ($qnum вопрос$suffix)\n") . p;
my (@Questions) = &GetTourQuestions($dbh, $Id);
@@ -388,7 +392,10 @@ sub PrintTour {
sub PrintField {
my ($header, $value, $text) = @_;
if ($text) {
- $value =~ s/<[\/\w]*>//sg;
+ $value =~ s/<[\/\w]*>//sg;
+ } else {
+ $value =~ s/^\s+/
/mg;
+ $value =~ s/^\|([^\n]*)/
$1<\/pre>/mg; } return $text ? "$header:\n$value\n\n" : strong("$header: ") . $value . p . "\n"; @@ -475,7 +482,7 @@ sub Include_virtual { my ($fn, $output) = (@_, ''); open F , $fn - or die "Can't open the file $fn: $!\n"; + or return; #die "Can't open the file $fn: $!\n"; while () { if (/