X-Git-Url: http://git.rot13.org//?a=blobdiff_plain;f=lib%2FBackupPC%2FCGI%2FLib.pm;h=b67be9178d8866cb1252ba328f381490e5f8c034;hb=79e0593c501fd58046feeca20c315cc4ac283435;hp=40950f8c18d74aeae519189d23f62e08936f9e32;hpb=8f5625f9cdf47f8e04be654c4954838b2df3e26d;p=BackupPC.git
diff --git a/lib/BackupPC/CGI/Lib.pm b/lib/BackupPC/CGI/Lib.pm
index 40950f8..b67be91 100644
--- a/lib/BackupPC/CGI/Lib.pm
+++ b/lib/BackupPC/CGI/Lib.pm
@@ -29,7 +29,7 @@
#
#========================================================================
#
-# Version 2.1.0beta0, released 20 Mar 2004.
+# Version 2.1.0beta2, released 23 May 2004.
#
# See http://backuppc.sourceforge.net.
#
@@ -283,7 +283,9 @@ sub GetStatusInfo
eval($reply);
# ignore status related to admin and trashClean jobs
if ( $status =~ /\bhosts\b/ ) {
- delete($Status{$bpc->adminJob});
+ foreach my $host ( grep(/admin/, keys(%Status)) ) {
+ delete($Status{$host}) if ( $bpc->isAdminJob($host) );
+ }
delete($Status{$bpc->trashJob});
}
}
@@ -390,23 +392,23 @@ sub Header
{
my($title, $content, $noBrowse, $contentSub, $contentPost) = @_;
my @adminLinks = (
- { link => "", name => $Lang->{Status},
+ { link => "", name => $Lang->{Status}},
+ { link => "?action=adminOpts", name => $Lang->{Admin_Options},
+ priv => 1},
+ { link => "?action=summary", name => $Lang->{PC_Summary}},
+ { link => "?action=view&type=LOG", name => $Lang->{LOG_file},
+ priv => 1},
+ { link => "?action=LOGlist", name => $Lang->{Old_LOGs},
priv => 1},
- { link => "?action=adminOpts", name => $Lang->{Admin_Options} },
- { link => "?action=summary", name => $Lang->{PC_Summary},
+ { link => "?action=emailSummary", name => $Lang->{Email_summary},
priv => 1},
- { link => "?action=view&type=LOG", name => $Lang->{LOG_file} },
- { link => "?action=LOGlist", name => $Lang->{Old_LOGs} },
- { link => "?action=emailSummary", name => $Lang->{Email_summary} },
- { link => "?action=view&type=config", name => $Lang->{Config_file} },
- { link => "?action=view&type=hosts", name => $Lang->{Hosts_file} },
- { link => "?action=queue", name => $Lang->{Current_queues} },
- { link => "?action=view&type=docs", name => $Lang->{Documentation},
+ { link => "?action=view&type=config", name => $Lang->{Config_file},
priv => 1},
- { link => "http://backuppc.sourceforge.net/faq", name => "FAQ",
+ { link => "?action=view&type=hosts", name => $Lang->{Hosts_file},
priv => 1},
- { link => "http://backuppc.sourceforge.net", name => "SourceForge",
+ { link => "?action=queue", name => $Lang->{Current_queues},
priv => 1},
+ @{$Conf{CgiNavBarLinks} || []},
);
my $host = $In{host};
@@ -418,12 +420,12 @@ sub Header
$Conf{CgiHeaders}
-
+
EOF
if ( defined($Hosts) && defined($host) && defined($Hosts->{$host}) ) {
print "