Registo apagado com sucesso!<br><br>
<a href="index.html">Voltar ao Menu Principal</a>

<%args>
$delete => ""
$f => ""
</%args>

<%once>
use lib qw( /home/tfp/toupeira/lib );
use Time::Local;
use Toupeira::Users;
use Toupeira::Files;
use Data::Dumper;
</%once>

<%init>
my $erro = 0;

my $user = Toupeira::Users->new( username => 'tfp' );
my $bag = Toupeira::Files->new();

my $x = $bag->del_download( username => $user->username, filename => $f );

#$erro = 1 if ($@ =~ /user.*exists/i);

</%init>