mirror of
https://github.com/webmin/webmin.git
synced 2026-02-07 16:02:14 +00:00
116 lines
4.0 KiB
Perl
Executable File
116 lines
4.0 KiB
Perl
Executable File
#!/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 = <DIR>);
|
|
close(DIR);
|
|
}
|
|
|
|
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'});
|
|
print "<tr $cb> <td nowrap>\n";
|
|
print "<input type=radio name=source value=0> $text{'upgrade_local'}\n";
|
|
print "<input name=file size=40>\n";
|
|
print file_chooser_button("file", 0),"<br>\n";
|
|
print "<input type=radio name=source value=1> $text{'upgrade_uploaded'}\n";
|
|
print "<input name=upload type=file size=30><br>\n";
|
|
print "<input type=radio name=source value=5> $text{'upgrade_url'}\n";
|
|
print "<input name=url size=40><br>\n";
|
|
print "<input type=radio name=source value=2 checked> $text{'upgrade_ftp'}<br>\n";
|
|
if (!$mode && !$dir) {
|
|
print "<p><input type=checkbox name=delete value=1> ",
|
|
"$text{'upgrade_delete'}<br>\n";
|
|
}
|
|
print "<input type=checkbox name=force value=1> ",
|
|
"$text{'upgrade_force'}<br>\n";
|
|
print ui_table_end();
|
|
print ui_form_end([ [ "upgrade", $text{'upgrade_ok'} ] ]);
|
|
|
|
print &ui_hr();
|
|
|
|
print "$text{'update_desc1'}<p>\n";
|
|
|
|
print ui_form_start("update.cgi");
|
|
print ui_table_start($text{'update_header1'});
|
|
print "<tr $cb> <td nowrap>\n";
|
|
|
|
printf "<input type=radio name=source value=0 %s> %s<br>\n",
|
|
$config{'upsource'} ? "" : "checked", $text{'update_webmin'};
|
|
printf "<input type=radio name=source value=1 %s> %s\n",
|
|
$config{'upsource'} ? "checked" : "", $text{'update_other'};
|
|
printf "<input name=other size=30 value='%s'><br>\n",
|
|
$config{'upsource'};
|
|
|
|
printf "<input type=checkbox name=show value=1 %s> %s<br>\n",
|
|
$config{'upshow'} ? "checked" : "", $text{'update_show'};
|
|
printf "<input type=checkbox name=missing value=1 %s> %s<br>\n",
|
|
$config{'upmissing'} ? "checked" : "", $text{'update_missing'};
|
|
print ui_table_end();
|
|
print ui_form_end([ [ "update", $text{'update_ok'} ] ]);
|
|
|
|
print &ui_hr();
|
|
|
|
print "$text{'update_desc2'}<p>\n";
|
|
|
|
print ui_form_start("update_sched.cgi");
|
|
print ui_table_start($text{'update_header2'});
|
|
print "<tr $cb> <td nowrap>\n";
|
|
printf "<input type=checkbox name=enabled value=1 %s> %s<p>\n",
|
|
$config{'update'} ? 'checked' : '', $text{'update_enabled'};
|
|
|
|
printf "<input type=radio name=source value=0 %s> %s<br>\n",
|
|
$config{'upsource'} ? "" : "checked", $text{'update_webmin'};
|
|
printf "<input type=radio name=source value=1 %s> %s\n",
|
|
$config{'upsource'} ? "checked" : "", $text{'update_other'};
|
|
printf "<input name=other size=30 value='%s'><br>\n",
|
|
$config{'upsource'};
|
|
|
|
if ($config{'cron_mode'} == 0) {
|
|
$upmins = sprintf "%2.2d", $config{'upmins'};
|
|
print &text('update_sched2',
|
|
"<input name=hour size=2 value='$config{'uphour'}'>",
|
|
"<input name=mins size=2 value='$upmins'>",
|
|
"<input name=days size=3 value='$config{'updays'}'>"),"<br>\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 "<br><table border=1>\n";
|
|
&cron::show_times_input($job, 1);
|
|
print "</table><br>\n";
|
|
}
|
|
|
|
printf "<input type=checkbox name=show value=1 %s> %s<br>\n",
|
|
$config{'upshow'} ? 'checked' : '', $text{'update_show'};
|
|
printf "<input type=checkbox name=missing value=1 %s> %s<br>\n",
|
|
$config{'upmissing'} ? 'checked' : '', $text{'update_missing'};
|
|
printf "<input type=checkbox name=quiet value=1 %s> %s<br>\n",
|
|
$config{'upquiet'} ? 'checked' : '', $text{'update_quiet'};
|
|
printf "%s <input name=email size=30 value='%s'><br>\n",
|
|
$text{'update_email'}, $config{'upemail'};
|
|
|
|
print ui_table_end();
|
|
print ui_form_end([ [ "apply", $text{'update_apply'} ] ]);
|
|
|
|
ui_print_footer("", $text{'index_return'});
|
|
|