--- db/prgsrc/db.cgi	2001/12/13 00:01:58	1.51
+++ db/prgsrc/db.cgi	2001/12/17 11:47:23	1.52
@@ -1292,13 +1292,14 @@ if ((uc 'а') ne 'А') {print "Koi8-r loca
 		$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 $Email;
+		*STDERR=*STDOUT;
+		if (($Email=param('email')) && -x $SENDMAIL &&
+		open(F, "| $SENDMAIL $Email")) {
 			my ($mime_type) = $text ? "plain" : "html";
 			print F <<EOT;
 To: $Email
-From: olegstemanov\@mail.ru
+From: olegstepanov\@mail.ru
 Subject: Sluchajnij Paket Voprosov "Chto? Gde? Kogda?"
 MIME-Version: 1.0
 Content-type: text/$mime_type; charset="koi8-r"
@@ -1306,7 +1307,7 @@ Content-type: text/$mime_type; charset="
 EOT
 			print F &PrintRandom($dbh, $type, $qnum, $text);
 			close F;
-			print "Пакет случайно выбранных вопросов послан. Нажмите
+			print "Пакет случайно выбранных вопросов послан по адресу $Email. Нажмите
 			на <B>Reload</B> для получения еще одного пакета";
 		} else {
 			print &PrintRandom($dbh, $type, $qnum, $text);