X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=machines.cgi;h=98567ec9f137afa55ea5c010b59ecae67e98308b;hb=d7b018a2e8aa309a6fe581c331cbe1d475a3ccef;hp=ba84f18232e745d554af1011a3591f031de9738a;hpb=ef9e1b8c530e45969d066d2864af3906fc8386c5;p=mirror%2Fuserdir-ldap-cgi.git diff --git a/machines.cgi b/machines.cgi index ba84f18..98567ec 100755 --- a/machines.cgi +++ b/machines.cgi @@ -120,13 +120,14 @@ sub item_uplist($) { return $out; } -$SIG{__DIE__} = \&DieHandler; +#$SIG{__DIE__} = \&DieHandler; my $query = new CGI; my $host = lc($query->param('host')); my $sortby = lc($query->param('sortby')) || "host"; my $sortorder = lc($query->param('sortorder')) || "asc"; + &Util::HTMLSendHeader; $ldap = Net::LDAP->new($config{ldaphost}) || &Util::HTMLError($!); &Util::UpgradeConnection($ldap) unless $config{usessl} eq 'False'; @@ -211,19 +212,19 @@ if ($output{havehostdata}) { } else { # display summary info $hostdetails = "

Summary

\n"; - $hostdetails .= "\n"; + $hostdetails .= "
\n\n"; foreach $key (@summaryorder) { if ($sortby ne $key) { - $hostdetails .= ""; + $hostdetails .= ""; } else { if ($sortorder ne "dsc") { - $hostdetails .= ""; + $hostdetails .= ""; } else { - $hostdetails .= ""; + $hostdetails .= ""; } } } - $hostdetails .= "\n"; + $hostdetails .= "\n\n\n"; my @sorted; if ($sortorder eq "asc") { @@ -239,7 +240,7 @@ if ($output{havehostdata}) { } $hostdetails .= "\n"; } - $hostdetails .= "
$summaryattrs{$key}$summaryattrs{$key}$summaryattrs{$key}$summaryattrs{$key}$summaryattrs{$key}$summaryattrs{$key}
\n"; + $hostdetails .= "\n\n"; } # Finally, we can write the output... yuck...