7 require "src/logger.pl";
8 require "src/modules.pl";
10 require "src/Files.pl";
11 $bot_src_dir = "./src/";
14 if ( !defined $dbname ) {
15 print "Usage: $0 <db name>\n";
16 print "Example: $0 factoids\n";
21 &loadConfig("files/infobot.config");
24 &openDB( $param{'DBName'}, $param{'SQLUser'}, $param{'SQLPass'} );
26 # retrieve a list of db's from the server.
28 foreach ( $dbh->func('_ListTables') ) {
33 if ( !exists $db{$dbname} ) {
34 print "error: $dbname does not exist as a table.\n";
38 my $query = "SELECT factoid_key,factoid_value from $param{'DBName'}.$dbname";
39 my $sth = $dbh->prepare($query);
41 while ( my @row = $sth->fetchrow_array ) {
42 print "$row[0] => $row[1]\n";
49 # vim:ts=4:sw=4:expandtab:tw=80