[otrs-cvs] otrs/bin/cgi-bin rpc.pl,1.8,1.9

[CVS commits notifications of OTRS.org]

Comments:
Update of /home/cvs/otrs/bin/cgi-bin
In directory lancelot:/tmp/cvs-serv4019/bin/cgi-bin

Modified Files:
	rpc.pl 
Log Message:
Fixed bug# 3213 - Make rpc.pl work when using ModPerl.

Author: tr

Index: rpc.pl
===================================================================
RCS file: /home/cvs/otrs/bin/cgi-bin/rpc.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** rpc.pl	8 May 2008 13:43:11 -0000	1.8
--- rpc.pl	10 Nov 2008 10:35:00 -0000	1.9
***************
*** 44,63 ****
  $VERSION = qw($Revision$) [1];
  
- # common objects
- my %CommonObject = ();
- $CommonObject{ConfigObject} = Kernel::Config->new();
- $CommonObject{LogObject}    = Kernel::System::Log->new(
-     LogPrefix => 'OTRS-RPC',
-     %CommonObject,
- );
- $CommonObject{MainObject}   = Kernel::System::Main->new(%CommonObject);
- $CommonObject{DBObject}     = Kernel::System::DB->new(%CommonObject);
- $CommonObject{PIDObject}    = Kernel::System::PID->new(%CommonObject);
- $CommonObject{TimeObject}   = Kernel::System::Time->new(%CommonObject);
- $CommonObject{UserObject}   = Kernel::System::User->new(%CommonObject);
- $CommonObject{GroupObject}  = Kernel::System::Group->new(%CommonObject);
- $CommonObject{QueueObject}  = Kernel::System::Queue->new(%CommonObject);
- $CommonObject{TicketObject} = Kernel::System::Ticket->new(%CommonObject);
- 
  SOAP::Transport::HTTP::CGI->dispatch_to('Core')->handle;
  
--- 44,47 ----
***************
*** 79,82 ****
--- 63,82 ----
      $Pw   ||= '';
  
+     # common objects
+     my %CommonObject = ();
+     $CommonObject{ConfigObject} = Kernel::Config->new();
+     $CommonObject{LogObject}    = Kernel::System::Log->new(
+         LogPrefix => 'OTRS-RPC',
+         %CommonObject,
+     );
+     $CommonObject{MainObject}   = Kernel::System::Main->new(%CommonObject);
+     $CommonObject{DBObject}     = Kernel::System::DB->new(%CommonObject);
+     $CommonObject{PIDObject}    = Kernel::System::PID->new(%CommonObject);
+     $CommonObject{TimeObject}   = Kernel::System::Time->new(%CommonObject);
+     $CommonObject{UserObject}   = Kernel::System::User->new(%CommonObject);
+     $CommonObject{GroupObject}  = Kernel::System::Group->new(%CommonObject);
+     $CommonObject{QueueObject}  = Kernel::System::Queue->new(%CommonObject);
+     $CommonObject{TicketObject} = Kernel::System::Ticket->new(%CommonObject);
+ 
      my $RequiredUser     = $CommonObject{ConfigObject}->Get('SOAP::User');
      my $RequiredPassword = $CommonObject{ConfigObject}->Get('SOAP::Password');
***************
*** 98,102 ****
          $CommonObject{LogObject}->Log(
              Priority => 'notice',
!             Message  => "Auth for user $User faild!",
          );
          return;
--- 98,102 ----
          $CommonObject{LogObject}->Log(
              Priority => 'notice',
!             Message  => "Auth for user $User (pw $Pw) failed!",
          );
          return;