desktop results from the CPAN

desktop
DBIx-HTMLTable
view release on metacpan or search on metacpan
#!/usr/local/bin/perl -w

use DBI;
use CGI;
use DBIx::HTMLTable;

# Some variable declarations
my ($table, $row, $rowsaffected, $i, $sth);

# HTML tags
my $hrule = "<p><hr><p>\n";

# Create a new query object
my $q = new CGI;

# Retrieve the parameters from the query form
my $user = $q -> param('username');
my $password = $q -> param('password');
my $db = $q -> param('dbname');
my $query = $q -> param('query');

# Connect to the database specified by the user.
my $dbh = DBI -> connect ("DBI:mysql:database=$db;host=desktop;", 
	$user, $password );

# Print the HTML header;
print $q -> header;
print $q -> start_html( "Database: $db" );
print "<body bgcolor=\"#FFFFFF\" TEXT=\"#000000\">\n";

# Prepare and execute the user's query.
if ($query !~ /^\s+$/sm) { 

    $sth = $dbh -> prepare ($query);
    $rowsaffected = $sth -> execute;

    # Retrieve and format the output.
    my $headings = $sth -> {NAME};
    push @{$table}, [@$headings];
    for ($i = 1; ; $i++) {
       @row = $sth -> fetchrow_array;
       last if @row == 0;
       push @{$table}, [@row];
    }

    print "<h1>$query</h1>\n";
    &DBIx::HTMLTable::HTMLTableByRef ($table, {border=>'2'});
    print "Rows: $rowsaffected\n";

} else { # Show the contents of all tables

    $sth = $dbh -> prepare( 'show tables' );
    $sth -> execute;

    $colnames = $sth -> {'NAME'};
    $tablenames = $sth -> fetchall_arrayref();
    unshift @{$tablenames}, $colnames;
    print "<h4>Tables in <tt>$db</tt></h4>\n";

    &DBIx::HTMLTable::HTMLTableByRef ($tablenames,
				      {border => '2'});

    &DBIx::HTMLTable::HTMLTable ( $data, {border => '2'} );

    print $hrule;

    foreach $t (@{$tablenames}) {
	next if ${$t}[0] =~ /Tables_in/;
        print "<h4>Table <tt>${$t}[0]</tt></h4>\n";
        $sth = $dbh -> prepare( "SELECT \* from ${$t}[0]" );
        $sth -> execute;
        $colnames = $sth -> {'NAME'};
        $tablenames = $sth -> fetchall_arrayref();
        $data = $dbh -> selectall_arrayref( "select \* from ${$t}[0]" );
        unshift @{$data}, $colnames;
    
    &DBIx::HTMLTable::HTMLTableByRef ($data, {border=>'2'});
    print "<p><i>".
	$sth -> rows." rows of ".
	    $sth -> {NUM_OF_FIELDS}.
		" fields returned.</i><br>";
    print $hrule;
   }
( run in 0.648 second using v1.01-cache-2.11-cpan-e1769b4cff6 )