mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
43 lines
1.3 KiB
Perl
Executable File
43 lines
1.3 KiB
Perl
Executable File
#!/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'} eq '');
|
|
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</option>\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";
|
|
|
|
# Display nicely too
|
|
if (&format_config_allowed()) {
|
|
$data = &read_file_lines($in{'file'}, 1);
|
|
&format_config($data);
|
|
$data = join("\n", @{$data});
|
|
}
|
|
else {
|
|
$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("index.cgi?mode=global", $text{'index_return2'});
|