print a( {href=>'/cgi-bin/register.pl'},  img{src=>'/data/images/reg.jpg'} );

my @userlist = @{ $db->selectcol_arrayref("SELECT username FROM users") };

print start_form( action=>'/cgi-bin/index.pl' );
    print h1( {class=>'lime'},  "Κάνε LOGIN για να δεις τις παραγγελίες σου μέχρι στιγμής => ",
                                popup_menu( -name => 'userlogin', -values => \@userlist ),
                                submit('Σύνδεση!'));
print end_form;


my $userlogin = param('userlogin');
if ( param('Σύνδεση!') )
{
    unless( grep { $_ eq $userlogin } @userlist )	                       #Check if userlogin name exists in the drop down menu
    {
        print br() x 2, h1( {class=>'big'}, "Δεν υπάρχει χρήστης με όνομα: $userlogin" );
	exit;
    }
    
    $select = $db->prepare( "SELECT counter, host, DATE_FORMAT(date, '%a %d %b, %h:%i') AS date FROM guestlog WHERE username=?" );
    $select->execute( $userlogin );
    $row = $select->fetchrow_hashref;
        
    if( $select->rows )
    {
        $data = "Καλώς ήλθες $userlogin! Χαίρομαι που βρίσκεις την σελίδα ενδιαφέρουσα.
                 Τελευταία φορά ήρθες εδώ ως $row->{host} στις $row->{date} !
                 Προηγούμενος αριθμών επισκέψεων => $row->{counter}
                 Τί θα πάρεις σήμερα !?";

        $select = $db->prepare( "UPDATE guestlog SET username=?, counter=counter+1, date=? WHERE host=?" );
        $select->execute( $userlogin, $date, $host );
    }
}
else
{
    if( $host eq "Νίκος" ) {
    	$data = "Γειά σου Νικόλα! Πώς πάνε τα κέφια? ;-)";
    }
    else {
        $data = "Γειά σου $host!
      	       	 Έρχεσαι για 1η φορά εδώ !!
      		 Ελπίζω να βρείς όλο το λογισμικό που επιθυμείς :-)";
    }

    unless( $host eq "Νίκος" ) {
        $select = $db->prepare( "INSERT INTO guestlog (username, counter, host, date) VALUES (?, ?, ?, ?)" );
        $select->execute( 'Guest', 1, $host, $date);
    }
}