#!/usr/bin/perl
# Show all available options for some system
$trust_unknown_referers = 1;
require 'virtual-server-mobile/virtual-server-mobile-lib.pl';
&foreign_require("server-manager", "server-manager-lib.pl");
&ReadParse();
# Get and check
$s = &server_manager::get_managed_server_by("id", $in{'id'});
$s || &error($text{'system_egone'});
&server_manager::can_action_error($s);
# Show page title. In IUI mode, there is no default <div> (since we generate
# a list below), and no system name (since it is in the menu list)
$main::theme_iui_no_default_div = 1;
&ui_print_header(&theme_use_iui() ? undef : server_manager::server_in($s),
$text{'system_title'}, "", undef, 0, 1, 1);
# Get all available actions for this server
@buts = grep { $_ && keys(%$_) > 0 } &server_manager::get_server_actions($s);
my @cats = &unique(map { $_->{'cat'} } @buts);
if (&theme_use_iui()) {
# Show as IUI category and link menus
print "<ul id='system' title='$text{'system_title'}' ",
"selected='true'>\n";
print "<li style='font-size:12px'>",
&server_manager::server_in($s),"</li>\n";
print "<li style='font-size:12px'>$text{'system_status'} : ",
&server_manager::describe_status($s, 1, 1),"</li>\n";
# Menus for categories, with no-category links at top level
foreach my $c (@cats) {
my @incat = grep { $_->{'cat'} eq $c } @buts;
if (!$c) {
# Top-level links
foreach my $b (@incat) {
$url = &system_action_url($b, $s);
$title = $b->{'title'} || $b->{'desc'};
print "<li><a href='$url' ",
"target=_self>$title</a></li>\n";
}
}
else {
# Category links
print "<li><a href='#systemcat_$c'>",
($server_manager::text{'cat_'.$c} ||
$incat[0]->{'catname'})."</a></li>\n";
}
}
print "</ul>\n";
# Lists for things in categories
foreach my $c (@cats) {
next if (!$c);
my @incat = grep { $_->{'cat'} eq $c } @buts;
print "<ul id='systemcat_$c' title='",
($server_manager::text{'cat_'.$c} ||
$incat[0]->{'catname'}),"'>\n";
foreach my $b (@incat) {
$url = &system_action_url($b, $s);
$title = $b->{'desc'} || $b->{'title'};
print "<li><a href='$url' ",
"target=_self>$title</a></li>\n";
}
print "</ul>\n";
}
if ($in{'main'}) {
# IUI will provide a nice back link
&ui_print_footer();
}
else {
# Need to create one
&ui_print_footer("/", "Index");
}
}
else {
# Show all one one page, for other mobile browsers
print "<ul>\n";
print "<li>$text{'system_status'} : ",
&server_manager::describe_status($s, 1, 1),"<br>\n";
foreach my $c (@cats) {
my @incat = grep { $_->{'cat'} eq $c } @buts;
if (!$c) {
# No-category links at top level
foreach my $b (@incat) {
$url = &system_action_url($b, $s);
print "<li><a href='$url'>",
"$b->{'desc'}</a><br>\n";
}
}
else {
# Other category and links in it
print "<li><b>",
$server_manager::text{'cat_'.$c},"</b><br>\n";
print "<ul>\n";
foreach my $b (@incat) {
$url = &system_action_url($b, $s);
print "<li><a href='$url'>",
"$b->{'desc'}</a><br>\n";
}
print "</ul>\n";
}
}
print "</ul>\n";
# XXX correct?
&ui_print_footer($in{'search'} ? ( ) : ( "index_list.cgi",
$text{'list_return'} ),
"/", $text{'index'});
}
# Returns a link for some VM2 action
sub system_action_url
{
local ($b, $s) = @_;
if ($b->{'link'} =~ /\//) {
return $b->{'link'};
}
elsif ($b->{'link'}) {
return "/server-manager/$b->{'link'}";
}
else {
return "/server-manager/save_serv.cgi?id=$s->{'id'}&$b->{'id'}=1";
}
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`
