VladPolskiy/webmin
1
0
Fork 0
mirror of https://github.com/webmin/webmin.git synced 2025-08-16 14:51:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

Initial checkin of Webmin

Browse Source
This commit is contained in:
Jamie Cameron
2007-04-12 20:24:50 +00:00
parent 27d3d6cb97
commit fc1c1b243f
13213 changed files with 746058 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
apache/allmanual_form.cgi Executable file
View File

@ -0,0 +1,33 @@
#!/usr/local/bin/perl
# allmanual_form.cgi
# Display a text box for manually editing directives from one of the files
require './apache-lib.pl';
&ReadParse();
$access{'types'} eq '*' && $access{'virts'} eq '*' ||
&error($text{'manual_ecannot'});
&ui_print_header(undef, $text{'manual_configs'}, "");
$conf = &get_config();
@files = grep { -f $_ } &unique(map { $_->{'file'} } @$conf);
$in{'file'} = $files[0] if (!$in{'file'});
print "<form action=allmanual_form.cgi>\n";
print "<input type=submit value='$text{'manual_file'}'>\n";
print "<select name=file>\n";
foreach $f (@files) {
printf "<option %s>%s\n",
$f eq $in{'file'} ? 'selected' : '', $f;
$found++ if ($f eq $in{'file'});
}
print "</select></form>\n";
$found || &error($text{'manual_efile'});
print &ui_form_start("allmanual_save.cgi", "form-data");
print &ui_hidden("file", $in{'file'}),"\n";
$data = &read_file_contents($in{'file'});
print &ui_textarea("data", $data, 20, 80, undef, undef,
"style='width:100%'"),"<br>\n";
print &ui_form_end([ [ "save", $text{'save'} ] ]);
&ui_print_footer("", $text{'index_return'});