[otrs-cvs] ITSMConfigurationManagement/Kernel/System/ITSMConfigItem Number.pm, 1.5, 1.5.2.1 Version.pm, 1.33.2.1, 1.33.2.2

Comments:
Update of /home/cvs/ITSMConfigurationManagement/Kernel/System/ITSMConfigItem
In directory lancelot:/tmp/cvs-serv21671/Kernel/System/ITSMConfigItem

Modified Files:
      Tag: rel-3_1
	Number.pm Version.pm 
Log Message:
Fixed bug# 9547 - XSS and SQL injection vulnerability in module AgentITSMConfigItemSearch on parameter ClassID.

Author: ub

Index: Number.pm
===================================================================
RCS file: /home/cvs/ITSMConfigurationManagement/Kernel/System/ITSMConfigItem/Number.pm,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -2 -u -d -r1.5 -r1.5.2.1
--- Number.pm	20 Nov 2012 19:05:54 -0000	1.5
+++ Number.pm	28 Jun 2013 11:15:13 -0000	1.5.2.1
@@ -1,5 +1,5 @@
 # --
 # Kernel/System/ITSMConfigItem/Number.pm - sub module of ITSMConfigItem.pm with number functions
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -90,7 +90,4 @@
         if $Self->{Cache}->{ConfigItemNumberLookup}->{Number}->{ $Param{ConfigItemNumber} };
 
-    # quote
-    $Param{ConfigItemNumber} = $Self->{DBObject}->Quote( $Param{ConfigItemNumber} );
-
     # ask database
     $Self->{DBObject}->Prepare(

Author: ub

Index: Version.pm
===================================================================
RCS file: /home/cvs/ITSMConfigurationManagement/Kernel/System/ITSMConfigItem/Version.pm,v
retrieving revision 1.33.2.1
retrieving revision 1.33.2.2
diff -2 -u -d -r1.33.2.1 -r1.33.2.2
--- Version.pm	30 Nov 2012 19:47:45 -0000	1.33.2.1
+++ Version.pm	28 Jun 2013 11:15:13 -0000	1.33.2.2
@@ -1,5 +1,5 @@
 # --
 # Kernel/System/ITSMConfigItem/Version.pm - sub module of ITSMConfigItem.pm with version functions
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -948,7 +948,7 @@
         next ARRAYPARAM if !@{ $Param{$ArrayParam} };
 
-        # quote
+        # quote as integer
         for my $OneParam ( @{ $Param{$ArrayParam} } ) {
-            $OneParam = $Self->{DBObject}->Quote($OneParam);
+            $OneParam = $Self->{DBObject}->Quote( $OneParam, 'Integer' );
         }
 
@@ -967,5 +967,5 @@
     my $WhereString = @SQLWhere ? ' WHERE ' . join q{ AND }, @SQLWhere : '';
 
-    # set limit
+    # set limit, quote as integer
     if ( $Param{Limit} ) {
         $Param{Limit} = $Self->{DBObject}->Quote( $Param{Limit}, 'Integer' );
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log