[HELP] Glade e Perl

[acpguedes]

Monges... gostaria de uma rápida ajudinha....
estou com um programa quase terminado...

só gostaria de uma ajuda para corrigir os erros da parte gráfica, pois devido esse(s) erro(s) o programa não roda pela interface!

adminfinder.pl

#!/usr/bin/perl 
 
################################### 
#        Visual Admin Finder          # 
#            acpguedes              # 
#        guedes_1000@hotmail.com   # 
#            Forum Invaders          # 
#        www.forum-invaders.com.br # 
################################### 
use HTTP::Request; 
use Gtk2 -init; 
use Gtk2::GladeXML ; 
use LWP::UserAgent; 
use common::sense; 
 
my ($programa, $janela, $site, $code, $etiqueta, $entrada1, $entrada2, $b1, $b2); 
 
$programa = Gtk2::GladeXML->new('adminfinder.glade'); 
$janela = $programa->get_widget('window1'); 
$etiqueta = $programa->get_widget('etiqueta');  
 
$entrada1 = $programa->get_widget('entry1'); 
$entrada2 = $programa->get_widget('entry2'); 
$programa->signal_autoconnect_from_package('main'); 
$janela->show_all(); 
Gtk2->main; 
 
$b2 = $programa->get_widget('button2'); 
$b2->signal_connect(clicked => \&salir); 
sub salir {Gtk2->main_quit;} 
 
$b2 = $programa->get_widget('button1'); 
$b2->signal_connect(clicked => \&salir); 
sub salir { 
$site = $entrada2; 
$code = $entrada1; 
} 
 
if ( $site !~ /^http:/ ) { 
 
$site = 'http://' . $site; 
 
} 
 
if ( $site !~ /\/$/ ) { 
 
$site = $site . '/'; 
 
} 
 
 
 
if($code eq "asp"){ 
 
open IN, 'aps.txt' or die "arquivo invalido ou não existe\n"; 
 
my @path1 = <IN>; 
 
close IN; 
my $ways; 
foreach $ways(@path1){ 
 
 
 
my $final=$site.$ways; 
 
 
 
my $req=HTTP::Request->new(GET=>$final); 
 
my $ua=LWP::UserAgent->new(); 
 
$ua->timeout(30); 
 
my $response=$ua->request($req); 
 
 
 
if($response->content =~ /Username/ || 
 
$response->content =~ /Password/ || 
$response->content =~ /username/ || 
$response->content =~ /password/ || 
$response->content =~ /USERNAME/ || 
$response->content =~ /PASSWORD/ || 
$response->content =~ /Senha/ || 
$response->content =~ /senha/ || 
$response->content =~ /Personal/ || 
$response->content =~ /Usuario/ || 
$response->content =~ /Clave/ || 
$response->content =~ /Usager/ || 
$response->content =~ /usager/ || 
$response->content =~ /Sing/ || 
$response->content =~ /passe/ || 
$response->content =~ /P\/W/ || 
$response->content =~ /Admin Password/ 
 
){ 
open OUT,"+>". 'adminpages.txt' or die ; 
print OUT " \n [+] Found -> $final\n\n"; 
$etiqueta->set_markup("$final"); 
 
}else{ 
 
print "[-] Not Found <- $final\n"; 
 
} 
 
} 
 
} 
 
 
 
if($code eq "php"){ 
 
open IN, 'php.txt' or die "arquivo invalido ou não existe\n"; 
my @path2 = <IN>; 
close IN; 
my $ways; 
foreach $ways(@path2){ 
 
my $final2=$site.$ways; 
 
my $req=HTTP::Request->new(GET=>$final2); 
my $ua=LWP::UserAgent->new(); 
$ua->timeout(30); 
my $response=$ua->request($req); 
 
if($response->content =~ /Username/ || 
$response->content =~ /Password/ || 
$response->content =~ /username/ || 
$response->content =~ /password/ || 
$response->content =~ /USERNAME/ || 
$response->content =~ /PASSWORD/ || 
$response->content =~ /Senha/ || 
$response->content =~ /senha/ || 
$response->content =~ /Personal/ || 
$response->content =~ /Usuario/ || 
$response->content =~ /Clave/ || 
$response->content =~ /Usager/ || 
$response->content =~ /usager/ || 
$response->content =~ /Sing/ || 
$response->content =~ /passe/ || 
$response->content =~ /P\/W/ || 
$response->content =~ /Admin Password/ 
 
){ 
open OUT,">". 'adminpagesphp.txt' or die ; 
print OUT " \n [+] Found -> $final2\n\n"; 
$etiqueta->set_markup("$final2"); 
}else{ 
 
print "[-] Not Found <- $final2\n"; 
 
} 
 
} 
 
} 

arquivo Glade

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!DOCTYPE glade-interface SYSTEM "glade-2.0.dtd">
<!--Generated with glade3 3.4.3 on Sun Jan 15 16:42:46 2012 -->
<glade-interface>
  <widget class="GtkWindow" id="window1">
    <child>
      <widget class="GtkVBox" id="vbox1">
        <property name="visible">True</property>
        <child>
          <widget class="GtkLabel" id="label1">
            <property name="visible">True</property>
            <property name="label" translatable="yes">AdminFinder</property>
          </widget>
        </child>
        <child>
          <widget class="GtkLabel" id="label2">
            <property name="visible">True</property>
            <property name="label" translatable="yes">Insira a URL</property>
          </widget>
          <packing>
            <property name="position">1</property>
          </packing>
        </child>
        <child>
          <widget class="GtkEntry" id="entry1">
            <property name="visible">True</property>
            <property name="can_focus">True</property>
          </widget>
          <packing>
            <property name="position">2</property>
          </packing>
        </child>
        <child>
          <widget class="GtkLabel" id="label3">
            <property name="visible">True</property>
            <property name="label" translatable="yes">Protocolo APS ou PHP</property>
          </widget>
          <packing>
            <property name="position">3</property>
          </packing>
        </child>
        <child>
          <widget class="GtkEntry" id="entry2">
            <property name="visible">True</property>
            <property name="can_focus">True</property>
          </widget>
          <packing>
            <property name="position">4</property>
          </packing>
        </child>
        <child>
          <widget class="GtkVBox" id="vbox2">
            <property name="visible">True</property>
            <child>
              <widget class="GtkHBox" id="hbox1">
                <property name="visible">True</property>
                <child>
                  <widget class="GtkButton" id="button1">
                    <property name="visible">True</property>
                    <property name="can_focus">True</property>
                    <property name="receives_default">True</property>
                    <property name="label" translatable="yes">Gerar</property>
                    <property name="response_id">0</property>
                  </widget>
                </child>
                <child>
                  <widget class="GtkButton" id="button2">
                    <property name="visible">True</property>
                    <property name="can_focus">True</property>
                    <property name="receives_default">True</property>
                    <property name="label" translatable="yes">Fechar</property>
                    <property name="response_id">0</property>
                  </widget>
                  <packing>
                    <property name="position">1</property>
                  </packing>
                </child>
              </widget>
            </child>
            <child>
              <widget class="GtkFixed" id="fixed1">
                <property name="visible">True</property>
              </widget>
              <packing>
                <property name="position">1</property>
              </packing>
            </child>
          </widget>
          <packing>
            <property name="position">5</property>
          </packing>
        </child>
      </widget>
    </child>
  </widget>
</glade-interface>

quando completo eu posto aqui os arquivos com os possiveis sites

mais um probleminha, a seguinte msg volta repetida 4 vezes... e nada que faço resolve!

Gtk-WARNING **: Não foi possível localizar a ferramenta de temas no module_path: "pixmap", at /usr/local/lib/perl/5.12.4/Gtk2.pm line 138. 

Aguardo a ajuda....

Abraços

[acpguedes]

Correção....

$b2 = $programa->get_widget('button2'); 
$b2->signal_connect(clicked => \&sair); 
sub sair {Gtk2->main_quit;} 
 
$b1 = $programa->get_widget('button1'); 
$b1->signal_connect(clicked => \&gerar); 
sub gerar { 
$site = $entrada2; 
$code = $entrada1; 
} 

mesmo assim ainda não funfo!!!

[acpguedes]

Resolvido, para estudos clikem aqui

ou aqui

[eduardu0]

Tópico resolvido pelo próprio autor.

Fechado!