version 1.111, 2003/04/20 12:27:29
|
version 1.112, 2003/04/20 12:45:30
|
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 $reklama="../dimrub/db/reklama.html"; |
|
$reklama="../reklama.html" if $opt_z; |
my $HTMLDIR="/znatoki/dimrub/db/baza/"; |
my $HTMLDIR="/znatoki/dimrub/db/baza/"; |
my $realHTMLDIR; |
my $realHTMLDIR; |
if ($^O =~ /win/i) { |
if ($^O =~ /win/i) { |
Line 1416 sub Get12Random {
|
Line 1418 sub Get12Random {
|
|
|
sub Include_virtual { |
sub Include_virtual { |
my ($fn, $output) = (@_, ''); |
my ($fn, $output) = (@_, ''); |
|
return "<!--#include virtual=\"$fn\"-->" if ($opt_z); |
open F , $fn |
open F , $fn |
or return ""; #die "Can't open the file $fn: $!\n"; |
or return ""; #die "Can't open the file $fn: $!\n"; |
|
|