#!/usr/local/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? if (open(DIR, "$config{'usermin_dir'}/install-dir")) { chop($dir =
"; 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'}); print "
",
"$text{'upgrade_delete'}
\n";
}
print " ",
"$text{'upgrade_force'}
\n";
print ui_table_end();
print ui_form_end([ [ "upgrade", $text{'upgrade_ok'} ] ]);
print &ui_hr();
print "$text{'update_desc1'}
\n"; print ui_form_start("update.cgi"); print ui_table_start($text{'update_header1'}); print "
\n"; print ui_form_start("update_sched.cgi"); print ui_table_start($text{'update_header2'}); print "
\n",
$config{'update'} ? 'checked' : '', $text{'update_enabled'};
printf " %s
\n",
$config{'upsource'} ? "" : "checked", $text{'update_webmin'};
printf " %s\n",
$config{'upsource'} ? "checked" : "", $text{'update_other'};
printf "
\n",
$config{'upsource'};
if ($config{'cron_mode'} == 0) {
$upmins = sprintf "%2.2d", $config{'upmins'};
print &text('update_sched2',
"",
"",
""),"
\n";
}
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 "