Hi all
I have a problem with a perl script using DBI.
I have installed:
Solaris 2.6 in a sun4 sparc
Perl 5.005_03 built for sun4-solaris
DBI 1.14
DBD-Oracle 1.06
Oracle 8
Netscape web server
Perl
If I execute this script in a shell , it works but in web browser doesn't
work
The web server error is:
at (eval 1) line 3 Perhaps a required shared library or dll isn't installed
where expected at /opt/jiat/jiat/cgi-bin/perlcgi line 23 Content-type:
text/html
this is the source code:
#!/usr/local/bin/perl
# Preparamos el modulo de conexion a base de datos
use DBI;
# Definicion de las variables de conexion de la DB
my $base_datos="db_name"; # Nombre de la base de datos
my $usuario="usuario"; # Usuario de la BD
my $clave="password"; # Passwd de la BD
my $driver="Oracle"; # Usamos el driver de oracle
my $tabla_usuarios = "bv_user"; # Nombre de la tabla que vamos
a consultar
my $sql_consulta = "select user_alias from bv_user"; # Creamos la sentencia
SQL
# Escribimos la cabecera de la pagina HTML
print "Content-type: text/html\n\n";
escribe_inicio_html();
# Conectamos con la BD
my $dbh = DBI->connect("dbi:$driver:$base_datos",$usuario,$clave) || die
"\nError al abrir la base de datos: $DBI::er
rstr\n";
#Realizamos la etapa de preparaci�n de la sentencia
my $sth = $dbh->prepare($sql_consulta);
#Realizamos la etapa de ejecuci�n de la sentencia
$sth->execute();
# Mostramos los usuarios via Web
while ( $users=$sth->fetchrow_array())
{
muestra_usuario($users);
}
#Liberacion de recursos ocpupados por la sentencia
$sth->finish();
#Desconexion de la BD, mostramos mensaje si algo falla
$dbh->disconnect || warn "\nError al desconectar.\nError: $DBI::errstr\n";
escribe_final_html();
exit;
# ************************* FUNCIONES ********************************
# * En esta funcion muestra el usuario que se le pasa como parametro *
# * el formato es muestra_usuario($users); *
sub muestra_usuario()
{
my ($users)=@_;
print <<usuario_HTML;
<TR>
<strong>
<TD rowspan=2 valign=middle bgcolor="#008caa"><font color="#DDDDDD"
face="sans-serif size=+2">$users</font></TD>
</strong>
</TD></TR>
<!-- Linea en blanco-->
<TR><TD colspan=3 valign=middle bgcolor="#FFFFFF"></TD></TR>
usuario_HTML
}
# *************************************************************
# * En esta funcion escribimos el principio de la pagina HTML *
sub escribe_inicio_html()
{
print <<inicio_HTML;
<html>
<HEAD>
<TITLE>Listar art�culos (CGI)</TITLE>
</HEAD>
<BODY bgcolor=#FFFFFF>
<TABLE border=0 cellpadding=0 cellspacing=0 width=100%>
<TD valign=middle width="100%" bgcolor="#007b99">
<font color="#DDDDDD" face="sans-serif">
<strong>
<h1 align=center style='text-align:center'>LISTAR
USUARIOS (CGI)</h1>
</strong>
</font>
</TD>
</TABLE>
<hr>
<br>
<TABLE border=1 cellpadding=0 cellspacing=0 width=100%>
<TR>
<font color="#AAAAAA" face="sans-serif"><strong>
<TH valign=middle bgcolor="#008caa">Usuario</TH>
</strong></font>
</TR>
inicio_HTML
}
# *******************************************************
# * En esta funcion escribimos el fin de la pagina HTML *
sub escribe_final_html()
{
print <<fin_HTML;
</TABLE>
</BODY>
</HTML>
fin_HTML
}
at (eval 1) line 3 Perhaps a required shared library or dll isn't installed
where expected at /opt/jiat/jiat/cgi-bin/perlcgi line 23 Content-type:
text/html
----------
Antonio Hern�ndez
Development Executive, IT Systems
RUMBO
C/Procion, 1-3 - 28023 - Madrid - Spain
Tlf.: (34)913.076.689 (EXT. 31038)
Fax: (34)913.728.550
<mailto:[EMAIL PROTECTED]> [EMAIL PROTECTED]
<http://www.rumbo.es/> http://www.rumbo.es
