version 1.135, 2004/08/28 23:47:41
|
version 1.137, 2004/11/08 02:23:18
|
Line 3
|
Line 3
|
use DBI; |
use DBI; |
use CGI ':all'; |
use CGI ':all'; |
#use strict; |
#use strict; |
|
my @softfields=("От Олега Степанова"); |
use Time::Local; |
use Time::Local; |
my $proxyredirect=1; |
my $proxyredirect=1; |
use POSIX qw(locale_h); |
use POSIX qw(locale_h); |
Line 10 use locale;
|
Line 11 use locale;
|
use vars qw($opt_z); |
use vars qw($opt_z); |
use Getopt::Std; |
use Getopt::Std; |
#my ($dbuser,$dbname,$dbpass,$dbhost); |
#my ($dbuser,$dbname,$dbpass,$dbhost); |
require "dbdefs.pl"; |
eval {require "dbdefs.pl";} ; |
my $url=url||''; |
my $url=url||''; |
$dbuser||="piataev"; |
$dbuser||="piataev"; |
$dbname||="chgk"; |
$dbname||="chgk"; |
Line 1318 sub PrintField {
|
Line 1319 sub PrintField {
|
if ($text) { |
if ($text) { |
$value =~ s/<[\/\w]*?>//sg; |
$value =~ s/<[\/\w]*?>//sg; |
} else { |
} else { |
|
if ($header=~/Комментар/) |
|
{ |
|
$value=~s/^\s*$_[\.:]/p."\n".strong("$_").":"/me foreach @softfields; |
|
} |
|
|
$value =~ s/^\s+/<br> /mg; |
$value =~ s/^\s+/<br> /mg; |
$value =~ s/(\s+)-+(\s+)/$1–$2/mg; |
$value =~ s/(\s+)-+(\s+)/$1–$2/mg; |
$value =~ s/\s+\–/ \–/mg |
$value =~ s/\s+\–/ \–/mg |
Line 1330 sub PrintField {
|
Line 1336 sub PrintField {
|
# $value =~ s/"/”/mg; |
# $value =~ s/"/”/mg; |
} |
} |
|
|
|
if ($value=~/^\s*(<p.*?>)?\s*<strong/) { |
|
return $text ? "$value\n\n" : |
|
$value . p . "\n"; |
|
} |
return $text ? "$header:\n$value\n\n" : |
return $text ? "$header:\n$value\n\n" : |
strong("$header: ") . $value . p . "\n"; |
strong("$header: ") . $value . p . "\n"; |
} |
} |
Line 1705 sub PrintQOfAuthor
|
Line 1714 sub PrintQOfAuthor
|
$suffix = 'я'; |
$suffix = 'я'; |
} |
} |
$Output.= printform; |
$Output.= printform; |
$Output.= p({align=>"center"}, "Автор ".strong("$name $surname. ") |
$Output.= p({align=>"center"}, "Автор ".strong("$name $surname ") |
. " : $hits попадани$suffix."); |
. " : $hits попадани$suffix."); |
|
|
|
|