Nueva version Tk de un Mysql manager que hice hace tiempo.
#!usr/bin/perl
#Mysql Manager 0.6
#Version Tk
#Coded By Doddy H
#Modules
#ppm install http://www.bribes.org/perl/ppm/Scalar-List-Utils.ppd
#ppm install http://www.bribes.org/perl/ppm/Storable.ppd
#ppm install http://www.bribes.org/perl/ppm/DBI.ppd
#ppm install http://theoryx5.uwinnipeg.ca/ppms/DBD-mysql.ppd
use Tk;
use Tk::ROText;
use Tk::PNG;
use DBI;
if ( $^O eq 'MSWin32' ) {
use Win32::Console;
Win32::Console::Free();
}
my $color_fondo = "black";
my $color_texto = "orange";
my $nave =
MainWindow->new( -background => $color_fondo, -foreground => $color_texto );
$nave->title("Mysql Manager 0.6 || Coded By Doddy H");
$nave->geometry("210x160+20+20");
$nave->resizable( 0, 0 );
$nave->Label(
-text => "Host : ",
-font => "Impact1",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 10, -y => 10 );
my $host = $nave->Entry(
-width => 22,
-text => "localhost",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 60, -y => 13 );
$nave->Label(
-text => "User : ",
-font => "Impact1",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 10, -y => 40 );
my $user = $nave->Entry(
-width => 22,
-text => "root",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 60, -y => 43 );
$nave->Label(
-text => "Pass : ",
-font => "Impact1",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 10, -y => 70 );
my $pass = $nave->Entry(
-width => 22,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 60, -y => 73 );
$nave->Button(
-text => "Connect",
-width => 13,
-command => \&now,
-background => $color_fondo,
-foreground => $color_texto,
-activebackground => "orange"
)->place( -x => 60, -y => 120 );
MainLoop;
sub now {
my $host = $host->get;
my $user = $user->get;
my $pass = $pass->get;
$info = "dbi:mysql::" . $host . ":3306";
if ( my $enter = DBI->connect( $info, $user, $pass, { PrintError => 0 } ) )
{
$nave->destroy;
my $man = MainWindow->new(
-background => $color_fondo,
-foreground => $color_texto
);
$man->title("Mysql Manager 0.6 || Coded By Doddy H");
$man->geometry("650x320+20+20");
$man->resizable( 0, 0 );
$man->Label(
-text => "Query : ",
-font => "Impact1",
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 73, -y => 20 );
my $ac = $man->Entry(
-width => 60,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 135, -y => 23 );
$man->Button(
-width => 8,
-text => "Execute",
-command => \&tes,
-background => $color_fondo,
-foreground => $color_texto,
-activebackground => "orange"
)->place( -x => 510, -y => 23 );
my $out = $man->Scrolled(
"ROText",
-width => 74,
-height => 15,
-background => $color_fondo,
-foreground => $color_texto
)->place( -x => 60, -y => 73 );
$man->bind( "<Key-Return>" => sub { &tes } );
sub tes {
my $ac = $ac->get;
$re = $enter->prepare($ac);
$re->execute();
my $total = $re->rows();
my @columnas = @{ $re->{NAME} };
if ( $total eq "-1" ) {
$out->insert( "end", "\n[-] Query Error\n" );
next;
}
else {
$out->insert( "end", "\n[+] Result of the query\n" );
if ( $total eq 0 ) {
$out->insert( "end", "\n[+] Not rows returned\n\n" );
}
else {
$out->insert( "end",
"\n[+] Rows returned : " . $total . "\n\n" );
for (@columnas) {
$out->insert( "end", $_ . "\t" );
}
$out->insert( "end", "\n\n" );
while ( @row = $re->fetchrow_array ) {
for (@row) {
$out->insert( "end", $_ . "\t" );
}
$out->insert( "end", "\n" );
}
}
}
}
}
else {
$man->Dialog(
-title => "Error",
-buttons => ["OK"],
-text => "Error",
-background => $color_fondo,
-foreground => $color_texto,
-activebackground => $color_texto
)->Show();
}
}
# ¿ The End ?
