vsftpd-webmin/additional_config.cgi at main · rdmark/vsftpd-webmin · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl

do "additional_config_options.pl";

use strict;
use vars qw(%text %in $files);
require "vsftpd-lib.pl";

use libvsftpdconfig::HtmlUICreator;

&ReadParse();

# [ [option, textname, [conflicting options], enable option, location option], ... ]

ui_print_header(undef, text('additional_title'), "", "additional", 1, 1);

print HtmlUICreator::render_js_popup_start();

print ui_form_start('additional_config.cgi', 'get');
print ui_select('file', $in{'file'}, [ map {[ @{$_}[0], $text{'config_' . @{$_}[0]} ] } @{$files} ]);
print ui_form_end([['change', text('additional_select_file')]]);

if (exists $in{'file'}) {
	my ($conflicts, $add_opts);
	foreach my $file (@{$files}) {
		if (@{$file}[0] eq $in{'file'}) {
			$conflicts = @{$file}[1];
			$add_opts = @{$file}[2];
		}
	}
	print HtmlUICreator::render_line_config_file($in{'file'}, $conflicts, $add_opts);
}

ui_print_footer(undef, $text{'return_text'});