#!/bin/perl
#!/usr/bin/perl
#!/usr/local/bin/perl

##
############################################
##
##   Prokura! Brasil: Informações
##
##   Copyright© 1998-2000 by Juliano Primavesi
##
##   VERSAO 2.0
##
############################################
##

    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    @pairs = split(/&/, $buffer);
    foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        if ($in{$name}) { $in{$name} = $in{$name}.",".$value; }
        else { $in{$name} = $value; }
    }

    require "../../data/lib/busca.cfg";
    require "$db_lib_path/tempo.pl";
    require "$db_lib_path/db_utils.pl";
    require "$db_lib_path/site_html_templates.pl";

##
############################################
##
##   INICIO
##
############################################
##

	print "Content-type: text/html\n\n";
	if ($ENV{'QUERY_STRING'} =~ /imprensa/i)  { &informacoes_imprensa; }
	elsif ($ENV{'QUERY_STRING'} eq "sobre")   { &informacoes_sobre; }
	elsif ($ENV{'QUERY_STRING'} eq "busca")   { &informacoes_busca; }
	elsif ($ENV{'QUERY_STRING'} eq "midia")   { &informacoes_midia; }
	elsif ($ENV{'QUERY_STRING'} eq "inicial") { &informacoes_inicial; }
	elsif ($ENV{'QUERY_STRING'} eq "tarifas") { &informacoes_tarifas; }
	elsif ($ENV{'QUERY_STRING'} eq "ranking") { &informacoes_ranking; }
	else { &informacoes_principal; }
	exit;

##
############################################
##
##   PRINCIPAL
##
############################################
##

print "Content-type: text/html\n\n";

sub informacoes_inicial {

	print &load_template ('informacoes_inicial.html', {
		banner => &gera_banner("Info"),
		barra => $barra_header,
		%globals
    });

}

sub informacoes_busca {

	print &load_template ('informacoes_busca.html', {
		barra => $barra_header,
		banner => &gera_banner("Info"),

		%globals
    });

}

sub informacoes_sobre {


	print &load_template ('informacoes_sobre.html', {
		barra => $barra_header,
		banner => &gera_banner("Info"),

		%globals
    });

}

sub informacoes_imprensa {

    if (-e "$db_template_path/informacoes_imprensa.$in{'imprensa'}.html") {

		print &load_template ("informacoes_imprensa.$in{'imprensa'}.html", {
		barra => $barra_header,
		banner => &gera_banner("Info"),

			%globals
	    });

    } else {

#    print "IMPRENSA: $in{'imprensa'}";

#		print &load_template ('informacoes_imprensa.html', {
#	$barra => $barra_header,
#			%globals
#		});

    }

}

sub informacoes_principal {

	print &load_template ('informacoes.html', {
		barra => $barra_header,
		banner => &gera_banner("Info"),

		%globals
    });

}

sub informacoes_tarifas {

	print &load_template ('informacoes_tarifas.html', {
		banner => &gera_banner("Info"),

		barra => $barra_header,

		%globals
    });

}

sub informacoes_midia {

	print &load_template ('informacoes_midia.html', {
		banner => &gera_banner("Info"),

		barra => $barra_header,

		%globals
    });

}

sub informacoes_ranking {

	use Mysql;
	$dbh = Mysql->connect("teta.8x.com.br","gigabusca","gigabusca",'acsubagig');
	$sth = $dbh->query("SELECT SUM(conta) total FROM stats WHERE data = DATE_SUB(NOW(),INTERVAL 1 day) AND (local='gigabusca-jota' or local='gigabusca-lambda' or local='gigabusca-teta')");
	my(%fields)=$sth->fetchhash;
	$Total = $fields{'total'};

	$ranking .= qq~
	<TABLE WIDTH=800><TR><td width=400 valign=top><FONT FACE=verdana SIZE=2>~;
	
	$videos .= qq~
	</td><td width=400 valign=top><FONT FACE=verdana SIZE=2>
	~;

	$sth = $dbh->query("SELECT SUM(conta) total FROM stats WHERE data = NOW() AND (local='gigabusca-jota' or local='gigabusca-lambda' or local='gigabusca-teta')");
	my(%fields)=$sth->fetchhash;
	$Previsao = $fields{'total'};

	$Previsao = int($Previsao * 1440 / ($hora * 60 + $minuto));

	$sth = $dbh->query("SELECT busca, SUM(conta) total FROM stats WHERE data = DATE_SUB(NOW(),INTERVAL 1 day) AND (local='gigabusca-jota' or local='gigabusca-lambda' or local='gigabusca-teta') AND LENGTH(busca) > 3 GROUP BY busca ORDER BY total DESC LIMIT 500");
	while(my(%fields)=$sth->fetchhash){
		$Conta++;
		$Url = $fields{'busca'};
		$Url =~ s/ /\+/isg;
		$ranking .= "<FONT SIZE=4>$Contaº</FONT> <A HREF=http://br2.gigabusca.com.br/buscar.php?q=$Url TARGET=_blank><B>$fields{'busca'}</B></A> » $fields{'total'} buscas<BR>\n";
	}
	$Conta = 0;

#	$sth = $dbh->query("SELECT busca, SUM(conta) total FROM stats WHERE data = DATE_SUB(NOW(),INTERVAL 1 day) AND local='videos' AND LENGTH(busca) > 3 GROUP BY busca ORDER BY total DESC LIMIT 500");
	$sth = $dbh->query("SELECT busca, SUM(conta) total FROM stats WHERE data = NOW() AND local='videos' AND LENGTH(busca) > 3 GROUP BY busca ORDER BY total DESC LIMIT 500");
	while(my(%fields)=$sth->fetchhash){
		$Conta++;
		$Url = $fields{'busca'};
		$Url =~ s/ /\+/isg;
		$videos .= "<FONT SIZE=4>$Contaº</FONT> <A HREF=http://videos.gigabusca.com.br/index.php?q=$Url TARGET=_blank><B>$fields{'busca'}</B></A> » $fields{'total'} buscas<BR>\n";
	}

	$videos .= qq~</TABLE><BR><FONT FACE=verdana SIZE=2>Total de buscas ontem: <B>$Total<br>
	</B>Previsão para hoje: <B>$Previsao</B><BR>~;

	print &load_template ('informacoes_ranking.html', {
		banner => &gera_banner("Info"),
		ranking => $ranking,
		videos => $videos,
		data => "$dia/$mes/$ano",
		barra => $barra_header,
		%globals
    });

}