From: cajus Date: Mon, 7 Apr 2008 14:43:09 +0000 (+0000) Subject: More cleanup X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=d8c36476cfe15fe110768de023d273470c215e5d;p=gosa.git More cleanup git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@10246 594d385d-05f5-0310-b6e9-bd551577e9d8 --- diff --git a/gosa-core/contrib/attic/README.OpenSides b/gosa-core/contrib/attic/README.OpenSides new file mode 100644 index 000000000..eb59a46e7 --- /dev/null +++ b/gosa-core/contrib/attic/README.OpenSides @@ -0,0 +1,31 @@ +goSamba.pl - This script will help you populate your ldap tree with + the correct attribute when using the smbldap-tools + from idealx. + +goNagios.pl - This script will help you to manage the authentification + users inside of the cgi.cfg, contacts.cfg, contactgroups.cfg + +glpi.README - how to make the glpi plugin work + +nagios.README - how to make the nagios plugin work + +pptp.README - how to make the pptp connectivity extension work + +phpscheduleit.README - how to make the phpscheduleit extension work + + +The php_writeexcel library is coming from + +http://www.bettina-attack.de/jonny/projects/php_writeexcel/ + +Author : + +LICENSE : GNU LESSER GENERAL PUBLIC LICENSE + +Bug: + +It doesn't work on php5 we are working on it. + +Benoit Mortier +Guillaume Delecourt +Vincent Seynhaeve diff --git a/gosa-core/contrib/demo.ldif b/gosa-core/contrib/demo.ldif deleted file mode 100644 index dc2ce2f9d..000000000 --- a/gosa-core/contrib/demo.ldif +++ /dev/null @@ -1,48 +0,0 @@ -dn: dc=gonicus,dc=de -objectClass: dcObject -objectClass: organization -description: Base object -dc: gonicus -o: GONICUS GmbH - -dn: cn=terminal-admin,dc=gonicus,dc=de -objectClass: person -cn: terminal-admin -sn: Upload user -description: GOto Upload Benutzer -userPassword:: e2tlcmJlcm9zfXRlcm1pbmFsYWRtaW5AR09OSUNVUy5MT0NBTAo= - -dn: ou=groups,dc=gonicus,dc=de -objectClass: organizationalUnit -ou: groups - -dn: ou=people,dc=gonicus,dc=de -objectClass: organizationalUnit -ou: people - -dn: cn=admin,ou=people,dc=gonicus,dc=de -objectClass: person -objectClass: organizationalPerson -objectClass: inetOrgPerson -objectClass: gosaAccount -uid: admin -cn: admin -givenName: admin -sn: GOsa main administrator -sambaLMPassword: 10974C6EFC0AEE1917306D272A9441BB -sambaNTPassword: 38F3951141D0F71A039CFA9D1EC06378 -userPassword:: dGVzdGVy - -dn: cn=administrators,ou=groups,dc=gonicus,dc=de -objectClass: gosaObject -objectClass: posixGroup -objectClass: top -gosaSubtreeACL: :all -cn: administrators -gidNumber: 999 -memberUid: admin - -dn: ou=incoming,dc=gonicus,dc=de -objectClass: organizationalUnit -ou: incoming - diff --git a/gosa-core/contrib/fix_munged b/gosa-core/contrib/fix_munged deleted file mode 100755 index 405d345af..000000000 --- a/gosa-core/contrib/fix_munged +++ /dev/null @@ -1,95 +0,0 @@ -#!/usr/bin/php - - * - * Copyright (C) 2006 GONICUS GmbH - * - * 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 - * - * Contact information: GONICUS GmbH - * Moehnestrasse 11-17 - * D-59755 Arnsberg - * Germany - * tel: ++49 2932 916 0 - * fax: ++49 2932 916 230 - * email: info@GONICUS.de - * http://www.GONICUS.de - * */ - -/* Modify these settings to your needs */ -$ldap_host= "localhost"; -$ldap_port= "389"; -$ldap_base= "dc=gonicus,dc=de"; -$ldap_admin= "cn=ldapadmin,".$ldap_base; -$ldap_password= "tester"; - -/* Internal Settings */ -$ldap_protocol= "3"; -$filter= "(&(objectClass=sambaSamAccount)(sambaMungedDial=*))"; -$attributes= array("dn","sambaMungedDial"); - -print("This script will try to convert all ldap entries that have the sambaMungedDial-Attribute set, into the new \n". - "format that win2003sp1 and later requires. If an entry is already in the new format, it is not touched. \n". - "BEWARE: This script is not widely tested yet, so use it at your own risk! Be sure to backup your complete LDAP \n". - "before running.\n". - "Do you want to continue (y/n)?\n"); - -$handle= fopen("php://stdin","r"); -$input=(fgets($handle,16)); -fclose($handle); -if(substr(strtolower($input),0,1)!="y") { - exit(1); -} -/* Connect to server */ -$connection= ldap_connect($ldap_host,$ldap_port) - or die ('Could not connect to server '.$ldap_host."\n!"); -ldap_set_option($connection, LDAP_OPT_PROTOCOL_VERSION, $ldap_protocol); -ldap_bind($connection,$ldap_admin,$ldap_password) - or die ('Could not bind to server '.$ldap_host."!\n"); - -$results= ldap_get_entries($connection, ldap_search($connection, $ldap_base, $filter, $attributes)); - -$count= 0; - -if(array_key_exists('count', $results)) { - $count= $results['count']; -} - -if($count > 0) { - print('We found '.$count.' matching '.(($count==1)?'entry':'entries').".\n"); -} - -for($i=0; $i<$count; $i++) { - $entry= $results[$i]; - print('Converting '.$entry['dn'].'...'); - $mungedDial = new sambaMungedDial(); - $mungedDial->load($entry['sambamungeddial'][0]); - $modify['sambaMungedDial'][0]= $mungedDial->getMunged(); - if(ldap_modify($connection,$entry['dn'],$modify)) { - print("done.\n"); - } else { - print("failed.\n"); - } -} - -ldap_close($connection); -?> - diff --git a/gosa-core/contrib/opensides/README.OpenSides b/gosa-core/contrib/opensides/README.OpenSides deleted file mode 100644 index eb59a46e7..000000000 --- a/gosa-core/contrib/opensides/README.OpenSides +++ /dev/null @@ -1,31 +0,0 @@ -goSamba.pl - This script will help you populate your ldap tree with - the correct attribute when using the smbldap-tools - from idealx. - -goNagios.pl - This script will help you to manage the authentification - users inside of the cgi.cfg, contacts.cfg, contactgroups.cfg - -glpi.README - how to make the glpi plugin work - -nagios.README - how to make the nagios plugin work - -pptp.README - how to make the pptp connectivity extension work - -phpscheduleit.README - how to make the phpscheduleit extension work - - -The php_writeexcel library is coming from - -http://www.bettina-attack.de/jonny/projects/php_writeexcel/ - -Author : - -LICENSE : GNU LESSER GENERAL PUBLIC LICENSE - -Bug: - -It doesn't work on php5 we are working on it. - -Benoit Mortier -Guillaume Delecourt -Vincent Seynhaeve diff --git a/gosa-core/contrib/opensides/glpi.README b/gosa-core/contrib/opensides/glpi.README deleted file mode 100644 index 52cfcf204..000000000 --- a/gosa-core/contrib/opensides/glpi.README +++ /dev/null @@ -1,13 +0,0 @@ -To use the glpi connectivity extension - -1) Add the glpi.schema to your schema directory - -2) Remove the comment in front of glpiAccount in gosa.conf - - - -Benoit Mortier -OpenSides November 2005 - - - diff --git a/gosa-core/contrib/opensides/goNagios.pl b/gosa-core/contrib/opensides/goNagios.pl deleted file mode 100755 index 754681dbc..000000000 --- a/gosa-core/contrib/opensides/goNagios.pl +++ /dev/null @@ -1,391 +0,0 @@ -#!/usr/bin/perl -w - - -# Copyright (C) 2005 Guillaume Delecourt -# Copyright (C) 2005 Vincent Senave -# -# -# 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. -# -# - -use Net::LDAP; -use Getopt::Std; -use Net::LDAP::Schema; -use Net::LDAP::LDIF; -use Data::Dumper; -use MIME::Lite; -use Sys::Syslog; -use Switch; -use strict; - -# Variables a config - -my $admindef="admin"; - -my $cgi_file="cgi.cfg"; -my $contacts_file="contacts.cfg"; -my $contacts_groups_file="contactgroups.cfg"; - -my $TS_FILE='/tmp/gosa_timestamp'; -my %Options; -my $nb_user=0; -my $nb_groupe=0; - -my ($i,$file,$ldap,@nagiosmail, - $line,$text,$mesg,$entry,$userlist1,$userlist2,$userlist3,$userlist4, - $userlist5,$userlist6,$userlist7,$msg,@groupname,@groupmembers,@contactlias, - @groupdescription,@servicenotificationoptions,@servicenotificationperiod, - @hostnotificationoptions,@hostnotificationperiod,$stdout, - $usercontact,$members,@contactname,@nagiosalias,$j,@entries -); - -# Les parametres de connexion proviennent du fichier smbldap-bind.conf -my $gosa_bind_conf="/etc/gosa_bind.conf"; -my $gosa_ldap_conf="/etc/gosaldap.conf"; -my %config_bind = &read_conf($gosa_bind_conf); -my %config = &read_conf($gosa_ldap_conf); - -my $peopleou=$config{peopleou}; -my $groupeou=$config{groupeou}; -my $base=$config{base}; -my $scope=$config{scope};# par defaut -my $server=$config{server}; - -my $admin=$config_bind{masterDN}; -my $password=$config_bind{masterPw}; - - - $stdout.="\n\nSearch new Nagios attribute in user list\n"; - $stdout.="-"x55;$stdout.="\n"; - #my $ts = getTS; - -# $ldap = &anonBind; -# $mesg = $ldap->search( -# base => $LDAP_BASE, -# filter => "(&(modifyTimestamp>=$ts)(!(objectClass=gosaUserTemplate)))" -# ); - - # Put timestamp to file - #putTS; - - # Work if changes is present - #if($mesg->count > 0) - #{ - #$stdout.="Processing records modified after $ts\n\n"; - $ldap = Net::LDAP->new($server); - $mesg = $ldap->bind($admin,password=>$password) or syslog('error',$mesg->err) && print $mesg->code && die $mesg->error; - - - - #Partie pour l'objectClass NAgios Contact - $mesg = $ldap->search(filter=>"(&(objectClass~=nagiosContact))", base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - $i=0; - foreach $entry (@entries) { - $stdout.="\nContact $i : \nName\t\t\t";$contactname[$i]=$entry->get_value('uid');$stdout.=$contactname[$i]; - $stdout.="\n\n\tmail:\t\t\t\t";$nagiosmail[$i]=$entry->get_value('NagiosMail');$stdout.=$nagiosmail[$i]; - $stdout.="\n\talias:\t\t\t\t";$nagiosalias[$i]=$entry->get_value('NagiosAlias');$stdout.=$nagiosalias[$i]; - $stdout.="\n\tHostNotificationPeriod:\t\t";$hostnotificationperiod[$i]=$entry->get_value('HostNotificationPeriod');$stdout.=$hostnotificationperiod[$i]; - $stdout.="\n\tServiceNotificationPeriod:\t";$servicenotificationperiod[$i]=$entry->get_value('ServiceNotificationPeriod');$stdout.=$servicenotificationperiod[$i]; - $stdout.="\n\tHostNotificationOptions:\t";$hostnotificationoptions[$i]=$entry->get_value('HostNotificationOptions');$stdout.=$hostnotificationoptions[$i]; - $stdout.="\n\tServiceNotificationOptions:\t";$servicenotificationoptions[$i]=$entry->get_value('ServiceNotificationOptions');$stdout.=$servicenotificationoptions[$i]; - $stdout.="\n"." "x15;$stdout.="-"x20;$stdout.=" "x 15; - $usercontact.=$entry->get_value('uid')." ,"; - $i++; - } - $nb_user=$i; - - - #Partie pour l'objectClass NAgios Group - $mesg = $ldap->search(filter=>"(&(objectClass~=nagiosContactGroup))", base=>$groupeou,scope=>$scope); - @entries = $mesg->entries; - $i=0; - foreach $entry (@entries) { - $stdout.="\nGroupe $i : \nName\t\t";$groupname[$i]=$entry->get_value('cn');$stdout.=$groupname[$i]; - $stdout.="\n\n\talias:\t\t";$groupdescription[$i]=$entry->get_value('description');$stdout.=$groupdescription[$i]; - $stdout.="\n\tmembers:\t"; - $j=0; - foreach $members($entry->get_value('memberUid')) - { - $stdout.=$members." "; - $groupmembers[$i][$j]=$members; - $j++; - } - $stdout.="\n"." "x15;$stdout.="-"x20;$stdout.=" "x 15; - $i++; - } - $nb_groupe=$i; - - $userlist1.=$admindef; - - #Partie pour l'objectClass NagiosAuth - $stdout.="\n\n\n\n\nAuthorization for the different Information in Nagios\n"."-" x 53;$stdout.="\n"; - $mesg = $ldap->search(filter=>"(&(objectClass~=nagiosAuth)(AuthorizedSystemInformation~=checked))", base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - $stdout.="\nSystem infos :\t\t"; - foreach $entry (@entries) { - $stdout.= $entry->get_value('uid')."\t"; - $userlist1.=$entry->get_value('uid')." ,"; - } - $userlist1.=$admindef; - - $mesg = $ldap->search(filter=>"(&(objectClass~=nagiosAuth)(AuthorizedConfigurationInformation~=checked))", base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - $stdout.="\nConfiguration infos :\t"; - foreach $entry (@entries) { - $stdout.= $entry->get_value('uid')."\t"; - $userlist2.=$entry->get_value('uid')." , "; - } - $userlist2.=$admindef; - - $mesg = $ldap->search(filter=>"(&(objectClass~=nagiosAuth)(AuthorizedSystemCommands~=checked))", base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - $stdout.="\nSystem commands : \t"; - foreach $entry (@entries) { - $stdout.= $entry->get_value('uid')."\t"; - $userlist3.=$entry->get_value('uid')." , "; - } - $userlist3.=$admindef; - - $mesg = $ldap->search(filter=>"(&(objectClass~=nagiosAuth)(AuthorizedAllServices~=checked))", base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - $stdout.="\nAll services :\t\t"; - foreach $entry (@entries) { - $stdout.= $entry->get_value('uid')."\t"; - $userlist4.=$entry->get_value('uid')." ,"; - } - $userlist4.=$admindef; - - $mesg = $ldap->search(filter=>"(&(objectClass~=nagiosAuth)(AuthorizedAllHosts~=checked))", base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - $stdout.="\nAll hosts :\t\t"; - foreach $entry (@entries) { - $stdout.= $entry->get_value('uid')."\t"; - $userlist5.=$entry->get_value('uid').","; - } - $userlist5.=$admindef; - - - $mesg = $ldap->search(filter=>"(&(objectClass~=nagiosAuth)(AuthorizedAllServiceCommands~=checked))", base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - $stdout.="\nAll services commands :\t"; - foreach $entry (@entries) { - $stdout.= $entry->get_value('uid')."\t"; - $userlist6.=$entry->get_value('uid').","; - } - $userlist6.=$admindef; - - $mesg = $ldap->search(filter=>"(&(objectClass~=nagiosAuth)(AuthorizedAllHostCommands~=checked))",base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - $stdout.="\nAll host commands :\t"; - foreach $entry (@entries) { - $stdout.= $entry->get_value('uid')."\t"; - $userlist7.=$entry->get_value('uid').","; - } - $userlist7.=$admindef; - - - &modiffile_cgi($cgi_file); - &modiffile_contact($contacts_file); - &modiffile_group($contacts_groups_file); - - $ldap->unbind; - $stdout.="\n"; - switch($config{stdout}) - { - case "mail" {&mail()} - case "log" {&writelog()} - case "normal" {print $stdout} - } - exit(0); - -sub modiffile_contact() -{ - $file=$_[0]; - my $text=""; - open(FH,"$file") || die "Probleme d'ouverture du fichier $file"; - $stdout.="\n\n"; $stdout.=" "x10;$stdout.="-"x25;$stdout.=" "x10; - $stdout.="\n\n$nb_user utilisateur(s) ajouté(s) dans le fichier $file\n"; - for($i=0;$i<$nb_user;$i++) - { - $text.="\n\ndefine contact{\n"; - $text.="\n\tcontact_name \t\t\t".$contactname[$i]; - $text.="\n\talias \t\t\t\t".$nagiosalias[$i]; - $text.="\n\thost_notification_period \t".$hostnotificationperiod[$i]; - $text.="\n\thost_notification_options \t".$hostnotificationoptions[$i]; - $text.="\n\tservice_notification_period \t".$servicenotificationperiod[$i]; - $text.="\n\tservice_notification_options \t".$servicenotificationoptions[$i]; - $text.="\n\temail \t\t\t\t".$nagiosmail[$i]; - $text.="\n}\n\n"; - } - close(FH); - open(FH,"> $file") || die "Probleme d'ouverture du fichier $file"; - print FH "$text"; - close(FH); - -} - -sub modiffile_group() -{ - $file=$_[0]; - $text=""; - $j=0; - $i=0; - open(FH,"$file") || die "Probleme d'ouverture du fichier $file"; - $stdout.="\n\n"; $stdout.=" "x10;$stdout.="-"x25;$stdout.=" "x10; - $stdout.="\n\n$nb_groupe groupe(s) ajouté(s) dans le fichier $file\n"; - for($i=0;$i<$nb_groupe;$i++) - { - $text.="\n\ndefine contact{\n"; - $text.="\n\tcontactgroup_name \t".$groupname[$i]; - $text.="\n\talias \t\t\t".$groupdescription[$i]; - $text.="\n\tmembers \t\t"; - while(defined($groupmembers[$i][$j])) - { - $text.=$groupmembers[$i][$j]." "; - $j++; - } - $text.="\n}\n\n"; - } - - close(FH); - open(FH,"> $file") || die "Probleme d'ouverture du fichier $file"; - print FH "$text"; - close(FH); - -} - -sub modiffile_cgi() -{ - $file=$_[0]; - $text=""; - open(FH,"$file") || die "Probleme d'ouverture du fichier $file"; - while() - { - $line=$_; - #$stdout.="$line"; - if($line =~ /^authorized_for_system_information=*/i){$text.="authorized_for_system_information=".$userlist1} - elsif($line =~ /^authorized_for_configuration_information=*/i){$text.="authorized_for_configuration_information=".$userlist2} - elsif($line =~ /^authorized_for_system_commands=*/i){$text.="authorized_for_system_commands=".$userlist3} - elsif($line =~ /^authorized_for_all_services=*/i){$text.="authorized_for_all_services=".$userlist4."\n"} - elsif($line =~ /^authorized_for_all_hosts=*/i){$text.="authorized_for_all_hosts=".$userlist5} - elsif($line =~ /^authorized_for_all_service_commands=*/i){$text.="authorized_for_all_host_commands=".$userlist6."\n"} - elsif($line =~ /^authorized_for_all_host_commands=*/i){$text.="authorized_for_all_service_commands=".$userlist7} - else {$text.=$line}; - } - close(FH); - open(FH,"> $file") || die "Probleme d'ouverture du fichier $file"; - print FH "$text"; - close(FH); - -} - -sub read_conf() -{ - my %conf; - open (CONFIGFILE, "$_[0]") || die "Unable to open $_[0] for reading !\n"; - while () { - chomp($_); - ## throw away comments - next if ( /^\s*#/ || /^\s*$/ || /^\s*\;/); - ## check for a param = value - my ($parameter,$value)=read_parameter($_); - $value = &subst_configvar($value,\%conf); - $conf{$parameter}=$value; - } - close (CONFIGFILE); - return(%conf); -} - - - - -sub read_parameter -{ - my $line=shift; - ## check for a param = value - if ($_=~/=/) { - my ($param,$val); - if ($_=~/"/) { - #my ($param,$val) = ($_=~/(.*)\s*=\s*"(.*)"/); - ($param,$val) = /\s*(.*?)\s*=\s*"(.*)"/; - } elsif ($_=~/'/) { - ($param,$val) = /\s*(.*?)\s*=\s*'(.*)'/; - } else { - ($param,$val) = /\s*(.*?)\s*=\s*(.*)/; - } - return ($param,$val); - } -} - -sub subst_configvar -{ - my $value = shift; - my $vars = shift; - - $value =~ s/\$\{([^}]+)\}/$vars->{$1} ? $vars->{$1} : $1/eg; - return $value; -} - -sub mail -{ - -if($config{email}eq ""){$config{email}="root"} - -$msg = MIME::Lite->new( - From => 'monperl@opensides.be', - To => $config{email}, - Subject => "Plugin Nagios Gosa", - Data => $stdout - ); - - -$msg->send; -} - -sub writelog -{ - open(F, "> $config{logfile}"); - print F $stdout; - close(F); -} - -# Read timestamp -sub getTS -{ - open(F, "< $TS_FILE"); - my $ts = ; - chop $ts; - $ts ||= "19700101000000Z"; - return $ts; -} - -# save timestamp -sub putTS -{ - my $ts = `date -u '+%Y%m%d%H%M%SZ'`; - open(F, "> $TS_FILE"); - $stdout.= F $ts; -} - -#connexion anonyme -sub anonBind -{ - my $ldap = Net::LDAP->new( $server); - my $mesg = $ldap->bind(); - $mesg->code && die $mesg->error; - return $ldap; -} diff --git a/gosa-core/contrib/opensides/goSamba.pl b/gosa-core/contrib/opensides/goSamba.pl deleted file mode 100755 index ef7b210b4..000000000 --- a/gosa-core/contrib/opensides/goSamba.pl +++ /dev/null @@ -1,162 +0,0 @@ -#!/usr/bin/perl - - -# Copyright (C) 2005 Guillaume Delecourt -# -# 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. -# -# - -use Net::LDAP; -use Getopt::Std; -use Net::LDAP::Schema; -use Net::LDAP::LDIF; - -# Variables a config -$admin="cn=ldapadmin,dc=example,dc=be"; -$password=""; -$peopleou="ou=People,dc=example,dc=be"; -$base="dc=example,dc=be"; -$scope="one"; # par defaut -$dump_file="myldaptree.ldif"; -$server="localhost"; - - -my %Options; - -my $ok = getopts('?', \%Options); - -#Verifying if help is needed -if ( (!$ok) || (@ARGV < 1) || ($Options{'?'}) ) { - &help(); -} - -print "We backup the whole tree before every operation\n"; -&dump(); - -$comm=$ARGV[0]; - -if($comm eq "del" && @ARGV >1 ) -{ - print "You asked to delete attribute : "; - $i=1; - while($ARGV[$i] ne "") - { - print $ARGV[$i]." "; - $i++; - } - print "\n"; - $ldap = Net::LDAP->new($server); - $ldap->bind($admin,password=>$password); - - - print "ldap connection" .$ldap; - - $mesg = $ldap->search(filter=>"(objectClass=*)",base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - - foreach $entry (@entries) { - $i=1; - print $entry->dn()."\n"; - while($ARGV[$i] ne "") - { - if($ARGV[$i] eq "obj"){$obj=1;$i++;next} - if($obj==1) - { - $mesg = $ldap->modify($entry->dn(), delete => {"ObjectClass"=>"$ARGV[$i]"}); - print "\t objectClass: ".$ARGV[$i]; - } - else - { - $mesg = $ldap->modify($entry->dn(), delete => [$ARGV[$i]]); - print "\t attribut: ".$ARGV[$i]; - } - $obj=0; - $i++; - } - - print "\n"; - } - $ldap->unbind; - exit(0); -} -elsif($comm eq "gosa" && @ARGV ==1) -{ - print "Add GOsa attribute for the following users\n"; - print "---------------------------------------------\n"; - $ldap = Net::LDAP->new($server); - $ldap->bind($admin,password=>$password); - $mesg = $ldap->search(filter=>"&(!(objectClass~=gosaAccount))", base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - - foreach $entry (@entries) { - $mesg = $ldap->modify($entry->dn(), add => { "ObjectClass" => "gosaAccount"}); - $mesg = $ldap->modify($entry->dn(), add => { "ObjectClass" => "organizationalPerson"}); - $mesg = $ldap->modify($entry->dn(), add => { "ObjectClass" => "Person"}); - print $entry->dn(); - print "\n"; - } - $ldap->unbind; - exit(0); -} -elsif($comm eq "modif" && @ARGV >1) -{ - print "Modifications asked\n"; - print "------------------------\n"; - $ldap = Net::LDAP->new($server); - $ldap->bind($admin,password=>$password); - - $mesg = $ldap->search(filter=>"(objectClass=*)",base=>$peopleou,scope=>$scope); - @entries = $mesg->entries; - foreach $entry (@entries) { - $mesg = $ldap->modify($entry->dn(), replace => { "$ARGV[1]" => "$ARGV[2]" } ); - print $entry->dn()."\n\tattribut $ARGV[1] modifié avec la valeur $ARGV[2]\n"; - } - $ldap->unbind; - exit(0); -} -elsif($comm eq "dump" && @ARGV ==1) -{ - &dump(); -} -else -{ - &help(); -} - -sub help() -{ - print_banner; - print "Usage: $0 [-?] command\n"; - print "\t-? show this help message\n"; - print "\tgosa -> add GOsa attributes for the whole the people branch !\n"; - print "\tdel attribut -> Remove an attribute for the whole people branch !\n"; - print "\tmodif -> to modify the attribute\n"; - print "\tdump to dump the whole ldap tree\n"; - exit (1); -} - -sub dump() -{ - $ldap = Net::LDAP->new($server) or die "$@"; - $ldap->bind($admin,password=>$password); - my $ldif = Net::LDAP::LDIF->new($dump_file,'w') ; - $mesg = $ldap->search ( - base => "$base", - filter => "(objectclass=*)" - ); - $ldif->write_entry($mesg->entries) ; - $ldap->unbind; -} diff --git a/gosa-core/contrib/opensides/nagios.README b/gosa-core/contrib/opensides/nagios.README deleted file mode 100644 index 5878e4059..000000000 --- a/gosa-core/contrib/opensides/nagios.README +++ /dev/null @@ -1,20 +0,0 @@ -To use the nagios plugin - -1) Add the nagios schema to your schema directory - -2) Remove the comment in front of nagiosAccount in gosa.conf - - - - - - -Benoit Mortier -Guillaume Delecourt -OpenSides October-November 2005 - - - diff --git a/gosa-core/contrib/opensides/phpscheduleit.README b/gosa-core/contrib/opensides/phpscheduleit.README deleted file mode 100644 index d8ca99f9d..000000000 --- a/gosa-core/contrib/opensides/phpscheduleit.README +++ /dev/null @@ -1,10 +0,0 @@ -To use the phpscheduleit connectivity extension - -1) Add the schema phpscheduleit.schema in your schema directory - -2) Remove the comment in front of phpscheduleitAccount in gosa.conf - - - -Guillaume Delecourt -OpenSides November 2005 diff --git a/gosa-core/contrib/opensides/pptp.README b/gosa-core/contrib/opensides/pptp.README deleted file mode 100644 index 556e274f4..000000000 --- a/gosa-core/contrib/opensides/pptp.README +++ /dev/null @@ -1,13 +0,0 @@ -To use the pptp connectivity extension - -1) Add the pptp.schema to your schema directory - -2) Remove the comment in front of pptpAccount in gosa.conf - - - -Guillaume Delecourt -OpenSides November 2005 - - - diff --git a/gosa-core/debian/docs b/gosa-core/debian/docs index 222c768ee..8572e4121 100644 --- a/gosa-core/debian/docs +++ b/gosa-core/debian/docs @@ -1,4 +1,5 @@ FAQ +AUTHORS DEVEL README INSTALL diff --git a/gosa-core/debian/install b/gosa-core/debian/install index 32f50b1f3..741efa1e1 100644 --- a/gosa-core/debian/install +++ b/gosa-core/debian/install @@ -7,3 +7,7 @@ plugins /usr/share/gosa setup /usr/share/gosa debian/overrides-linda /usr/share/linda/overrides/gosa debian/overrides-lintian /usr/share/lintian/overrides/gosa +contrib/shells /etc/gosa +contrib/resolutions /etc/gosa +contrib/encodings /etc/gosa +contrib/openldap/slapd.conf /usr/share/doc/gosa/slapd.conf-example