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

Diff for /db/prgsrc/db.cgi between versions 1.131 and 1.134

version 1.131, 2004/03/16 12:03:38 version 1.134, 2004/05/02 20:48:30
Line 4  use DBI; Line 4  use DBI;
 use CGI ':all';  use CGI ':all';
 #use strict;  #use strict;
 use Time::Local;  use Time::Local;
 my $proxyredirect=0;  my $proxyredirect=1;
 use POSIX qw(locale_h);  use POSIX qw(locale_h);
 use locale;  use locale;
 use vars qw($opt_z);  use vars qw($opt_z);
Line 26  open STDERR, ">/var/tmp/errors1"; Line 26  open STDERR, ">/var/tmp/errors1";
 my $newsurl='http://news.chgk.info/';  my $newsurl='http://news.chgk.info/';
 my $reklama="../dimrub/db/reklama.html";  my $reklama="../dimrub/db/reklama.html";
 my $footer="../dimrub/db/footer.html";  my $footer="../dimrub/db/footer.html";
   $footer="../../chgk/footer.html" if $url=~/zaba/;
   $reklama="../../chgk/reklama.html" if $url=~/zaba/;
 my $datefooter="../dimrub/db/date";  my $datefooter="../dimrub/db/date";
 $datefooter="../../chgk/date" if $url=~/zaba/;  $datefooter="../../chgk/date" if $url=~/zaba/;
   
Line 289  sub tourhref { Line 290  sub tourhref {
         return $res;          return $res;
    } else {     } else {
         $res=$url;          $res=$url;
         $res.="?tour=$t";          $res.=$a?"?answers=1&":"?";
         $res.=$a?"&answers=1":"";          $res.="tour=$t";
   
         return $res;          return $res;
    }     }
   
Line 468  sub makeproxysstr { Line 470  sub makeproxysstr {
 #      $good{$words[$_]}=1 foreach 0..4;  #      $good{$words[$_]}=1 foreach 0..4;
       foreach (@words)        foreach (@words)
       {        {
          $good{$_}=1 if $c{$_}<200;           $good{$_}=1 if $c{$_}<200 && length $_>2;
       }        }
   
       $good{$words[$_]}=0 foreach 16..$#words;        $good{$words[$_]}=0 foreach 16..$#words;
Line 614  $sstr=~tr/йцукенгшщзхъфывапролджэячсмить Line 616  $sstr=~tr/йцукенгшщзхъфывапролджэячсмить
 #Ищем пересечение или объединение списков вопросов (значений %tasksof)  #Ищем пересечение или объединение списков вопросов (значений %tasksof)
             foreach $sf (keys %tasksof)              foreach $sf (keys %tasksof)
            {             {
               $count{$_}++ foreach keys %{$tasksof{$sf}};                  foreach (keys %{$tasksof{$sf}})
                   {
                        next if $forbidden{$_};
                        $count{$_}++ 
                   }
   
            }             }
              @tasks= ($all ? (grep {$count{$_}==$kvo} keys %count) :               @tasks= ($all ? (grep {$count{$_}==$kvo} keys %count) :
                              keys %count) ;                               keys %count) ;
Line 1332  sub PrintField { Line 1339  sub PrintField {
 sub PrintQuestion {  sub PrintQuestion {
         my ($dbh, $Id, $answer, $qnum, $title, $text,$h) = @_;          my ($dbh, $Id, $answer, $qnum, $title, $text,$h) = @_;
         my ($output, $titles) = ('', '');          my ($output, $titles) = ('', '');
           my $fname;
         my (%Question);          my (%Question);
         if ($h) {          if ($h) {
           %Question=%$Id;            %Question=%$Id;
Line 1353  sub PrintQuestion { Line 1361  sub PrintQuestion {
         if (!$text) {          if (!$text) {
                 $output .= hr({width=>"50%"}) if $answer>=0;                  $output .= hr({width=>"50%"}) if $answer>=0;
                 if ($title) {                  if ($title) {
                         my $fname=$Question{'FileName'};                          $fname=$Question{'FileName'};
                         $fname=~s/\.txt//;                          $fname=~s/\.txt//;
                         $titles .=                          $titles .=
                                 dd(img({src=>"/icons/folder.open.gif"}) . " " .                                  dd(img({src=>"/icons/folder.open.gif"}) . " " .
Line 1459  $output.="</span>" Line 1467  $output.="</span>"
         }          }
         $output=~s/\(pic: ([^\)]*)\)/<p><img src="\/znatoki\/images\/db\/$1"><p>/g unless $text;          $output=~s/\(pic: ([^\)]*)\)/<p><img src="\/znatoki\/images\/db\/$1"><p>/g unless $text;
         $paramtour||=param("tour");          $paramtour||=param("tour");
         my $qid=$paramtour ? ($paramtour.".$Question{'Number'}" ): '';          $fname=$fname.".$Question{'TourNumber'}" if $fname && $Question{'TourNumber'};
   $fname||=param('tour');
           my $qid=$fname ? ($fname.".$Question{'Number'}" ): '';
   
         $output.=br.a({href=> $url."?metod=proxy&          $output.=br.a({href=> $url."?metod=proxy&
 qid=$qid"}, 'Близкие вопросы').p  qid=$qid"}, 'Близкие вопросы').p
Line 2057  MAIN: Line 2067  MAIN:
            my $title="Результаты поиска на \"". ($proxysstr||$sstr) .'"'              my $title="Результаты поиска на \"". ($proxysstr||$sstr) .'"' 
                                                     if ($proxysstr||$sstr);                                                      if ($proxysstr||$sstr);
            $title||="База вопросов";             $title||="База вопросов";
            if ($url=~/zaba/) {  
              $globaloutput.=  
 "<head>  
 <title>$title</title>  
 <META HTTP-EQUIV='Content-Type' CONTENT='text/html; charset=koi8-r'>  
 </head><HTML><body bgcolor=#fff0e0 vlink=#800020>";  
            } else {  
            $globaloutput.=start_html(-"title"=>$title,             $globaloutput.=start_html(-"title"=>$title,
                    -author=>'dimrub@icomverse.com',                     -author=>'dimrub@icomverse.com',
                    -bgcolor=>'#fff0e0',                     -bgcolor=>'#fff0e0',
                                   -vlink=>'#800020');}                                    -vlink=>'#800020');#}
 $globaloutput.="<style>  $globaloutput.="<style>
 td      {font-size: x-small; font-family : sans-serif}  td      {font-size: x-small; font-family : sans-serif}
 th      {font-size: x-small; font-family : sans-serif}  th      {font-size: x-small; font-family : sans-serif}
Line 2102  th {font-size: x-small; font-family : sa Line 2105  th {font-size: x-small; font-family : sa
         }          }
   
   
   
         if (param('rand')) {          if (param('rand')) {
                 my ($type, $qnum) = ('', 12);                  my ($type, $qnum) = ('', 12);
                 $type.=$TypeName{$_} foreach param('type');                  $type.=$TypeName{$_} foreach param('type');
Removed from v.1.131  
changed lines
  Added in v.1.134

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