if ($tl =~ m/^condor/) { $tl = ucfirst $tl; }
my $free = "";
gen $indent."case EDG_WLL_EVENT_$tu :\n";
- gen "\t\{";
+ gen "\t\{\n";
selectType $event $t;
# if there are some _code_, convert them from string:
for ($event->getFieldsOrdered) {
my $fn = $f->{name};
my $fnu = ucfirst $fn;
if ($f->{codes}) {
- gen "\tchar \*$fn\_code = edg_wll\_$t${fnu}ToString(event->$tl.$fn);\n";
+ gen "\t\tchar \*$fn\_code = edg_wll\_$t${fnu}ToString(event->$tl.$fn);\n";
$free = $free . "free($fn\_code); ";
}
- if ($f->{type} eq 'jobid') {
- gen "\tchar \*$fn\_str = edg_wlc_JobIdUnparse(event->$tl.$fn);\n";
+ elsif ($f->{type} eq 'jobid') {
+ gen "\t\tchar \*$fn\_str = edg_wlc_JobIdUnparse(event->$tl.$fn);\n";
$free .= "free($fn\_str); ";
}
- if ($f->{type} eq 'notifid') {
- gen "\tchar \*$fn\_str = edg_wll_NotifIdUnparse(event->$tl.$fn);\n";
+ elsif ($f->{type} eq 'notifid') {
+ gen "\t\tchar \*$fn\_str = edg_wll_NotifIdUnparse(event->$tl.$fn);\n";
$free .= "free($fn\_str); ";
}
- if ($ULMasString{$f->{type}}) {
- gen "\tchar \*$fn\_str = ".$f->getType()."ToString(event->$tl.$fn);\n";
+ elsif ($f->{type} eq 'timeval') {
+ gen "\t\tchar $fn\_str[ULM_DATE_STRING_LENGTH + 1];\n";
+ gen "\t\t".toString $f "event->$tl.$fn", "$fn\_str"; gen "\n";
+ }
+ elsif ($ULMasString{$f->{type}}) {
+ gen "\t\tchar \*$fn\_str = ".$f->getType()."ToString(event->$tl.$fn);\n";
$free .= "free($fn\_str); ";
}
}
gen "\t\tif (!nonulls.$tl.$fn) nonulls.$tl.$fn = \"\";\n"
if $f->{type} eq 'string';
}
- gen "\tif (trio_asprintf(&var,EDG_WLL_FORMAT_$tu";
+ gen "\t\tif (trio_asprintf(&var,EDG_WLL_FORMAT_$tu";
# now format remaining parapteres for trio_asprintf:
for ($event->getFieldsOrdered) {
my $f = selectField $event $_;
if ($f->{codes}) {
gen ",$fn\_code";
}
- elsif ($f->{type} eq 'jobid' || $f->{type} eq 'notifid' || $ULMasString{$f->{type}}) {
+ elsif ($f->{type} eq 'jobid' || $f->{type} eq 'notifid' || $f->{type} eq 'timeval' || $ULMasString{$f->{type}}) {
gen ",$fn\_str?$fn\_str:\"\"";
} else {
gen ",nonulls.$tl.$fn";
}
gen ") == -1 ) \{\n";
gen "\t".$indent.$free."NOMEM \}\n";
- if ($free) { gen "\t$free\n"; }
+ if ($free) { gen "\t\t$free\n"; }
gen "\t\}\n";
gen $indent.$indent."break;\n";
}
$value = "edg_wlc_JobIdParse(\"https://some.host:1234/x67qr549qc\",&e1->$l.$fn);";
} elsif ($f->{type} eq "notifid") {
$value = "edg_wll_NotifIdParse(\"https://some.host:1234/NOTIF:x67qr549qc\",&e1->$l.$fn);";
+ } elsif ($f->{type} eq "timeval") {
+ $value = "e1->$l.$fn.tv_sec = 326890800; e1->$l.$fn.tv_usec = 1;";
} else {
gen "% FIXME: unknown type $f->{type} for $fn \n";
}
# { sleep 16 ; ${gsoap_prefix}/bin/wsdl2h -c -t ${top_srcdir}/src/ws_typemap.dat -o $@ ${stagedir}/interface/LB.wsdl; }
LB.xh: ws_typemap.dat ${stagedir}/interface/LB.wsdl
- cp ${stagedir}/interface/LBTypes.wsdl .
- ${gsoap_bin_prefix}/wsdl2h -c -t ${top_srcdir}/src/ws_typemap.dat -o $@ ${stagedir}/interface/LB.wsdl
- rm -f LBTypes.wsdl
+ ${gsoap_bin_prefix}/wsdl2h -c -t ${top_srcdir}/src/ws_typemap.dat -I${stagedir}/interface -o $@ ${stagedir}/interface/LB.wsdl
test.xml: test_xml
./test_xml
test_query_events: ${query_events_objs}
${LINKXX} -o $@ ${query_events_objs} \
- ${TEST_LIBS} ${LB_COMMON_LIB} ${LB_MACHINE_LIB} ${classadslib}
+ ${TEST_LIBS} ${LB_COMMON_LIB} ${LB_MACHINE_LIB} ${classadslib} ${LOG4C_LIBS}
test.soapconv: test_soap_conv
./test_soap_conv
if (!in->id) return SOAP_FAULT;
out = soap_malloc(soap, sizeof(*out));
+ GLITE_SECURITY_GSOAP_LIST_CREATE(soap, out, status, struct glue__ComputingActivity_USCOREt, 1);
+
/* process each request individually: */
for (i=0; in->id[i]; i++) {
/* first parse jobId */
}
/* fill in the response fields */
- out->status->ID = in->id[i];
- out->status->State = edg_wll_StatToString(s.state);
+ GLITE_SECURITY_GSOAP_LIST_GET(out->status, i)->ID = in->id[i];
+ GLITE_SECURITY_GSOAP_LIST_GET(out->status, i)->State = edg_wll_StatToString(s.state);
}
return SOAP_OK;
}
extern "C" {
-int glite_lbu_InitDBContext(glite_lbu_DBContext *ctx) { return 0; }
+int glite_lbu_InitDBContext(glite_lbu_DBContext *ctx, int backend) { return 0; }
void glite_lbu_FreeDBContext(glite_lbu_DBContext ctx) { }
int glite_lbu_DBConnect(glite_lbu_DBContext ctx, const char*str) { return 0; }
void glite_lbu_DBClose(glite_lbu_DBContext ctx) { }
int debug;
int glite_lbu_QueryColumns(glite_lbu_Statement stmt, char**cols) { return 0; }
-void glite_lbu_TimeToDB(long t, char **s) { *s = NULL; }
-time_t glite_lbu_DBToTime(const char *c) { return (time_t)-1; }
+void glite_lbu_TimeToStr(long t, char **s) { *s = NULL; }
+time_t glite_lbu_StrToTime(const char *c) { return (time_t)-1; }
int glite_lbu_Transaction(glite_lbu_DBContext ctx) { return 0; }
int glite_lbu_Commit(glite_lbu_DBContext ctx) { return 0; }
LB.xh: ws_typemap.dat ${stagedir}/interface/LB.wsdl
- cp ${stagedir}/interface/LBTypes.wsdl .
- ${gsoap_bin_prefix}/wsdl2h -c -t ${top_srcdir}/examples/ws_typemap.dat -o $@ ${stagedir}/interface/LB.wsdl
- rm -f LBTypes.wsdl
+ ${gsoap_bin_prefix}/wsdl2h -c -t ${top_srcdir}/examples/ws_typemap.dat -I${stagedir}/interface -o $@ ${stagedir}/interface/LB.wsdl
soap_version.h:
${gsoap_bin_prefix}/soapcpp2 /dev/null