#=======================LOADING THE .TXT TO THE DATABASE======================== my $replace = $dbh->prepare( "REPLACE INTO games (gamename, gamedesc, gamecounter) VALUES (?, ?, ?)" ); open (FILE, "<../data/games/descriptions.txt") or die $!; while () { chomp; if (length) { $replace->execute( split(/\t/, $_, 2), 0) or print $dbh->errstr; } } close (FILE); #=============================SHOW THE GAMES TABLE============================== print span( {class=>'lime'}, "Από εδώ μπορείς να κατεβάσεις ωραία απλά παιχνίδια που έχω επιλέξει!" ), br; print span( {class=>'yellow'}, "Μπορείς να επικοινωνήσεις μαζί μου στο hackeras\@gmail.com" ), br() x 2; $sth = $dbh->prepare( "SELECT * FROM games" ); $sth->execute; print start_form(-action=>'games.pl'); print table( {class=>'games'} ); while( $row = $sth->fetchrow_hashref ) { print Tr( td( {-width=>'20%'}, submit( -name=>'gamename', -value=>$row->{gamename} )), td( {-width=>'75%'}, $row->{gamedesc} ), td( {-width=>'5%'}, $row->{gamecounter} ) ); } print end_table; print end_form; print br; unless ( param() ) { print p( {-align=>'center'}, a( {href=>'index.pl'}, img {src=>'../data/images/back.gif'} )); } #==============================GIVE USER THE GAME=============================== if( param('gamename') ) { $dbh->do( "UPDATE games SET gamecounter=gamecounter+1 WHERE gamename='$gamename'" ); $dbh->do( "UPDATE guestlog SET passage='$gamename' WHERE host='$host'" ); $sth = $dbh->prepare( "SELECT * FROM games WHERE gamename=?" ); $sth->execute( $gamename ); $row = $sth->fetchrow_hashref; print span( {class=>'lime'}, "Είσαι ο $row->{gamecounter} ος που κατεβάζει το $row->{gamename} !!" ), br; print span( {class=>'yellow'}, "Ελπίζω να σου αρέσει και να σου φανεί χρήσιμο!" ); print p( {-align=>'center'}, a( {href=>'index.pl'}, img {src=>'../data/images/back.gif'} )); print ""; }