$hash->{ID}



"; print "

"; } my %key_sort_table = ( 'ID' => ' 0 ', 'URL' => ' 1 ', 'Name' => ' 2 ', 'Hostname' => ' 3 ', 'FirstVisitDate' => ' 4 ', 'LastVisitDate' => ' 5 ' ); foreach my $key (sort { ($key_sort_table{$a} || $a) cmp ($key_sort_table{$b} || $b) } (keys(%$hash))) { my $val = $hash->{$key}; if ($key eq 'LastVisitDate' || $key eq 'FirstVisitDate') { $val = localtime ($val); } if ($html_p) { next if ($key eq 'ID'); $key = html_quote ($key); $val = ($key eq 'URL' ? "" . html_wrap ($val) . "" : html_wrap ($val)); print "

"; print " $key:

"; print " $val

"; print "

"; } else { print sprintf ("%14s = %s

", $key, $val); } } if ($html_p) { print "

"; print "