<%args> $user=>undef

<%$message%>

<%init> my $message; if ($user !~ /^nug/ && $user !~ /^nng/){ my $dbh = $m->comp("/_shared/procs/utils/dbi_connect.m", database=>'guianet'); my $sth = $dbh->prepare("select id from tdownloads_history where username='$user'"); $sth->execute; while (my @row = $sth->fetchrow){ $dbh->do("delete from tdownloads_history where id='$row[0]'"); $dbh->do("delete from tdownloads_updt_history where updatedid='$row[0]'"); } $dbh->do("delete from tdownloads_credits where username='$user'"); $message = $dbh->errstr; $message .= "Histórico de $user eliminado."; }else{ $message = "Acesso interdito"; }