fws
/
smeserver-expire-accounts
4
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add a simple panel

Browse Source
tags/smeserver-expire-accounts-0.1.7-1
Daniel Berteaud 9 years ago
parent 434b6e2aa2
commit d762bd2a84
2 changed files with 316 additions and 0 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 83
      root/etc/e-smith/web/functions/expireaccounts
  2. 233
      root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm

83
root/etc/e-smith/web/functions/expireaccounts
Unescape View File

@ -0,0 +1,83 @@
#!/usr/bin/perl -wT
# vim: ft=xml ts=4 sw=4 et:
#----------------------------------------------------------------------
# heading : Collaboration
# description : User Informations
# navigation : 2000 2100
#----------------------------------------------------------------------
#----------------------------------------------------------------------
# Copyright (C) 2011-2014 Firewall-Services
# daniel@firewall-services.com
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# Technical support for this program is available from Mitel Networks
# Please visit our web site www.mitel.com/sme/ for details.
#----------------------------------------------------------------------
use strict;
use esmith::TestUtils;
use esmith::FormMagick::Panel::expireaccounts;
my $fm = esmith::FormMagick::Panel::expireaccounts->new();
$fm->display();
__DATA__
<form title="FORM_TITLE" header="/etc/e-smith/web/common/head.tmpl" footer="/etc/e-smith/web/common/foot.tmpl">
<page name="First" pre-event="print_status_message()">
<description>DESC_FIRSTPAGE</description>
<subroutine src="print_custom_button('DESC_GENERAL_CONFIG_BUTTON','General')"/>
<subroutine src="print_section_bar()" />
<subroutine src="print_user_table()" />
</page>
<page name="General" pre-event="turn_off_buttons()" post-event="modify_config()">
<description>DESC_MODIFY_CONFIG_PAGE</description>
<field type="text" size="10" id="WarningDelay" validation="is_positive_int" value="get_conf_prop('WarningDelay')">
<description>DESC_WARNING_DELAY</description>
<label>LABEL_WARNING_DELAY</label>
</field>
<field type="text" size="10" id="DaysBetweenWarnings" validation="is_positive_int" value="get_conf_prop('DaysBetweenWarnings')">
<description>DESC_DAYS_BETWEEN_WARNINGS</description>
<label>LABEL_DAYS_BETWEEN_WARNINGS</label>
</field>
<field type="text" size="10" id="WarningRecipient" validation="is_email_or_empty" value="get_conf_prop('WarningRecipient')">
<description>DESC_WARNING_RECIPIENT</description>
<label>LABEL_WARNING_RECIPIENT</label>
</field>
<field type="select" id="WarnUsers" value="get_conf_bool('WarnUsers')" options="'enabled' => 'ENABLED', 'disabled' => 'DISABLED'">
<description>DESC_WARN_USERS</description>
<label>LABEL_WARN_USERS</label>
</field>
<subroutine src="print_save_button()" />
</page>
<page name="Modify" pre-event="turn_off_buttons()" post-event="modify_user()">
<description>MODIFY_USER_DESC</description>
<field type="text" size="30" id="ExpireLockOn" validation="is_future_date_or_empty" value="get_user_prop('ExpireLockOn')">
<description>DESC_LOCK_ON_DATE</description>
<label>LABEL_LOCK_ON_DATE</label>
</field>
<field type="text" size="30" id="ExpireForwardAfterLock" validation="is_email_or_empty" value="get_user_prop('ExpireForwardAfterLock')">
<description>DESC_FORWARD_AFTER_LOCK</description>
<label>LABEL_FORWARD_AFTER_LOCK</label>
</field>
<field type="select" id="ExpireAutoReply" value="get_user_bool('ExpireAutoReply')" options="'enabled' => 'ENABLED', 'disabled' => 'DISABLED'">
<description>DESC_AUTO_REPLY</description>
<label>LABEL_AUTO_REPLY</label>
</field>
<subroutine src="print_save_button()" />
</page>
</form>

233
root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/expireaccounts.pm
Unescape View File

@ -0,0 +1,233 @@
#!/usr/bin/perl -w
#---------------------------------------------------------------------
# Copyright (C) 2016 Firewall-Services
# daniel@firewall-services.com
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#----------------------------------------------------------------------
package esmith::FormMagick::Panel::expireaccounts;
use strict;
use esmith::FormMagick;
use esmith::AccountsDB;
use esmith::ConfigDB;
use esmith::cgi;
use DateTime;
use File::Basename;
use Exporter;
use Carp qw(verbose);
our @ISA = qw(esmith::FormMagick Exporter);
our @EXPORT = qw(
print_user_table
print_save_button
print_custom_button
print_section_bar
);
our $a = esmith::AccountsDB->open || die "Couldn't open AccountsDB";
our $c = esmith::ConfigDB->open || die "Couldn't open ConfigDB";
our %defaults = (
ExpireAutoReply => 'enabled',
WarnUsers => 'enabled'
);
sub new {
shift;
my $self = esmith::FormMagick->new();
$self->{calling_package} = (caller)[0];
bless $self;
return $self;
}
sub print_user_table {
my $self = shift;
my $q = $self->{cgi};
my @users = $a->users;
unless ( scalar @users ) {
print $q->Tr($q->td($self->localise('NO_USER_ACCOUNTS')));
return "";
}
print " <tr>\n <td colspan=\"2\">\n ";
print $q->start_table ({-CLASS => "sme-border"}),"\n ";
print $q->Tr(
esmith::cgi::genSmallCell($q, $self->localise('ACCOUNT'), "header"),
esmith::cgi::genSmallCell($q, $self->localise('USER_NAME'), "header"),
esmith::cgi::genSmallCell($q, $self->localise('ACTION'), "header")
);
my $scriptname = basename($0);
foreach my $u (@users) {
my $username = $u->key();
my $first = $u->prop('FirstName');
my $last = $u->prop('LastName');
my $action = (($u->prop('PasswordSet') || 'no') eq 'yes') ? "<a href=\"$scriptname?page=0&page_stack=&acctName=$username&wherenext=Modify\">" .
$self->localise('MODIFY') . "</a>" : $self->localise('LOCKED');
print $q->Tr(
esmith::cgi::genSmallCell($q, $username, "normal"),
esmith::cgi::genSmallCell($q, "$first $last", "normal"),
esmith::cgi::genSmallCell($q, "$action", "normal")
);
}
print qq(</table></td></tr>\n);
return "";
}
sub print_save_button {
my ($self) = @_;
$self->print_button("SAVE");
}
sub print_section_bar{
my $self = shift;
print " <tr>\n <td colspan='2'>\n";
print "<hr class=\"sectionbar\"/>\n";
return undef;
}
sub print_custom_button{
my ($self, $desc, $page) = @_;
my $url = basename($0) . "?page=0&page_stack=&Next=Next&wherenext=" . $page;
print "<tr><td colspan='2'>";
print $self->{cgi}->p(
$self->{cgi}->a({href => $url, -class => "button-like"}, $self->localise($desc))
);
print qq(</tr>);
return undef;
}
sub get_user_prop{
my ($self, $field) = @_;
return $a->get($self->{cgi}->param('acctName'))->prop("$field") || '';
}
sub get_user_bool{
my ($self, $field) = @_;
my $val = $self->get_user_prop($self, $field);
$val = $defaults{$field} if ($val eq '');
return ($val =~ m/^yes|enabled|1|on$/) ? 'enabled' : 'disabled';
}
sub get_conf_prop{
my ($self, $field) = @_;
return $c->get('ExpireAccounts')->prop($field) || '';
}
sub get_conf_bool{
my ($self, $field) = @_;
my $val = $self->get_conf_prop($self, $field);
$val = $defaults{$field} if ($val eq '');
return ($val =~ m/^yes|enabled|1|on$/) ? 'enabled' : 'disabled';
}
sub modify_config{
my ($self) = @_;
my $rec = $c->get('ExpireAccounts') || $c->new_record('ExpireAccounts', { type => 'service' });
my %new_props = ();
foreach my $prop (qw(WarningDelay DaysBetweenWarnings WarningRecipient)){
if (!$self->{cgi}->param($prop) || $self->{cgi}->param($prop) eq ''){
$rec->delete_prop($prop);
}
else{
$new_props{$prop} = $self->{cgi}->param($prop);
}
}
# Bool props
foreach my $prop (qw(WarnUsers)){
$new_props{$prop} = ($self->{cgi}->param($prop)) ? 'enabled' : 'disabled';
}
$rec->merge_props(%new_props);
$self->success('CONFIG_MODIFIED');
}
sub modify_user {
my ($self) = @_;
my $acctName = $self->{cgi}->param('acctName');
unless (($acctName) = ($acctName =~ /^(\w[\-\w_\.]*)$/)) {
return $self->error(
$self->localise('TAINTED_USER', { acctName => $acctName })
);
}
# Untaint the username before use in system()
$acctName = $1;
my $acct = $a->get($acctName);
my $type = $acct->prop('type');
unless ($type eq 'user'){
return $self->error(
$self->localise('NOT_A_USER_ACCOUNT', { acctName => $acctName })
);
}
my %new_props = ();
foreach my $prop (qw(ExpireLockOn ExpireForwardAfterLock)){
if (!$self->{cgi}->param($prop) || $self->{cgi}->param($prop) eq ''){
$acct->delete_prop($prop);
}
else{
$new_props{$prop} = $self->{cgi}->param($prop);
}
}
$acct->merge_props(%new_props);
$self->success('USER_MODIFIED');
}
# Validation routines
# Number must be int and positive
sub is_positive_int{
my ($self, $num) = @_;
return $self->localise('MUST_BE_POSITIVE_NUMBER') unless ($num =~ m/^\d+$/ && $num > 0);
return 'OK';
}
# Take a string representing a date, must be YYY-MM-DD format, and in the future, or an empty string
sub is_future_date_or_empty {
my ($self, $date_string) = @_;
return 'OK' if ($date_string eq '');
return $self->localise('DATE_FORMAT_INVALID') unless ($date_string =~ /^(\d{4})\-(\d{1,2})\-(\d{1,2})$/);
my $date = eval {
DateTime->new(
year => $1,
month => $2,
day => $3
);
};
return $self->localise('DATE_FORMAT_INVALID') unless ($date);
my $now = DateTime->now;
return $self->localise('DATE_IS_PASSED') unless ($date > $now);
return 'OK';
}
# Take a string, must be a valid email or an empty string
sub is_email_or_empty {
my ($self, $field) = @_;
return $self->localise('BAD_SYNTAX') unless (($field =~ m/^[a-zA-Z][a-zA-Z0-9\._\-]*\@?([a-zA-Z0-9\._\-]*)?$/) || ($field eq ''));
return 'OK';
}
Write Preview
Loading…
Cancel
Save