list_hostinfo.cgi

#!/usr/bin/perl

require 'vboxctrl-lib.pl';
&ReadParse();

init_config();
$DEBUGMODE = $config{'DEBUGMODE'};
if ($DEBUGMODE)
	{
	DebugOut();
	}


my $TEXT = $text{'VM_HOSTINFO'};
if ($in{'print'})
	{
	$TEXT .= " (".get_system_hostname().")";
	}
ui_print_header(undef, $TEXT, "", undef, 1, 1);

my %HOSTINFO = GetHOSTInfo();

my (@TD) = ("width=1%","width=1%");
my (@TABHEAD) = ($text{'tabhead_hostinfo'},$text{'tabhead_hostinfodesc'});

print &ui_columns_start(\@TABHEAD, 100, 0, \@TD);

foreach my $KEY (sort keys %HOSTINFO)
	{
	my @TABDATA = ($KEY,$HOSTINFO{$KEY});
	print ui_columns_row(\@TABDATA,\@TD);
	}
print &ui_columns_end();

if ($in{'print'})
	{
	print "<script type='text/javascript'>";
	print "window.print();";
	print "</script>";
	}
else
	{
	print "<br>";
	print "<a href='#' onclick=\"javascript:window.open('list_hostinfo.cgi?print=1','popup', 'toolbar=0,width=840, height=600')\">";
	print "<img src='images/printer.png' border='0'></a> <br>";
	print ui_print_footer("index.cgi?mode=host", $text{'index_return'});
	}