'access' => 'Access',
'sponsor' => 'Sponsor',
'sponsor-admin' => 'Sponsor admin',
- 'location' => 'Location',
+ 'l' => 'Location',
'machine' => 'Processor',
'memory' => 'Memory',
'disk' => 'Disk space',
'notes' => 'Notes',
'sshrsahostkey' => 'SSH host key',
'description' => 'Description',
- 'purpose' => 'purposes of this server',
+ 'purpose' => 'Purposes of this server',
# 'createtimestamp' => 'Entry created',
# 'modifytimestamp' => 'Entry modified'
);
# This defines what fields are displayed, and in what order
@attrorder = qw(hostname admin architecture distribution access
- sponsor sponsor-admin location machine memory
+ sponsor sponsor-admin l machine memory
disk bandwidth status notes sshrsahostkey sshrsahostfprint
description purpose);
$out = "<ul>".
join("", map {
"<li>".wiki_link($_)."</li>\n";
- } sort {my $A=$a; my $B=$b; $A =~ s/[\[\]\*]//g; $B =~ s/[\[\]\*]//g; $A cmp $B} @tmp
+ } sort {my $A=$a; my $B=$b; $A =~ s/\[\[[-*]?(.*?)\]\]/\1/g; $B =~ s/\[\[[-*]?(.*?)\]\]/\1/g; $A cmp $B} @tmp
).
"</ul>";
}
# Format email addresses
$output{admin} = sprintf("<a href=\"mailto:%s\">%s</a>", $output{admin}, $output{admin});
- $output{'sponsor-admin'} = sprintf("<a href=\"mailto:%s\">%s</a>", $output{'sponsor-admin'}, $output{'sponsor-admin'});
+ $output{'sponsor-admin'} = sprintf("<a href=\"mailto:%s\">%s</a>", $output{'sponsor-admin'}, $output{'sponsor-admin'})
+ if defined $output{'sponsor-admin'};
$output{sshrsahostkey} = undef;
foreach $key (@{$data->{sshrsahostkey}}) {
} else {
# display summary info
$hostdetails = "<h1>Summary</h1>\n";
- $hostdetails .= "<table id=\"machines\" class=\"tablesorter\" border=\"1\" cellpadding=\"0\" cellspacing=\"1\">\n<thead>\n<tr>";
+ $hostdetails .= "<table id=\"machines\" class=\"display compact cell-border\" border=\"1\" cellpadding=\"0\" cellspacing=\"1\">\n<thead>\n<tr>";
foreach $key (@summaryorder) {
if ($sortby ne $key) {
$hostdetails .= "<th><a class=\"sort\" href=\"machines.cgi?sortby=$key&sortorder=asc\">$summaryattrs{$key}</a></th>";