#!/usr/bin/perl
use strict;
use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';
use local::db;
use local::menu;

my @cat = local::db::category->retrieve_all();
die "Ungültige category" if not @cat;

print header;
my $menu = new local::menu(%ENV);
print $menu->start_html('nzbget pre_enqueue');
print CGI::start_form(-action=>'/cgi-bin/nzbget/enqueue.pl');
print table({class=>'nohigh'},
	Tr(td(param('title'))),
	Tr(td(param('description'))),
),
table({class=>'nohigh'},
        Tr(td(['name',textfield('name').hidden('description',param('description')).hidden('url',param('url')).hidden('title',param('title'))])),
        Tr(td(['category',
                       CGI::popup_menu(
                               -name=>'cat',
                               -values=>[0,map {$_->name()} @cat],
                               -labels => {0=>'---', map { ($_->category_id() => $_->name() ) } @cat}
		       )])),
        Tr(td([' ',submit("Download starten")])),
);
print CGI::end_form;
print $menu->end_html();