PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show result of search on some VM2 systems
$trust_unknown_referers = 1;
require 'virtual-server-mobile/virtual-server-mobile-lib.pl';
&foreign_require("server-manager", "server-manager-lib.pl");
&ReadParse();
# Find by domain name or username
$s = $in{'search'};
$s =~ s/^\s+//; $s =~ s/\s+$//;
@allservers = &server_manager::list_available_managed_servers_sorted();
@servers = grep { $_->{'host'} eq $s } @allservers;
if (!@servers) {
@servers = grep { $_->{'host'} =~ /\Q$s\E/i } @allservers;
}
if (@servers == 1) {
# Found one .. go right to it
&redirect("index_system.cgi?id=$servers[0]->{'id'}&search=1");
return;
}
if (@servers) {
$main::theme_iui_no_default_div = 1;
}
&ui_print_header(undef, $text{'ssearch_title'}, "", undef, 0, 1, 1);
if (@servers) {
# Show as list
print "<ul title='$text{'ssearch_title'}' selected=true>\n";
foreach my $s (@servers) {
print "<li><a href='index_system.cgi?id=$s->{'id'}' ",
"target=_self>$s->{'short_host'}</a></li>\n";
}
print "</ul>\n";
}
else {
# No results
print &text('ssearch_none', "<i>".&html_escape($s)."</i>"),"<p>\n";
}
&ui_print_footer("/", $text{'index'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`