- NavSectionTitle($Lang->{Hosts});
- my $hostSelectbox = "<option value=\"#\">Select a host...</option>";
- my @hosts;
- if ( defined($Hosts) && %$Hosts > 0 ) {
- @hosts = GetUserHosts($In{host});
- foreach my $host ( @hosts ) {
- if ($In{host} eq $host) {
- print <<EOF;
-</div>
-<div class="HostOn"> <a href="?host=${EscURI($host)}">$host</a> <br>
-<div class="HostOnContent">
-EOF
- NavLink("?host=${EscURI($host)}",
- "$host $Lang->{Home}", " class=\"navbar\"");
- NavLink("?action=browse&host=${EscURI($host)}",
- "Browse backups", " class=\"navbar\"");
- NavLink("?action=view&type=LOG&host=${EscURI($host)}",
- $Lang->{LOG_file}, " class=\"navbar\"");
- NavLink("?action=LOGlist&host=${EscURI($host)}",
- $Lang->{LOG_files}, " class=\"navbar\"");
- if ( -f "$TopDir/pc/$host/SmbLOG.bad"
- || -f "$TopDir/pc/$host/SmbLOG.bad.z"
- || -f "$TopDir/pc/$host/XferLOG.bad"
- || -f "$TopDir/pc/$host/XferLOG.bad.z" ) {
- NavLink("?action=view&type=XferLOGbad&host=${EscURI($host)}",
- $Lang->{Last_bad_XferLOG}, " class=\"navbar\"");
- NavLink("?action=view&type=XferErrbad&host=${EscURI($host)}",
- $Lang->{Last_bad_XferLOG_errors_only},
- " class=\"navbar\"");
- }
- if ( -f "$TopDir/pc/$host/config.pl" ) {
- NavLink("?action=view&type=config&host=${EscURI($host)}",
- $Lang->{Config_file}, " class=\"navbar\"");
- }
- print <<EOF;
-</div></div>
-<div id="Content">
-$content