[otrs-cvs] otrs/bin otrs.WebserviceConfig.pl,1.10,1.11

"CVS commits notifications of OTRS.org" <[email protected]>
Newsgroups gmane.comp.otrs.cvs
Message-ID <[email protected]>
Comments:
Update of /home/cvs/otrs/bin
In directory lancelot:/tmp/cvs-serv9398/bin

Modified Files:
	otrs.WebserviceConfig.pl 
Log Message:
Re-implemented Kernel::System::YAML as OOP.

Author: cr

Index: otrs.WebserviceConfig.pl
===================================================================
RCS file: /home/cvs/otrs/bin/otrs.WebserviceConfig.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -2 -u -d -r1.10 -r1.11
--- otrs.WebserviceConfig.pl	15 Jan 2013 17:43:26 -0000	1.10
+++ otrs.WebserviceConfig.pl	17 Jan 2013 03:39:20 -0000	1.11
@@ -79,4 +79,5 @@
 # create needed objects
 $CommonObject{WebserviceObject} = Kernel::System::GenericInterface::Webservice->new(%CommonObject);
+$CommonObject{YAMLObject}       = Kernel::System::YAML->new(%CommonObject);
 
 # validate -a param
@@ -121,5 +122,5 @@
         exit 1;
     }
-    my $Config = eval { Kernel::System::YAML::Load( ${$Content} ) };
+    my $Config = $CommonObject{YAMLObject}->Load( Data => ${$Content} );
 
     if ( !$Config ) {
@@ -196,5 +197,5 @@
 
     # dump config as string
-    my $Config = Kernel::System::YAML::Dump( $Webservice->{Config} );
+    my $Config = $CommonObject{YAMLObject}->Dump( Data => $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
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.