есть модуль DBI, я где то прочитал что можно его использовать совместно с дровами для интербейса, но как ето сделать нет инфы
Используйте совместно DBI и
DBD::InterBase .
У нас так сделана авторизация. Для этого в httpd.conf указано:
1.
2.
3.
4.
5.
6.
7.
<Directory /home/httpd/test>
AuthName test
AuthType Basic
PerlAuthenHandler TestAuth
<Limit GET POST>
require valid-user
</Limit>
</Directory>
И модуль TestAuth.pm такой:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
package TestAuth;
use Apache::Constants qw(OK AUTH_REQUIRED SERVER_ERROR);
use Database;
use Logger;
use POSIX;
sub handler
{
my $req = shift;
my ($res,$passwd) = $req -> get_basic_auth_pw();
my $user = $req -> connection -> user();
my $date = POSIX::strftime("%c",localtime);
if ( ! $res ) {
$res = SERVER_ERROR;
if ( ! $user ) {
$req->note_basic_auth_failure();
$res = AUTH_REQUIRED;
Logger::std_warn ("TestAuth:User is empty:$user:$passwd:", 2 );
} elsif ( my $cp = $rlda -> prepare(
'select password from users where
login = ?' ) ) {
if ( $cp -> execute( $user ) ) {
my $r = $cp -> fetch();
if ( $r || $DBI::err == 0 ) {
if ( $r && $r -> [ 0 ] &&
( $passwd eq $r -> [ 0 ] ) ) {
$res = OK;
} else {
$req->note_basic_auth_failure();
$res = AUTH_REQUIRED;
Logger::std_warn ("TestAuth:Input:$user:$passwd:", 2 );
if ( $r && $r -> [ 0 ] ) {
Logger::std_warn ("TestAuth:Returned:$user:$r->[ 0 ]:", 2 );
} else {
Logger::std_warn ("TestAuth:Returned:$user:failed", 2 );
}
}
} else {
Logger::std_warn ("Fetch: $DBI::errstr", 1 );
}
} else {
Logger::std_warn ("Execute: $DBI::errstr", 1 );
}
$cp -> finish();
$rlda -> disconnect() if $res != OK;
} else {
Logger::std_warn ("Prepare: $DBI::errstr", 1 );
}
}
$res;
}
1 ;
Модуль Database экспортирует переменную $rlda - объект класса DBI.
