#!/usr/bin/perl -w

use DBI();

$DATABASE = "marden_pandora";
$HOST = "localhost";
$USUARIO = "pandora";
$SENHA = "wpblogmrd";
$TABELA = "mao_bookmark";
$TEMPLATEFILE = "/var/www/vhosts/matutofeio.com.br/httpdocs/pandora/template/template.htm";
$SCRIPT = "bookmark.pl";

$TEXTTITLE = "Bookmark";
$TEXTFIND = "Busca";
$TEXTNEW = "Novidades";
$TEXTSUBTITLE = "Bookmark";

$TISITE = "matutofeio";
$CHSITE = "Bookmark";

$TEXTFINDNULL = "Registro não encontrado.";

##################################
## Ler GET #######################

$get=$ENV{"QUERY_STRING"};

@pares = split(/&/,$get);

for ($i=0;$i<=$#pares;$i++) {

    ($chave,$valor) = split(/=/,$pares[$i]);
    $valor =~ tr/+/ /;
    $valor =~ s/%(..)/pack("c",hex($1))/ge;
    $valor =~ s/'/''/gi;
    $input{$chave} = $valor;

}

##################################
## Imprime Titulo ################

my $dbh = DBI->connect("DBI:mysql:database=$DATABASE;host=$HOST","$USUARIO", "$SENHA",{'RaiseError' => 1});

if ( ($input{'categoria'} ne "") && ($input{'find'} eq "") ) {

   $TICATEGORIA = "$input{'categoria'}";
   $sth = $dbh->prepare("SELECT * FROM $TABELA WHERE categoria = '$input{'categoria'}' AND publico LIKE '1'");
   $sth->execute();

} elsif ($input{'find'} eq "") {

	   $TICATEGORIA = "$TEXTNEW";
       $sth = $dbh->prepare("SELECT * FROM $TABELA WHERE publico LIKE '1' ORDER by id DESC LIMIT 7");
       $sth->execute();

} else {

       $TICATEGORIA = "<a href=\"$SCRIPT\">$TEXTFIND</a>";
       $sth = $dbh->prepare("SELECT * FROM $TABELA WHERE titulo LIKE '%".$input{'find'}."%' AND publico LIKE '1' ORDER by datahora DESC LIMIT 7");
       $sth->execute();
} 


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


open (ARQUIVO, $TEMPLATEFILE);

while (<ARQUIVO>) {

  s/maoTISITE/$TISITE/;
  s/<a href=\"$SCRIPT\">$TEXTTITLE<\/a>/<span class=\"menu01\">$TEXTTITLE<\/span>/;
  s/maoCHSITE/$CHSITE/;
  s/maoSCRIPT/$SCRIPT/;

  if (/maoCATEGORIA/) {

     print "<div class=\"post\"><h2 id=\"post-30\">$TICATEGORIA</h2></div>\n";

     while (@LINHA = $sth->fetchrow_array) {

       print "<div class=\"post\">";
		
       if ($input{'categoria'} eq "") {print "<strong>$LINHA[3]</strong>";}
#       print "<a href=\"$LINHA[4]\">$LINHA[5]</a></h2>\n";
       print "<div class=\"ct\"><div style=\"min-height: 80px\"><a href=\"$LINHA[4]\"><img width=\"120px\" height=\"90px\" alt=\"\" border=\"0\" src=\"http://images.websnapr.com/?size=S&url=$LINHA[4]\" style=\"padding-right: 10px; float: left;\"></a><h2><a href=\"$LINHA[4]\">$LINHA[5]</a></h2> <div class=\"mct\">\n";
       print "<p>$LINHA[6]</p>\n";
       print "</div></div><br><div class=\"sep\"></div></div></div><br />";
       $i++;

     }
     if ($i < 2) {
        print "<p>$TEXTFINDNULL</p>\n";
     }


	 $_ = "";
  }


  if (/maoMENUDIREITO/) {

     $sth = $dbh->prepare("SELECT * FROM $TABELA WHERE publico LIKE '1'");
     $sth->execute();
     %categoria = ();

     while (@LINHA = $sth->fetchrow_array) { $categoria{"$LINHA[3]"}++; }
     @index = sort keys(%categoria);

     print "<div class=\"p\"><h2>$TEXTSUBTITLE</h2>\n<ul>\n";
     print "<li class=\"cat-item cat-item-3\"><a href=\"$SCRIPT\">.: $TEXTNEW :.</a></li>\n";

     foreach $key (@index) {
           print "<li><a href=\"$SCRIPT?categoria=$key\">$key ($categoria{$key})</a></li>\n";
     }

     print "</ul></div>\n";

	 $_ = "";
  }


  print $_;

}

close(ARQUIVO);
$sth->finish();