% if ($update && !$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="edit-download.html" method="post">
<input type="hidden" name="f" value="<% $f %>">
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>

<% $store %>
% if ($store eq "local") {
<li> Local <input type="radio" name="store" value="local" checked><br>
<li> Remote <input type="radio" name="store" value="remote"><br>
% } else {
<li> Local <input type="radio" name="store" value="local"><br>
<li> Remote <input type="radio" name="store" value="remote" checked><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="update" value="update">

</form>

% }


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

if ($update) {

   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->update_download( %$params, filename => $f );

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

} else {
   my $tmp = $bag->get_download_info( username => $user->username, filename => $f );
   $url = $tmp->{url};
   my ($sec,$wday,$yday,$isdst);
   ($sec,$mins,$hour,$day,$month,$year,$wday,$yday,$isdst) = localtime( $tmp->{date} );
   $year += 1900;
   $month += 1;
   $store = $tmp->{store};
   if ($store =~ /^remote$/) {
      $e_user = $tmp->{extra}{user};
      $e_pass = $tmp->{extra}{pass};
      $e_host = $tmp->{extra}{host};
   }
}
</%init>