Subversion Repositories VORC

#!/usr/bin/perl

use strict;

use cPanelUserConfig;

use DBI;

use WebDB;

my $host_name = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "localhost" : "192.168.1.5";

$ENV{HOME} = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco" : "/tmp";

my $dbh = WebDB::connect ("vorc", "OG");

my $table = shift // "";

my @tables;

push @tables, $table ? $table : map { @{$_} } @{$dbh->selectall_arrayref ("show tables")};

print "Creating database structure documentation:\n";

foreach my $table (@tables) {

  my $filename = "db/".$table.".sql";

  open(FH, '>', $filename);

  my $object_type = ($table =~ /^v_/) ? "View" : "Table";

  print "  ...for $object_type $table in file $filename.\n";

  print FH "## $object_type: $table\n#\n";

  foreach my $line (`/usr/bin/mysql --defaults-file=$ENV{HOME}/.my.cnf rollerco_vorc -h $host_name -t -e "describe $table"`) {

    print FH "# ".$line;

  }

  print FH "\n";

  my ($name, $structure, $charset, $colation) = $dbh->selectrow_array ("show create ".lc ($object_type)." ".$table);

  if ($object_type eq "View") {

    $structure =~ s/^CREATE .+? VIEW/CREATE OR REPLACE VIEW/;

  } else {

    $structure =~ s/AUTO_INCREMENT=\d+/AUTO_INCREMENT=0/;

  }

  print FH $structure."\n";

  close (FH);

}

print "fin.\n";