#!/usr/bin/perl -w #---------------------------------------------------------------------- # copyright (C) 2010 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 esmith::util; use esmith::AccountsDB; my $a = esmith::AccountsDB->open() or die "Couldn't open AccountsDB\n"; # Check share intranet my $intranet = $a->get("intranet"); if (!$intranet){ $a->new_record("intranet", { type => 'share', Name => 'Partage Commun', WriteGroups => 'admins,equipe', smbAccess => 'browseable', httpAccess => 'none', RecycleBin => 'disabled' }); unless ( system("/sbin/e-smith/signal-event", "share-create", "intranet") == 0 ){ die "Failed to create share intranet\n"; } } # Check share extranet my $extranet = $a->get("extranet"); if (!$extranet){ $a->new_record("extranet", { type => 'share', Name => 'Partage Externe', WriteGroups => 'admins,equipe', smbAccess => 'browseable', httpAccess => 'global', RequireSSL => 'disabled', Indexes => 'enabled', DynamicContent => 'disabled', RecycleBin => 'disabled' }); unless ( system("/sbin/e-smith/signal-event", "share-create", "extranet") == 0 ){ die "Failed to create share extranet\n"; } } # Check share tools my $tools = $a->get('tools'); if (!$tools){ $a->new_record("tools", { type => 'share', Name => 'Outils iPasserelle', WriteGroups => 'admins', ReadGroups => 'equipe', smbAccess => 'non-browseable', httpAccess => 'local', RequireSSL => 'disabled', Indexes => 'enabled', DynamicContent => 'disabled', RecycleBin => 'disabled' }); unless ( system("/sbin/e-smith/signal-event", "share-create", "tools") == 0 ){ die "Failed to create share tools\n"; } } else{ unless ( system("/sbin/e-smith/signal-event", "share-modify-files", "tools") == 0 ){ die "Failed to modify share tools\n"; } }