May 2012 - otrs - OTRS mailing lists

big problems
by Andrew Meyer 07 May '12

07 May '12

I just updated Fedora to the latest Perl package and now OTRS is broken and httpd won't start. [Fri May 04 08:10:40 2012] [error] Cannot find current script 'httpd' at /usr/share/perl5/FindBin.pm line 205\nBEGIN failed--compilation aborted at /usr/share/perl5/FindBin.pm line 205.\nCompilation failed in require at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nCompilation failed in require at /opt/otrs//Kernel/Config.pm line 97.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config.pm line 97.\nCompilation failed in require at /opt/otrs/scripts/apache2-perl-startup.pl line 66.\nBEGIN failed--compilation aborted at /opt/otrs/scripts/apache2-perl-startup.pl line 66.\nCompilation failed in require at (eval 2) line 1.\n [Fri May 04 08:10:40 2012] [error] Can't load Perl file: /opt/otrs/scripts/apache2-perl-startup.pl for server 192.168.1.19:80, exiting... [Fri May 04 08:12:07 2012] [error] Cannot find current script 'httpd' at /usr/share/perl5/FindBin.pm line 205\nBEGIN failed--compilation aborted at /usr/share/perl5/FindBin.pm line 205.\nCompilation failed in require at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nCompilation failed in require at /opt/otrs//Kernel/Config.pm line 97.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config.pm line 97.\nCompilation failed in require at /opt/otrs/scripts/apache2-perl- pt/otrs/scripts/apache2-perl-startup.pl line 66.\nCompilation failed in require at (eval 2) line 1.\n [Fri May 04 08:12:07 2012] [error] Can't load Perl file: /opt/otrs/scripts/apache2-perl-startup.pl for server 192.168.1.19:80, exiting... [Fri May 04 08:14:46 2012] [error] Cannot find current script 'httpd' at /usr/share/perl5/FindBin.pm line 205\nBEGIN failed--compilation aborted at n require at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nCom ne 97.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config.pm line 97.\nCompilation failed in require at /opt/otrs/scripts/apache2-perl- pt/otrs/scripts/apache2-perl-startup.pl line 66.\nCompilation failed in require at (eval 2) line 1.\n [Fri May 04 08:14:46 2012] [error] Can't load Perl file: /opt/otrs/scripts/apache2-perl-startup.pl for server 192.168.1.19:80, exiting... [Fri May 04 08:20:11 2012] [error] Cannot find current script 'httpd' at /usr/share/perl5/FindBin.pm line 205\nBEGIN failed--compilation aborted at n require at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nCom ne 97.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config.pm line 97.\nCompilation failed in require at /opt/otrs/scripts/apache2-perl- pt/otrs/scripts/apache2-perl-startup.pl line 66.\nCompilation failed in require at (eval 2) line 1.\n [Fri May 04 08:20:11 2012] [error] Can't load Perl file: /opt/otrs/scripts/apache2-perl-startup.pl for server 192.168.1.19:80, exiting... [Fri May 04 08:21:47 2012] [error] Cannot find current script 'httpd' at /usr/share/perl5/FindBin.pm line 205\nBEGIN failed--compilation aborted at n require at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nCom ne 97.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config.pm line 97.\nCompilation failed in require at /opt/otrs/scripts/apache2-perl- pt/otrs/scripts/apache2-perl-startup.pl line 66.\nCompilation failed in require at (eval 2) line 1.\n [Fri May 04 08:21:47 2012] [error] Can't load Perl file: /opt/otrs/scripts/apache2-perl-startup.pl for server 192.168.1.19:80, exiting... [Fri May 04 08:36:47 2012] [error] Cannot find current script 'httpd' at /usr/share/perl5/FindBin.pm line 205\nBEGIN failed--compilation aborted at n require at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config/Defaults.pm line 36.\nCom ne 97.\nBEGIN failed--compilation aborted at /opt/otrs//Kernel/Config.pm line 97.\nCompilation failed in require at /opt/otrs/scripts/apache2-perl- pt/otrs/scripts/apache2-perl-startup.pl line 66.\nCompilation failed in require at (eval 2) line 1.\n [Fri May 04 08:36:47 2012] [error] Can't load Perl file: /opt/otrs/scripts/apache2-perl-startup.pl for server 192.168.1.19:80, exiting... Web services won't start. Andrew Meyer Unix Systems Administrator Precision Practice Management The business behind the practice. [Description: http://www.precisionpractice.com/EmailSignature/images/logoTeamLeader.jpg] D: 314-881-5265 C: 314-565-0868 F: 314-881-5365 689 Craig Road, Creve Coeur, MO 63141 Main Phone: 314-787-0681 www.PrecisionPractice.com<http://www.PrecisionPractice.com> Email: ameyer(a)precisionpractice.com CONFIDENTIALITY NOTICE: This e-mail, including attachments, may include protected health information (PHI), confidential and/or proprietary information, and may be used only by the person or entity to which it is addressed or the individuals designated to view such information per federal HIPAA regulations. If the reader of this e-mail is not the intended recipient or his or her authorized agent, the reader is hereby notified that any dissemination, distribution or copying of this e-mail is prohibited. If you have received this e-mail in error, please notify the sender by replying to this message and delete this e-mail immediately.

8 18

Send email using templates
by Muhammad El-Sergani 06 May '12

06 May '12

Hi all, I'd like to have the option of having more than one template when sending out new emails. I understand this is possible for responses only, but not for new emails. Our OTRS is used for bidirectional communication with customers and suppliers, meaning, it's not just used to receive complaints from our customers, but rather for our team to open complaint tickets with our suppliers. That being said, we need to send out specific emails sometimes to some people, and others to some people. Is that possible using OTRS out-of-the-box, or do we need to install some sort of external plugin? And which? Thanks //M

3 5

OTRS 3.1: Making dynamic fields visible in Search.
by pipy 05 May '12

05 May '12

Hi to all How can I make dynamics fields visible by default in search (Ticket -> Frontend::Agent::Ticket::ViewSearch)? I try defined key and value into Ticket::Frontend::AgentTicketSearch###Defaults###DynamicField the field wasn't visible until I add it manual. Thanks in advance Aleš

2 2

Archived mails
by Pascal den Bekker 04 May '12

04 May '12

Hello, is there a way to display all tickets which are archived in the database? I thought something like : select tn from ticket where archive_flag = '1' would do the trick, or did I forget something? Regards, -- Pascal den Bekker - Junior Linux Systemadministrator email: pascal_den.bekker(a)affinitas.de skype: denbekker www.edarling.de www.betterdate.de Affinitas GmbH | Kohlfurter Straße 41/43 | D-10999 Berlin Eingetragen beim Amtsgericht Berlin, HRB 115958 Geschäftsführer: Lukas | David | Kai | Christian Brosseder | Khalil | Rieke | Vollmann

2 1

unsus
by Lucas Ocampo|CGTEC S.A. 04 May '12

04 May '12

-----Mensaje original----- De: otrs-bounces(a)otrs.org [mailto:otrs-bounces@otrs.org] En nombre de Pascal den Bekker Enviado el: viernes, 04 de mayo de 2012 11:09 a.m. Para: otrs(a)otrs.org Asunto: [otrs] Archived mails Hello, is there a way to display all tickets which are archived in the database? I thought something like : select tn from ticket where archive_flag = '1' would do the trick, or did I forget something? Regards, -- Pascal den Bekker - Junior Linux Systemadministrator email: pascal_den.bekker(a)affinitas.de skype: denbekker www.edarling.de www.betterdate.de Affinitas GmbH | Kohlfurter Straße 41/43 | D-10999 Berlin Eingetragen beim Amtsgericht Berlin, HRB 115958 Geschäftsführer: Lukas | David | Kai | Christian Brosseder | Khalil | Rieke | Vollmann --------------------------------------------------------------------- OTRS mailing list: otrs - Webpage: http://otrs.org/ Archive: http://lists.otrs.org/pipermail/otrs To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/otrs

1 0

OTRS Survey - Browsers used in Customer Panel
by Christopher T. Kuhn 04 May '12

04 May '12

Dear Community, In this survey OTRS wants to know what browser version you use in the customer front end of OTRS. Since we plan to improve the customer front end in the oncoming versions of OTRS, your input is valuable to us! Please take a few minutes to participate in this survey: http://www.surveymonkey.com/s/5YDY3FY ((enjoy)) — Christopher T. Kuhn Chief Operations Officer OTRS AG Europaring 4 D-94315 Straubing T: +49 (0) 9421 56818 0 F: +49 (0) 9421 56818 18 I: http://www.otrs.com/ Geschäftssitz: Bad Homburg, Amtsgericht: Bad Homburg, HRB 10751, USt-Nr.: DE256610065 Aufsichtsratsvorsitzender: Burchard Steinbild, Vorstand: André Mindermann (Vorsitzender), Christopher Kuhn Verbinden wir uns! OTRS 3.1 schafft einfachere Integration mit Drittapplikationen – Für Frühbucher zum Vorzugspreis http://www.otrs.com/Help Desk 3.1 Special

1 0

Options of the ticket data in the signature
by Jean BROW 03 May '12

03 May '12

Hi all, I have tried to adding this in the outgoing <OTRS_TICKET_TicketNumber> <OTRS_TICKET_TicketID> <OTRS_TICKET_Queue> <OTRS_TICKET_State>) Nothing of the information show to the user who receive the email. This worked before, the only thing we have changed is the host name in the server. Any idea?

2 1

Fwd: System Monitoring --> could not find any CI with the name ( Solved )
by Lucio aquino 03 May '12

03 May '12

Hello to all , It is working now , i change the HostRegExp to " \s*Host:\s+(\w+\-\w+\-\w+\-\d+)\s* " . It get servers with the name xx-xx-xx-## , Example : CMP-SRV-BI-01 Everything is ok 2012/5/2 Lucio aquino <lucioaquino(a)gmail.com> > Working in the problem i found a ^M after the name of the CI in the > log when i open the log file with vi > >

1 0

System Monitoring --> could not find any CI with the name
by Lucio aquino 03 May '12

03 May '12

Hello to all I have some trouble with the system monitoring , all appear to be ok , but the system "could not find any CI with the name" , the name has a #015 after , i do not know what is happening . The open ticket and closed ticket it is ok --> I put the log below Apr 30 21:39:54 eco-srv-otrs-01 OTRS-CGI-10[1496]: [Notice][Kernel::System:: PostMaster::Filter::SystemMonitoring::_LogMessage] SystemMonitoring Mail: New Ticket - Host: CMP-SRV-BI-01#015, State: DOWN, Service: Host Apr 30 21:39:54 eco-srv-otrs-01 OTRS-CGI-10[1496]: [Error][Kernel::System::PostMaster::Filter::SystemMonitoring::_SetIncidentState][Line:484]: Could not find any CI with the name 'CMP-SRV-BI-01#015'. Apr 30 21:39:54 eco-srv-otrs-01 OTRS-CGI-10[1496]: [Notice][Kernel::System::Ticket::TicketCreate] New Ticket [2012043010000056/Host DOWN alert] created (TicketID=12,Queue=ECO,Priority=3 normal,State=new) Apr 30 21:39:55 eco-srv-otrs-01 OTRS-CGI-10[1496]: [Notice][Kernel::System::PostMaster::Filter::SystemMonitoring::_LogMessage] SystemMonitoring Mail: Recovered - Host: CMP-SRV-BI-01#015, State: UP, Service: Host Apr 30 21:39:55 eco-srv-otrs-01 OTRS-CGI-10[1496]: [Error][Kernel::System::PostMaster::Filter::SystemMonitoring::_SetIncidentState][Line:484]: Could not find any CI with the name 'CMP-SRV-BI-01#015'. Apr 30 21:39:55 eco-srv-otrs-01 OTRS-CGI-10[1496]: [Error][Kernel::System::PostMaster::Filter::SystemMonitoring::_LinkTicketWithCI][Line:577]: Could not find any CI with the name 'CMP-SRV-BI-01#015'. Apr 30 21:39:55 eco-srv-otrs-01 OTRS-CGI-10[1496]: [Notice][Kernel::System::PostMaster::FollowUp::Run] FollowUp Article to Ticket [2012043010000056] created (TicketID=12, ArticleID=22). , Apr 30 21:39:55 eco-srv-otrs-01 OTRS-CGI-10[1496]: [Notice][Kernel::System::MailAccount::IMAP::_Fetch] IMAP: Fetched 2 email(s) from monitoracao(a)xxxxx.com.br/200.242.222.edited --> Configuration Self->{'SystemMonitoring::LinkTicketWithCI'} = '1'; $Self->{'SystemMonitoring::SetIncidentState'} = '1'; $Self->{'PostMaster::PreFilterModule'}->{'00-SystemMonitoring'} = { 'ArticleType' => 'note-report', 'CloseActionState' => 'closed successful', 'ClosePendingTime' => '172800', 'CloseTicketRegExp' => 'OK|UP', 'DefaultService' => 'Host', 'FreeTextHost' => '1', 'FreeTextService' => '2', 'FreeTextState' => '1', 'FromAddressRegExp' => 'nagios@centreon-localdomain', 'HostRegExp' => '\\s*Host:\\s+(.*)', 'Module' => 'Kernel::System::PostMaster::Filter::SystemMonitoring', 'NewTicketRegExp' => 'CRITICAL|DOWN', 'SenderType' => 'system', 'ServiceRegExp' => '\\s*Service:\\s+(.*)\\s*', 'StateRegExp' => '\\s*State:\\s+(\\S+)' }; --> Nagios message ***** centreon Notification ***** Type:PROBLEM Host: CMP-SRV-BI-01 State: DOWN Address: 10.32.32.1 Info: CRITICAL - Host Unreachable (10.32.32.1) Date/Time: 30-04-2012

1 1

Customer Authentication against LDAP Customer Data from local DB
by Boris Wagener 02 May '12

02 May '12

Geben Sie Text oder eine Website-Adresse ein oder lassen Sie ein Dokument übersetzen <http://translate.google.de/?tr=f&hl=de>. Abbrechen <http://translate.google.de/?tr=t&hl=de> Hi, i added new columns to teh customer_user table using this instructions http://doc.otrs.org/3.1/en/html/customer-user-backend.html: Added fields: *company department manager office* these fields are filled bysync_ldap2db. This is my Config.pm: * #-------------------------------------------------------------------------------------------- # firma # #-------------------------------------------------------------------------------------------- #-------------------------------------------------------------------------------------------- # Agenten Authentifizeirung # #-------------------------------------------------------------------------------------------- $Self->{'AuthModule'} = 'Kernel::System::Auth::LDAP'; $Self->{'AuthModule::LDAP::Host'} = 'dc.firma.local'; $Self->{'AuthModule::LDAP::BaseDN'} = 'dc=firma,dc=local'; $Self->{'AuthModule::LDAP::UID'} = 'sAMAccountName'; $Self->{'AuthModule::LDAP::SearchUserDN'} = 'otrsldap(a)firma.local'; $Self->{'AuthModule::LDAP::SearchUserPw'} = 'Passwort123'; #-------------------------------------------------------------------------------------------- # Kunden Authentifizeirung # #-------------------------------------------------------------------------------------------- $Self->{'Customer::AuthModule'} = 'Kernel::System::CustomerAuth::LDAP'; $Self->{'Customer::AuthModule::LDAP::Host1'} = 'dc.firma.local'; $Self->{'Customer::AuthModule::LDAP::BaseDN1'} = 'DC=firma, DC=local'; $Self->{'Customer::AuthModule::LDAP::UID1'} = 'sAMAccountName'; $Self->{'Customer::AuthModule::LDAP::SearchUserDN1'} = 'otrsldap(a)firma.local'; $Self->{'Customer::AuthModule::LDAP::SearchUserPw1'} = 'Passwort123'; #-------------------------------------------------------------------------------------------- # Kundendaten # #-------------------------------------------------------------------------------------------- #-------------------------------------------------------------------------------------------- # CustomerUser (customer database backend and settings) $Self->{CustomerUser1} = { Name => 'Database Datasource', Module => 'Kernel::System::CustomerUser::DB', Params => { # if you want to use an external database, add the required settings # DSN => 'DBI:odbc:yourdsn', # DSN => 'DBI:mysql:database=customerdb;host=customerdbhost', # User => '', # Password => '', Table => 'customer_user',company # if your frontend is unicode and the charset of your # customer database server is iso-8859-1, use these options. # SourceCharset => 'iso-8859-1', # DestCharset => 'utf-8', # CaseSensitive will control if the SQL statements need LOWER() # function calls to work case insensitively. Setting this to # 1 will improve performance dramatically on large databases. CaseSensitive => 0, }, # customer unique id CustomerKey => 'login', # customer # CustomerID => 'customer_id', CustomerValid => 'valid_id', CustomerUserListFields => ['first_name', 'last_name', 'email'], CustomerUserSearchFields => ['login', 'last_name', 'customer_id'], CustomerUserSearchPrefix => '', CustomerUserSearchSuffix => '*', CustomerUserSearchListLimit => 500, CustomerUserPostMasterSearchFields => ['email'], CustomerUserNameFields => ['title','first_name','last_name'], CustomerUserEmailUniqCheck => 1, # # show not own tickets in customer panel, CompanyTickets # CustomerUserExcludePrimaryCustomerID => 0, # # generate auto logins # AutoLoginCreation => 0, # AutoLoginCreationPrefix => 'auto', # # admin can change customer preferences # AdminSetPreferences => 1, # # cache time to live in sec. - cache any database queries # CacheTTL => 0, # # just a read only source # ReadOnly => 1, Map => [ # note: Login, Email and CustomerID needed! # var, frontend, storage, shown (1=always,2=lite), required, storage-type, http-link, readonly, http-link-target [ 'UserTitle', 'Title', 'title', 1, 0, 'var', '', 0 ], [ 'UserFirstname', 'Firstname', 'first_name', 1, 1, 'var', '', 0 ], [ 'UserLastname', 'Lastname', 'last_name', 1, 1, 'var', '', 0 ], [ 'UserLogin', 'Username', 'login', 1, 1, 'var', '', 0 ], [ 'UserPassword', 'Password', 'pw', 0, 0, 'var', '', 0 ], [ 'UserEmail', 'Email', 'email', 1, 1, 'var', '', 0 ], [ 'Firma', 'firma', 'company', 1, 0, 'var', '', 0], [ 'Abteilung', 'abteilung', 'department', 1, 0, 'var', '', 0 ], [ 'Vorgesetzter', 'vorgesetzter','manager', 1, 0, 'var', '', 0 ], [ 'Buero', 'buero', 'physicalDeliveryOfficeName', 1, 0, 'var', '', 0 ], # [ 'UserEmail', 'Email', 'email', 1, 1, 'var', '$Env{"CGIHandle"}?Action=AgentTicketCompose&ResponseID=1&TicketID=$Data{"TicketID"}&ArticleID=$Data{"ArticleID"}', 0 ], [ 'UserCustomerID', 'CustomerID', 'customer_id', 0, 1, 'var', '', 0 ], # [ 'UserCustomerIDs', 'CustomerIDs', 'customer_ids', 1, 0, 'var', '', 0 ], [ 'UserPhone', 'Phone', 'phone', 1, 0, 'var', '', 0 ], [ 'UserFax', 'Fax', 'fax', 1, 0, 'var', '', 0 ], [ 'UserMobile', 'Mobile', 'mobile', 1, 0, 'var', '', 0 ], [ 'UserStreet', 'Street', 'street', 1, 0, 'var', '', 0 ], [ 'UserZip', 'Zip', 'zip', 1, 0, 'var', '', 0 ], [ 'UserCity', 'City', 'city', 1, 0, 'var', '', 0 ], [ 'UserCountry', 'Country', 'country', 1, 0, 'var', '', 0 ], [ 'UserComment', 'Comment', 'comments', 1, 0, 'var', '', 0 ], [ 'ValidID', 'Valid', 'valid_id', 0, 1, 'int', '', 0 ], ], };* With this configuration, the customer are shown in the custom overviewwithout the additional fields. I thougt the error is here: *$Self->{CustomerUser1} = { (**$Self->{CustomerUserDB}, $Self->{CustomerUserWhatever} works too)* so i tried *$Self->{CustomerUser} = {* like in the manal:-) now the additional fields are displayed but no customers in the customer overview. In the customer_user table the customers are availiable. I have no more ideas. Does anybody know where the error is? Here is the sync_ldap2db script: *#!/usr/bin/perl -w # -- # scripts/tools/sync-ldap2db.pl - sync a ldap directory to database # Copyright (C) 2001-2009 OTRS AG, http://otrs.org/ # -- # $Id: sync-ldap2db.pl,v 1.10 2009/02/16 12:40:23 tr Exp $ # -- # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU AFFERO General Public License as published by # the Free Software Foundation; either version 3 of the License, or # 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 Affero 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 # or see http://www.gnu.org/licenses/agpl.txt. # -- # 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 warnings; use vars qw($VERSION); $VERSION = qw($Revision: 1.10 $) [1]; use Net::LDAP; use Kernel::Config; use Kernel::System::Log; use Kernel::System::Main; 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{MainObject} = Kernel::System::Main->new(%CommonObject); $CommonObject{EncodeObject} = Kernel::System::Encode->new(%CommonObject); $CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject); my $UidLDAP = 'sAMAccountname'; my $UidDB = 'login'; my %Map = ( # db => ldap email => 'mail', customer_id => 'mail', first_name => 'sn', last_name => 'givenname', pw => 'test', firma => 'company', abteilung => 'department', buero => 'physicalDeliveryOfficeName', phone => 'telephoneNumber', manager => 'manager', # comments => 'description', comments => 'postaladdress', ); my $LDAPHost = 'dc.firma.local'; my %LDAPParams = (); my $LDAPBaseDN = 'dc=firma,dc=local'; my $LDAPBindDN = 'otrsldap(a)compass.local'; my $LDAPBindPW = 'Passwort123'; my $LDAPScope = 'sub'; my $LDAPCharset = 'utf-8'; #my $LDAPFilter = ''; my $LDAPFilter = '(&(objectclass=user)(mail=*.*(a)firma.de))'; my $DBCharset = 'UTF-8'; 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 for (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"; for 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'; } for ( 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; return if !defined $Text; return $CommonObject{EncodeObject}->Convert( Text => $Text, To => $DBCharset, From => $LDAPCharset, ); }* Boris

1 0