version 1.148, 2008/06/15 07:16:42
|
version 1.149, 2008/11/09 20:02:36
|
Line 1512 $output.="</span>"
|
Line 1512 $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; |
|
$output=~s/\(aud: ([^\)]*)\)/<p><embed src="\/znatoki\/sounds\/db\/$1"><\/embed><p>/g unless $text; |
|
|
$output=~s/›/\ï/g; |
$output=~s/›/\ï/g; |
$output=~s/“/\Ï/g; |
$output=~s/“/\Ï/g; |
|
|
Line 2006 MAIN:
|
Line 2008 MAIN:
|
}; |
}; |
$dbh->do("set names koi8r"); |
$dbh->do("set names koi8r"); |
|
|
if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) { |
# if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) { |
# my $destination='http://chgk.zaba.ru/search.html'; |
# my $destination='http://chgk.zaba.ru/search.html'; |
# print header (-'Content-Type' => 'text/html', |
# print header (-'Content-Type' => 'text/html', |
# -'Location:'=> 'http:\\db.chgk.info'); |
# -'Location:'=> 'http:\\db.chgk.info'); |
Redirect($destination); |
# Redirect($destination); |
exit |
# exit |
} |
# } |
|
|
if (0 && $tour && !param('qnumber') && (!param('answers')||(param('answers')<=1))) |
if (0 && $tour && !param('qnumber') && (!param('answers')||(param('answers')<=1))) |
{ |
{ |