db/prgsrc/db.cgi - diff

Return to db.cgi CVS log

Up to [Local Repository] / db / prgsrc

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";