[BACK]Return to db.cgi CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/db.cgi between versions 1.51 and 1.52

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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>