int main(int argc, char **argv) {
int i;
Octstr *packet = NULL;
Octstr *newpacket = NULL;
WTP_PDU *pdu = NULL;
Octstr *wsp_data = NULL;
WSP_PDU *wsp = NULL;
gwlib_init();
for (i = 1; i < argc; i++) {
octstr_destroy(packet); packet = NULL;
octstr_destroy(newpacket); newpacket = NULL;
octstr_destroy(wsp_data); wsp_data = NULL;
wtp_pdu_destroy(pdu); pdu = NULL;
wsp_pdu_destroy(wsp); wsp = NULL;
packet = octstr_read_file(argv[i]);
pdu = wtp_pdu_unpack(packet);
if (!pdu) {
warning(0, "Unpacking PDU %s failed", argv[i]);
continue;
}
debug("test", 0, "PDU %s:", argv[i]);
wtp_pdu_dump(pdu, 0);
newpacket = wtp_pdu_pack(pdu);
if (!newpacket) {
warning(0, "Repacking PDU %s failed", argv[i]);
continue;
}
if (octstr_compare(packet, newpacket) != 0) {
error(0, "Repacking PDU %s changed it", argv[i]);
debug("test", 0, "Original:");
octstr_dump(packet, 1);
debug("test", 0, "New:");
octstr_dump(newpacket, 1);
continue;
}
if (pdu->type == Invoke) {
wsp_data = pdu->u.Invoke.user_data;
} else if (pdu->type == Result) {
wsp_data = pdu->u.Result.user_data;
} else {
continue;
}
wsp_data = octstr_duplicate(wsp_data);
wsp = wsp_pdu_unpack(wsp_data);
if (!wsp) {
warning(0, "Unpacking WSP data in %s failed", argv[i]);
continue;
}
wsp_pdu_dump(wsp, 0);
octstr_destroy(newpacket);
newpacket = wsp_pdu_pack(wsp);
if (!newpacket) {
warning(0, "Repacking WSP data in %s failed", argv[i]);
continue;
}
if (octstr_compare(wsp_data, newpacket) != 0) {
error(0, "Repacking WSP data in %s changed it",
argv[i]);
debug("test", 0, "Original:");
octstr_dump(wsp_data, 1);
debug("test", 0, "New:");
octstr_dump(newpacket, 1);
continue;
}
}
octstr_destroy(packet);
octstr_destroy(newpacket);
wtp_pdu_destroy(pdu);
gwlib_shutdown();
return 0;
}
WAPEvent *unpack_wdp_datagram_real(WAPEvent *datagram)
{
WTP_PDU *pdu;
WAPEvent *event;
Octstr *data;
gw_assert(datagram->type == T_DUnitdata_Ind);
data = datagram->u.T_DUnitdata_Ind.user_data;
if (truncated_datagram(datagram)) {
warning(0, "WTP: got a truncated datagram, ignoring");
return NULL;
}
pdu = wtp_pdu_unpack(data);
/*
* wtp_pdu_unpack returned NULL, we have send here a rcv error event,
* but now we silently drop the packet. Because we can't figure out
* in the pack_error() call if the TID value and hence the direction
* inditation is really for initiator or responder.
*/
if (pdu == NULL) {
error(0, "WTP: cannot unpack pdu, dropping packet.");
return NULL;
}
event = NULL;
switch (pdu->type) {
case Invoke:
event = unpack_invoke(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
/* if an WTP initiator gets invoke, it would be an illegal pdu. */
if (!wtp_event_is_for_responder(event)){
debug("wap.wtp", 0, "WTP: Invoke when initiator. Message was");
wap_event_destroy(event);
event = pack_error(datagram);
}
break;
case Segmented_invoke:
event = unpack_segmented_invoke(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
break;
case Result:
event = unpack_result(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
/* if an WTP responder gets result, it would be an illegal pdu. */
if (wtp_event_is_for_responder(event)){
debug("wap.wtp", 0, "WTP: Result when responder. Message was");
wap_event_destroy(event);
event = pack_error(datagram);
}
break;
case Ack:
event = unpack_ack(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
break;
case Negative_ack:
event = unpack_negative_ack(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
break;
case Abort:
event = unpack_abort(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
break;
default:
event = pack_error(datagram);
debug("wap.wtp", 0, "WTP: Unhandled PDU type. Message was");
wap_event_dump(datagram);
return event;
}
wtp_pdu_destroy(pdu);
wap_event_assert(event);
return event;
}
WAPEvent *unpack_wdp_datagram_real(WAPEvent *datagram)
{
WTP_PDU *pdu;
WAPEvent *event;
Octstr *data;
gw_assert(datagram->type == T_DUnitdata_Ind);
data = datagram->u.T_DUnitdata_Ind.user_data;
if (truncated_datagram(datagram)) {
warning(0, "WTP: got a truncated datagram, ignoring");
return NULL;
}
pdu = wtp_pdu_unpack(data);
/*
* Wtp_pdu_unpack returned NULL, we build a rcv error event.
*/
if (pdu == NULL) {
error(0, "WTP: cannot unpack pdu, creating an error pdu");
event = pack_error(datagram);
return event;
}
event = NULL;
switch (pdu->type) {
case Invoke:
event = unpack_invoke(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
/* if an WTP initiator gets invoke, it would be an illegal pdu. */
if (!wtp_event_is_for_responder(event)){
debug("wap.wtp", 0, "WTP: Invoke when initiator. Message was");
wap_event_destroy(event);
event = pack_error(datagram);
}
break;
case Segmented_invoke:
event = unpack_segmented_invoke(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
break;
case Result:
event = unpack_result(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
/* if an WTP responder gets result, it would be an illegal pdu. */
if (wtp_event_is_for_responder(event)){
debug("wap.wtp", 0, "WTP: Result when responder. Message was");
wap_event_destroy(event);
event = pack_error(datagram);
}
break;
case Ack:
event = unpack_ack(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
break;
case Negative_ack:
event = unpack_negative_ack(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
break;
case Abort:
event = unpack_abort(pdu, datagram->u.T_DUnitdata_Ind.addr_tuple);
break;
default:
event = pack_error(datagram);
debug("wap.wtp", 0, "WTP: Unhandled PDU type. Message was");
wap_event_dump(datagram);
return event;
}
wtp_pdu_destroy(pdu);
wap_event_assert(event);
return event;
}
