% if ($add && !$erro) {

Informação Actualizada com sucesso!<br><br>
<a href="index.html">Voltar ao Menu Principal</a>

% } else {

% if ($erro==1) {
<font color="red">Erro: Esse username já está registado.</font>
% }

<form action="new-download.html" method="post">
url: <input type="text" name="url" value="<% $url %>"><br>
date: <input type="text" name="day" value="<% $day %>" size="2">-<input type="text" name="month" value="<% $month %>" size="2">-<input type="text" name="year" value="<% $year %>" size="4"><br>
hour: <input type="text" name="hour" value="<% $hour %>" size="2">:<input type="text" name="mins" value="<% $mins %>" size="2"><br>
store file: <br>
<li> Local <input type="radio" name="store" value="local"><br>
<li> Remote <input type="radio" name="store" value="remote"><br>
<ul>
host: <input type="text" name="e_host" value="<% $e_host %>"><br>
user: <input type="text" name="e_user" value="<% $e_user %>"><br>
pass: <input type="text" name="e_pass" value="<% $e_pass %>"><br>
</ul>

<br><input type="submit" name="add" value="add">

</form>

% }


<%args>
$url => ""
$day => ""
$month => ""
$year => ""
$hour => ""
$mins => ""
$store => ""
$e_user => ""
$e_pass => ""
$e_host => ""
$add => ""
</%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;

if ($add) {

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

   my $timestamp = timelocal(0,$mins,$hour,$day,$month-1,$year-1900);
   my $params = {
	'username' => $user->username,
	'url' => $url,
	'store' => $store,
	'date' => $timestamp,
	'extra' => {}
   };

   if ($store =~ /^remote$/) {
      $params->{extra}{user} = $e_user;
      $params->{extra}{pass} = $e_pass;
      $params->{extra}{host} = $e_host;
   }

   $bag->add_download( %$params );

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

} 

</%init>