Foro - Perl en Español

por **davidlo** » 2006-11-11 06:03 @293

Estoy implementando un WebService mediante uddi+wsdl . Una vez creado el WSDL procedo a registrar el tModel en el registro UDDI. Para ello, hago lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# ...
$self->{uddiinq}= UDDI::Lite->new(

    uri =>"urn:uddi-org:api_v2",

    proxy =>"http://$servidor:$puerto/juddi/inquiry",

    readable => 1 );
# ...

my$uddiinq=$self->{uddiinq};
# ...

my$tM= UDDI::Data->name("tModel");
$tM->attr({tModelKey =>""});
$tM->value([

    UDDI::Data->name(name =>"Interfaz de servicios eBroker"),

    UDDI::Data->name(description =>"Interfaz en pruebas")
]);

$resp=$uddipub->save_tModel( authInfo =>$authtoken,$tM);
if($resp->fault){
$log->error("Error UDDI: ".$resp->faultstring());
return;
}else{
print("DEBUG: TMODEL registrado con exito\n\n");
}

# Rescatamos nuestra tModelKey
print("DEBUG: Rescatamos nuestra tModelKey.\n");
my$tMk=$resp->dataof("//tModelDetail/tModel")->attr->{"tModelKey"};
print"\n\n".$tMk."\n\n";

#obtenemos el tModelDetail a partir de esa clave tMk
print("DEBUG: Recuperando el tModelDetail a partir de la tModelKey\n");
$resp=$uddiinq->get_tModelDetail($tMk);
if($resp->fault){
print("DEBUG: Error UDDI: ".$resp->faultstring());
return;
}else{
print("DEBUG: recuperado el tModelDetail\n");
}Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Obtengo el siguiente output de la ejecución de este fragmento de código:

Código: Seleccionar todo: DEBUG: TMODEL registrado con exito DEBUG: Rescatamos nuestra tModelKey. uuid:9F4B42F0-7017-11DB-82F0-8459E59C944C DEBUG: Recuperando el tModelDetail a partir de la tModelKey DEBUG: Error UDDI: org.xml.sax.SAXParseException: Element or attribute do not match QName production: QName::=(NCName':')?NCName.

¿Alguna pista de por qué no estoy recuperando correctamente el tModelDetail?

Gracias. He estado revisando y debe estar mal el xsd. En relación con esto, otra pregunta. Estoy generando mi WSDL mediante el módulo WSDL::Generator, en el cual me da la interfaz WSDL y también la implementación WSDL (service y binding), que yo debo separar a pelo, publicando la interfaz como tModel y la implementación como BusinessService y BindingTemplate. La pregunta es si la definición de elementos xsd que me hace en el apartado types deberían también separarse para constituir el archivo xsd. Puede parecer una pregunta muy obvia pero es la primera vez que trabajo con esto y agradecería toda aportación.

Por otra parte, me gustaría que alguien me aclarara los parámetros schema_namesp, target_namesp y location que se usan en la inicialización del WSDL::Generator (se encuentra en la página http://search.cpan.org/~pdenis/WSDL-Gen ... nerator.pm ).

Un saludo y gracias.

Foro - Perl en Español

UDDI + WSDL : problemas con get_tModelDetail

UDDI + WSDL : problemas con get_tModelDetail

Publicidad

¿Quién está conectado?