[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