#!/usr/bin/perl -w

use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard start_ul);
use CGI;
use DBI;

#push @INC, '/home/rprior/lib/perl';
require LoginManager258;

#Connecting to database

my $dbname = 'TW';
my $dbhost = 'localhost';
my $dbuser = 'root';
my $dbpass = 'penafiel';
my $authtable = 'Utilizador';

my $dbh = DBI->connect ("DBI:mysql:database=$dbname:host=$dbhost", $dbuser, $dbpass, { RaiseError => 1, AutoCommit => 1 });

# CGI object for headers, cookies, etc.
my $q = CGI->new();
my $l = CGI::LoginManager->new({ 'dbh' => $dbh, 'cgi' => $q});

print   $q->header("text/html");

print   $q->start_html( -title=>'CouchSurfing'),
print "<img src=\"/imagens/banner.jpg\">";

#Body
    $q->div({-id=>'main'}),
        $q->div({-id=>'banner'}),
            $q->div({-id=>'logo1'}),
            $q->end_div(),
        $q->end_div();

#corpo
        print $q->start_div({-id=>'corpo'}),
            $q->start_div({-id=>'menu_login'});


                if($l->autoriza()){
                        my $uLogin=$l->getUser();
                    print   $q->fieldset({-id=>'campo'}),
                        $q->p('Bem vindo, ',"$uLogin"),
                        $q->div({-id=>'menu'}),
                        $q->ul(

                        $q->li(a ({-href=>"consultarUtilizadores.cgi" ,-title=>"Consultar Utilizadores"},">>Consultar Utilizadores")),
                        $q->li(a ({-href=>"consultarEstadias.cgi" ,-title=>"Consultar Estadias"},">>Consultar Estadias")),
                        $q->li(a ({-href=>"logout.cgi" ,-title=>"CouchSurfing"},">>Logout")),
                        ),
                        $q->end_div({-id=>'menu'});
                        $q->end_fieldset({-id=>'campo'});
                }
                else{
                    print $q->start_form(-method=>'post',-id=>'login',-action=>'login.cgi'),
                    $q->fieldset(),
                    $q->legend('Login'),
                    $q->label({-for=>'input1'},'Username:'),
                    $q->br,
                    $q->input({-type=>'text',-size=>'10',-id=>'username',-name=>'username',-onclick=>'limpaUser();'}),
                    $q->br,
                    $q->label({-for=>'input2'},'Password:'),
                    $q->br,
                    $q->input({-type=>'password',-size=>'10',-name=>'password',-id=>'password',-onclick=>'limpaPass();'}),
                    $q->br,
                    $q->input({-type=>'submit',-value=>'Login'}),
                    $q->end_fieldset(),
                    $q->end_form();
                }
    $q->end_div({-id=>'main'}),



$q->end_html();