=head1 LICENSE
Bweb - A Bacula web interface
- Bacula® - The Network Backup Solution
+ Bacula® - The Network Backup Solution
Copyright (C) 2000-2006 Free Software Foundation Europe e.V.
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA.
- Bacula® is a registered trademark of John Walker.
+ Bacula® is a registered trademark of John Walker.
The licensor of Bacula is the Free Software Foundation Europe
(FSFE), Fiduciary Program, Sumatrastrasse 25, 8006 Zurich,
Switzerland, email:ftf@fsfeurope.org.
$bweb->display($fields, "display_form_media.tpl");
print "</td><td valign='top'>";
- $bweb->display_media();
+ $bweb->display_media(offset => $arg->{offset},
+ limit => $arg->{limit});
print "</td></tr></table></div>";
} elsif ($action eq 'medias') {
$bweb->move_email();
} elsif ($action eq 'change_location') {
- $bweb->change_location();
+ $bweb->location_change();
} elsif ($action eq 'location') {
- $bweb->display_location();
+ $bweb->location_display();
} elsif ($action eq 'about') {
$bweb->display($bweb, 'about.tpl');
} elsif ($action eq 'disable_job') {
$bweb->enable_disable_job(0);
+} elsif ($action eq 'groups') {
+ $bweb->display_groups();
+
+} elsif ($action eq 'groups_edit') {
+ $bweb->groups_edit();
+
+} elsif ($action eq 'groups_save') {
+ $bweb->groups_save();
+
+} elsif ($action eq 'groups_add') {
+ $bweb->groups_add();
+
+} elsif ($action eq 'groups_del') {
+ $bweb->groups_del();
+
} elsif ($action eq 'job') {
print "<div><table border='0'><tr><td valign='top'>\n";
my $fields = $bweb->get_form(qw/status level db_clients db_filesets
limit age offset qclients qfilesets
- jobtype qpools db_pools/);
+ jobtype qpools db_pools
+ db_client_groups qclient_groups/); # drop this to hide
+
$bweb->display($fields, "display_form_job.tpl");
print "</td><td valign='top'>";
offset => $arg->{offset},
limit => $arg->{limit});
print "</td></tr></table></div>";
+} elsif ($action eq 'job_group') {
+
+ print "<div><table border='0'><tr><td valign='top'>\n";
+ my $fields = $bweb->get_form(qw/limit level age
+ db_client_groups qclient_groups/); # drop this to hide
+
+ $fields->{hide_status} = 1;
+ $fields->{hide_type} = 1;
+ $fields->{action} = 'job_group';
+
+ $bweb->display($fields, "display_form_job.tpl");
+
+ print "</td><td valign='top'>";
+ $bweb->display_job_group(age => $arg->{age}, # last 7 days
+ limit => $arg->{limit});
+ print "</td></tr></table></div>";
} elsif ($action eq 'client_stats') {
foreach my $client (CGI::param('client')) {
}
}
+} elsif ($action eq 'group_stats') {
+
+ $bweb->display_group_stats(age => $arg->{age});
+
} elsif ($action eq 'running') {
$bweb->display_running_jobs(1);