PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show installed packages, and flag those for which an update is needed
require './security-updates-lib.pl';
&ui_print_header(undef, $module_info{'desc'}, "", undef, 1, 1);
&error_setup($text{'index_err'});
&ReadParse();
# Make sure we can connect
$err = &test_connection();
if ($err) {
print &text('index_problem', $err),"<p>\n";
&ui_print_footer("/", $text{'index'});
exit;
}
# See if any security updates exist
$in{'mode'} ||= 'both';
$in{'all'} = 0 if (!defined($in{'all'}));
@avail = &list_for_mode($in{'mode'}, 0, $in{'all'});
($sec) = grep { $_->{'security'} } @avail;
# Show mode selector (all, updates only, updates and new)
@grid = ( );
foreach $m ('all', 'updates', 'new', 'both',
$sec ? ( 'security' ) : ( )) {
$mmsg = $text{'index_mode_'.$m};
if ($in{'mode'} eq $m) {
push(@mlinks, "<b>$mmsg</b>");
}
else {
push(@mlinks, &ui_link("index.cgi?mode=$m&all=".
&urlize($in{'all'}), $mmsg));
}
}
push(@grid, $text{'index_mode'}, &ui_links_row(\@mlinks));
# Show all selector
if (&show_all_option()) {
$in{'all'} ||= 0;
foreach $a (0, 1) {
$amsg = $text{'index_all_'.$a};
if ($in{'all'} eq $a) {
push(@alinks, "<b>$amsg</b>");
}
else {
push(@alinks, &ui_link("index.cgi?mode=".
&urlize($in{'mode'})."&all=$a", $amsg));
}
}
push(@grid, $text{'index_allsel'}, &ui_links_row(\@alinks));
}
print &ui_grid_table(\@grid, 2),"<p>\n";
# Work out what packages to show
@current = $in{'all'} ? &list_all_current(1) : &list_current(1);
# Make lookup hashes
%current = map { $_->{'name'}."/".$_->{'system'}, $_ } @current;
%avail = map { $_->{'name'}."/".$_->{'system'}, $_ } @avail;
# Build table
$anysource = 0;
foreach $p (sort { $a->{'name'} cmp $b->{'name'} } (@current, @avail)) {
next if ($done{$p->{'name'},$p->{'system'}}++); # May be in both lists
# Work out the status
$c = $current{$p->{'name'}."/".$p->{'system'}};
$a = $avail{$p->{'name'}."/".$p->{'system'}};
if ($a && $c && &compare_versions($a, $c) > 0) {
# An update is available
$msg = "<b><font color=#00aa00>".
&text('index_new', $a->{'version'})."</font></b>";
$need = 1;
next if ($in{'mode'} eq 'security' && !$a->{'security'});
next if ($in{'mode'} ne 'both' && $in{'mode'} ne 'updates' &&
$in{'mode'} ne 'all' && $in{'mode'} ne 'security');
}
elsif ($a && !$c) {
# Could be installed, but isn't currently
next if (!&installation_candiate($a));
$msg = "<font color=#00aa00>$text{'index_caninstall'}</font>";
$need = 0;
next if ($in{'mode'} ne 'both' && $in{'mode'} ne 'new' &&
$in{'mode'} ne 'all');
}
elsif (!$a->{'version'} && $c->{'updateonly'}) {
# No update exists, and we don't care unless there is one
next;
}
elsif (!$a->{'version'}) {
# No update exists
$msg = "<font color=#ffaa00><b>".
&text('index_noupdate', $c->{'version'})."</b></font>";
$need = 0;
next if ($in{'mode'} ne 'all');
}
else {
# We have the latest
$msg = &text('index_ok', $c->{'version'});
$need = 0;
next if ($in{'mode'} ne 'all');
}
$source = $a->{'source'} =~ /^virtualmin/ ? "Virtualmin" :
$a->{'source'};
if ($a->{'security'}) {
$source = "<font color=#ff0000>$source</font>";
}
push(@rows, [
{ 'type' => 'checkbox', 'name' => 'u',
'value' => $p->{'update'}."/".$p->{'system'},
'checked' => $need },
&ui_link("view.cgi?all=$in{'all'}&mode=$in{'mode'}&name=".
&urlize($p->{'name'})."&system=".
&urlize($p->{'system'}), $p->{'name'}),
$p->{'desc'},
$msg,
$source ? ( $source ) : $anysource ? ( "") : ( ),
]);
$anysource++ if ($source);
}
# Show the packages, if any
print &ui_form_columns_table(
"update.cgi",
[ [ "ok", $in{'mode'} eq 'new' ? $text{'index_install'}
: $text{'index_update'} ],
undef,
[ "refresh", $text{'index_refresh'} ] ],
1,
undef,
[ [ "mode", $in{'mode'} ], [ "all", $in{'all'} ] ],
[ "", $text{'index_name'}, $text{'index_desc'}, $text{'index_status'},
$anysource ? ( $text{'index_source'} ) : ( ), ],
100,
\@rows,
undef,
0,
undef,
$text{'index_none_'.$in{'mode'}}
);
# Show scheduled report form
print "<hr>\n";
print &ui_form_start("save_sched.cgi");
print &ui_table_start($text{'index_header'}, undef, 2);
$job = &find_cron_job();
if ($job) {
$sched = $job->{'hours'} eq '*' ? 'h' :
$job->{'days'} eq '*' && $job->{'weekdays'} eq '*' ? 'd' :
$job->{'days'} eq '*' && $job->{'weekdays'} eq '0' ? 'w' :
undef;
}
else {
$sched = "d";
}
print &ui_table_row($text{'index_sched'},
&ui_radio("sched_def", $job ? 0 : 1,
[ [ 1, $text{'index_sched1'} ],
[ 0, $text{'index_sched0'} ] ])."\n".
&ui_select("sched", $sched,
[ [ 'h', $text{'index_schedh'} ],
[ 'd', $text{'index_schedd'} ],
[ 'w', $text{'index_schedw'} ] ]));
print &ui_table_row($text{'index_email'},
&ui_textbox("email", $config{'sched_email'}, 40));
print &ui_table_row($text{'index_action'},
&ui_radio("action", int($config{'sched_action'}),
[ [ 0, $text{'index_action0'} ],
[ 1, $text{'index_action1'} ],
[ 2, $text{'index_action2'} ] ]));
print &ui_table_end();
print &ui_form_end([ [ "save", $text{'save'} ] ]);
&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`