[interchange-cvs] interchange - racke modified 2 files
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Thu Jun 12 07:42:01 2003
User: racke
Date: 2003-06-12 11:40:51 GMT
Modified: code/SystemTag soap.coretag
Modified: lib/Vend SOAP.pm
Log:
soap_entity tag added
Revision Changes Path
1.3 +3 -0 interchange/code/SystemTag/soap.coretag
rev 1.3, prev_rev 1.2
Index: soap.coretag
===================================================================
RCS file: /anon_cvs/repository/interchange/code/SystemTag/soap.coretag,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- soap.coretag 7 May 2003 01:07:28 -0000 1.2
+++ soap.coretag 12 Jun 2003 11:40:50 -0000 1.3
@@ -2,3 +2,6 @@
UserTag soap addAttr
UserTag soap PosNumber 3
UserTag soap MapRoutine Vend::SOAP::tag_soap
+
+UserTag soap_entity addAttr
+UserTag soap_entity MapRoutine Vend::SOAP::tag_soap_entity
2.11 +12 -2 interchange/lib/Vend/SOAP.pm
rev 2.11, prev_rev 2.10
Index: SOAP.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/SOAP.pm,v
retrieving revision 2.10
retrieving revision 2.11
diff -u -r2.10 -r2.11
--- SOAP.pm 7 May 2003 17:23:21 -0000 2.10
+++ SOAP.pm 12 Jun 2003 11:40:51 -0000 2.11
@@ -1,6 +1,6 @@
# Vend::SOAP - Handle SOAP connections for Interchange
#
-# $Id: SOAP.pm,v 2.10 2003/05/07 17:23:21 racke Exp $
+# $Id: SOAP.pm,v 2.11 2003/06/12 11:40:51 racke Exp $
#
# Copyright (C) 1996-2002 Red Hat, Inc. <interchange@redhat.com>
#
@@ -34,7 +34,7 @@
use strict;
use vars qw($VERSION @ISA $AUTOLOAD);
-$VERSION = substr(q$Revision: 2.10 $, 10);
+$VERSION = substr(q$Revision: 2.11 $, 10);
@ISA = qw/SOAP::Server/;
my %Allowed_tags;
@@ -166,6 +166,16 @@
$::Scratch->{$opt->{result}} = $result if $opt->{result};
return '' if $opt->{init};
return $result;
+}
+
+sub tag_soap_entity {
+ my ($opt) = @_;
+ my ($obj);
+
+ if ($opt->{tree}) {
+ $opt->{value} = map {$Tag->soap_data_entity($_)} @{$opt->{value}};
+ }
+ $obj = new SOAP::Data (%$opt);
}
my %intrinsic = (local => sub {$CGI::remote_addr eq '127.0.0.1'},