mirror of
https://github.com/webmin/webmin.git
synced 2025-08-16 14:51:18 +00:00
76 lines
2.3 KiB
Perl
Executable File
76 lines
2.3 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Show a form for finding Webmin servers
|
|
# Thanks to OpenCountry for sponsoring this feature
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
require './servers-lib.pl';
|
|
our (%text, %config, %access, @cluster_modules);
|
|
$access{'auto'} || &error($text{'auto_ecannot'});
|
|
&ui_print_header(undef, $text{'auto_title'}, "");
|
|
|
|
print &ui_form_start("save_auto.cgi");
|
|
print &ui_table_start($text{'auto_header'}, undef, 2);
|
|
|
|
my $job = &find_cron_job();
|
|
my $mins;
|
|
if ($job && $job->{'mins'} =~ /^\*\/(\d+)$/) {
|
|
$mins = $1;
|
|
}
|
|
elsif ($job && $job->{'mins'} =~ /^(\d+),(\d+)/) {
|
|
$mins = $2-$1;
|
|
}
|
|
elsif ($job && $job->{'mins'} =~ /^(\d+)$/) {
|
|
$mins = 60;
|
|
}
|
|
print &ui_table_row($text{'auto_sched'},
|
|
&ui_radio("sched", $job ? 1 : 0,
|
|
[ [ 0, $text{'no'} ],
|
|
[ 1, &text('auto_sched1', &ui_textbox("mins", $mins, 4)) ] ]));
|
|
|
|
my @nets = split(/\s+/, $config{'auto_net'});
|
|
my $nmode = !$config{'auto_net'} ? 1 :
|
|
&check_ipaddress($nets[0]) ? 0 : 2;
|
|
print &ui_table_row($text{'auto_net'},
|
|
&ui_radio("net_def", $nmode,
|
|
[ [ 1, $text{'auto_auto'}."<br>" ],
|
|
[ 0, &text('auto_ip', &ui_textbox("net", $nmode == 0 ? $config{'auto_net'} : undef, 40))."<br>" ],
|
|
[ 2, &text('auto_iface', &ui_textbox("iface", $nmode == 2 ? $config{'auto_net'} : undef, 8)) ] ]));
|
|
|
|
print &ui_table_row($text{'auto_user'},
|
|
&ui_textbox("auser", $config{'auto_user'}, 20));
|
|
|
|
print &ui_table_row($text{'auto_pass'},
|
|
&ui_password("apass", $config{'auto_pass'}, 20));
|
|
|
|
print &ui_table_row($text{'auto_type'},
|
|
&ui_select("type", $config{'auto_type'} || "unknown",
|
|
[ &get_server_types() ]));
|
|
|
|
print &ui_table_row($text{'auto_email'},
|
|
&ui_opt_textbox("email", $config{'auto_email'}, 20, $text{'auto_none'}));
|
|
|
|
print &ui_table_row($text{'auto_smtp'},
|
|
&ui_opt_textbox("smtp", $config{'auto_smtp'}, 20, $text{'auto_self'}));
|
|
|
|
print &ui_table_row($text{'auto_remove'},
|
|
&ui_yesno_radio("remove", int($config{'auto_remove'})));
|
|
|
|
print &ui_table_row($text{'auto_findself'},
|
|
&ui_yesno_radio("self", int($config{'auto_self'})));
|
|
|
|
foreach my $m (@cluster_modules) {
|
|
if (&foreign_available($m)) {
|
|
print &ui_table_row($text{'auto_'.$m},
|
|
&ui_yesno_radio($m, int($config{'auto_'.$m})));
|
|
}
|
|
}
|
|
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ "save", $text{'save'} ] ]);
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|
|
|