--- db/prgsrc/db.cgi	2000/10/15 19:49:22	1.1
+++ db/prgsrc/db.cgi	2000/10/23 01:23:35	1.9
@@ -9,13 +9,17 @@ use POSIX qw(locale_h);
 my ($PWD) = `pwd`;
 chomp $PWD;
 my ($SRCPATH) = "$PWD/../dimrub/src";
-my ($ZIP) = "/usr/local/bin/zip";
+my ($ZIP) = "/home/piataev/bin/zip";
+my $DUMPFILE = /tmp/dump.sql
 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 {
@@ -105,8 +109,8 @@ sub Search {
 	my (@arr, @Questions, @fields);
 	my (@sar, $i, $sth);
 
-	push @fields, 'Question';
-	foreach (qw/Answer Sources Authors Comments/) {
+#	push @fields, 'Question';
+	foreach (qw/Question Answer Sources Authors Comments/) {
 		if (param($_)) {
 			push @fields, "IFNULL($_, '')";
 		}
@@ -221,15 +225,21 @@ sub PrintTournament {
 		for ($Tournament{'Type'}) {
 			/ç/ && do {
 				$output .= h2({align=>"center"}, 
-					"çÒÕÐÐÁ: $Tournament{'Title'}") . p . "\n";
+					      "çÒÕÐÐÁ: $Tournament{'Title'} ",
+					      "$Tournament{'PlayedAt'}") . p . "\n";
 				last;
 			};
 			/þ/ && do {
 				return &PrintTour($dbh, $Tours[0], $answer)
 					if ($#Tours == 0);
+				
+				my $title="ðÁËÅÔ: $Tournament{'Title'}";
+				if ($Tournament{'PlayedAt'}) {
+				    $title .= " $Tournament{'PlayedAt'}";
+				}
 
 				$output .= h2({align=>"center"}, 
-					"þÅÍÐÉÏÎÁÔ: $Tournament{'Title'}") . p . "\n";
+					"$title") . p . "\n";
 				last;
 			};
 			/ô/ && do {
@@ -266,7 +276,8 @@ sub PrintTournament {
 
 		if ($SingleTour or $Tournament{'Type'} =~ /ô/) {
 			$list .= dd(img({src=>$imgsrc, alt=>$alt})
-				. " " . $Tournament{'Title'} . $qnum) . 
+				. " " . $Tournament{'Title'} . " " .
+				    $Tournament{'PlayedAt'} . $qnum) . 
 				dl(
 					dd("["
 						. a({href=>url .  "?tour=$Tournament{'Id'}&answer=0"},
@@ -279,7 +290,8 @@ sub PrintTournament {
 				img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1}))
 				. " " . img({src=>$imgsrc, alt=>$alt}) 
 				. " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, 
-				$Tournament{'Title'}) . $qnum);
+				$Tournament{'Title'}. " ". 
+					  $Tournament{'PlayedAt'}) . $qnum);
 		}
 	}
 	$output .= dl($list);
@@ -333,7 +345,9 @@ sub PrintTour {
 	my ($qnum) = $Tour{'QuestionsNum'};
 	my ($suffix) = &Suffix($qnum); 
 	
-	$output .= h2({align=>"center"}, $Tour{"Title"} . 
+	$output .= h2({align=>"center"}, $Tournament{"Title"}, 
+		      $Tournament{'PlayedAt'},
+		      "<br>", $Tour{"Title"} . 
 		" ($qnum ×ÏÐÒÏÓ$suffix)\n") . p;
 
 	my (@Questions) = &GetTourQuestions($dbh, $Id);
@@ -388,7 +402,10 @@ sub PrintTour {
 sub PrintField {
 	my ($header, $value, $text) = @_;
 	if ($text) {
-		$value =~ s/<[\/\w]*>//sg;
+	    $value =~ s/<[\/\w]*>//sg;
+	} else {
+	    $value =~ s/^\s+/<br>&nbsp;&nbsp;&nbsp;&nbsp;/mg;
+	    $value =~ s/^\|([^\n]*)/<pre>$1<\/pre>/mg;
 	}
 	return $text ? "$header:\n$value\n\n" : 
 		strong("$header: ") . $value . p . "\n";
@@ -408,7 +425,7 @@ sub PrintQuestion {
 			my (%Tournament) = GetTournament($dbh, $Tour{'ParentId'});
 			$titles .=
 				dd(img({src=>"/icons/folder.open.gif"}) . " " .
-					 a({href=>url . "?tour=$Tournament{'Id'}"}, $Tournament{'Title'}));
+					 a({href=>url . "?tour=$Tournament{'Id'}"}, $Tournament{'Title'}, $Tournament{'PlayedAt'}));
 			$titles .=
 				dl(dd(img({src=>"/icons/folder.open.gif"}) . " " .
 					a({href=>url . "?tour=$Tour{'Id'}"}, $Tour{'Title'})));
@@ -464,7 +481,7 @@ sub Get12Random {
 				WHERE QuestionId=$q");
 			$sth->execute;
 			$t = ($sth->fetchrow)[0];
-		} until !$chosen{$q} && $t =~ /$type/;
+		} until !$chosen{$q} && $type =~ /[$t]/;
 		$chosen{$q} = 'y';
 		push @questions, $q;
 	}
@@ -475,7 +492,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 (<F>) {
 		if (/<!--#include/o) {
@@ -520,7 +537,7 @@ sub PrintAll {
 	} else {
 		$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .
       " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"},
-      $Tournament{'Title'}) . " $New");
+      $Tournament{'Title'}) ." " . $Tournament{'PlayedAt'} . " $New");
 	}
 	if ($Id == 0 or $Tournament{'Type'} =~ /ç/) {
 		for ($i = 0; $i <= $#Tours; $i++) {
@@ -554,7 +571,7 @@ sub PrintDates {
 		%Tournament = &GetTournament($dbh, $array[0]);
       $list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .
       " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"},
-      $Tournament{'Title'}));
+      $Tournament{'Title'}, $Tournament{'PlayedAt'}));
 	}
 	$output .= dl($list);
 	return $output;
@@ -587,16 +604,18 @@ MAIN:
 	}
 
 	if (param('rand')) {
-		my ($type, $qnum) = ('þ', 12);
-		$type = 'â' if (param('brain'));
+		my ($type, $qnum) = ('', 12);
+		$type .= 'â' if (param('brain'));
+		$type .= 'þ' if (param('chgk'));
 		$qnum = param('qnum') if (param('qnum') =~ /^\d+$/);	
+		$qnum = 0 if (!$type);
 		if (param('email') && -x $SENDMAIL && 
 		open(F, "| $SENDMAIL -t -n")) {
 			my ($Email) = param('email');
 			my ($mime_type) = $text ? "plain" : "html";
 			print F <<EOT;
 To: $Email
-From: dimrub\@icomverse.com
+From: olegstemanov\@mail.ru
 Subject: Sluchajnij Paket Voprosov "Chto? Gde? Kogda?"
 MIME-Version: 1.0
 Content-type: text/$mime_type; charset="koi8-r"
@@ -616,17 +635,31 @@ EOT
 	} elsif (param('from_year') && param('to_year')) {
 		print &PrintDates($dbh);	
 	} elsif (param('comp')) {
-		print header(
-			-'Content-Type' => 'application/x-zip-compressed; name="db.zip"',
-			-'Content-Disposition' => 'attachment; filename="db.zip"'
-		);
-		$tour = (param('tour')) ? param('tour') : 0;
-		my (@files) = &PrintArchive($dbh, $tour);
-		open F, "$ZIP -j - $SRCPATH/COPYRIGHT @files |";
-		print (<F>);
-		close F;
-		$dbh->disconnect;
-		exit;
+	    print header(
+			 -'Content-Type' => 'application/x-zip-compressed; name="db.zip"',
+			 -'Content-Disposition' => 'attachment; filename="db.zip"'
+			 );
+	    $tour = (param('tour')) ? param('tour') : 0;
+	    my (@files) = &PrintArchive($dbh, $tour);
+	    open F, "$ZIP -j - $SRCPATH/COPYRIGHT @files |";
+	    print (<F>);
+	    close F;
+	    $dbh->disconnect;
+	    exit;
+	} elsif (param('sqldump')) {
+	    print header(
+			 -'Content-Type' => 'application/x-zip-compressed; name="dump.zip"',
+			 -'Content-Disposition' => 'attachment; filename="dump.zip"'
+			 );
+	    if (! -f $DUMPFILE) {
+		`mysqldump -u piataev chgk > $DUMPFILE`;
+	    }
+	    open F, "$ZIP -j - $DUMPFILE |";
+	    print (<F>);
+	    close F;
+	    $dbh->disconnect;
+	    exit;
+
 	} else {
 		$tour = (param('tour')) ? param('tour') : 0;
 		if ($tour !~ /^[0-9]*$/) {