#!/usr/bin/perl
require 'incluir.pl';
use mod_usuario ;
use dbalbum;
#use lib 'inc';
use spanTemplate;
use usercookie;
use CGI;
#use vconfig;
use acookie;
my $T_DEFAULT = 'templates/default.shtml';
my $usuario_id;
my $advance_cookie;
my ($id, $username, $p);
my $alias;
my $q = new CGI;
connect_album;
my $salir = $q->param('salir');
if ($salir) {
my $cookie=$q->cookie(-name=>'ALBUM_USERID', -value=>'', -path=>'/');
print "Set-Cookie: $cookie\n";
$cookie=$q->cookie(-name=>'ADVANCEID', -value=>'', -path=>'/', -domain=>'.advance.com.ar');
print "Set-Cookie: $cookie\n";
$cookie=$q->cookie(-name=>'NAME', -value=>'', -path=>'/');
print "Set-Cookie: $cookie\n";
$cookie=$q->cookie(-name=>'CLAVEALBUM', -value=>'', -path=>'/');
print "Set-Cookie: $cookie\n";
# print "Content-type: text/html\n\n";
# print "\n";
# exit 0;
} else {
# print "Content-Type: text/html\n\n";
$advance_cookie = $q->cookie('ADVANCEID') ;
# || '1|terra01|3ifi6f194RwA|bf203e6a1862011ba620efe491f59eb3';
($id, $username, $p)=acookie::test_cookie($advance_cookie);
# $pass=$q->cookie('p');
# print "A: $advance_cookie
id:$id
\n";
$pass=acookie::desencripta_password($p);
$coo =$q->cookie(-name=>'p',-domain=>'advance.com.ar',-value=>'',-path=>'/');
print "Set-Cookie: $coo\n";
unless (!$id || get_user_alias($id)) {
insert_user($id, $username, $pass);
}
}
if ($id>0) {
$usuario_id = usercookie($id);
my $cookie=$q->cookie(-name=>'ALBUM_USERID', -value=>$usuario_id, -path=>'/');
print "Set-Cookie: $cookie\n";
if ($username=~/([^\.]*)\./) {
$alias=$1;
} else {
$alias=$username;
}
$cookie=$q->cookie(-name=>'NAME', -value=>$alias, -path=>'/');
print "Set-Cookie: $cookie\n";
}
if (!($usuario_decrypted = test_usercookie($usuario_id))) {
# print "Content-type: text/html\n\n";
# print "ud=$usuario_decrypted
\n";
# print "Location: http://www.speedy.com.ar\n\n";
# exit 0;
}
print "Content-Type: text/html\n\n";
#print "p=$p pass=$pass a=$advance_cookie u=$usuario_decrypted ($id, $username) uid=$usuario_id
\n";
#exit 0;
my %A;
if ($usuario_decrypted) {
$A{USUARIO} = &modulo_usuario($alias, $usuario_id,$usuario_decrypted, '');
} else {
$A{USUARIO}= &modulo_usuario_vacio;
}
$A{BOTONERA}=botonera($usuario_decrypted);
$A{HEAD}=spanTemplate::load_file('incluir/cabecera.html');
$A{HEAD}.=spanTemplate::load_file('incluir/cabecera_album.html');
$A{HEAD}.=spanTemplate::load_file('incluir/banner_home.html');
$A{BUSCA}=spanTemplate::load_file('incluir/modulo_buscador.html');
$A{ALBUM}=spanTemplate::load_file('incluir/modulo_album.html');
$A{ALBUM}=spanTemplate::load_file('incluir/modulo_album.html');
$A{CAT}=spanTemplate::load_file('incluir/categorias.html');
$A{DER}=spanTemplate::load_file('incluir/der_album.html');
$A{IZQ}=spanTemplate::load_file('incluir/izq_album.html');
$A{TOP}=spanTemplate::load_file('incluir/top.html');
$A{PIE}=spanTemplate::load_file('incluir/pie.html');
print spanTemplate::parse( $T_DEFAULT, \%A);