5,576
edits
Changes
From SME Server
Jump to navigationJump to searchCreate server-manager panels by perl cgi (deprecated) (view source)
Revision as of 16:54, 9 June 2015
, 16:54, 9 June 2015→Run Subroutines
Line 391:
Line 391:
$newStatus = "on";+ $newStatus = "off";+ $day = $1;+ $day = "1";+ 'Please choose a day between 1 and 31.");+ return;+ #------------------------------------------------------------+ # Looks good; go ahead and change the parameters.+ #------------------------------------------------------------+ # make sure that the parameters are set for disabled+ my $old = $conf {'UnsavedChanges'};+ db_set_prop(\%conf, 'ntpd', 'status', 'disabled');+ db_set_prop(\%conf, 'ntpd', 'NTPServer', '');+ $conf {'UnsavedChanges'} = $old;+ system ("/sbin/e-smith/signal-event", "timeserver-update") == 0+ or die ("Error occurred while updating system configuration.\n");+ esmith::cgi::genHeaderNonCacheable+ ($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.");+ if ($ntpServer =~ /^([a-zA-Z0-9\.\-]+)$/)+ {+ $ntpServer = $1;+ }+ elsif ($ntpServer =~ /^\s*$/)+ {+ $ntpServer = "";+ }+ else+ {+ esmith::cgi::genHeaderNonCacheable ($q, \%conf, "Error while changing network',+ esmith::cgi::genResult ($q, "Invalid NTP server address \"$ntpServer\".");+ return;+ }+
if (defined ($q->param ('ntpdEnabled')))
if (defined ($q->param ('ntpdEnabled')))
{
{
− $newStatus = "on";
}
}
else
else
{
{
− $newStatus = "off";
}
}
Line 402:
Line 402:
my $day = $q->param ('day');
my $day = $q->param ('day');
if ($day =~ /^(.*)$/) {
if ($day =~ /^(.*)$/) {
− $day = $1;
} else {
} else {
− $day = "1";
}
}
if (($day < 1) || ($day > 31))
if (($day < 1) || ($day > 31))
Line 412:
Line 412:
{
{
esmith::cgi::genResult ($q, "Error: invalid day of month ($day). ',
esmith::cgi::genResult ($q, "Error: invalid day of month ($day). ',
− 'Please choose a day between 1 and 31.");
− return;
}
}
The final part of the panel saves the key/values pair or key/prop|values sets and then calls an e-smith action or a unix command
The final part of the panel saves the key/values pair or key/prop|values sets and then calls an e-smith action or a unix command
− #------------------------------------------------------------
− # 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
− my $old = $conf {'UnsavedChanges'};
− db_set_prop(\%conf, 'ntpd', 'status', 'disabled');
− db_set_prop(\%conf, 'ntpd', 'NTPServer', '');
− $conf {'UnsavedChanges'} = $old;
− system ("/sbin/e-smith/signal-event", "timeserver-update") == 0
− or die ("Error occurred while updating system configuration.\n");
− esmith::cgi::genHeaderNonCacheable
− ($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.");
}
}
− else # enable service and synch with ntpServer
+ else # enable service and synch with ntpServer
{
{
− if ($ntpServer =~ /^([a-zA-Z0-9\.\-]+)$/)
− {
− $ntpServer = $1;
− }
− elsif ($ntpServer =~ /^\s*$/)
− {
− $ntpServer = "";
− }
− else
− {
− esmith::cgi::genHeaderNonCacheable ($q, \%conf, "Error while changing network',
'time server setting");
'time server setting");
− esmith::cgi::genResult ($q, "Invalid NTP server address \"$ntpServer\".");
− return;
− }
}
}
