[Perl TK] Client WhoIs

Un simple cliente whois

Imagen

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

#!usr/bin/perl #Client Whois (C) Doddy Hackman 2011 #ppm install http://www.bribes.org/perl/ppm/Net-Whois-Raw.ppd use Tk; use Tk::ROText; use Net::Whois::Raw; if ($^O eq 'MSWin32') { use Win32::Console; Win32::Console::Free(); } my $new = MainWindow->new(); $new->geometry("390x300+50+50"); $new->title("Client Whois (C) Doddy Hackman 2011"); $new->resizable(0,0); $new->Label(-text=>"Dominio : ",-font=>"Impact2")->place(-x=>"10",-y=>"10"); my $dom = $new->Entry(-width=>"30")->place(-x=>"85",-y=>"13"); my $console = $new->ROText(-width=>36,-height=>15)->place(-x => 15, -y => 50); $new->Button(-text=>"Buscar!",-command=>\&buscar,-width=>"10")->place(-x=>290,-y=>"50"); $new->Button(-text=>"Limpiar",-command=>\&limpiar,-width=>"10")->place(-x=>290,-y=>"80"); $new->Button(-text=>"Salir",-command=>\&salir,-width=>"10")->place(-x=>290,-y=>"110"); MainLoop; sub buscar { $console->delete("0.1","end"); my $target = $dom->get; $new->update; $console->insert("end",whois($target)); $new->update; } sub limpiar { $console->delete("0.1","end"); $dom->delete("0.1","end"); } sub salir { exit 1;} # ¿ The End ?