PAL.C.T MINI SHELL
#!/usr/bin/perl
# edit_upgrade.cgi
# Display a form for upgrading all of usermin from a tarfile
require './usermin-lib.pl';
$access{'upgrade'} || error($text{'acl_ecannot'});
ui_print_header(undef, $text{'upgrade_title'}, "");
# what kind of install was this?
my $mode = get_install_type();
# was the install to a target directory?
my $dir;
if (open(DIR, "<$config{'usermin_dir'}/install-dir")) {
chop($dir = <DIR>);
close(DIR);
}
# Show tabs
@tabs = map { [ $_, $text{'upgrade_tab'.$_}, "edit_upgrade.cgi?mode=$_" ] }
( "upgrade", "update", "sched" );
print ui_tabs_start(\@tabs, "mode", $in{'mode'} || $tabs[0]->[0], 1);
# Show upgrade form
print ui_tabs_start_tab("mode", "upgrade");
print $text{"upgrade_desc$mode"},"<p>";
print ui_form_start("upgrade.cgi", "form-data");
print ui_hidden("mode", $mode);
print ui_hidden("dir", $dir);
print ui_table_start($text{'upgrade_title'}, undef, 2);
@opts = ( [ 0, $text{'upgrade_local'},
&ui_filebox("file", undef, 60) ],
[ 1, $text{'upgrade_uploaded'},
&ui_upload("file") ],
[ 5, $text{'upgrade_url'},
&ui_textbox("url", undef, 60) ],
[ 2, $text{'upgrade_ftp'} ]);
print &ui_table_row($text{'upgrade_src'},
&ui_radio_table("source", $opts[$#opts]->[0], \@opts));
my @cbs;
if (!$mode && !$dir) {
push(@cbs, &ui_checkbox("delete", 1, $text{'upgrade_delete'}, 0));
}
push(@cbs, &ui_checkbox("force", 1, $text{'upgrade_force'}, 0));
print &ui_table_row($text{'upgrade_opts'}, join("<br>\n", @cbs));
print ui_table_end();
print ui_form_end([ [ "upgrade", $text{'upgrade_ok'} ] ]);
print ui_tabs_end_tab();
# Show module update form
print ui_tabs_start_tab("mode", "update");
print "$text{'update_desc1'}<p>\n";
print ui_form_start("update.cgi", "post");
print ui_table_start($text{'update_header1'}, undef, 2);
print &ui_table_row($text{'update_src'},
&ui_radio("source", $config{'upsource'} ? 1 : 0,
[ [ 0, $text{'update_webmin'}."<br>" ],
[ 1, $text{'update_other'} ] ])."<br>\n".
&ui_textarea("other", join("\n", split(/\t+/, $config{'upsource'})),
2, 50));
print &ui_table_row($text{'update_opts'},
&ui_checkbox("show", 1, $text{'update_show'},
$config{'upshow'}).
"<br>\n".
&ui_checkbox("missing", 1, $text{'update_missing'},
$config{'upmissing'}));
print ui_table_end();
print ui_form_end([ [ undef, $text{'update_ok'} ] ]);
print ui_tabs_end_tab();
# Show scheduled module update form
print ui_tabs_start_tab("mode", "sched");
print "$text{'update_desc2'}<p>\n";
print ui_form_start("update_sched.cgi", "post");
print ui_table_start($text{'update_header2'}, undef, 2);
print &ui_table_row($text{'update_enabled'},
&ui_yesno_radio("enabled", $config{'update'}));
print &ui_table_row($text{'update_src'},
&ui_radio("source", $config{'upsource'} ? 1 : 0,
[ [ 0, $text{'update_webmin'}."<br>" ],
[ 1, $text{'update_other'} ] ])."<br>\n".
&ui_textarea("other", join("\n", split(/\t+/, $config{'upsource'})),
2, 50));
if ($config{'cron_mode'} == 0) {
$upmins = sprintf "%2.2d", $config{'upmins'};
print &ui_table_row("",
&text('update_sched2',
&ui_textbox("hour", $config{'uphour'}, 2),
&ui_textbox("mins", $upmins, 2),
&ui_textbox("days", $config{'updays'}, 3)));
}
else {
&foreign_require("cron", "cron-lib.pl");
@jobs = &cron::list_cron_jobs();
$job = &find_cron_job(\@jobs);
$job ||= { 'mins' => 0,
'hours' => $config{'uphour'},
'days' => "*/$config{'updays'}",
'months' => '*',
'weekdays' => '*' };
print &cron::get_times_input($job, 1);
}
print &ui_table_row($text{'update_opts'},
&ui_checkbox("show", 1, $text{'update_show'},
$config{'upshow'}).
"<br>\n".
&ui_checkbox("missing", 1, $text{'update_missing'},
$config{'upmissing'}).
"<br>\n".
&ui_checkbox("quiet", 1, $text{'update_quiet'},
$config{'upquiet'}));
print &ui_table_row($text{'update_email'},
&ui_textbox("upemail", $config{'upemail'}, 30));
print ui_table_end();
print ui_form_end([ [ undef, $text{'update_apply'} ] ]);
print ui_tabs_end_tab();
print &ui_tabs_end(1);
ui_print_footer("", $text{'index_return'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`