version 1.100, 2003/04/20 07:59:41
|
version 1.101, 2003/04/20 08:06:44
|
Line 11 use Getopt::Std;
|
Line 11 use Getopt::Std;
|
getopts('z'); |
getopts('z'); |
open STDERR, ">/var/tmp/errors1"; |
open STDERR, ">/var/tmp/errors1"; |
my $newsurl='http://news.chgk.info/'; |
my $newsurl='http://news.chgk.info/'; |
my $HTMLDIR="/!!!/"; |
my $HTMLDIR=""; |
my $realHTMLDIR="c:/html/!!!/"; |
my $realHTMLDIR; |
|
if ($^O =~ /win/i) { |
|
$realHTMLDIR="/html/znatoki/baza"; |
|
} else |
|
{ |
|
$realHTMLDIR="/home/znatoki/public_html/dimrub/db/baza"; |
|
} |
my $usehtml=1; |
my $usehtml=1; |
my $usewas=0; |
my $usewas=0; |
my $cashednumber=500; |
my $cashednumber=500; |