MINI SHELL

#!/usr/bin/perl
# Show a form for finding Webmin servers
# Thanks to OpenCountry for sponsoring this feature

require './servers-lib.pl';
$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);

$job = &find_cron_job();
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)) ] ]));

@nets = split(/\s+/, $config{'auto_net'});
$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'} ],
		[ 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",
		       [ @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 $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'});