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:50, 9 June 2015
, 15:50, 9 June 2015→Web Pages
esmith::cgi::genNameValueRow ($q,
esmith::cgi::genNameValueRow ($q,
"Windows workgroup",
"sambaWorkgroup",
$conf {'SambaWorkgroup'}),
esmith::cgi::genTextRow
esmith::cgi::genTextRow
($q, $q->p ('Enter the name that the e-smith server should use',
($q, $q->p ('Enter the name that the e-smith server should use',
'for Windows and Macintosh file sharing.')),
esmith::cgi::genNameValueRow ($q,
esmith::cgi::genNameValueRow ($q,
"Server name",
"sambaServerName",
$conf {'SambaServerName'}),
esmith::cgi::genTextRow
esmith::cgi::genTextRow
($q, $q->p ('Should the e-smith server be the domain master for your 'Windows workgroup?',
($q, $q->p ('Should the e-smith server be the domain master for your 'Windows workgroup?',
'Typically the answer should be',
$q->b ('no'),
'if you are running a Windows NT server on this network, and,',
$q->b ('yes'),
'otherwise.') . ' ' .
$q->p ('If you enable e-smith server to be the domain master a',
$q->p ('If you enable e-smith server to be the domain master a',
'netlogon.bat script will be created in order to make netlogon', 'clients use the existing script. The script is harmless',
'for those who do not wish to use it. It is recommended that only',
'experienced users customize the netlogon.bat script.')),
Create a drop down button, here you have two choices, yes and no. popup_menu has a minimum or 2 parameters, name and value. Optionaly you can give a defaults or label the buttons
Create a drop down button, here you have two choices, yes and no. popup_menu has a minimum or 2 parameters, name and value. Optionaly you can give a defaults or label the buttons
$q->Tr (esmith::cgi::genCell ($q, "Domain master:"),
$q->Tr (esmith::cgi::genCell ($q, "Domain master:"),
esmith::cgi::genCell ($q, $q->popup_menu (-name => 'sambaDomainMaster',
-values => ['yes', 'no'],
-default => $conf {'SambaDomainMaster'},
-labels => \%yesnoLabels))),
Create a button to push, name and label it. End the html for the page.
Create a button to push, name and label it. End the html for the page.
esmith::cgi::genButtonRow ($q,
esmith::cgi::genButtonRow ($q,
$q->submit (-name => 'action', -value => 'Save')));
print $q->hidden (-name => 'state', -override => 1, -default => 'perform');
print $q->hidden (-name => 'state', -override => 1, -default => 'perform');
if (db_get_prop(\%conf, 'ntpd', 'status') eq "enabled")
if (db_get_prop(\%conf, 'ntpd', 'status') eq "enabled")
{
{
$enabledChk = "checked";
}
}
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
print $q->table ({border => 0, cellspacing => 0, cellpadding => 4},
esmith::cgi::genTextRow
($q, $q->p ($description)),
esmith::cgi::genTextRow
($q, $q->p ("Enable NTP Service ',
'>input type=\"checkbox\" name=\"ntpdEnabled\"$enabledChk<")),
esmith::cgi::genNameValueRow ($q,
"NTP server",
"ntpServer",
$oldNTPServer),
esmith::cgi::genButtonRow ($q,
$q->submit (-name => 'action', -value => 'Save NTP Settings')));
print '';
print '';
print $q->p ($q->a ({href => $q->url (-absolute => 1) . "?state=create"},
print $q->p ($q->a ({href => $q->url (-absolute => 1) . "?state=create"},
'Click here'),
'to create a user group.');
Which we defined above
Which we defined above
if ($msg eq '')
if ($msg eq '')
{
{
esmith::cgi::genHeaderNonCacheable
($q, \%conf, 'Create, remove, or change user groups');
}
}
else
else
{
{
esmith::cgi::genHeaderNonCacheable
($q, \%conf, 'Operation status report');
print $q->p ($msg);
print $q->hr;
}
}
