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:50, 9 June 2015
, 16:50, 9 June 2015→Web Pages
Line 151:
Line 151:
"Windows workgroup",+ "sambaWorkgroup",+ $conf {'SambaWorkgroup'}),+ 'for Windows and Macintosh file sharing.')),+ "Server name",+ "sambaServerName",+ $conf {'SambaServerName'}),+ 'Typically the answer should be',+ $q->b ('no'),+ 'if you are running a Windows NT server on this network, and,',+ $q->b ('yes'),+ 'otherwise.') . ' ' .+ '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.')),+ esmith::cgi::genCell ($q, $q->popup_menu (-name => 'sambaDomainMaster',+ -values => ['yes', 'no'],+ -default => $conf {'SambaDomainMaster'},+ -labels => \%yesnoLabels))),+ $q->submit (-name => 'action', -value => 'Save')));+
$enabledChk = "checked";+
Line 221:
Line 221:
− 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')));+
'Click here'),+ 'to create a user group.');+ esmith::cgi::genHeaderNonCacheable+ ($q, \%conf, 'Create, remove, or change user groups');+ esmith::cgi::genHeaderNonCacheable+ ($q, \%conf, 'Operation status report');+
− print $q->p ($msg);+ print $q->hr;+
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');
Line 206:
Line 206:
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 '';
Line 242:
Line 242:
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
Line 265:
Line 265:
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;
}
}
