Hallo.
Wir sind nun kurz vor OTRS 2.1 Produktivstart und ich sitze noch an einer harten Nuss.
Kennt sich jemand mit dem script aus sync-ldap2db.pl um die ADS Daten aus Windows 2000 per ldap ins OTRS zu importieren ?
Wenn ich linuxseitig folgendes aufrufe :
ldapsearch -d 255 -h 172.18.5.1 -W -b "ou=langenfeld,dc=msnet,dc=strauss1902,dc=de" -D "cn=schulze,ou=verwaltung,ou=langenfeld,dc=msnet,dc=strauss1902,dc=de" -x
klappt die LDAP Anbindung wunderbar, aber über das Script passiert nix. Dieses wurde angepasst und sieht wie folgt aus :
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#!/usr/bin/perl -w
# --
# scripts/tools/sync-ldap2db.pl - sync a ldap directory to database # Copyright (C) 2001-2005 Martin Edenhofer # -- # $Id: sync-ldap2db.pl,v 1.1 2005/03/05 07:53:31 martin Exp $ # -- # 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 ../ as lib location
use File::Basename;
use FindBin qw($RealBin);
use lib dirname($RealBin). "/../";
use lib dirname($RealBin)."/../Kernel/cpan-lib";
use strict;
use vars qw($VERSION);
$VERSION = '$Revision: 1.1 $';
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
use Net::LDAP;
use Kernel::Config;
use Kernel::System::Log;
use Kernel::System::DB;
use Kernel::System::Encode;
# --
# create common objects
# --
my %CommonObject = ();
$CommonObject{ConfigObject} = Kernel::Config->new(); $CommonObject{LogObject} = Kernel::System::Log->new(
LogPrefix => 'OTRS-sync-ldap2db',
%CommonObject,
);
$CommonObject{EncodeObject} = Kernel::System::Encode->new(
%CommonObject,
);
$CommonObject{DBObject} = Kernel::System::DB->new(
%CommonObject,
);
my $UidLDAP = 'uid';
my $UidDB = 'login';
my %Map = (
# db => ldap
email => 'mail',
customer_id => 'mail',
first_name => 'sn',
last_name => 'givenname',
pw => 'test',
# comments => 'description',
comments => 'postaladdress',
);
my $LDAPHost = '172.18.5.1';
my %LDAPParams = ();
my $LDAPBaseDN = 'ou=langenfeld,dc=msnet,dc=strauss1902,dc=de';
my $LDAPBindDN = 'cn=schulze,ou=verwaltung,ou=langenfeld,dc=msnet,dc=strauss1902,dc=de';
my $LDAPBindPW = 'kennwort von schulze';
my $LDAPScope = 'sub';
my $LDAPCharset = 'utf-8';
#my $LDAPFilter = '';
my $LDAPFilter = '(ObjectClass=*)';
my $DBCharset = 'iso-8859-1';
my $DBTable = 'customer_user';
# ldap connect and bind (maybe with SearchUserDN and SearchUserPw) my $LDAP = Net::LDAP->new($LDAPHost, %LDAPParams) or die "$@"; if (!$LDAP->bind(dn => $LDAPBindDN, password => $LDAPBindPW)) {
$CommonObject{LogObject}->Log(
Priority => 'error',
Message => "Bind failed!",
);
exit 1;
}
# split request of all accounts
foreach (qw(0 1 2 3 4 5 6 7 8 9 a b c d e f g h i j k l m n o p q r s t u v w x y z)) {
my $Filter = "($UidLDAP=$_*)";
if ($LDAPFilter) {
$Filter = "(&$LDAPFilter$Filter)";
}
# perform user search
my $Result = $LDAP->search(
base => $LDAPBaseDN,
scope => $LDAPScope,
filter => $Filter,
);
#print "F: ($UidLDAP=$_*)\n";
foreach my $entry ($Result->all_entries) {
my $UID = $entry->get_value($UidLDAP);
if ($UID) {
# check if uid existsis in db
my $Insert = 1;
$CommonObject{DBObject}->Prepare(
SQL => "SELECT $UidDB FROM $DBTable WHERE $UidDB = '".$CommonObject{DBObject}->Quote($UID)."'",
Limit => 1,
);
while (my @Row = $CommonObject{DBObject}->FetchrowArray()) {
$Insert = 0;
}
my $SQLPre = '';
my $SQLPost = '';
my $Type = '';
if ($Insert) {
$Type = 'INSERT';
}
else {
$Type = 'UPDATE';
}
foreach (keys %Map) {
my $Value = $CommonObject{DBObject}->Quote(_ConvertTo($entry->get_value($Map{$_})) || '');
if ($Type eq 'UPDATE') {
if ($SQLPre) {
$SQLPre .= ", ";
}
$SQLPre .= " $_ = '$Value'";
}
else {
if ($SQLPre) {
$SQLPre .= ", ";
}
$SQLPre .= "$_";
if ($SQLPost) {
$SQLPost .= ", ";
}
$SQLPost .= "'$Value'";
}
}
my $SQL = '';
if ($Type eq 'UPDATE') {
print "UPDATE: $UID\n";
$SQL = "UPDATE $DBTable SET $SQLPre, valid_id = 1, change_time = current_timestamp, change_by = 1 ";
$SQL .= " WHERE $UidDB = '".$CommonObject{DBObject}->Quote($UID)."'";
}
else {
print "INSERT: $UID\n";
$SQL = "INSERT INTO $DBTable ($SQLPre, $UidDB, valid_id, create_time, create_by, change_time, change_by) VALUES ($SQLPost, '".$CommonObject{DBObject}->Quote($UID)."', 1, current_timestamp, 1, current_timestamp, 1)";
}
$CommonObject{DBObject}->Do(SQL => $SQL);
}
}
}
sub _ConvertTo {
my $Text = shift;
if (!defined($Text)) {
return;
}
else {
return $CommonObject{EncodeObject}->Convert(
Text => $Text,
To => $DBCharset,
From => $LDAPCharset,
);
}
}
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Wissen Sie, welche Parameter genau angepasst werden müssen oder gibt es eine Doku zu dem Script ?
Leider gibt es ja kein log und unter /var/log/messages sieht man nichts.
Danke und schöne Grüsse,
Michael Schulze
----------------------------------------------
Strauss INNOVATION GmbH & Co. KG
Raiffeisenstraße 15 - 18
D - 40764 Langenfeld
Tel: +49 (0) 21 73 / 99 24 23
Fax: +49 (0) 21 73 / 99 24 90
E-Mail: michael.schulze@strauss-innovation.de
----------------------------------------------
Michael Schulze
SAP Basis
----------------------------------------------
