<& comps/valid_cookie.mc &> % foreach my $item (@$files) { % my @a = localtime( $item->{date} ); % my $date = sprintf("%0.2d-%0.2d-%0.4d %0.2d:%0.2d",$a[3],$a[4]+1,$a[5]+1900,$a[2],$a[1]); % }

File	Retrieve On	Store	Status	Options
<% $item->{url} %>	<% $date %>	<% $item->{store} %>	?	Edit	Delete

<%args> $url => "" $day => "" $month => "" $year => "" $hour => "" $mins => "" $store => "" $e_user => "" $e_pass => "" $e_host => "" $add => "" <%once> use lib qw( /home/tfp/toupeira/lib ); use Time::Local; use Toupeira::Users; use Toupeira::Files; use Data::Dumper; <%init> my $erro = 0; my $user = Toupeira::Users->new( username => 'tfp' ); my $bag = Toupeira::Files->new(); my $files = $bag->list_downloads( username => 'tfp' );