I had upgrate RedHat from 7.3 to 8.0
And my application don't work!
Probably it don't find InterBase.pm
Please, Help me! What can I do?
There is some information about the problem.
SHELL
=======================================================
../loginuser.pl
Content-type: text/html
<html>
<head>
<title>Ago</title>
</head>
<body bgcolor="#FFCC66">
<p align="left">
<a href="/cgi-bin/ago/index.pl">
<img border="0" src="/agendalogo.jpg" width="81" height="47" align="left">
</a><br>
<br></p><hr><br>
install_driver(InterBase) failed: Can't locate DBD/InterBase.pm in @INC (@INC
contains: /usr/lib/perl5/5.8.0/i386-linux-thread-multi /usr/lib/perl5/5.8.0
/usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/site_perl/5.8.0
/usr/lib/perl5/site_perl
/usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi
/usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at (eval 4)
line 3.
Perhaps the DBD::InterBase perl module hasn't been fully installed,
or perhaps the capitalisation of 'InterBase' isn't right.
Available drivers: ExampleP, Pg, Proxy, mysql.
at ./loginuser.pl line 18
[root@localhost ago]# <br> nome=<br>password=<br><br>
[root@localhost ago]#
MY PROGRAM:
=====================================================
[root@localhost ago]# cat loginuser.pl
#! /usr/bin/perl
use CGI;
use DBI;
require "./webtools/apparence.pl";
top_page();
$cgi=CGI::new();
$name=$cgi->param("name");
$password=$cgi->param("password");
print ("<br>I tuoi dati sono: <br> nome=$name<br>password=$password<br><br>");
$dbh = DBI->connect("dbi:InterBase:db=$databasefile", $sysdba,
$passworddba,{AutoCommit=>0});
$query='SELECT pw FROM utente WHERE id='.$dbh->quote($name);
$sth = $dbh->prepare($query);
$sth->execute();
@rows=$sth->fetchrow_array();
if ($rows[$#rows] eq $password)
{
#esiste name
pagina_login();
}
else
{
#non esiste name
print("<br><font size=\"+1\"> <b> Login o password non
corrette</b></font><br>");
};
$dbh->commit();
$dbh->disconnect();
end_page();
sub pagina_login
{
print("<br><br> Ben venuto nella tua agenda.");
print("<br><br>AGENDA:<a
href=\"./agenda/index.pl?name=$name&pw=$password\">Gestione delle
attivit?</a><br><br>");
print("RUBRICA:<a href=\"./rubrica/index.pl?name=$name&pw=$password\">Gestione
della Rubrica</a><br><br>");
print("CANTINA:<a href=\"./cantina/index.p?name=$name&pw=$password\">Gestione
delle cose</a><br><br>");
print("ECONOMIA:<a
href=\"./economia/index.pl?name=$name&pw=$password\">Gestione
economia</a><br><br>");
print("GRUPPI:<a href=\"./gruppo/index.pl?name=$name&pw=$password\">Gestione
Gruppi</a><br><br><br>");
}
1
[root@localhost ago]#
OTHER INFORMATIONS:
=========================================
[root@localhost ago]# locate InterBase.pm
/usr/lib/perl5/site_perl/5.6.0/i386-linux/Bundle/DBD/InterBase.pm
/usr/lib/perl5/site_perl/5.6.0/i386-linux/DBD/InterBase.pm
/usr/lib/perl5/site_perl/InterBase.pm
/home/rin/download/interbase_perl/InterBase.pm
/home/rin/download/interbase_perl/DBD-InterBase-0.30/lib/Bundle/DBD/InterBase.pm
/home/rin/download/interbase_perl/DBD-InterBase-0.30/InterBase.pm
/home/rin/download/interbase_perl/DBD-InterBase-0.30/blib/lib/DBD/InterBase.pm
/home/rin/download/interbase_perl/DBD-InterBase-0.30/blib/lib/Bundle/DBD/InterBase.pm
[root@localhost ago]#
