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/blootbot.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();