--- db/prgsrc/db.cgi	2005/12/10 00:03:55	1.142
+++ db/prgsrc/db.cgi	2006/09/25 00:09:43	1.144
@@ -14,6 +14,7 @@ use Getopt::Std;
 eval {require "dbdefs.pl";} ;
 my $url=url||'';
 my @used_stop=();
+my $showNearQuestions=0;
 $dbuser||="piataev";
 $dbname||="chgk";
 $dbpass||="";
@@ -44,7 +45,7 @@ if ($^O =~ /win/i) {
  $realHTMLDIR="/html/znatoki/baza/";
 } else 
 {
-  $realHTMLDIR="/home/piataev/public_html/dimrub/db/files/";
+  $realHTMLDIR="/home/znatoki/chgk-db/public_html/dimrub/db/files/";
 }
 
 
@@ -67,7 +68,7 @@ $outputkvo=100 if $outputkvo>100;
 
 if (param('debug')) {$debug=1; $printqueries=1}
 *STDERR=*STDOUT if $debug;
-if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ && $url !~ /bilbo/ && $url !~ /zaba/) {
+if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ && $url !~ /bilbo/ && $url !~ /zaba/ && $url !~ /question\.chgk\.info/ ) {
    my $u="http://db.chgk.info/cgi-bin/db.cgi?$qs";
    Redirect ($u);
    exit;
@@ -130,8 +131,8 @@ my $all=param('all');
 $all=0 if lc $all eq 'no';
 my ($PWD) = `pwd` if $^O!~/win/i;
 chomp $PWD if $PWD;
-my ($SRCPATH) = "/home/piataev/public_html/dimrub/src";
-my ($ZIP) = "/usr/local/bin/zip";
+my ($SRCPATH) = "/home/db-chgk/public_html/dimrub/src";
+my ($ZIP) = "/usr/bin/zip";
 my $DUMPFILE = "/tmp/chgkdump";
 my ($SENDMAIL) = "/usr/sbin/sendmail";
 my ($TMPDIR) = "/var/tmp";
@@ -1507,9 +1508,9 @@ $output.="</span>"
 $fname||=param('tour');
 	my $qid=$fname ? ($fname.".$Question{'Number'}" ): '';
 
-	$output.=br.a({href=> $url."?metod=proxy&
+	$output.=br.a({href=> "/search/"."?metod=proxy&
 qid=$qid"}, 'Близкие вопросы').p
-             if $answer>0 && !$text && $qid;
+             if $answer>0 && !$text && $qid && $showNearQuestions;
 	return $output;
 }
 
@@ -2001,7 +2002,7 @@ MAIN:
                 exit
 	}
 
-	if ($tour && !param('qnumber') && (!param('answers')||(param('answers')<=1)))
+	if (0 && $tour && !param('qnumber') && (!param('answers')||(param('answers')<=1)))
 	{       
 	        my $n=param('tour');
 	        $n=~s/.txt$//;