[Cascavel-pm] Problemas com o tie ...

[Lorn]

Descobri qual era o erro, se eu contar vcs vao querer me esmurrar :P
tie (%h, 'DB_File', "$db_fn", $db_mode) or die "cant create DB $db_fn";

#$sth = $dbh->prepare("select t1.host, t2.domain, t3.host, t4.domain
from tbvirtualhosts as t1, tbdomains as t2, tbvirtualhosts as t3,
tbdomains as t4  where t1.domain_id = t2.id and t3.vhostid =
t1.reference_vhost and t4.id = t3.domain_id" . $timeconstrain);

#print %h;
$sth = $dbh->prepare("select login from tb_user_users" );

$sth->execute or &FatalError("cant query SQL");

while (($host) = $sth->fetchrow_array)
{
        &Debug("[FETCH] $host, $domain",3) ;

        $fqdn = "www.$host.$domain";
        printf "$fqdn\n";

        $h{$fqdn} = "$fqdn" ;  ## Nao tinha essa linha, logo não
estava indo nada pro banco
        &Debug("[DB] $fqdn",3) ;

}

$sth->finish;

untie %h;

valeu pessoal e desculpe a enxecao de saco.



On 5/5/05, Marco Lima <marco.lima em e-via.com.br> wrote:
> > Não tenho a menor idéia do que você chama de
> > "criptografado", mas não acho que esteja dessa forma.
> > Veja a documentação do módulo no
> > http://search.cpan.org para saber mais do formato
> > utilizado. Você tentar usar o comando "file"
> > disponível em qualquer Linux para tentar descobrir o
> > formato tb.
> 
> DBM file !
> 
> [  ]'s
> 
> Marco Lima
> J. A. P. H.
> 
> marco.lima em e-via.com.br
> mago em rio.pm.org
> 
> +55 19 96 56 06 46
> 
> Sociedade Perl do Brasil   |   http://www.perl.org.br
> Perl Monks                 |   http://www.perlmonks.org
> Brasil Perl Mongers        |   http://brasil.pm.org
> 
> Register Linux User #355235
> Slackware Linux, for the subgenius
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
> 


-- 
Lorn 
- Slackware Linux
www.slackwarezine.com.br