|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : PROext 2:5020/400 26 Dec 2001 17:58:43
To : All
Subject : mod_perl - как?
--------------------------------------------------------------------------------
Вот и я добрался к сабжу... :)
----------- Hачало ---
#!/usr/bin/perl
use DBI;
use CGI qw(:cgi);
my $id = param('id');
my $ip = $ENV{'REMOTE_ADDR'};
open (DATA, ">>hit.log"); print DATA "$id - $ip\n"; close DATA;
my %attr = ( PrintError => 0, RaiseError => 0 );
my $dbh = DBI->connect("DBI:mysql:database=bbb", "aaa", "ccc", \%attr);
my $sth_user = $dbh->prepare("SELECT pos FROM tabl WHERE id = ? LIMIT 1");
$sth_user->execute($id);
my $pos = $sth_user->fetchrow_array();
$dbh->disconnect();
print header(-type=>'image/png',-expires=>now);
open IMG, "$pos.png";
print <IMG>;
close IMG;
----------- Конец ---
Подскажите, плз, как такой скрипт "перевести" под mod_perl?
Буду премного благодарен. :)
---
Best regards, InSAn
http://www.PROext.com
--- ifmail v.2.15dev5
* Origin: MTU-Intel ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
