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:55, 9 June 2015
, 15:55, 9 June 2015no edit summary
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, " " ),
);
);
#--------------------------------------------------------------------------
#--------------------------------------------------------------------------
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
else
else
{
{
db_set(\%conf, 'DelegateMailServer', $delegate);
}
}
))
))
if ($delegate eq "")
if ($delegate eq "")
{
{
db_delete(\%conf, 'DelegateMailServer');
}
}
))
))
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");
))
))
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');
}
))
))
((
((
my $SecondaryMailServer =
my $SecondaryMailServer =
db_get_prop(\%conf, "fetchmail", "SecondaryMailServer")
))
))
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');
}
))
))
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
if (defined $SecondaryMailEnvelope)
if (defined $SecondaryMailEnvelope)
{
{
$SecondaryMailUseEnvelope = "on";
}
}
else
else
{
{
$SecondaryMailUseEnvelope = "off";
$SecondaryMailEnvelope = "";
}
}
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
}
}
if (length $HostName > 32)
if (length $HostName > 32)
{
{
showInitial ($q,
"Error: account name \"$HostName\" is too long. The
maximum is 32 characters.");
return;
}
}
if ($password =~ /^(.*)$/)
if ($password =~ /^(.*)$/)
{
{
$password = $1;
}
}
else
else
{
{
$password = "";
}
}
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
#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'));
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)====
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
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");
