scripts/mysql2txt.pl

   1 #!/usr/bin/perl
   2 # mysql -> txt.
   3 # written by the xk.
   4 ###
   5
   6 require "src/core.pl";
   7 require "src/logger.pl";
   8 require "src/modules.pl";
   9 require "src/Misc.pl";
  10 require "src/Files.pl";
  11 $bot_src_dir = "./src/";
  12
  13 my $dbname = shift;
  14 if ( !defined $dbname ) {
  15     print "Usage: $0 <db name>\n";
  16     print "Example: $0 factoids\n";
  17     exit 0;
  18 }
  19
  20 # open the db.
  21 &loadConfig("files/infobot.config");
  22 &loadDBModules();
  23
  24 &openDB( $param{'DBName'}, $param{'SQLUser'}, $param{'SQLPass'} );
  25
  26 # retrieve a list of db's from the server.
  27 my %db;
  28 foreach ( $dbh->func('_ListTables') ) {
  29     $db{$_} = 1;
  30 }
  31
  32 # factoid db.
  33 if ( !exists $db{$dbname} ) {
  34     print "error: $dbname does not exist as a table.\n";
  35     exit 1;
  36 }
  37
  38 my $query = "SELECT factoid_key,factoid_value from $param{'DBName'}.$dbname";
  39 my $sth   = $dbh->prepare($query);
  40 $sth->execute;
  41 while ( my @row = $sth->fetchrow_array ) {
  42     print "$row[0] => $row[1]\n";
  43 }
  44 $sth->finish;
  45
  46 print "Done.\n";
  47 &closeDB();
  48
  49 # vim:ts=4:sw=4:expandtab:tw=80