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.
153 lines
5.6 KiB
153 lines
5.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') || '';
|
|
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') || '';
|
|
my $dep = $user->prop('Dept') || '';
|
|
my $postalcode = $user->prop('PostalCode') || '';
|
|
my $street = $user->prop('Street') || '';
|
|
my $city = $user->prop('City') || '';
|
|
my $url = $user->prop('Url') || '';
|
|
my $template = $user->prop('SignatureTemplate') || "email";
|
|
|
|
my $addr = "$street $postalcode $city";
|
|
|
|
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";
|
|
my $src = '';
|
|
$src .= $_ foreach (<R>);
|
|
|
|
# Delete if value is empty
|
|
$src =~ s/__START_NOM__.*__END_NOM__//smg if ($last eq '');
|
|
$src =~ s/__START_PRENOM__.*__END_PRENOM__//smg if ($first eq '');
|
|
$src =~ s/__START_EMAIL__.*__END_EMAIL__//smg if ($mail eq '');
|
|
$src =~ s/__START_TEL__.*__END_TEL__//smg if ($tel eq '');
|
|
$src =~ s/__START_MOBILE__.*__END_MOBILE__//smg if ($mob eq '');
|
|
$src =~ s/__START_FAX__.*__END_FAX__//smg if ($fax eq '');
|
|
$src =~ s/__START_FONCTION__.*__END_FONCTION__//smg if ($func eq '');
|
|
$src =~ s/__START_FONCTION2__.*__END_FONCTION2__//smg if ($func2 eq '');
|
|
$src =~ s/__START_FONCTION3__.*__END_FONCTION3__//smg if ($func3 eq '');
|
|
$src =~ s/__START_FONCTION4__.*__END_FONCTION4__//smg if ($func4 eq '');
|
|
$src =~ s/__START_ENTREPRISE__.*__END_ENTREPRISE__//smg if ($comp eq '');
|
|
$src =~ s/__START_ADRESSE__.*__END_ADRESSE__//smg if ($addr eq '');
|
|
$src =~ s/__START_URL__.*__END_URL__//smg if ($url eq '');
|
|
|
|
$src =~ s/__NOM__/$last/g;
|
|
$src =~ s/__PRENOM__/$first/g;
|
|
$src =~ s/__EMAIL__/$mail/g;
|
|
$src =~ s/__TEL__/$tel/g;
|
|
$src =~ s/__MOBILE__/$mob/g;
|
|
$src =~ s/__FAX__/$fax/g;
|
|
$src =~ s/__FONCTION__/$func/g;
|
|
$src =~ s/__FONCTION2__/$func2/g;
|
|
$src =~ s/__FONCTION3__/$func3/g;
|
|
$src =~ s/__FONCTION4__/$func4/g;
|
|
$src =~ s/__SERVICE__/$dep/g;
|
|
$src =~ s/__ENTREPRISE__/$comp/g;
|
|
$src =~ s/__ADRESSE__/$addr/g;
|
|
$src =~ s/__URL__/$url/g;
|
|
|
|
# Now remove any remaining __START_ and __END_ tags
|
|
$src =~ s/__(START|END)_\w+__//g;
|
|
print W $src;
|
|
|
|
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);
|
|
|
|
|