|
version 1.139, 2005/02/26 11:03:41
|
version 1.142, 2005/12/10 00:03:55
|
|
Line 433 action="/znatoki/cgi-bin/db.cgi">
|
Line 433 action="/znatoki/cgi-bin/db.cgi">
|
| </td> |
</td> |
| </tr> |
</tr> |
| </table> |
</table> |
| <p><i>Если при попытке поиска выдаётся сообщение об ошибке, |
<!--p><i>Если при попытке поиска выдаётся сообщение об ошибке, |
| попробуйте воспользоваться |
попробуйте воспользоваться |
| <a href="http://chgk.zaba.ru/search.html">зеркалом базы</a></i> |
<a href="http://chgk.zaba.ru/search.html">зеркалом базы</a></i--> |
| </center> |
</center> |
| |
|
| EOT |
EOT |
|
Line 1982 MAIN:
|
Line 1982 MAIN:
|
| my $texttour=$tour; |
my $texttour=$tour; |
| my ($sth,$dbh); |
my ($sth,$dbh); |
| my($dsn) = "DBI:mysql:database=$dbname;host=$dbhost"; |
my($dsn) = "DBI:mysql:database=$dbname;host=$dbhost"; |
| $dbh = DBI->connect($dsn, $dbuser, $dbpass) |
$dbh = DBI->connect($dsn, $dbuser, $dbpass) |
| # $dbh = DBI->connect("DBI:mysql:$dbname", $username, $dbpass) |
# $dbh = DBI->connect("DBI:mysql:$dbname", $username, $dbpass) |
| or do { |
or do { |
| print header.h1("Временные проблемы") . "База вопросов временно не |
print header.h1("Временные проблемы") . "База вопросов временно не |
|
Line 1994 MAIN:
|
Line 1994 MAIN:
|
| |
|
| |
|
| if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) { |
if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) { |
| my $destination='http://chgk.zaba.ru/search.html'; |
# my $destination='http://chgk.zaba.ru/search.html'; |
| # print header (-'Content-Type' => 'text/html', |
# print header (-'Content-Type' => 'text/html', |
| # -'Location:'=> 'http:\\db.chgk.info'); |
# -'Location:'=> 'http:\\db.chgk.info'); |
| Redirect($destination); |
Redirect($destination); |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to db.cgi CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / db / prgsrc