[otrs-cvs] otrs/bin otrs.CheckModules.pl, 1.46, 1.47 otrs.WebserviceConfig.pl, 1.9, 1.10

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

Modified Files:
	otrs.CheckModules.pl otrs.WebserviceConfig.pl 
Log Message:
Fixed problems with YAML parsing long lines. Added new module dependency YAML::XS.

Author: mg

Index: otrs.CheckModules.pl
===================================================================
RCS file: /home/cvs/otrs/bin/otrs.CheckModules.pl,v
retrieving revision 1.46
retrieving revision 1.47
diff -2 -u -d -r1.46 -r1.47
--- otrs.CheckModules.pl	15 Jan 2013 10:04:18 -0000	1.46
+++ otrs.CheckModules.pl	15 Jan 2013 17:43:26 -0000	1.47
@@ -456,4 +456,8 @@
         Required => 1,
     },
+    {
+        Module   => 'YAML::XS',
+        Required => 1,
+    },
 );
 

Author: mg

Index: otrs.WebserviceConfig.pl
===================================================================
RCS file: /home/cvs/otrs/bin/otrs.WebserviceConfig.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -2 -u -d -r1.9 -r1.10
--- otrs.WebserviceConfig.pl	20 Nov 2012 16:04:25 -0000	1.9
+++ otrs.WebserviceConfig.pl	15 Jan 2013 17:43:26 -0000	1.10
@@ -2,5 +2,5 @@
 # --
 # bin/otrs.WebserviceConfig.pl - script to read/write/list webservice config
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -43,5 +43,5 @@
 use Kernel::System::GenericInterface::Webservice;
 
-use YAML;
+use Kernel::System::YAML;
 
 # get options
@@ -50,5 +50,5 @@
 if ( $Opts{h} ) {
     print "otrs.WebserviceConfig.pl <Revision $VERSION> - read/write/list webservice config\n";
-    print "Copyright (C) 2001-2012 OTRS AG, http://otrs.org/\n";
+    print "Copyright (C) 2001-2013 OTRS AG, http://otrs.org/\n";
     print
         "usage: otrs.WebserviceConfig.pl -a read  -i \$ID                         (read config, print to STDOUT)\n";
@@ -121,5 +121,5 @@
         exit 1;
     }
-    my $Config = eval { YAML::Load( ${$Content} ) };
+    my $Config = eval { Kernel::System::YAML::Load( ${$Content} ) };
 
     if ( !$Config ) {
@@ -196,5 +196,5 @@
 
     # dump config as string
-    my $Config = YAML::Dump( $Webservice->{Config} );
+    my $Config = Kernel::System::YAML::Dump( $Webservice->{Config} );
     print "$Config\n";
     exit 0;
---------------------------------------------------------------------
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