michael/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2026-06-29 23:30:29 +01:00
Code Issues Actions 3 Packages Projects Releases Wiki Activity

ui-libification

Browse Source
This commit is contained in:
Joe Cooper
2008-08-27 04:08:19 +00:00
parent c667324d37
commit bad337fee7
1 changed files with 19 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
usermin/edit_upgrade.cgi
View File

@@ -3,11 +3,11 @@
# 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'}, "");
$access{'upgrade'} || error($text{'acl_ecannot'});
ui_print_header(undef, $text{'upgrade_title'}, "");
# what kind of install was this?
$mode = &get_install_type();
my $mode = get_install_type();
# was the install to a target directory?
if (open(DIR, "$config{'usermin_dir'}/install-dir")) {
@@ -17,15 +17,14 @@ if (open(DIR, "$config{'usermin_dir'}/install-dir")) {
print $text{"upgrade_desc$mode"},"<p>";
print "<form action=upgrade.cgi method=post enctype=multipart/form-data>\n";
print "<input type=hidden name=mode value='$mode'>\n";
print "<input type=hidden name=dir value='$dir'>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'upgrade_title'}</b></td> </tr>\n";
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 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";
@@ -37,17 +36,15 @@ if (!$mode && !$dir) {
}
print "<input type=checkbox name=force value=1> ",
"$webmin::text{'upgrade_force'}<br>\n";
print "</td></tr></table>\n";
print "<input type=submit value=\"$text{'upgrade_ok'}\">\n";
print "</form>\n";
print ui_table_end();
print ui_form_end([ [ "upgrade", $text{'upgrade_ok'} ] ]);
print &ui_hr();
print "$text{'update_desc1'}<p>\n";
print "<form action=update.cgi>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'update_header1'}</b></td> </tr>\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",
@@ -61,17 +58,15 @@ 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 "</td></tr></table>\n";
print "<input type=submit value=\"$text{'update_ok'}\">\n";
print "</form>\n";
print ui_table_end();
print ui_form_end([ [ "update", $text{'update_ok'} ] ]);
print &ui_hr();
print "$text{'update_desc2'}<p>\n";
print "<form action=update_sched.cgi>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'update_header2'}</b></td> </tr>\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'};
@@ -113,9 +108,8 @@ printf "<input type=checkbox name=quiet value=1 %s> %s<br>\n",
printf "%s <input name=email size=30 value='%s'><br>\n",
$text{'update_email'}, $config{'upemail'};
print "</td></tr></table>\n";
print "<input type=submit value=\"$text{'update_apply'}\">\n";
print "</form>\n";
print ui_table_end();
print ui_form_end([ [ "apply", $text{'update_apply'} ] ]);
&ui_print_footer("", $text{'index_return'});
ui_print_footer("", $text{'index_return'});