N
Nikos
my $sth = $dbh->prepare( "SELECT * FROM games" );
$sth->execute();
Hello, iam tryign to convert another script to htm;::template but iam
having some problems:
Here is the template:
<html>
<head>
<title>Games</title>
<link rel="stylesheet" type="text/css"
href="../data/tmpl/style.css" />
</head>
<body>
<h2>Από εδώ μποÏείς να κατεβάσεις ωÏαία απλά παιχνίδια που Îχω
επιλÎξει!</h2>
<h2>ΜποÏείς να επικοινωνήσεις μαζί μου στο (e-mail address removed)</h2>
<table>
<TMPL_LOOP NAME=games>
<TR>
<td><TMPL_VAR NAME=gamename></td>
<td><TMPL_VAR NAME=gamedesc></td>
<td><TMPL_VAR NAME=gamecount></td>
</TR>
</TMPL_LOOP>
</table>
<h2>Είσαι ο <TMPL_VAR NAME=gamecount>ος που κατεβάζει το <TMPL_VAR
NAME=gamename>!</h2>
<h2>Ελπίζω να σου αÏÎσει και να σου φανεί χÏήσιμο!</h2>
<div id=links>
<a href="index.pl"><img src="../data/images/back.gif" /></a>
</div>
<script language='Javascript'>location.href='/data/games/<TMPL_VAR
NAME=gamename>.rar'</script>
</body>
</html>
And here is the games.pl part that i dotn know how to convert entirely,
please help me out:
my $tmpl = HTML::Template->new(filename=>'../data/tmpl/games.tmpl');
$tmpl->param( games=>$sth->fetchall_arrayref({}) );
print header, $tmpl->output;
if ( !param() ) { print p( a( {href=>'index.pl'}, img
{src=>'../data/images/back.gif'} )); }
if ( param() )
{
$dbh->do( "UPDATE games SET gamecount = gamecount + 1 WHERE
gamename='$game'" );
$sth = $dbh->prepare( "SELECT $game FROM games" );
$sth->execute();
$row = $sth->fetchrow_hashref;
$dbh->do( "UPDATE guestlog SET script='$game' WHERE host='$host'" )
or die $dbh->errstr;
print p( a( {href=>'index.pl'}, img
{src=>'../data/images/back.gif'} ));
print "<script
language='Javascript'>location.href='/data/games/$game.rar'</script>";
}
What am i doing wrong?
$sth->execute();
Hello, iam tryign to convert another script to htm;::template but iam
having some problems:
Here is the template:
<html>
<head>
<title>Games</title>
<link rel="stylesheet" type="text/css"
href="../data/tmpl/style.css" />
</head>
<body>
<h2>Από εδώ μποÏείς να κατεβάσεις ωÏαία απλά παιχνίδια που Îχω
επιλÎξει!</h2>
<h2>ΜποÏείς να επικοινωνήσεις μαζί μου στο (e-mail address removed)</h2>
<table>
<TMPL_LOOP NAME=games>
<TR>
<td><TMPL_VAR NAME=gamename></td>
<td><TMPL_VAR NAME=gamedesc></td>
<td><TMPL_VAR NAME=gamecount></td>
</TR>
</TMPL_LOOP>
</table>
<h2>Είσαι ο <TMPL_VAR NAME=gamecount>ος που κατεβάζει το <TMPL_VAR
NAME=gamename>!</h2>
<h2>Ελπίζω να σου αÏÎσει και να σου φανεί χÏήσιμο!</h2>
<div id=links>
<a href="index.pl"><img src="../data/images/back.gif" /></a>
</div>
<script language='Javascript'>location.href='/data/games/<TMPL_VAR
NAME=gamename>.rar'</script>
</body>
</html>
And here is the games.pl part that i dotn know how to convert entirely,
please help me out:
my $tmpl = HTML::Template->new(filename=>'../data/tmpl/games.tmpl');
$tmpl->param( games=>$sth->fetchall_arrayref({}) );
print header, $tmpl->output;
if ( !param() ) { print p( a( {href=>'index.pl'}, img
{src=>'../data/images/back.gif'} )); }
if ( param() )
{
$dbh->do( "UPDATE games SET gamecount = gamecount + 1 WHERE
gamename='$game'" );
$sth = $dbh->prepare( "SELECT $game FROM games" );
$sth->execute();
$row = $sth->fetchrow_hashref;
$dbh->do( "UPDATE guestlog SET script='$game' WHERE host='$host'" )
or die $dbh->errstr;
print p( a( {href=>'index.pl'}, img
{src=>'../data/images/back.gif'} ));
print "<script
language='Javascript'>location.href='/data/games/$game.rar'</script>";
}
What am i doing wrong?