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:55, 9 June 2015
, 16:55, 9 June 2015no edit summary
Line 322:
Line 322:
esmith::cgi::genSmallCell ($q, $account),+ $q->td (' '), #also works+ db_set+ db_get+ db_delete+ db_set_type+ db_get_type+ db_get_prop+ db_set_prop+ db_delete_prop+ db_print+ db_show+ db_print_type+ db_print_prop+ db_set(\%conf, 'DelegateMailServer', $delegate);+ db_delete(\%conf, 'DelegateMailServer');+ my $type = db_get_type(\%accounts, $groupName);+
− if ($type eq "pseudonym")+ {+ my $acct = db_get_prop(\%accounts, $groupName, "Account");+
if ($specifyHeader eq 'on')+ {+ db_set_prop(\%conf, "fetchmail", 'SecondaryMailEnvelope', $header);+ }+ else+ {+ db_delete_prop(\%conf, "fetchmail", 'SecondaryMailEnvelope');+ }+ db_get_prop(\%conf, "fetchmail", "SecondaryMailServer")+ if ($specifyHeader eq 'on')+ {+ db_set_prop(\%conf, "fetchmail", 'SecondaryMailEnvelope', $header);+ }+ else+ {+ db_delete_prop(\%conf, "fetchmail", 'SecondaryMailEnvelope');+ }+ || 'every15min';+ (db_get_prop(\%conf, "fetchmail", "status") eq 'enabled') ?+ (db_get_prop(\%conf, "fetchmail", "Method") || 'standard') :+ 'standard';+ $SecondaryMailUseEnvelope = "on";+ $SecondaryMailUseEnvelope = "off";+ $SecondaryMailEnvelope = "";+ print $q->p ("Tape backups are enabled.");+ print $q->p ("Tape backups are disabled.");+ foreach $pseudonym ("everyone", "mailer-daemon", "postmaster")+ {+ showInitial ($q,+ "Error: account name \"$HostName\" is too long. The+ maximum is 32 characters.");+ return;+ $password = $1;+ $password = "";+ $groupName = $1;+ showInitial ($q,+ "Error: unexpected characters in group name: " .+ "\"$groupName\". The group name should contain only " .+ "lower-case letters, numbers, hyphens, periods, and underscores, and should start " .+ "with a lower-case letter. For example \"sales\", \"beta5\", and \"reseller_partners\" are " .+ "all valid group names, but \"3rd-event\", \"Marketing Team\" " .+ "and \"order-status\" are not.");+ return;+ esmith::cgi::genNameValueRow ($q,+ "Hostname",+ "HostName",+ ""),+ $MACAddress = $1;+ showInitial ($q,+ "Error: Ethernet Address \"$MACAddress\"+ return;+ or die ("Error occurred while updating system configuration.\n");+
($q, \%conf, "Dialup funtion performed - down");+
print $q->Tr (esmith::cgi::genSmallRedCell ($q, $pseudonym),
print $q->Tr (esmith::cgi::genSmallRedCell ($q, $pseudonym),
− esmith::cgi::genSmallCell ($q, $account),
− $q->td (' '), #also works
esmith::cgi::genSmallCell ($q, " " ),
esmith::cgi::genSmallCell ($q, " " ),
);
);
Line 471:
Line 471:
#--------------------------------------------------------------------------
#--------------------------------------------------------------------------
− db_set
− db_get
− db_delete
− db_set_type
− db_get_type
− db_get_prop
− db_set_prop
− db_delete_prop
− db_print
− db_show
− db_print_type
− db_print_prop
* examples
* examples
Line 533:
Line 533:
else
else
{
{
− db_set(\%conf, 'DelegateMailServer', $delegate);
}
}
))
))
Line 561:
Line 561:
if ($delegate eq "")
if ($delegate eq "")
{
{
− db_delete(\%conf, 'DelegateMailServer');
}
}
))
))
Line 585:
Line 585:
if (db_get(\%accounts, $groupName))
if (db_get(\%accounts, $groupName))
{
{
− my $type = db_get_type(\%accounts, $groupName);
if ($type eq "pseudonym")
− {
− my $acct = db_get_prop(\%accounts, $groupName, "Account");
))
))
Line 602:
Line 602:
sub db_set_prop (%$$$;)
sub db_set_prop (%$$$;)
((
((
− if ($specifyHeader eq 'on')
− {
− db_set_prop(\%conf, "fetchmail", 'SecondaryMailEnvelope', $header);
− }
− else
− {
− db_delete_prop(\%conf, "fetchmail", 'SecondaryMailEnvelope');
− }
))
))
Line 625:
Line 625:
((
((
my $SecondaryMailServer =
my $SecondaryMailServer =
− db_get_prop(\%conf, "fetchmail", "SecondaryMailServer")
))
))
Line 638:
Line 638:
my ($hash, $key, $prop)
my ($hash, $key, $prop)
((
((
− if ($specifyHeader eq 'on')
− {
− db_set_prop(\%conf, "fetchmail", 'SecondaryMailEnvelope', $header);
− }
− else
− {
− db_delete_prop(\%conf, "fetchmail", 'SecondaryMailEnvelope');
− }
))
))
Line 700:
Line 700:
my $FetchmailFreqOffice = db_get_prop(\%conf, "fetchmail", "FreqOffice")
my $FetchmailFreqOffice = db_get_prop(\%conf, "fetchmail", "FreqOffice")
− || 'every15min';
my $account = db_get_prop(\%accounts, $pseudonym, 'Account'); $account = "Administrator" if ($account eq "admin"); "(value eq 'something') ?" if first is true determine the second
my $account = db_get_prop(\%accounts, $pseudonym, 'Account'); $account = "Administrator" if ($account eq "admin"); "(value eq 'something') ?" if first is true determine the second
my $FetchMethod =
my $FetchMethod =
− (db_get_prop(\%conf, "fetchmail", "status") eq 'enabled') ?
− (db_get_prop(\%conf, "fetchmail", "Method") || 'standard') :
− 'standard';
"if (defined $something)" if defined then first else second
"if (defined $something)" if defined then first else second
Line 714:
Line 714:
if (defined $SecondaryMailEnvelope)
if (defined $SecondaryMailEnvelope)
{
{
− $SecondaryMailUseEnvelope = "on";
}
}
else
else
{
{
− $SecondaryMailUseEnvelope = "off";
− $SecondaryMailEnvelope = "";
}
}
Line 726:
Line 726:
if (defined $backup_status && $backup_status eq "enabled")
if (defined $backup_status && $backup_status eq "enabled")
{
{
− print $q->p ("Tape backups are enabled.");
}
}
else
else
{
{
− print $q->p ("Tape backups are disabled.");
}
}
db_set_prop(\%conf, "fetchmail", 'SecondaryMailServer', $server) unless ($server eq '');; db_set_prop(\%conf, "fetchmail", 'FreqOffice', $fetchmailFreqOffice); "foreach"
db_set_prop(\%conf, "fetchmail", 'SecondaryMailServer', $server) unless ($server eq '');; db_set_prop(\%conf, "fetchmail", 'FreqOffice', $fetchmailFreqOffice); "foreach"
− foreach $pseudonym ("everyone", "mailer-daemon", "postmaster")
− {
do something over
do something over
}
}
Line 745:
Line 745:
if (length $HostName > 32)
if (length $HostName > 32)
{
{
− showInitial ($q,
− "Error: account name \"$HostName\" is too long. The
− maximum is 32 characters.");
− return;
}
}
Line 756:
Line 756:
if ($password =~ /^(.*)$/)
if ($password =~ /^(.*)$/)
{
{
− $password = $1;
}
}
else
else
{
{
− $password = "";
}
}
Line 768:
Line 768:
if ($groupName =~ /^([a-z][\-\_\.a-z0-9]*)$/)
if ($groupName =~ /^([a-z][\-\_\.a-z0-9]*)$/)
{
{
− $groupName = $1;
}
}
else
else
{
{
− showInitial ($q,
− "Error: unexpected characters in group name: " .
− "\"$groupName\". The group name should contain only " .
− "lower-case letters, numbers, hyphens, periods, and underscores, and should start " .
− "with a lower-case letter. For example \"sales\", \"beta5\", and \"reseller_partners\" are " .
− "all valid group names, but \"3rd-event\", \"Marketing Team\" " .
− "and \"order-status\" are not.");
− return;
If you have a lot of tests you can define a set of expressions, describe them, and test for them
If you have a lot of tests you can define a set of expressions, describe them, and test for them
Line 797:
Line 797:
#get input
#get input
− esmith::cgi::genNameValueRow ($q,
− "Hostname",
− "HostName",
− ""),
#test input
#test input
my $MACAddress = lc($q->param ('MACAddress'));
my $MACAddress = lc($q->param ('MACAddress'));
Line 810:
Line 810:
elsif ($MACAddress =~ /^$REGEXPMACAddress$/ )
elsif ($MACAddress =~ /^$REGEXPMACAddress$/ )
{
{
− $MACAddress = $1;
}
}
else
else
{
{
− showInitial ($q,
− "Error: Ethernet Address \"$MACAddress\"
is invalid. Ethernet addresses must be in the
is invalid. Ethernet addresses must be in the
form \"AA:BB:CC:DD:EE:FF\" and only contain the
form \"AA:BB:CC:DD:EE:FF\" and only contain the
numbers 0-9 and the letters A-F. Did not create
numbers 0-9 and the letters A-F. Did not create
host entry.");
host entry.");
− return;
====Run command (event)====
====Run command (event)====
Line 826:
Line 826:
system ("/sbin/e-smith/signal-event", "email-update") == 0
system ("/sbin/e-smith/signal-event", "email-update") == 0
− or die ("Error occurred while updating system configuration.\n");
esmith::cgi::genHeaderNonCacheable
esmith::cgi::genHeaderNonCacheable
Line 838:
Line 838:
esmith::cgi::genHeaderNonCacheable
esmith::cgi::genHeaderNonCacheable
− ($q, \%conf, "Dialup funtion performed - down");
esmith::cgi::genResult ($q, "The modem is going down");
esmith::cgi::genResult ($q, "The modem is going down");
