385 lines
12 KiB
Perl
385 lines
12 KiB
Perl
|
package SrvMngr::Controller::Uservacations;
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
# heading : User management
|
||
|
|
# description : User Vacations
|
||
|
|
# navigation : 2000 150
|
||
|
|
#
|
||
|
|
# name : Uservacationsget, method : get, url : /uservacations, ctlact : Uservacations#main
|
||
|
|
# name : Uservacationspost,method : post, url : /Uservacations, ctlact : Uservacations#do_display
|
||
|
|
# name : Uservacations1, method : get, url : /Uservacations1, ctlact : Uservacations#do_display
|
||
|
|
# name : Uservacations2, method : post, url : /Uservacations2, ctlact : Uservacations#do_display
|
||
|
|
# routes : end
|
||
|
|
#----------------------------------------------------------------------
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use Mojo::Base 'Mojolicious::Controller';
|
||
|
|
|
||
|
|
#use DateTime; #Not part of SME10 mix
|
||
|
|
use POSIX;
|
||
|
|
|
||
|
|
use Locale::gettext;
|
||
|
|
use SrvMngr::I18N;
|
||
|
|
use SrvMngr qw(theme_list init_session);
|
||
|
|
|
||
|
|
use Data::Dumper;
|
||
|
|
use esmith::util;
|
||
|
|
use esmith::HostsDB;
|
||
|
|
use esmith::AccountsDB;
|
||
|
|
|
||
|
|
our $db = esmith::ConfigDB->open();
|
||
|
|
our $adb = esmith::AccountsDB->open();
|
||
|
|
|
||
|
|
our $PanelUser = $ENV{'REMOTE_USER'} ||'';
|
||
|
|
$PanelUser = $1 if ($PanelUser =~ /^([a-z][\.\-a-z0-9]*)$/);
|
||
|
|
|
||
|
|
our %delegatedVacations;
|
||
|
|
|
||
|
|
use constant FALSE => 0;
|
||
|
|
use constant TRUE => 1;
|
||
|
|
|
||
|
|
sub main {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
$c->app->log->info( $c->log_req );
|
||
|
|
|
||
|
|
my %vac_datas = ();
|
||
|
|
my $title = $c->l('vac_FORM_TITLE');
|
||
|
|
my $modul = '';
|
||
|
|
|
||
|
|
$vac_datas{trt} = 'LIST';
|
||
|
|
|
||
|
|
my @vacations = get_vacation_table($c);
|
||
|
|
my $empty = (scalar @vacations == 0);
|
||
|
|
|
||
|
|
$vac_datas{"first"} = 'vac_MODIFY_DESCRIPTION';
|
||
|
|
|
||
|
|
$c->stash(
|
||
|
|
title => $title,
|
||
|
|
modul => $modul,
|
||
|
|
vac_datas => \%vac_datas,
|
||
|
|
vacations =>\@vacations,
|
||
|
|
empty => $empty
|
||
|
|
);
|
||
|
|
$c->render( template => 'uservacations' );
|
||
|
|
}
|
||
|
|
|
||
|
|
sub do_display {
|
||
|
|
|
||
|
|
my $c = shift;
|
||
|
|
$c->app->log->info( $c->log_req );
|
||
|
|
|
||
|
|
my $rt = $c->current_route;
|
||
|
|
my $trt = ( $c->param('trt') || 'LIST' );
|
||
|
|
|
||
|
|
$trt = 'ADD' if ( $rt eq 'Uservacations1' );
|
||
|
|
$trt = 'ADD1' if ( $rt eq 'Uservacations2' );
|
||
|
|
|
||
|
|
my %vac_datas = ();
|
||
|
|
my $title = $c->l('vac_FORM_TITLE');
|
||
|
|
my $modul = '';
|
||
|
|
|
||
|
|
|
||
|
|
if ( $trt eq 'ADD' ) {
|
||
|
|
# Add or change a vacation message - called from the list panel
|
||
|
|
# Get the data and pass it across.
|
||
|
|
my $account = $c->param("account");
|
||
|
|
my $user = $adb->get($account);
|
||
|
|
my $username = $user->prop("FirstName")." ".$user->prop("LastName");
|
||
|
|
my $EmailVacation = $user->prop('EmailVacation') || '';
|
||
|
|
my $EmailVacationFrom = $user->prop('EmailVacationFrom') || '';
|
||
|
|
my $EmailVacationTo = $user->prop('EmailVacationTo') || '';
|
||
|
|
my $VacText = get_vacation_text($c);
|
||
|
|
$c->stash(account=>$account,
|
||
|
|
username=>$username,
|
||
|
|
EmailVacation=>$EmailVacation,
|
||
|
|
EmailVacationFrom=>$EmailVacationFrom,
|
||
|
|
EmailVacationTo=>$EmailVacationTo,
|
||
|
|
VacText=>$VacText
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( $trt eq 'ADD1' ) {
|
||
|
|
#Add or edit vacation message.
|
||
|
|
my $ret = add_vac_message($c);
|
||
|
|
#Return to list page if success
|
||
|
|
if ($ret eq "OK") {
|
||
|
|
$trt = "LIST";
|
||
|
|
$vac_datas{success} = "vac_SUCCESS";
|
||
|
|
|
||
|
|
} else {
|
||
|
|
my $account = $c->param("account");
|
||
|
|
my $user = $adb->get($account);
|
||
|
|
my $username = $user->prop("FirstName")." ".$user->prop("LastName");
|
||
|
|
my $EmailVacationFrom = $c->param('EmailVacationFrom') || '';
|
||
|
|
my $EmailVacationTo = $c->param('EmailVacationTo') || '';
|
||
|
|
my $EmailVacation = $c->param('EmailVacation') || '';
|
||
|
|
my $VacText = $c->param("VacText");
|
||
|
|
$c->stash(account=>$account,
|
||
|
|
username=>$username,
|
||
|
|
EmailVacation=>$EmailVacation,
|
||
|
|
EmailVacationFrom=>$EmailVacationFrom,
|
||
|
|
EmailVacationTo=>$EmailVacationTo,
|
||
|
|
VacText=>$VacText
|
||
|
|
);
|
||
|
|
#Error - return to Add page
|
||
|
|
$trt = "ADD";
|
||
|
|
$vac_datas{error} = $ret;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ( $trt eq 'LIST' ) {
|
||
|
|
|
||
|
|
#List all the users and vacation message details.
|
||
|
|
my @vacations = get_vacation_table($c);
|
||
|
|
my $empty = (scalar @vacations == 0);
|
||
|
|
$c->stash(
|
||
|
|
empty => $empty,
|
||
|
|
vacations =>\@vacations
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
$vac_datas{'trt'} = $trt;
|
||
|
|
$c->stash( title => $title, modul => $modul, vac_datas => \%vac_datas );
|
||
|
|
$c->render( template => 'uservacations' );
|
||
|
|
}
|
||
|
|
|
||
|
|
sub user_accounts_exist
|
||
|
|
{
|
||
|
|
my $q = shift;
|
||
|
|
#return scalar $adb->users;
|
||
|
|
if (scalar $adb->users)
|
||
|
|
{ return $q->l('vac_DESCRIPTION'); }
|
||
|
|
}
|
||
|
|
|
||
|
|
sub get_vacation_table
|
||
|
|
{
|
||
|
|
my $self = shift;
|
||
|
|
|
||
|
|
#We want to retrieve granted group from DB, and retrieve users of groups
|
||
|
|
my $record = $adb->get($PanelUser);
|
||
|
|
my $dg;
|
||
|
|
if ($record) {$dg=$record->prop('delegatedVacations')||'';}
|
||
|
|
else {$dg = '';}
|
||
|
|
$dg =~ s/ //g;
|
||
|
|
my @g = split(/,/, $dg);
|
||
|
|
my @visiblemembers = ();
|
||
|
|
|
||
|
|
foreach my $g (@g) {
|
||
|
|
my $members = $adb->get_prop("$g",'Members');
|
||
|
|
next unless defined $members;
|
||
|
|
$members =~ s/ //g;
|
||
|
|
my @members = split(/,/, $members);
|
||
|
|
push @visiblemembers , @members ;
|
||
|
|
}
|
||
|
|
|
||
|
|
foreach my $k ( @visiblemembers )
|
||
|
|
{
|
||
|
|
$delegatedVacations{$k}=1;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
my @users = $adb->users;
|
||
|
|
return () if (@users == 0); ##$self->l("ACCOUNT_USER_NONE")
|
||
|
|
return () if (@visiblemembers == 0 && $dg ne '');#; #$self->l("NO_USERS_IN_GRANTED_GROUPS")
|
||
|
|
|
||
|
|
my @data = ();
|
||
|
|
|
||
|
|
for my $user (@users)
|
||
|
|
{
|
||
|
|
next if %delegatedVacations and not $delegatedVacations{$user->key};
|
||
|
|
# make it clearer which uses have vacation
|
||
|
|
my $EmailVacation = $user->prop('EmailVacation') || '';
|
||
|
|
my $EmailVacationFrom = $user->prop('EmailVacationFrom') || '';
|
||
|
|
my $EmailVacationTo = $user->prop('EmailVacationTo') || '';
|
||
|
|
my $status = $user->prop('EmailVacation') || '';
|
||
|
|
if ($status eq 'yes') { $status = 'YES'; } else { $status = ''; }
|
||
|
|
|
||
|
|
push @data,
|
||
|
|
{ User => $user->key,
|
||
|
|
FullName => $user->prop('FirstName') . " " .$user->prop('LastName'),
|
||
|
|
status => $self->l($status),
|
||
|
|
EmailVacation => $EmailVacation,
|
||
|
|
EmailVacationFrom => showDate($EmailVacationFrom),
|
||
|
|
EmailVacationTo => showDate($EmailVacationTo),
|
||
|
|
Modify => $self->l('vac_MODIFY'),
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return @data;
|
||
|
|
}
|
||
|
|
|
||
|
|
sub showDate
|
||
|
|
{
|
||
|
|
my $strDate = shift;
|
||
|
|
my ($Year,$Month,$Day) = ($strDate =~ /(\d{4})(\d{2})(\d{2})/);
|
||
|
|
#my $Unix = mktime(0,0,0,$Day,$Month,$Year);
|
||
|
|
return "$Year-$Month-$Day";
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
sub modify_link
|
||
|
|
{
|
||
|
|
my ($data_item, $row, $field) = @_;
|
||
|
|
|
||
|
|
return "uservacations?" .
|
||
|
|
join("&",
|
||
|
|
"page=0",
|
||
|
|
"page_stack=",
|
||
|
|
"Next=Next",
|
||
|
|
"User=" . $row->{User},
|
||
|
|
"FullName=" . $row->{FullName},
|
||
|
|
"EmailVacation=" . $row->{EmailVacation},
|
||
|
|
"EmailVacationFrom=" . $row->{EmailVacationFrom},
|
||
|
|
"EmailVacationTo=" . $row->{EmailVacationTo},
|
||
|
|
"wherenext=VACATION_PAGE_MODIFY");
|
||
|
|
}
|
||
|
|
|
||
|
|
# this formats the text to display on screen
|
||
|
|
sub get_vacation_text
|
||
|
|
{
|
||
|
|
my $q = shift;
|
||
|
|
my $domain = $db->get_value('DomainName');
|
||
|
|
my $user = $q->param('account');
|
||
|
|
|
||
|
|
my $fullname = $adb->get_prop($user, "FirstName") . " " .
|
||
|
|
$adb->get_prop($user, "LastName");
|
||
|
|
|
||
|
|
my $vfile = "/home/e-smith/files/users/$user/.vacation.msg";
|
||
|
|
|
||
|
|
my $from = $q->l('vac_FROM');
|
||
|
|
my $Subject = $q->l('vac_SUBJECT');
|
||
|
|
my $away = $q->l('vac_AWAY_FROM_MAIL');
|
||
|
|
my $return = $q->l('vac_ANSWER_TO_OBJECT_SENDER');
|
||
|
|
|
||
|
|
#my $ExistingMessage = "$from $fullname <\;$user\@$domain>\;\n"."$Subject $return\n".
|
||
|
|
# "\n$away\n"."\n--\n$fullname";
|
||
|
|
|
||
|
|
my $ExistingMessage = "$from $fullname \<$user\@$domain\>\n"."$Subject $return\n".
|
||
|
|
"\n$away\n"."\n--\n$fullname";
|
||
|
|
|
||
|
|
|
||
|
|
# if exists and is not empty
|
||
|
|
if (( -e $vfile ) && (! -z $vfile ))
|
||
|
|
{
|
||
|
|
open (VACATION, "<$vfile")
|
||
|
|
or die "Error: Could not open file: $vfile\n";
|
||
|
|
my @vacationTemp;
|
||
|
|
|
||
|
|
#reformat so email address isn't hidden inside < >
|
||
|
|
while (<VACATION>)
|
||
|
|
{
|
||
|
|
$_ =~ s/</<\;/;
|
||
|
|
$_ =~ s/>/>\;/;
|
||
|
|
push (@vacationTemp, $_);
|
||
|
|
}
|
||
|
|
|
||
|
|
$ExistingMessage = join ("", @vacationTemp);
|
||
|
|
|
||
|
|
close VACATION;
|
||
|
|
}
|
||
|
|
return $ExistingMessage;
|
||
|
|
}
|
||
|
|
|
||
|
|
# saves the text to .vacation.msg
|
||
|
|
sub add_vac_message
|
||
|
|
{
|
||
|
|
my $q = shift;
|
||
|
|
|
||
|
|
my $domain = $db->get_value('DomainName');
|
||
|
|
my $user = $q->param('account');
|
||
|
|
|
||
|
|
my $EmailVacation = $q->param('EmailVacation')||"no";
|
||
|
|
#die($EmailVacation);
|
||
|
|
#if ($EmailVacation eq "yes") {$EmailVacation = "yes";} else {$EmailVacation = "no";}
|
||
|
|
|
||
|
|
#Decode To and FROM to standard format - comes over in html5 iso format yyyy-mm-dd
|
||
|
|
my $EmailVacationFrom = trim($q->param('EmailVacationFrom'));
|
||
|
|
my ($fromYear,$fromMonth,$fromDay) = ($EmailVacationFrom =~ /(\d{4})-(\d{2})-(\d{2})/);
|
||
|
|
$EmailVacationFrom = $fromYear.$fromMonth.$fromDay;
|
||
|
|
if ($EmailVacationFrom !~ m/^2[0-9]{3}[0|1][0-9][0-3][0-9]$/ and $EmailVacationFrom ne "") {return "vac_FROM_DATE_INCORRECT";}
|
||
|
|
my $EmailVacationTo = trim($q->param('EmailVacationTo'));
|
||
|
|
my ($toYear,$toMonth,$toDay) = ($EmailVacationTo =~ /(\d{4})-(\d{2})-(\d{2})/);
|
||
|
|
$EmailVacationTo = $toYear.$toMonth.$toDay;
|
||
|
|
# $EmailVacationTo =~ s/-//g; #Just take out "-".
|
||
|
|
if ($EmailVacationTo !~ m/^2[0-9]{3}[0|1][0-9][0-3][0-9]$/ and $EmailVacationFrom ne "") {return "vac_TO_DATE_INCORRECT";}
|
||
|
|
#Check not the same or From follows To.
|
||
|
|
if ($EmailVacationTo ne "" and $EmailVacationTo eq $EmailVacationFrom) {return "vac_DATES_THE_SAME";}
|
||
|
|
my $UnixFrom = mktime(0,0,0,$fromDay,$fromMonth,$fromYear);
|
||
|
|
my $UnixTo = mktime(0,0,0,$toDay,$toMonth,$toYear);
|
||
|
|
if ($UnixTo < $UnixFrom) {return "vac_TO_DATE_MUST_BE_LATER";}
|
||
|
|
|
||
|
|
|
||
|
|
my $new_message = $q->param('VacText');
|
||
|
|
my $vfile = "/home/e-smith/files/users/$user/.vacation.msg";
|
||
|
|
|
||
|
|
my $fullname = $adb->get_prop($user, "FirstName") . " " .
|
||
|
|
$adb->get_prop($user, "LastName");
|
||
|
|
|
||
|
|
my $from = 'From:';
|
||
|
|
my $away = $q->l('vac_AWAY_FROM_MAIL');
|
||
|
|
my $return = $q->l('vac_ANSWER_TO_OBJECT_SENDER');
|
||
|
|
|
||
|
|
my $vacation_text = "$from $fullname \<$user\@$domain\>\n"."Subject: $return\n".
|
||
|
|
"\n$away \n"."\n--\n$fullname";
|
||
|
|
|
||
|
|
my $reset = $vacation_text;
|
||
|
|
|
||
|
|
# if exists and is not empty
|
||
|
|
if (( -e $vfile ) && (! -z $vfile ))
|
||
|
|
{
|
||
|
|
open (VACATION, "<$vfile")
|
||
|
|
or die "Error: Could not open file: $vfile\n";
|
||
|
|
my @vacationTemp = <VACATION>;
|
||
|
|
$vacation_text = join ("", @vacationTemp);
|
||
|
|
|
||
|
|
close VACATION;
|
||
|
|
}
|
||
|
|
|
||
|
|
chomp $new_message;
|
||
|
|
|
||
|
|
# reset msg to default,
|
||
|
|
if ($new_message =~ /reset/)
|
||
|
|
{ $vacation_text = $reset; }
|
||
|
|
else
|
||
|
|
{
|
||
|
|
#or save new_message
|
||
|
|
unless ($new_message eq "")
|
||
|
|
{ $vacation_text = $new_message; }
|
||
|
|
}
|
||
|
|
|
||
|
|
# Strip out DOS Carriage Returns (CR)
|
||
|
|
$vacation_text =~ s/\r//g;
|
||
|
|
|
||
|
|
unlink $vfile;
|
||
|
|
open (VACATION, ">$vfile")
|
||
|
|
or die ("Error opening vacation message.\n");
|
||
|
|
|
||
|
|
print VACATION "$vacation_text";
|
||
|
|
close VACATION;
|
||
|
|
|
||
|
|
esmith::util::chownFile($user, $user,
|
||
|
|
"/home/e-smith/files/users/$user/.vacation.msg");
|
||
|
|
|
||
|
|
$adb->set_prop($user, 'EmailVacation', $EmailVacation);
|
||
|
|
$adb->set_prop($user, 'EmailVacationFrom', $EmailVacationFrom);
|
||
|
|
$adb->set_prop($user, 'EmailVacationTo', $EmailVacationTo);
|
||
|
|
|
||
|
|
#the first is more correct but is slower
|
||
|
|
#system ("/sbin/e-smith/signal-event", "email-update", $user) == 0
|
||
|
|
system ("/etc/e-smith/events/actions/qmail-update-user event $user") == 0
|
||
|
|
or die ("Error occurred updating .qmail\n");
|
||
|
|
|
||
|
|
if (($EmailVacation eq 'no') && ( -e "/home/e-smith/files/users/$user/.vacation"))
|
||
|
|
{
|
||
|
|
system ("/bin/rm /home/e-smith/files/users/$user/.vacation") == 0
|
||
|
|
or die ("Error resetting vacation db.\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
return "OK";
|
||
|
|
}
|
||
|
|
|
||
|
|
sub trim { my $s = shift; $s =~ s/^\s+|\s+$//g; return $s };
|
||
|
|
|
||
|
|
1;
|