Acta II - Biblioteca - Acórdãos do STF

#!/usr/bin/perl /usr/bin/asp-perl <%@ LANGUAGE = PerlScript %> <% $Response->{Expires}= 0; %> Acta II - Biblioteca - Acórdãos do STF <% ## #### inicializacoes ## use acta; use aaASP; use actaSiteSearcher; my @mensagens; sub erro { my ($msg) = @_; $mensagens[$#mensagens+1] = "ERRO: $msg"; } my $di = "/u/www/acta2/biblioteca/acordaos.stf/"; my $ho = "http://www.acta-diurna.com.br/biblioteca/acordaos.stf/"; ## #### recolhimento dos campos ## my $txt = recuperaCampo($Request->Form("txt_pesquisa")); my $txto = $txt; my $rPesq; if ( $txt ) { my @w = split( /\s/, $txt ); $txt = ""; foreach my $x ( @w ) { $txt .= ",\'$x\'" if length($x)>3 and !ehConector($x); } eval "\$rPesq = buscaSite( \'$di\' $txt )"; } %>

Biblioteca	.....	......	.....	.....
Acórdãos do STF

Acórdãos do Supremo Tribunal Federal - STF

Pesquisa
se desejar uma relação de acórdãos que contenham palavras específicas, digite-as ao lado

A pesquisa pode demorar!! Tenha paciência, por favor.

<% ## #### se pesquisou, exibe resultados ## if ( $rPesq ) { %> <% foreach ( sort { $b cmp $a } keys %$rPesq ) { my $x = $_; my ($t, $u, $p ) = split(/\|/,$x); $u =~ s/$di/$ho/g; my @u = split( /\//, $u ); my $ut = $u[$#u]; %> <% } %>

Página	Encontradas
. <%= $ut %>	<%= $p %>

<% } %>