#!/usr/bin/perl use strict; use CGI::Carp qw/fatalsToBrowser/; binmode STDIN; use lib 'mods'; require CGI::Lite; require HTML::Template; require DBI; require User; $::dbh=DBI->connect('dbi:mysql:movies','name'); $::ht=new HTML::Template(filename => 'tmpl/default.tmpl'); $::c=new CGI::Lite; $::c->set_directory('uploads'); $::c->set_file_type('file'); %::f=$::c->parse_form_data('GET'); $::f{f}=shift if(~~@ARGV); $::user=new User; my %dispatch= ( news => 'news', add_news => 'add_news', add_news_submit => 'add_news_submit', login => 'login', login_submit => 'login_submit', movie => 'movie', me => 'me', ); if(not $::f{o}) {$::f{o}='news';} warn "_____INDEX.PL______"; #do "subs/$dispatch{$::f{o}}.pl" if($dispatch{$::f{o}}); defaultTmplData(); print "Content-type: text/html\n\n"; print "name: ",$::user->name,' uid: ',$::user->{data}{uid}; print $::ht->output; sub defaultTmplData { my $sql="SELECT mid,tinythumb FROM movies ORDER BY rank DESC limit 0,5"; my $pn=$::dbh->prepare($sql); $pn->execute; $pn->bind_columns(\my($mid,$thumb)); my @thumbs; while($pn->fetch) { push @thumbs,{thumb_id=>$mid,thumb_url=>$thumb}; } #$::ht->param(thumb_loop=>[@thumbs]); $::ht->param(thumb_loop=>[{}]); } ####

Title!

Thumbs