Daniel Berteaud
9 years ago
parent
434b6e2aa2
commit
d762bd2a84
2 changed files with 316 additions and 0 deletions
@ -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> |
||||||
@ -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'; |
||||||
|
} |
||||||
|
|
||||||
Loading…
Reference in new issue