|
LibWeb::Database - A generic database driver for libweb applications |
LibWeb::Database - A generic database driver for libweb applications
use LibWeb::Database; my $db = new LibWeb::Database();
my ($sql, $user, $host, $fetch, $result);
$sql = "select USER_NAME, USER_HOST ".
"from USER_TABLE ".
"where USER_LOGIN_STATUS = ".
"LOGIN_INDICATOR";
$fetch = $db->query(
-sql => $sql,
-bind_cols => [\$user, \$host]
);
while ( &$fetch ) {
$result .= "$user $host <BR>\n";
}
$db->done();
print "Content-Type: text/html\n\n"; print "<P> The following users have logged in: $result";
As long as you have the proper DBD installed for your database, you can use this class to interact with your database in your LibWeb applications.
The current version of LibWeb::Database is available at
http://libweb.sourceforge.net
Several LibWeb applications (LEAPs) have be written, released and are available at
http://leaps.sourceforge.net
Variables in all-caps (e.g. USER_TABLE) are those variables set through LibWeb's rc file. Please read the LibWeb::Core manpage for more information. Method's parameters in square brackets means optional.
do()
Params:
-sql =>
Pre:
-sql is a valid sql statement.
Post:
-sql.
query()
Params:
-sql=>, -bind_cols=> [, -want_hash=> ]
Pre:
-sql is the sql statement to perform the query,
-bind_cols is an ARRAY reference to SCALAR references to fields to
be bound in the table specified in -sql,
-want_hash indicates whether the returning function (a reference)
is a reference to DBI's fetchrow_hashref() or fetchrow_arrayref().
Post:
-sql. A
reference to DBI's fetchrow_arrayref() is returned if -want_hash is
not defined; otherwise a reference to DBI's fetchrow_hashref() is
returned.
finish()
Finish a statement execution.
disconnect()
Disconnect the current database session.
done()
Finish a statement execution and disconnect the current database session.
the DBI manpage, the LibWeb::Core manpage.
|
LibWeb::Database - A generic database driver for libweb applications |