You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
139 lines
4.6 KiB
139 lines
4.6 KiB
#!/usr/bin/perl -w
|
|
|
|
#----------------------------------------------------------------------
|
|
# copyright (C) 2011-2012 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;
|
|
|
|
use strict;
|
|
use Errno;
|
|
use esmith::ConfigDB;
|
|
use esmith::AccountsDB;
|
|
use User::pwent;
|
|
use File::Copy qw(mv);
|
|
use File::Path qw(mkpath);
|
|
|
|
my $configdb = esmith::ConfigDB->open_ro or
|
|
die "Could not open configuration db\n";
|
|
my $accountsdb = esmith::AccountsDB->open_ro or
|
|
die "Could not open accounts db\n";
|
|
|
|
my $domain = $configdb->get('DomainName')->value();
|
|
my $l = $configdb->get('ldap') or die 'Error reading ldap configuration';
|
|
|
|
my $defCity = $l->prop('defaultCity') || '';
|
|
my $defComp = $l->prop('defaultCompany') || '';
|
|
my $defDep = $l->prop('defaultDepartment') || '';
|
|
my $defTel = $l->prop('defaultPhoneNumber') || '';
|
|
my $defStreet = $l->prop('defaultStreet') || '';
|
|
|
|
my $event = shift;
|
|
my $userName = shift;
|
|
my @users;
|
|
|
|
if (defined $userName){
|
|
my $rec = $accountsdb->get($userName);
|
|
die
|
|
"Account $userName is not a user account; signature generation failed.\n"
|
|
unless $userName eq 'admin' || ($rec && $rec->prop('type') eq "user");
|
|
@users = ($rec);
|
|
}
|
|
else{
|
|
@users = ( $accountsdb->users, $accountsdb->get('admin') );
|
|
}
|
|
|
|
if (-d "/home/e-smith/files/shares/tools/files/templates_signatures"){
|
|
mv ("/home/e-smith/files/shares/tools/files/templates_signatures/",
|
|
"/home/e-smith/files/shares/tools/files/signatures/templates/");
|
|
rmdir "/home/e-smith/files/shares/tools/files/templates_signatures";
|
|
}
|
|
|
|
foreach my $user (@users){
|
|
$userName = $user->key;
|
|
|
|
setpwent();
|
|
my $home = getpwnam($userName)->dir;
|
|
my $dir = '/home/e-smith/files/shares/tools/files/signatures/' . $userName;
|
|
|
|
# Migrate frmo previous path
|
|
if ( -d "$home/home/signature" && !-d $dir ){
|
|
mv ("$home/home/signature", $dir);
|
|
}
|
|
if (!-d "$dir"){
|
|
mkpath "$dir";
|
|
}
|
|
|
|
my $first = $user->prop('FirstName') || '';
|
|
my $last = $user->prop('LastName') || '';
|
|
my $mail = $user->prop('PreferredEmail') || "$userName\@$domain";
|
|
my $tel = $user->prop('Phone') || $defTel;
|
|
my $mob = $user->prop('Mobile') || '';
|
|
my $fax = $user->prop('Fax') || '';
|
|
my $func = $user->prop('Function1') || '';
|
|
my $func2 = $user->prop('Function2') || '';
|
|
my $func3 = $user->prop('Function3') || '';
|
|
my $func4 = $user->prop('Function4') || '';
|
|
my $comp = $user->prop('Company') || $defComp;
|
|
my $dep = $user->prop('Dept') || $defDep;
|
|
my $postalcode = $user->prop('PostalCode') || '';
|
|
my $street = $user->prop('Street') || $defStreet;
|
|
my $city = $user->prop('City') || $defCity;
|
|
my $url = $user->prop('Url') || '';
|
|
my $template = $user->prop('SignatureTemplate') || "email";
|
|
|
|
my $addr = "$street $postalcode $city";
|
|
|
|
$tel = ($tel eq '') ? '':"Tél.: $tel";
|
|
$mob = ($mob eq '') ? '':"Mobile: $mob";
|
|
$fax = ($fax eq '') ? '':"Fax: $fax";
|
|
$url = ($url eq '') ? '':"Web: $url";
|
|
|
|
foreach my $ext (qw/txt html/){
|
|
open(R, '<', "/home/e-smith/files/shares/tools/files/signatures/templates/$template.$ext") ||
|
|
next;
|
|
open(W, '>', "$dir/email.$ext") || die "Error opening output file $dir/email.$ext\n";
|
|
|
|
foreach (<R>){
|
|
s/__NOM__/$last/g;
|
|
s/__PRENOM__/$first/g;
|
|
s/__EMAIL__/$mail/g;
|
|
s/__TEL__/$tel/g;
|
|
s/__MOBILE__/$mob/g;
|
|
s/__FAX__/$fax/g;
|
|
s/__FONCTION__/$func/g;
|
|
s/__FONCTION2__/$func2/g;
|
|
s/__FONCTION3__/$func3/g;
|
|
s/__FONCTION4__/$func4/g;
|
|
s/__SERVICE__/$dep/g;
|
|
s/__ENTREPRISE__/$comp/g;
|
|
s/__ADRESSE__/$addr/g;
|
|
s/__URL__/$url/g;
|
|
print W $_;
|
|
}
|
|
close R;
|
|
close W;
|
|
}
|
|
}
|
|
|
|
die "Failed to reset permissions on tools share"
|
|
unless ( system("/sbin/e-smith/signal-event", "share-modify-files", "tools") == 0 );
|
|
|
|
exit (0);
|
|
|
|
|