[otrs-cvs] otrs/Kernel/System/GenericInterface WebserviceHistory.pm, 1.13, 1.14 Webservice.pm, 1.38, 1.39

Comments:
Update of /home/cvs/otrs/Kernel/System/GenericInterface
In directory lancelot:/tmp/cvs-serv8521/Kernel/System/GenericInterface

Modified Files:
	WebserviceHistory.pm Webservice.pm 
Log Message:
Fixed problems with YAML parsing long lines. Added new module dependency YAML::XS.

Author: mg

Index: WebserviceHistory.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/GenericInterface/WebserviceHistory.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -2 -u -d -r1.13 -r1.14
--- WebserviceHistory.pm	20 Nov 2012 15:49:25 -0000	1.13
+++ WebserviceHistory.pm	15 Jan 2013 17:43:27 -0000	1.14
@@ -1,5 +1,5 @@
 # --
 # Kernel/System/GenericInterface/WebserviceHistory.pm - GenericInterface WebserviceHistory config backend
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -15,5 +15,5 @@
 use warnings;
 
-use YAML;
+use Kernel::System::YAML;
 
 use vars qw(@ISA $VERSION);
@@ -122,5 +122,5 @@
 
     # dump config as string
-    my $Config = YAML::Dump( $Param{Config} );
+    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
 
     # md5 of content
@@ -190,5 +190,6 @@
     my %Data;
     while ( my @Data = $Self->{DBObject}->FetchrowArray() ) {
-        my $Config = YAML::Load( $Data[1] );
+
+        my $Config = Kernel::System::YAML::Load( $Data[1] );
 
         %Data = (
@@ -228,5 +229,5 @@
 
     # dump config as string
-    my $Config = YAML::Dump( $Param{Config} );
+    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
 
     # md5 of content

Author: mg

Index: Webservice.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/GenericInterface/Webservice.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -2 -u -d -r1.38 -r1.39
--- Webservice.pm	20 Nov 2012 15:49:18 -0000	1.38
+++ Webservice.pm	15 Jan 2013 17:43:27 -0000	1.39
@@ -1,5 +1,5 @@
 # --
 # Kernel/System/GenericInterface/Webservice.pm - GenericInterface webservice config backend
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -15,5 +15,5 @@
 use warnings;
 
-use YAML;
+use Kernel::System::YAML;
 use Kernel::System::Valid;
 use Kernel::System::GenericInterface::DebugLog;
@@ -151,9 +151,5 @@
 
     # dump config as string
-    my $Config = YAML::Dump( $Param{Config} );
-
-    # Make sure the resulting string has the UTF-8 flag. YAML only sets it if
-    #   part of the data already had it.
-    utf8::upgrade($Config);
+    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
 
     # md5 of content
@@ -265,5 +261,6 @@
     my %Data;
     while ( my @Data = $Self->{DBObject}->FetchrowArray() ) {
-        my $Config = YAML::Load( $Data[2] );
+
+        my $Config = Kernel::System::YAML::Load( $Data[2] );
 
         %Data = (
@@ -325,9 +322,5 @@
 
     # dump config as string
-    my $Config = YAML::Dump( $Param{Config} );
-
-    # Make sure the resulting string has the UTF-8 flag. YAML only sets it if
-    #   part of the data already had it.
-    utf8::upgrade($Config);
+    my $Config = Kernel::System::YAML::Dump( $Param{Config} );
 
     # md5 of content
---------------------------------------------------------------------
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