1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
#!/usr/bin/perl -w
# --
# bin/cgi-bin/rpc.pl - soap handle
# Copyright (C) 2001-2008 OTRS AG, http://otrs.org/
# --
# $Id: rpc.pl,v 1.1.4.1 2008/03/28 11:41:27 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 FindBin qw($Bin);
use lib "$Bin/../..";
use lib "$Bin/../../Kernel/cpan-lib";
use strict;
use SOAP::Transport::HTTP;
use Kernel::Config;
use Kernel::System::Log;
use Kernel::System::DB;
use Kernel::System::PID;
use Kernel::System::Main;
use Kernel::System::Time;
use Kernel::System::User;
use Kernel::System::Group;
use Kernel::System::Queue;
use Kernel::System::Ticket;
use vars qw($VERSION);
$VERSION = '$Revision: 1.1.4.1 $';
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$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;
package Core;
sub new {
my $Self = shift;
my $Class = ref($Self) || $Self;
bless {} => $Class;
return $Self;
}
sub Dispatch {
my $Self = shift;
my $User = shift || '';
my $Pw = shift || '';
my $Object = shift;
my $Method = shift;
my %Param = @_;
my $RequiredUser = $CommonObject{ConfigObject}->Get('SOAP::User');
my $RequiredPassword = $CommonObject{ConfigObject}->Get('SOAP::Password');
if ( !defined $RequiredUser || !length( $RequiredUser )
|| !defined $RequiredPassword || !length( $RequiredPassword )
) {
$CommonObject{LogObject}->Log(
Priority => 'notice',
Message => "SOAP::User or SOAP::Password is empty, SOAP access denied!",
);
return;
}
if ( $User ne $RequiredUser || $Pw ne $RequiredPassword ) {
$CommonObject{LogObject}->Log(
Priority => 'notice',
Message => "Auth for user $User faild!",
);
return;
}
if (!$CommonObject{$Object}) {
$CommonObject{LogObject}->Log(
Priority => 'error',
Message => "No such Object $Object!",
);
return "No such Object $Object!";
}
else {
return $CommonObject{$Object}->$Method(%Param);
}
}
1;
|
