| Server IP : 49.231.201.246 / Your IP : 216.73.216.149 Web Server : Apache/2.4.18 (Ubuntu) System : Linux 246 4.4.0-210-generic #242-Ubuntu SMP Fri Apr 16 09:57:56 UTC 2021 x86_64 User : root ( 0) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : exec,passthru,shell_exec,system,proc_open,popen,pcntl_exec MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /proc/thread-self/root/usr/share/webmin/servers/ |
Upload File : |
#!/usr/bin/perl
# Save scheduled finding of servers
# Thanks to OpenCountry for sponsoring this feature
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './servers-lib.pl';
our (%in, %text, $module_name, $cron_cmd, @cluster_modules, %config, %access);
$access{'auto'} || &error($text{'auto_ecannot'});
&ReadParse();
&error_setup($text{'auto_err'});
my $job = &find_cron_job();
# Validate inputs
if ($in{'sched'}) {
$in{'mins'} =~ /^\d+$/ && $in{'mins'} > 0 || &error($text{'auto_emins'});
if ($in{'net_def'} == 1) {
$config{'auto_net'} = undef;
}
elsif ($in{'net_def'} == 0) {
my @nets = split(/\s+/, $in{'net'});
foreach my $n (@nets) {
&check_ipaddress($n) ||
&error($text{'auto_enet'});
}
$config{'auto_net'} = $in{'net'};
}
else {
$in{'iface'} =~ /^[a-z]+\d*(:\d+)?$/ ||
&error($text{'auto_eiface'});
$config{'auto_net'} = $in{'iface'};
}
$in{'auser'} =~ /\S/ || &error($text{'auto_euser'});
$config{'auto_user'} = $in{'auser'};
$config{'auto_pass'} = $in{'apass'};
$config{'auto_type'} = $in{'type'};
foreach my $m (@cluster_modules) {
if (&foreign_available($m)) {
$config{'auto_'.$m} = $in{$m};
}
}
$config{'auto_remove'} = $in{'remove'};
$config{'auto_self'} = $in{'self'};
$in{'email_def'} || $in{'email'} =~ /\S/ ||&error($text{'auto_eemail'});
$config{'auto_email'} = $in{'email_def'} ? undef : $in{'email'};
$in{'smtp_def'} || &to_ipaddress($in{'smtp'}) ||
&to_ip6address($in{'smtp'}) ||
&error($text{'auto_esmtp'});
$config{'auto_smtp'} = $in{'smtp_def'} ? undef : $in{'smtp'};
&save_module_config();
}
# Create or update Cron job
&cron::create_wrapper($cron_cmd, $module_name, "auto.pl");
my @mins;
if ($in{'sched'}) {
# Work out minutes
for(my $i=0; $i<60; $i+=$in{'mins'}) {
push(@mins, $i);
}
}
if ($in{'sched'} && !$job) {
# Create the job
$job = { 'user' => 'root',
'command' => $cron_cmd,
'active' => 1,
'mins' => join(",", @mins),
'hours' => '*',
'days' => '*',
'months' => '*',
'weekdays' => '*',
};
&cron::create_cron_job($job);
}
elsif (!$in{'sched'} && $job) {
# Delete the job
&cron::delete_cron_job($job);
}
elsif ($in{'sched'} && $job) {
# Update the job
$job->{'mins'} = join(",", @mins);
$job->{'hours'} = $job->{'days'} =
$job->{'months'} = $job->{'weekdays'} = '*';
&cron::change_cron_job($job);
}
&redirect("");