5,576
edits
Changes
From SME Server
Jump to navigationJump to searchCreate server-manager panels by perl cgi (deprecated) (view source)
Revision as of 15:54, 9 June 2015
, 15:54, 9 June 2015→Run Subroutines
# Looks good; go ahead and change the parameters.
# Looks good; go ahead and change the parameters.
#------------------------------------------------------------
#------------------------------------------------------------
if ($newStatus ne "on") # asking to have NTP disabled
if ($newStatus ne "on") # asking to have NTP disabled
{
{
# make sure that the parameters are set for disabled
# make sure that the parameters are set for disabled
my $old = $conf {'UnsavedChanges'};
my $old = $conf {'UnsavedChanges'};
db_set_prop(\%conf, 'ntpd', 'status', 'disabled');
db_set_prop(\%conf, 'ntpd', 'status', 'disabled');
db_set_prop(\%conf, 'ntpd', 'NTPServer', '');
db_set_prop(\%conf, 'ntpd', 'NTPServer', '');
$conf {'UnsavedChanges'} = $old;
$conf {'UnsavedChanges'} = $old;
system ("/sbin/e-smith/signal-event", "timeserver-update") == 0
system ("/sbin/e-smith/signal-event", "timeserver-update") == 0
or die ("Error occurred while updating system configuration.\n");
or die ("Error occurred while updating system configuration.\n");
esmith::cgi::genHeaderNonCacheable
esmith::cgi::genHeaderNonCacheable
($q, \%conf, "Network time server disabled successfully");
($q, \%conf, "Network time server disabled successfully");
esmith::cgi::genResult ($q, "You have disabled this service: The server will rely on its', 'internal clock, and will not try to synchronize from a time server.");
esmith::cgi::genResult ($q, "You have disabled this service: The server will rely on its', 'internal clock, and will not try to synchronize from a time server.");
}
}
else # enable service and synch with ntpServer
else # enable service and synch with ntpServer
{
{
if ($ntpServer =~ /^([a-zA-Z0-9\.\-]+)$/)
if ($ntpServer =~ /^([a-zA-Z0-9\.\-]+)$/)
}
}
}
}
return;
return;
}
}
