8 #include <limits.h> /* Because of LONG_{MIN,MAX} constants */
13 #include "validator.h"
15 #include <gpg-error.h> /* Because of ksba or gpgme */
20 /* Base URL of production ISDS instance */
21 const char isds_locator
[] = "https://ws1.mojedatovaschranka.cz/";
22 const char isds_cert_locator
[] = "https://ws1c.mojedatovaschranka.cz/";
23 const char isds_otp_locator
[] = "https://www.mojedatovaschranka.cz/";
25 /* Base URL of production ISDS instance */
26 const char isds_testing_locator
[] = "https://ws1.czebox.cz/";
27 const char isds_cert_testing_locator
[] = "https://ws1c.czebox.cz/";
28 const char isds_otp_testing_locator
[] = "https://www.czebox.cz/";
30 /* Extension to MIME type map */
31 static const xmlChar
*extension_map_mime
[] = {
32 BAD_CAST
"cer", BAD_CAST
"application/x-x509-ca-cert",
33 BAD_CAST
"crt", BAD_CAST
"application/x-x509-ca-cert",
34 BAD_CAST
"der", BAD_CAST
"application/x-x509-ca-cert",
35 BAD_CAST
"doc", BAD_CAST
"application/msword",
36 BAD_CAST
"docx", BAD_CAST
"application/vnd.openxmlformats-officedocument."
37 "wordprocessingml.document",
38 BAD_CAST
"dbf", BAD_CAST
"application/octet-stream",
39 BAD_CAST
"prj", BAD_CAST
"application/octet-stream",
40 BAD_CAST
"qix", BAD_CAST
"application/octet-stream",
41 BAD_CAST
"sbn", BAD_CAST
"application/octet-stream",
42 BAD_CAST
"sbx", BAD_CAST
"application/octet-stream",
43 BAD_CAST
"shp", BAD_CAST
"application/octet-stream",
44 BAD_CAST
"shx", BAD_CAST
"application/octet-stream",
45 BAD_CAST
"dgn", BAD_CAST
"application/octet-stream",
46 BAD_CAST
"dwg", BAD_CAST
"image/vnd.dwg",
47 BAD_CAST
"edi", BAD_CAST
"application/edifact",
48 BAD_CAST
"fo", BAD_CAST
"application/vnd.software602.filler.form+xml",
49 BAD_CAST
"gfs", BAD_CAST
"application/xml",
50 BAD_CAST
"gml", BAD_CAST
"application/xml",
51 BAD_CAST
"gif", BAD_CAST
"image/gif",
52 BAD_CAST
"htm", BAD_CAST
"text/html",
53 BAD_CAST
"html", BAD_CAST
"text/html",
54 BAD_CAST
"isdoc", BAD_CAST
"text/isdoc",
55 BAD_CAST
"isdocx", BAD_CAST
"text/isdocx",
56 BAD_CAST
"jfif", BAD_CAST
"image/jpeg",
57 BAD_CAST
"jpg", BAD_CAST
"image/jpeg",
58 BAD_CAST
"jpeg", BAD_CAST
"image/jpeg",
59 BAD_CAST
"mpeg", BAD_CAST
"video/mpeg",
60 BAD_CAST
"mpeg1", BAD_CAST
"video/mpeg",
61 BAD_CAST
"mpeg2", BAD_CAST
"video/mpeg",
62 BAD_CAST
"mpg", BAD_CAST
"video/mpeg",
63 BAD_CAST
"mp2", BAD_CAST
"audio/mpeg",
64 BAD_CAST
"mp3", BAD_CAST
"audio/mpeg",
65 BAD_CAST
"odp", BAD_CAST
"application/vnd.oasis.opendocument.presentation",
66 BAD_CAST
"ods", BAD_CAST
"application/vnd.oasis.opendocument.spreadsheet",
67 BAD_CAST
"odt", BAD_CAST
"application/vnd.oasis.opendocument.text",
68 BAD_CAST
"pdf", BAD_CAST
"application/pdf",
69 BAD_CAST
"p7b", BAD_CAST
"application/pkcs7-certificates",
70 BAD_CAST
"p7c", BAD_CAST
"application/pkcs7-mime",
71 BAD_CAST
"p7m", BAD_CAST
"application/pkcs7-mime",
72 BAD_CAST
"p7f", BAD_CAST
"application/pkcs7-signature",
73 BAD_CAST
"p7s", BAD_CAST
"application/pkcs7-signature",
74 BAD_CAST
"pk7", BAD_CAST
"application/pkcs7-mime",
75 BAD_CAST
"png", BAD_CAST
"image/png",
76 BAD_CAST
"ppt", BAD_CAST
"application/vnd.ms-powerpoint",
77 BAD_CAST
"pptx", BAD_CAST
"application/vnd.openxmlformats-officedocument."
78 "presentationml.presentation",
79 BAD_CAST
"rtf", BAD_CAST
"application/rtf",
80 BAD_CAST
"tif", BAD_CAST
"image/tiff",
81 BAD_CAST
"tiff", BAD_CAST
"image/tiff",
82 BAD_CAST
"tsr", BAD_CAST
"application/timestamp-reply",
83 BAD_CAST
"tst", BAD_CAST
"application/timestamp-reply",
84 BAD_CAST
"txt", BAD_CAST
"text/plain",
85 BAD_CAST
"wav", BAD_CAST
"audio/wav",
86 BAD_CAST
"xls", BAD_CAST
"application/vnd.ms-excel",
87 BAD_CAST
"xlsx", BAD_CAST
"application/vnd.openxmlformats-officedocument."
88 "spreadsheetml.sheet",
89 BAD_CAST
"xml", BAD_CAST
"application/xml",
90 BAD_CAST
"xsd", BAD_CAST
"application/xml",
91 BAD_CAST
"zfo", BAD_CAST
"application/vnd.software602.filler.form-xml-zip"
94 /* Structure type to hold conversion table from status code to isds_error and
96 struct code_map_isds_error
{
97 const xmlChar
**codes
; /* NULL terminated array of status codes */
98 const char **meanings
; /* Mapping to non-localized long messages */
99 const isds_error
*errors
; /* Mapping to isds_error code */
102 /* Deallocate structure isds_pki_credentials and NULL it.
103 * Pass-phrase is discarded.
104 * @pki credentials to to free */
105 void isds_pki_credentials_free(struct isds_pki_credentials
**pki
) {
106 if(!pki
|| !*pki
) return;
108 free((*pki
)->engine
);
109 free((*pki
)->certificate
);
112 if ((*pki
)->passphrase
) {
113 memset((*pki
)->passphrase
, 0, strlen((*pki
)->passphrase
));
114 free((*pki
)->passphrase
);
121 /* Free isds_list with all member data.
122 * @list list to free, on return will be NULL */
123 void isds_list_free(struct isds_list
**list
) {
124 struct isds_list
*item
, *next_item
;
126 if (!list
|| !*list
) return;
128 for(item
= *list
; item
; item
= next_item
) {
129 if (item
->destructor
) (item
->destructor
)(&(item
->data
));
130 next_item
= item
->next
;
138 /* Deallocate structure isds_hash and NULL it.
139 * @hash hash to to free */
140 void isds_hash_free(struct isds_hash
**hash
) {
141 if(!hash
|| !*hash
) return;
142 free((*hash
)->value
);
147 /* Deallocate structure isds_PersonName recursively and NULL it */
148 static void isds_PersonName_free(struct isds_PersonName
**person_name
) {
149 if (!person_name
|| !*person_name
) return;
151 free((*person_name
)->pnFirstName
);
152 free((*person_name
)->pnMiddleName
);
153 free((*person_name
)->pnLastName
);
154 free((*person_name
)->pnLastNameAtBirth
);
161 /* Deallocate structure isds_BirthInfo recursively and NULL it */
162 static void isds_BirthInfo_free(struct isds_BirthInfo
**birth_info
) {
163 if (!birth_info
|| !*birth_info
) return;
165 free((*birth_info
)->biDate
);
166 free((*birth_info
)->biCity
);
167 free((*birth_info
)->biCounty
);
168 free((*birth_info
)->biState
);
175 /* Deallocate structure isds_Address recursively and NULL it */
176 static void isds_Address_free(struct isds_Address
**address
) {
177 if (!address
|| !*address
) return;
179 free((*address
)->adCity
);
180 free((*address
)->adStreet
);
181 free((*address
)->adNumberInStreet
);
182 free((*address
)->adNumberInMunicipality
);
183 free((*address
)->adZipCode
);
184 free((*address
)->adState
);
191 /* Deallocate structure isds_DbOwnerInfo recursively and NULL it */
192 void isds_DbOwnerInfo_free(struct isds_DbOwnerInfo
**db_owner_info
) {
193 if (!db_owner_info
|| !*db_owner_info
) return;
195 free((*db_owner_info
)->dbID
);
196 free((*db_owner_info
)->dbType
);
197 free((*db_owner_info
)->ic
);
198 isds_PersonName_free(&((*db_owner_info
)->personName
));
199 free((*db_owner_info
)->firmName
);
200 isds_BirthInfo_free(&((*db_owner_info
)->birthInfo
));
201 isds_Address_free(&((*db_owner_info
)->address
));
202 free((*db_owner_info
)->nationality
);
203 free((*db_owner_info
)->email
);
204 free((*db_owner_info
)->telNumber
);
205 free((*db_owner_info
)->identifier
);
206 free((*db_owner_info
)->registryCode
);
207 free((*db_owner_info
)->dbState
);
208 free((*db_owner_info
)->dbEffectiveOVM
);
210 free(*db_owner_info
);
211 *db_owner_info
= NULL
;
214 /* Deallocate structure isds_DbUserInfo recursively and NULL it */
215 void isds_DbUserInfo_free(struct isds_DbUserInfo
**db_user_info
) {
216 if (!db_user_info
|| !*db_user_info
) return;
218 free((*db_user_info
)->userID
);
219 free((*db_user_info
)->userType
);
220 free((*db_user_info
)->userPrivils
);
221 isds_PersonName_free(&((*db_user_info
)->personName
));
222 isds_Address_free(&((*db_user_info
)->address
));
223 free((*db_user_info
)->biDate
);
224 free((*db_user_info
)->ic
);
225 free((*db_user_info
)->firmName
);
226 free((*db_user_info
)->caStreet
);
227 free((*db_user_info
)->caCity
);
228 free((*db_user_info
)->caZipCode
);
229 free((*db_user_info
)->caState
);
231 zfree(*db_user_info
);
235 /* Deallocate struct isds_event recursively and NULL it */
236 void isds_event_free(struct isds_event
**event
) {
237 if (!event
|| !*event
) return;
239 free((*event
)->time
);
240 free((*event
)->type
);
241 free((*event
)->description
);
246 /* Deallocate struct isds_envelope recursively and NULL it */
247 void isds_envelope_free(struct isds_envelope
**envelope
) {
248 if (!envelope
|| !*envelope
) return;
250 free((*envelope
)->dmID
);
251 free((*envelope
)->dbIDSender
);
252 free((*envelope
)->dmSender
);
253 free((*envelope
)->dmSenderAddress
);
254 free((*envelope
)->dmSenderType
);
255 free((*envelope
)->dmRecipient
);
256 free((*envelope
)->dmRecipientAddress
);
257 free((*envelope
)->dmAmbiguousRecipient
);
258 free((*envelope
)->dmType
);
260 free((*envelope
)->dmOrdinal
);
261 free((*envelope
)->dmMessageStatus
);
262 free((*envelope
)->dmDeliveryTime
);
263 free((*envelope
)->dmAcceptanceTime
);
264 isds_hash_free(&(*envelope
)->hash
);
265 free((*envelope
)->timestamp
);
266 isds_list_free(&(*envelope
)->events
);
268 free((*envelope
)->dmSenderOrgUnit
);
269 free((*envelope
)->dmSenderOrgUnitNum
);
270 free((*envelope
)->dbIDRecipient
);
271 free((*envelope
)->dmRecipientOrgUnit
);
272 free((*envelope
)->dmRecipientOrgUnitNum
);
273 free((*envelope
)->dmToHands
);
274 free((*envelope
)->dmAnnotation
);
275 free((*envelope
)->dmRecipientRefNumber
);
276 free((*envelope
)->dmSenderRefNumber
);
277 free((*envelope
)->dmRecipientIdent
);
278 free((*envelope
)->dmSenderIdent
);
280 free((*envelope
)->dmLegalTitleLaw
);
281 free((*envelope
)->dmLegalTitleYear
);
282 free((*envelope
)->dmLegalTitleSect
);
283 free((*envelope
)->dmLegalTitlePar
);
284 free((*envelope
)->dmLegalTitlePoint
);
286 free((*envelope
)->dmPersonalDelivery
);
287 free((*envelope
)->dmAllowSubstDelivery
);
289 free((*envelope
)->dmOVM
);
290 free((*envelope
)->dmPublishOwnID
);
297 /* Deallocate struct isds_message recursively and NULL it */
298 void isds_message_free(struct isds_message
**message
) {
299 if (!message
|| !*message
) return;
301 free((*message
)->raw
);
302 isds_envelope_free(&((*message
)->envelope
));
303 isds_list_free(&((*message
)->documents
));
304 xmlFreeDoc((*message
)->xml
); (*message
)->xml
= NULL
;
311 /* Deallocate struct isds_document recursively and NULL it */
312 void isds_document_free(struct isds_document
**document
) {
313 if (!document
|| !*document
) return;
315 if (!(*document
)->is_xml
) {
316 free((*document
)->data
);
318 free((*document
)->dmMimeType
);
319 free((*document
)->dmFileGuid
);
320 free((*document
)->dmUpFileGuid
);
321 free((*document
)->dmFileDescr
);
322 free((*document
)->dmFormat
);
329 /* Deallocate struct isds_message_copy recursively and NULL it */
330 void isds_message_copy_free(struct isds_message_copy
**copy
) {
331 if (!copy
|| !*copy
) return;
333 free((*copy
)->dbIDRecipient
);
334 free((*copy
)->dmRecipientOrgUnit
);
335 free((*copy
)->dmRecipientOrgUnitNum
);
336 free((*copy
)->dmToHands
);
338 free((*copy
)->dmStatus
);
345 /* Deallocate struct isds_message_status_change recursively and NULL it */
346 void isds_message_status_change_free(
347 struct isds_message_status_change
**message_status_change
) {
348 if (!message_status_change
|| !*message_status_change
) return;
350 free((*message_status_change
)->dmID
);
351 free((*message_status_change
)->time
);
352 free((*message_status_change
)->dmMessageStatus
);
354 zfree(*message_status_change
);
358 /* Deallocate struct isds_approval recursively and NULL it */
359 void isds_approval_free(struct isds_approval
**approval
) {
360 if (!approval
|| !*approval
) return;
362 free((*approval
)->refference
);
368 /* Deallocate struct isds_credentials_delivery recursively and NULL it.
369 * The email string is deallocated too. */
370 void isds_credentials_delivery_free(
371 struct isds_credentials_delivery
**credentials_delivery
) {
372 if (!credentials_delivery
|| !*credentials_delivery
) return;
374 free((*credentials_delivery
)->email
);
375 free((*credentials_delivery
)->token
);
376 free((*credentials_delivery
)->new_user_name
);
378 zfree(*credentials_delivery
);
382 /* Deallocate struct isds_commercial_permission recursively and NULL it */
383 void isds_commercial_permission_free(
384 struct isds_commercial_permission
**permission
) {
385 if (NULL
== permission
|| NULL
== *permission
) return;
387 free((*permission
)->recipient
);
388 free((*permission
)->payer
);
389 free((*permission
)->expiration
);
390 free((*permission
)->count
);
391 free((*permission
)->reply_identifier
);
397 /* Deallocate struct isds_credit_event recursively and NULL it */
398 void isds_credit_event_free(struct isds_credit_event
**event
) {
399 if (NULL
== event
|| NULL
== *event
) return;
401 free((*event
)->time
);
402 switch ((*event
)->type
) {
403 case ISDS_CREDIT_CHARGED
:
404 free((*event
)->details
.charged
.transaction
);
406 case ISDS_CREDIT_DISCHARGED
:
407 free((*event
)->details
.discharged
.transaction
);
409 case ISDS_CREDIT_MESSAGE_SENT
:
410 free((*event
)->details
.message_sent
.recipient
);
411 free((*event
)->details
.message_sent
.message_id
);
413 case ISDS_CREDIT_STORAGE_SET
:
414 free((*event
)->details
.storage_set
.new_valid_from
);
415 free((*event
)->details
.storage_set
.new_valid_to
);
416 free((*event
)->details
.storage_set
.old_capacity
);
417 free((*event
)->details
.storage_set
.old_valid_from
);
418 free((*event
)->details
.storage_set
.old_valid_to
);
419 free((*event
)->details
.storage_set
.initiator
);
421 case ISDS_CREDIT_EXPIRED
:
429 /* *DUP_OR_ERROR macros needs error label */
430 #define STRDUP_OR_ERROR(new, template) { \
434 (new) = strdup(template); \
435 if (!new) goto error; \
439 #define FLATDUP_OR_ERROR(new, template) { \
443 (new) = malloc(sizeof(*(new))); \
444 if (!new) goto error; \
445 memcpy((new), (template), sizeof(*(template))); \
449 /* Copy structure isds_pki_credentials recursively. */
450 struct isds_pki_credentials
*isds_pki_credentials_duplicate(
451 const struct isds_pki_credentials
*template) {
452 struct isds_pki_credentials
*new = NULL
;
454 if(!template) return NULL
;
456 new = calloc(1, sizeof(*new));
457 if (!new) return NULL
;
459 STRDUP_OR_ERROR(new->engine
, template->engine
);
460 new->certificate_format
= template->certificate_format
;
461 STRDUP_OR_ERROR(new->certificate
, template->certificate
);
462 new->key_format
= template->key_format
;
463 STRDUP_OR_ERROR(new->key
, template->key
);
464 STRDUP_OR_ERROR(new->passphrase
, template->passphrase
);
469 isds_pki_credentials_free(&new);
474 /* Copy structure isds_PersonName recursively */
475 struct isds_PersonName
*isds_PersonName_duplicate(
476 const struct isds_PersonName
*template) {
477 struct isds_PersonName
*new = NULL
;
479 if (!template) return NULL
;
481 new = calloc(1, sizeof(*new));
482 if (!new) return NULL
;
484 STRDUP_OR_ERROR(new->pnFirstName
, template->pnFirstName
);
485 STRDUP_OR_ERROR(new->pnMiddleName
, template->pnMiddleName
);
486 STRDUP_OR_ERROR(new->pnLastName
, template->pnLastName
);
487 STRDUP_OR_ERROR(new->pnLastNameAtBirth
, template->pnLastNameAtBirth
);
492 isds_PersonName_free(&new);
497 /* Copy structure isds_BirthInfo recursively */
498 static struct isds_BirthInfo
*isds_BirthInfo_duplicate(
499 const struct isds_BirthInfo
*template) {
500 struct isds_BirthInfo
*new = NULL
;
502 if (!template) return NULL
;
504 new = calloc(1, sizeof(*new));
505 if (!new) return NULL
;
507 FLATDUP_OR_ERROR(new->biDate
, template->biDate
);
508 STRDUP_OR_ERROR(new->biCity
, template->biCity
);
509 STRDUP_OR_ERROR(new->biCounty
, template->biCounty
);
510 STRDUP_OR_ERROR(new->biState
, template->biState
);
515 isds_BirthInfo_free(&new);
520 /* Copy structure isds_Address recursively */
521 struct isds_Address
*isds_Address_duplicate(
522 const struct isds_Address
*template) {
523 struct isds_Address
*new = NULL
;
525 if (!template) return NULL
;
527 new = calloc(1, sizeof(*new));
528 if (!new) return NULL
;
530 STRDUP_OR_ERROR(new->adCity
, template->adCity
);
531 STRDUP_OR_ERROR(new->adStreet
, template->adStreet
);
532 STRDUP_OR_ERROR(new->adNumberInStreet
, template->adNumberInStreet
);
533 STRDUP_OR_ERROR(new->adNumberInMunicipality
,
534 template->adNumberInMunicipality
);
535 STRDUP_OR_ERROR(new->adZipCode
, template->adZipCode
);
536 STRDUP_OR_ERROR(new->adState
, template->adState
);
541 isds_Address_free(&new);
546 /* Copy structure isds_DbOwnerInfo recursively */
547 struct isds_DbOwnerInfo
*isds_DbOwnerInfo_duplicate(
548 const struct isds_DbOwnerInfo
*template) {
549 struct isds_DbOwnerInfo
*new = NULL
;
550 if (!template) return NULL
;
552 new = calloc(1, sizeof(*new));
553 if (!new) return NULL
;
555 STRDUP_OR_ERROR(new->dbID
, template->dbID
);
556 FLATDUP_OR_ERROR(new->dbType
, template->dbType
);
557 STRDUP_OR_ERROR(new->ic
, template->ic
);
559 if (template->personName
) {
560 if (!(new->personName
=
561 isds_PersonName_duplicate(template->personName
)))
565 STRDUP_OR_ERROR(new->firmName
, template->firmName
);
567 if (template->birthInfo
) {
568 if (!(new->birthInfo
=
569 isds_BirthInfo_duplicate(template->birthInfo
)))
573 if (template->address
) {
574 if (!(new->address
= isds_Address_duplicate(template->address
)))
578 STRDUP_OR_ERROR(new->nationality
, template->nationality
);
579 STRDUP_OR_ERROR(new->email
, template->email
);
580 STRDUP_OR_ERROR(new->telNumber
, template->telNumber
);
581 STRDUP_OR_ERROR(new->identifier
, template->identifier
);
582 STRDUP_OR_ERROR(new->registryCode
, template->registryCode
);
583 FLATDUP_OR_ERROR(new->dbState
, template->dbState
);
584 FLATDUP_OR_ERROR(new->dbEffectiveOVM
, template->dbEffectiveOVM
);
585 FLATDUP_OR_ERROR(new->dbOpenAddressing
, template->dbOpenAddressing
);
590 isds_DbOwnerInfo_free(&new);
595 /* Copy structure isds_DbUserInfo recursively */
596 struct isds_DbUserInfo
*isds_DbUserInfo_duplicate(
597 const struct isds_DbUserInfo
*template) {
598 struct isds_DbUserInfo
*new = NULL
;
599 if (!template) return NULL
;
601 new = calloc(1, sizeof(*new));
602 if (!new) return NULL
;
604 STRDUP_OR_ERROR(new->userID
, template->userID
);
605 FLATDUP_OR_ERROR(new->userType
, template->userType
);
606 FLATDUP_OR_ERROR(new->userPrivils
, template->userPrivils
);
608 if (template->personName
) {
609 if (!(new->personName
=
610 isds_PersonName_duplicate(template->personName
)))
614 if (template->address
) {
615 if (!(new->address
= isds_Address_duplicate(template->address
)))
619 FLATDUP_OR_ERROR(new->biDate
, template->biDate
);
620 STRDUP_OR_ERROR(new->ic
, template->ic
);
621 STRDUP_OR_ERROR(new->firmName
, template->firmName
);
622 STRDUP_OR_ERROR(new->caStreet
, template->caStreet
);
623 STRDUP_OR_ERROR(new->caCity
, template->caCity
);
624 STRDUP_OR_ERROR(new->caZipCode
, template->caZipCode
);
625 STRDUP_OR_ERROR(new->caState
, template->caState
);
630 isds_DbUserInfo_free(&new);
634 #undef FLATDUP_OR_ERROR
635 #undef STRDUP_OR_ERROR
638 /* Logs libxml2 errors. Should be registered to libxml2 library.
639 * @ctx is unused currently
640 * @msg is printf-like formated message from libxml2 (UTF-8?)
641 * @... are variadic arguments for @msg */
642 static void log_xml(void *ctx
, const char *msg
, ...) {
649 isds_vasprintf(&text
, msg
, ap
);
653 isds_log(ILF_XML
, ILL_ERR
, "%s", text
);
658 /* Initialize ISDS library.
659 * Global function, must be called before other functions.
660 * If it fails you can not use ISDS library and must call isds_cleanup() to
661 * free partially initialized global variables. */
662 isds_error
isds_init(void) {
663 /* NULL global variables */
664 log_facilities
= ILF_ALL
;
665 log_level
= ILL_WARNING
;
667 log_callback_data
= NULL
;
670 /* Initialize gettext */
671 bindtextdomain(PACKAGE
, LOCALEDIR
);
675 /* Initialize CURL */
676 if (curl_global_init(CURL_GLOBAL_ALL
)) {
677 isds_log(ILF_ISDS
, ILL_CRIT
, _("CURL library initialization failed\n"));
680 #endif /* HAVE_LIBCURL */
682 /* Initialize gpg-error because of gpgme and ksba */
683 if (gpg_err_init()) {
684 isds_log(ILF_ISDS
, ILL_CRIT
,
685 _("gpg-error library initialization failed\n"));
689 /* Initialize GPGME */
690 if (_isds_init_gpgme(&version_gpgme
)) {
691 isds_log(ILF_ISDS
, ILL_CRIT
,
692 _("GPGME library initialization failed\n"));
696 /* Initialize gcrypt */
697 if (_isds_init_gcrypt(&version_gcrypt
)) {
698 isds_log(ILF_ISDS
, ILL_CRIT
,
699 _("gcrypt library initialization failed\n"));
703 /* This can _exit() current program. Find not so assertive check. */
705 xmlSetGenericErrorFunc(NULL
, log_xml
);
708 if (_isds_init_expat(&version_expat
)) {
709 isds_log(ILF_ISDS
, ILL_CRIT
,
710 _("expat library initialization failed\n"));
714 /* Allocate global variables */
721 /* Deinitialize ISDS library.
722 * Global function, must be called as last library function. */
723 isds_error
isds_cleanup(void) {
729 curl_global_cleanup();
736 /* Return version string of this library. Version of dependencies can be
737 * embedded. Do no try to parse it. You must free it. */
738 char *isds_version(void) {
741 isds_asprintf(&buffer
,
743 _("%s (%s, GPGME %s, gcrypt %s, %s, libxml2 %s)"),
745 _("%s (GPGME %s, gcrypt %s, %s, libxml2 %s)"),
751 version_gpgme
, version_gcrypt
,
752 version_expat
, xmlParserVersion
);
757 /* Return text description of ISDS error */
758 const char *isds_strerror(const isds_error error
) {
761 return(_("Success")); break;
763 return(_("Unspecified error")); break;
765 return(_("Not supported")); break;
767 return(_("Invalid value")); break;
768 case IE_INVALID_CONTEXT
:
769 return(_("Invalid context")); break;
770 case IE_NOT_LOGGED_IN
:
771 return(_("Not logged in")); break;
772 case IE_CONNECTION_CLOSED
:
773 return(_("Connection closed")); break;
775 return(_("Timed out")); break;
777 return(_("Not exist")); break;
779 return(_("Out of memory")); break;
781 return(_("Network problem")); break;
783 return(_("HTTP problem")); break;
785 return(_("SOAP problem")); break;
787 return(_("XML problem")); break;
789 return(_("ISDS server problem")); break;
791 return(_("Invalid enum value")); break;
793 return(_("Invalid date value")); break;
795 return(_("Too big")); break;
797 return(_("Too small")); break;
799 return(_("Value not unique")); break;
801 return(_("Values not equal")); break;
802 case IE_PARTIAL_SUCCESS
:
803 return(_("Some suboperations failed")); break;
805 return(_("Operation aborted")); break;
807 return(_("Security problem")); break;
809 return(_("Unknown error"));
814 /* Create ISDS context.
815 * Each context can be used for different sessions to (possibly) different
816 * ISDS server with different credentials. */
817 struct isds_ctx
*isds_ctx_create(void) {
818 struct isds_ctx
*context
;
819 context
= malloc(sizeof(*context
));
820 if (context
) memset(context
, 0, sizeof(*context
));
825 /* Close possibly opened connection to Czech POINT document deposit without
826 * resetting long_message buffer.
827 * XXX: Do not use czp_close_connection() if you do not want to destroy log
829 * @context is Czech POINT session context. */
830 static isds_error
czp_do_close_connection(struct isds_ctx
*context
) {
831 if (!context
) return IE_INVALID_CONTEXT
;
832 _isds_close_connection(context
);
837 /* Discard credentials.
838 * @context is ISDS context
839 * @discard_saved_username is true for removing saved username, false for
841 * Only that. It does not cause log out, connection close or similar. */
842 _hidden isds_error
_isds_discard_credentials(struct isds_ctx
*context
,
843 _Bool discard_saved_username
) {
844 if(!context
) return IE_INVALID_CONTEXT
;
846 if (context
->username
) {
847 memset(context
->username
, 0, strlen(context
->username
));
848 zfree(context
->username
);
850 if (context
->password
) {
851 memset(context
->password
, 0, strlen(context
->password
));
852 zfree(context
->password
);
854 isds_pki_credentials_free(&context
->pki_credentials
);
855 if (discard_saved_username
&& context
->saved_username
) {
856 memset(context
->saved_username
, 0, strlen(context
->saved_username
));
857 zfree(context
->saved_username
);
862 #endif /* HAVE_LIBCURL */
865 /* Destroy ISDS context and free memory.
866 * @context will be NULLed on success. */
867 isds_error
isds_ctx_free(struct isds_ctx
**context
) {
868 if (!context
|| !*context
) {
869 return IE_INVALID_CONTEXT
;
873 /* Discard credentials and close connection */
874 switch ((*context
)->type
) {
875 case CTX_TYPE_NONE
: break;
876 case CTX_TYPE_ISDS
: isds_logout(*context
); break;
878 case CTX_TYPE_TESTING_REQUEST_COLLECTOR
:
879 czp_do_close_connection(*context
); break;
883 _isds_discard_credentials(*context
, 1);
885 /* Free other structures */
886 free((*context
)->tls_verify_server
);
887 free((*context
)->tls_ca_file
);
888 free((*context
)->tls_ca_dir
);
889 free((*context
)->tls_crl_file
);
890 #endif /* HAVE_LIBCURL */
891 free((*context
)->long_message
);
899 /* Return long message text produced by library function, e.g. detailed error
900 * message. Returned pointer is only valid until new library function is
901 * called for the same context. Could be NULL, especially if NULL context is
902 * supplied. Return string is locale encoded. */
903 char *isds_long_message(const struct isds_ctx
*context
) {
904 if (!context
) return NULL
;
905 return context
->long_message
;
909 /* Stores message into context' long_message buffer.
910 * Application can pick the message up using isds_long_message().
911 * NULL @message truncates the buffer but does not deallocate it.
912 * @message is coded in locale encoding */
913 _hidden isds_error
isds_log_message(struct isds_ctx
*context
,
914 const char *message
) {
918 if (!context
) return IE_INVALID_CONTEXT
;
920 /* FIXME: Check for integer overflow */
921 length
= 1 + ((message
) ? strlen(message
) : 0);
922 buffer
= realloc(context
->long_message
, length
);
923 if (!buffer
) return IE_NOMEM
;
926 strcpy(buffer
, message
);
930 context
->long_message
= buffer
;
935 /* Appends message into context' long_message buffer.
936 * Application can pick the message up using isds_long_message().
937 * NULL message has void effect. */
938 _hidden isds_error
isds_append_message(struct isds_ctx
*context
,
939 const char *message
) {
941 size_t old_length
, length
;
943 if (!context
) return IE_INVALID_CONTEXT
;
944 if (!message
) return IE_SUCCESS
;
945 if (!context
->long_message
)
946 return isds_log_message(context
, message
);
948 old_length
= strlen(context
->long_message
);
949 /* FIXME: Check for integer overflow */
950 length
= 1 + old_length
+ strlen(message
);
951 buffer
= realloc(context
->long_message
, length
);
952 if (!buffer
) return IE_NOMEM
;
954 strcpy(buffer
+ old_length
, message
);
956 context
->long_message
= buffer
;
961 /* Stores formatted message into context' long_message buffer.
962 * Application can pick the message up using isds_long_message(). */
963 _hidden isds_error
isds_printf_message(struct isds_ctx
*context
,
964 const char *format
, ...) {
968 if (!context
) return IE_INVALID_CONTEXT
;
969 va_start(ap
, format
);
970 length
= isds_vasprintf(&(context
->long_message
), format
, ap
);
973 return (length
< 0) ? IE_ERROR
: IE_SUCCESS
;
978 * @facilities is bit mask of isds_log_facility values,
979 * @level is verbosity level. */
980 void isds_set_logging(const unsigned int facilities
,
981 const isds_log_level level
) {
982 log_facilities
= facilities
;
987 /* Register callback function libisds calls when new global log message is
988 * produced by library. Library logs to stderr by default.
989 * @callback is function provided by application libisds will call. See type
990 * definition for @callback argument explanation. Pass NULL to revert logging to
992 * @data is application specific data @callback gets as last argument */
993 void isds_set_log_callback(isds_log_callback callback
, void *data
) {
994 log_callback
= callback
;
995 log_callback_data
= data
;
999 /* Log @message in class @facility with log @level into global log. @message
1000 * is printf(3) formatting string, variadic arguments may be necessary.
1001 * For debugging purposes. */
1002 _hidden isds_error
isds_log(const isds_log_facility facility
,
1003 const isds_log_level level
, const char *message
, ...) {
1005 char *buffer
= NULL
;
1008 if (level
> log_level
) return IE_SUCCESS
;
1009 if (!(log_facilities
& facility
)) return IE_SUCCESS
;
1010 if (!message
) return IE_INVAL
;
1013 /* Pass message to application supplied callback function */
1014 va_start(ap
, message
);
1015 length
= isds_vasprintf(&buffer
, message
, ap
);
1022 log_callback(facility
, level
, buffer
, length
, log_callback_data
);
1026 /* Default: Log it to stderr */
1027 va_start(ap
, message
);
1028 vfprintf(stderr
, message
, ap
);
1030 /* Line buffered printf is default.
1038 /* Set timeout in milliseconds for each network job like connecting to server
1039 * or sending message. Use 0 to disable timeout limits. */
1040 isds_error
isds_set_timeout(struct isds_ctx
*context
,
1041 const unsigned int timeout
) {
1042 if (!context
) return IE_INVALID_CONTEXT
;
1043 zfree(context
->long_message
);
1046 context
->timeout
= timeout
;
1048 if (context
->curl
) {
1051 curl_err
= curl_easy_setopt(context
->curl
, CURLOPT_NOSIGNAL
, 1);
1053 #if HAVE_DECL_CURLOPT_TIMEOUT_MS /* Since curl-7.16.2 */
1054 curl_err
= curl_easy_setopt(context
->curl
, CURLOPT_TIMEOUT_MS
,
1057 curl_err
= curl_easy_setopt(context
->curl
, CURLOPT_TIMEOUT
,
1058 context
->timeout
/ 1000);
1059 #endif /* not HAVE_DECL_CURLOPT_TIMEOUT_MS */
1060 if (curl_err
) return IE_ERROR
;
1064 #else /* not HAVE_LIBCURL */
1070 /* Register callback function libisds calls periodically during HTTP data
1072 * @context is session context
1073 * @callback is function provided by application libisds will call. See type
1074 * definition for @callback argument explanation.
1075 * @data is application specific data @callback gets as last argument */
1076 isds_error
isds_set_progress_callback(struct isds_ctx
*context
,
1077 isds_progress_callback callback
, void *data
) {
1078 if (!context
) return IE_INVALID_CONTEXT
;
1079 zfree(context
->long_message
);
1082 context
->progress_callback
= callback
;
1083 context
->progress_callback_data
= data
;
1086 #else /* not HAVE_LIBCURL */
1092 /* Change context settings.
1093 * @context is context which setting will be applied to
1094 * @option is name of option. It determines the type of last argument. See
1095 * isds_option definition for more info.
1096 * @... is value of new setting. Type is determined by @option
1098 isds_error
isds_set_opt(struct isds_ctx
*context
, const isds_option option
,
1100 isds_error err
= IE_SUCCESS
;
1103 char *pointer
, *string
;
1106 if (!context
) return IE_INVALID_CONTEXT
;
1107 zfree(context
->long_message
);
1109 va_start(ap
, option
);
1111 #define REPLACE_VA_BOOLEAN(destination) { \
1112 if (!(destination)) { \
1113 (destination) = malloc(sizeof(*(destination))); \
1114 if (!(destination)) { \
1115 err = IE_NOMEM; goto leave; \
1118 *(destination) = (_Bool) !!va_arg(ap, int); \
1121 #define REPLACE_VA_STRING(destination) { \
1122 string = va_arg(ap, char *); \
1124 pointer = realloc((destination), 1 + strlen(string)); \
1125 if (!pointer) { err = IE_NOMEM; goto leave; } \
1126 strcpy(pointer, string); \
1127 (destination) = pointer; \
1129 free(destination); \
1130 (destination) = NULL; \
1135 case IOPT_TLS_VERIFY_SERVER
:
1137 REPLACE_VA_BOOLEAN(context
->tls_verify_server
);
1139 err
= IE_NOTSUP
; goto leave
;
1142 case IOPT_TLS_CA_FILE
:
1144 REPLACE_VA_STRING(context
->tls_ca_file
);
1146 err
= IE_NOTSUP
; goto leave
;
1149 case IOPT_TLS_CA_DIRECTORY
:
1151 REPLACE_VA_STRING(context
->tls_ca_dir
);
1153 err
= IE_NOTSUP
; goto leave
;
1156 case IOPT_TLS_CRL_FILE
:
1158 #if HAVE_DECL_CURLOPT_CRLFILE /* Since curl-7.19.0 */
1159 REPLACE_VA_STRING(context
->tls_crl_file
);
1161 isds_log_message(context
,
1162 _("Curl library does not support CRL definition"));
1164 #endif /* not HAVE_DECL_CURLOPT_CRLFILE */
1166 err
= IE_NOTSUP
; goto leave
;
1167 #endif /* not HAVE_LIBCURL */
1169 case IOPT_NORMALIZE_MIME_TYPE
:
1170 context
->normalize_mime_type
= (_Bool
) !!va_arg(ap
, int);
1174 err
= IE_ENUM
; goto leave
;
1177 #undef REPLACE_VA_STRING
1178 #undef REPLACE_VA_BOOLEAN
1187 /* Copy credentials into context. Any non-NULL argument will be duplicated.
1188 * Destination for NULL argument will not be touched.
1189 * Destination pointers must be freed before calling this function.
1190 * If @username is @context->saved_username, the saved_username will not be
1191 * replaced. The saved_username is clobbered only if context has set otp
1193 * Return IE_SUCCESS on success. */
1194 static isds_error
_isds_store_credentials(struct isds_ctx
*context
,
1195 const char *username
, const char *password
,
1196 const struct isds_pki_credentials
*pki_credentials
) {
1197 if (NULL
== context
) return IE_INVALID_CONTEXT
;
1199 /* FIXME: mlock password
1200 * (I have a library) */
1203 context
->username
= strdup(username
);
1204 if (context
->otp
&& context
->saved_username
!= username
)
1205 context
->saved_username
= strdup(username
);
1208 if (NULL
== context
->otp_credentials
)
1209 context
->password
= strdup(password
);
1211 context
->password
= _isds_astrcat(password
,
1212 context
->otp_credentials
->otp_code
);
1214 context
->pki_credentials
= isds_pki_credentials_duplicate(pki_credentials
);
1216 if ((NULL
!= username
&& NULL
== context
->username
) ||
1217 (NULL
!= password
&& NULL
== context
->password
) ||
1218 (NULL
!= pki_credentials
&& NULL
== context
->pki_credentials
) ||
1219 (context
->otp
&& NULL
!= context
->username
&&
1220 NULL
== context
->saved_username
)) {
1229 /* Connect and log into ISDS server.
1230 * All required arguments will be copied, you do not have to keep them after
1232 * ISDS supports six different authentication methods. Exact method is
1233 * selected on @username, @password, @pki_credentials, and @otp arguments:
1234 * - If @pki_credentials == NULL, @username and @password must be supplied
1236 * - If @otp == NULL, simple authentication by username and password will
1238 * - If @otp != NULL, authentication by username and password and OTP
1240 * - If @pki_credentials != NULL, then
1241 * - If @username == NULL, only certificate will be used
1242 * - If @username != NULL, then
1243 * - If @password == NULL, then certificate will be used and
1244 * @username shifts meaning to box ID. This is used for hosted
1246 * - Otherwise all three arguments will be used.
1247 * Please note, that different cases require different certificate type
1248 * (system qualified one or commercial non qualified one). This library
1249 * does not check such political issues. Please see ISDS Specification
1251 * @url is base address of ISDS web service. Pass extern isds_locator
1252 * variable to use production ISDS instance without client certificate
1253 * authentication (or extern isds_cert_locator with client certificate
1254 * authentication or extern isds_otp_locators with OTP authentication).
1255 * Passing NULL has the same effect, autoselection between isds_locator,
1256 * isds_cert_locator, and isds_otp_locator is performed in addition. You can
1257 * pass extern isds_testing_locator (or isds_cert_testing_locator or
1258 * isds_otp_testing_locator) variable to select testing instance.
1259 * @username is user name of ISDS user or box ID
1260 * @password is user's secret password
1261 * @pki_credentials defines public key cryptographic material to use in client
1263 * @otp selects one-time password authentication method to use, defines OTP
1264 * code (if known) and returns fine grade resolution of OTP procedure.
1266 * IE_SUCCESS if authentication succeeds
1267 * IE_NOT_LOGGED_IN if authentication fails. If OTP authentication has been
1268 * requested, fine grade reason will be set into @otp->resolution. Error
1269 * message from server can be obtained by isds_long_message() call.
1270 * IE_PARTIAL_SUCCESS if time-based OTP authentication has been requested and
1271 * server has sent OTP code through side channel. Application is expected to
1272 * fill the code into @otp->otp_code, keep other arguments unchanged, and retry
1273 * this call to complete second phase of TOTP authentication;
1274 * or other appropriate error. */
1275 isds_error
isds_login(struct isds_ctx
*context
, const char *url
,
1276 const char *username
, const char *password
,
1277 const struct isds_pki_credentials
*pki_credentials
,
1278 struct isds_otp
*otp
) {
1280 isds_error err
= IE_NOT_LOGGED_IN
;
1281 isds_error soap_err
;
1282 xmlNsPtr isds_ns
= NULL
;
1283 xmlNodePtr request
= NULL
;
1284 xmlNodePtr response
= NULL
;
1285 #endif /* HAVE_LIBCURL */
1287 if (!context
) return IE_INVALID_CONTEXT
;
1288 zfree(context
->long_message
);
1291 /* Close connection if already logged in */
1292 if (context
->curl
) {
1293 _isds_close_connection(context
);
1296 /* Store configuration */
1297 context
->type
= CTX_TYPE_ISDS
;
1298 zfree(context
->url
);
1300 /* Mangle base URI according to requested authentication method */
1301 if (NULL
== pki_credentials
) {
1302 isds_log(ILF_SEC
, ILL_INFO
,
1303 _("Selected authentication method: no certificate, "
1304 "username and password\n"));
1305 if (!username
|| !password
) {
1306 isds_log_message(context
,
1307 _("Both username and password must be supplied"));
1310 context
->otp_credentials
= otp
;
1311 context
->otp
= (NULL
!= context
->otp_credentials
);
1313 if (!context
->otp
) {
1314 /* Default locator is official system (without certificate or
1316 context
->url
= strdup((NULL
!= url
) ? url
: isds_locator
);
1318 const char *authenticator_uri
= NULL
;
1319 if (!url
) url
= isds_otp_locator
;
1320 otp
->resolution
= OTP_RESOLUTION_UNKNOWN
;
1321 switch (context
->otp_credentials
->method
) {
1323 isds_log(ILF_SEC
, ILL_INFO
,
1324 _("Selected authentication method: "
1325 "HMAC-based one-time password\n"));
1327 "%1$sas/processLogin?type=hotp&uri=%1$sapps/";
1330 isds_log(ILF_SEC
, ILL_INFO
,
1331 _("Selected authentication method: "
1332 "Time-based one-time password\n"));
1333 if (context
->otp_credentials
->otp_code
== NULL
) {
1334 isds_log(ILF_SEC
, ILL_INFO
,
1335 _("OTP code has not been provided by "
1336 "application, requesting server for "
1339 "%1$sas/processLogin?type=totp&sendSms=true&"
1342 isds_log(ILF_SEC
, ILL_INFO
,
1343 _("OTP code has been provided by "
1344 "application, not requesting server "
1347 "%1$sas/processLogin?type=totp&"
1352 isds_log_message(context
,
1353 _("Unknown one-time password authentication "
1354 "method requested by application"));
1357 if (-1 == isds_asprintf(&context
->url
, authenticator_uri
, url
))
1361 /* Default locator is official system (with client certificate) */
1363 context
->otp_credentials
= NULL
;
1364 if (!url
) url
= isds_cert_locator
;
1367 isds_log(ILF_SEC
, ILL_INFO
,
1368 _("Selected authentication method: system certificate, "
1369 "no username and no password\n"));
1371 context
->url
= _isds_astrcat(url
, "cert/");
1374 isds_log(ILF_SEC
, ILL_INFO
,
1375 _("Selected authentication method: system certificate, "
1376 "box ID and no password\n"));
1377 context
->url
= _isds_astrcat(url
, "hspis/");
1379 isds_log(ILF_SEC
, ILL_INFO
,
1380 _("Selected authentication method: commercial "
1381 "certificate, username and password\n"));
1382 context
->url
= _isds_astrcat(url
, "certds/");
1386 if (!(context
->url
))
1389 /* Prepare CURL handle */
1390 context
->curl
= curl_easy_init();
1391 if (!(context
->curl
))
1394 /* Build log-in request */
1395 request
= xmlNewNode(NULL
, BAD_CAST
"DummyOperation");
1397 isds_log_message(context
, _("Could not build ISDS log-in request"));
1400 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
1402 isds_log_message(context
, _("Could not create ISDS name space"));
1403 xmlFreeNode(request
);
1406 xmlSetNs(request
, isds_ns
);
1408 /* Store credentials */
1409 _isds_discard_credentials(context
, 1);
1410 if (_isds_store_credentials(context
, username
, password
, pki_credentials
)) {
1411 _isds_discard_credentials(context
, 1);
1412 xmlFreeNode(request
);
1416 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Logging user %s into server %s\n"),
1419 /* Send log-in request */
1420 soap_err
= _isds_soap(context
, "DS/dz", request
, &response
, NULL
, NULL
);
1423 /* Revert context URL from OTP authentication service URL to OTP web
1424 * service base URL for subsequent calls. Potenial isds_login() retry
1425 * will re-set context URL again. */
1426 zfree(context
->url
);
1427 context
->url
= _isds_astrcat(url
, "apps/");
1428 if (context
->url
== NULL
) {
1429 soap_err
= IE_NOMEM
;
1431 /* Detach pointer to OTP credentials from context */
1432 context
->otp_credentials
= NULL
;
1435 /* Remove credentials */
1436 _isds_discard_credentials(context
, 0);
1438 /* Destroy log-in request */
1439 xmlFreeNode(request
);
1442 xmlFreeNodeList(response
);
1443 _isds_close_connection(context
);
1447 /* XXX: Until we don't propagate HTTP code 500 or 4xx, we can be sure
1448 * authentication succeeded if soap_err == IE_SUCCESS */
1451 xmlFreeNodeList(response
);
1454 isds_log(ILF_ISDS
, ILL_DEBUG
,
1455 _("User %s has been logged into server %s successfully\n"),
1458 #else /* not HAVE_LIBCURL */
1464 /* Log out from ISDS server discards credentials and connection configuration. */
1465 isds_error
isds_logout(struct isds_ctx
*context
) {
1466 if (!context
) return IE_INVALID_CONTEXT
;
1467 zfree(context
->long_message
);
1470 if (context
->curl
) {
1472 isds_error err
= _isds_invalidate_otp_cookie(context
);
1473 if (err
) return err
;
1476 /* Close connection */
1477 _isds_close_connection(context
);
1479 /* Discard credentials for sure. They should not survive isds_login(),
1480 * even successful .*/
1481 _isds_discard_credentials(context
, 1);
1482 zfree(context
->url
);
1484 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Logged out from ISDS server\n"));
1486 _isds_discard_credentials(context
, 1);
1489 #else /* not HAVE_LIBCURL */
1495 /* Verify connection to ISDS is alive and server is responding.
1496 * Send dummy request to ISDS and expect dummy response. */
1497 isds_error
isds_ping(struct isds_ctx
*context
) {
1499 isds_error soap_err
;
1500 xmlNsPtr isds_ns
= NULL
;
1501 xmlNodePtr request
= NULL
;
1502 xmlNodePtr response
= NULL
;
1503 #endif /* HAVE_LIBCURL */
1505 if (!context
) return IE_INVALID_CONTEXT
;
1506 zfree(context
->long_message
);
1509 /* Check if connection is established */
1510 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
1513 /* Build dummy request */
1514 request
= xmlNewNode(NULL
, BAD_CAST
"DummyOperation");
1516 isds_log_message(context
, _("Could build ISDS dummy request"));
1519 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
1521 isds_log_message(context
, _("Could not create ISDS name space"));
1522 xmlFreeNode(request
);
1525 xmlSetNs(request
, isds_ns
);
1527 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Pinging ISDS server\n"));
1529 /* Sent dummy request */
1530 soap_err
= _isds_soap(context
, "DS/dz", request
, &response
, NULL
, NULL
);
1532 /* Destroy log-in request */
1533 xmlFreeNode(request
);
1536 isds_log(ILF_ISDS
, ILL_DEBUG
,
1537 _("ISDS server could not be contacted\n"));
1538 xmlFreeNodeList(response
);
1542 /* XXX: Until we don't propagate HTTP code 500 or 4xx, we can be sure
1543 * authentication succeeded if soap_err == IE_SUCCESS */
1544 /* TODO: ISDS documentation does not specify response body.
1545 * However real server sends back DummyOperationResponse */
1548 xmlFreeNodeList(response
);
1550 isds_log(ILF_ISDS
, ILL_DEBUG
, _("ISDS server alive\n"));
1553 #else /* not HAVE_LIBCURL */
1559 /* Send bogus request to ISDS.
1560 * Just for test purposes */
1561 isds_error
isds_bogus_request(struct isds_ctx
*context
) {
1564 xmlNsPtr isds_ns
= NULL
;
1565 xmlNodePtr request
= NULL
;
1566 xmlDocPtr response
= NULL
;
1567 xmlChar
*code
= NULL
, *message
= NULL
;
1570 if (!context
) return IE_INVALID_CONTEXT
;
1571 zfree(context
->long_message
);
1574 /* Check if connection is established */
1575 if (!context
->curl
) {
1576 /* Testing printf message */
1577 isds_printf_message(context
, "%s", _("I said connection closed"));
1578 return IE_CONNECTION_CLOSED
;
1582 /* Build dummy request */
1583 request
= xmlNewNode(NULL
, BAD_CAST
"X-BogusOperation");
1585 isds_log_message(context
, _("Could build ISDS bogus request"));
1588 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
1590 isds_log_message(context
, _("Could not create ISDS name space"));
1591 xmlFreeNode(request
);
1594 xmlSetNs(request
, isds_ns
);
1596 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Sending bogus request to ISDS\n"));
1598 /* Sent bogus request */
1599 err
= isds(context
, SERVICE_DM_OPERATIONS
, request
, &response
, NULL
, NULL
);
1601 /* Destroy request */
1602 xmlFreeNode(request
);
1605 isds_log(ILF_ISDS
, ILL_DEBUG
,
1606 _("Processing ISDS response on bogus request failed\n"));
1607 xmlFreeDoc(response
);
1611 /* Check for response status */
1612 err
= isds_response_status(context
, SERVICE_DM_OPERATIONS
, response
,
1613 &code
, &message
, NULL
);
1615 isds_log(ILF_ISDS
, ILL_DEBUG
,
1616 _("ISDS response on bogus request is missing status\n"));
1619 xmlFreeDoc(response
);
1622 if (xmlStrcmp(code
, BAD_CAST
"0000")) {
1623 char *code_locale
= _isds_utf82locale((char*)code
);
1624 char *message_locale
= _isds_utf82locale((char*)message
);
1625 isds_log(ILF_ISDS
, ILL_DEBUG
,
1626 _("Server refused bogus request (code=%s, message=%s)\n"),
1627 code_locale
, message_locale
);
1628 /* XXX: Literal error messages from ISDS are Czech messages
1629 * (English sometimes) in UTF-8. It's hard to catch them for
1630 * translation. Successfully gettextized would return in locale
1631 * encoding, unsuccessfully translated would pass in UTF-8. */
1632 isds_log_message(context
, message_locale
);
1634 free(message_locale
);
1637 xmlFreeDoc(response
);
1644 xmlFreeDoc(response
);
1646 isds_log(ILF_ISDS
, ILL_DEBUG
,
1647 _("Bogus message accepted by server. This should not happen.\n"));
1650 #else /* not HAVE_LIBCURL */
1657 /* Serialize XML subtree to buffer preserving XML indentation.
1658 * @context is session context
1659 * @subtree is XML element to be serialized (with children)
1660 * @buffer is automatically reallocated buffer where serialize to
1661 * @length is size of serialized stream in bytes
1662 * @return standard error code, free @buffer in case of error */
1663 static isds_error
serialize_subtree(struct isds_ctx
*context
,
1664 xmlNodePtr subtree
, void **buffer
, size_t *length
) {
1665 isds_error err
= IE_SUCCESS
;
1666 xmlBufferPtr xml_buffer
= NULL
;
1667 xmlSaveCtxtPtr save_ctx
= NULL
;
1668 xmlDocPtr subtree_doc
= NULL
;
1669 xmlNodePtr subtree_copy
;
1673 if (!context
) return IE_INVALID_CONTEXT
;
1674 if (!buffer
) return IE_INVAL
;
1676 if (!subtree
|| !length
) return IE_INVAL
;
1678 /* Make temporary XML document with @subtree root element */
1679 /* XXX: We can not use xmlNodeDump() because it dumps the subtree as is.
1680 * It can result in not well-formed on invalid XML tree (e.g. name space
1681 * prefix definition can miss. */
1684 subtree_doc
= xmlNewDoc(BAD_CAST
"1.0");
1686 isds_log_message(context
, _("Could not build temporary document"));
1691 /* XXX: Copy subtree and attach the copy to document.
1692 * One node can not bee attached into more document at the same time.
1693 * XXX: Check xmlDOMWrapRemoveNode(). It could solve NS references
1695 * XXX: Check xmlSaveTree() too. */
1696 subtree_copy
= xmlCopyNodeList(subtree
);
1697 if (!subtree_copy
) {
1698 isds_log_message(context
, _("Could not copy subtree"));
1702 xmlDocSetRootElement(subtree_doc
, subtree_copy
);
1704 /* Only this way we get namespace definition as @xmlns:isds,
1705 * otherwise we get namespace prefix without definition */
1706 /* FIXME: Don't overwrite original default namespace */
1707 isds_ns
= xmlNewNs(subtree_copy
, BAD_CAST ISDS_NS
, NULL
);
1709 isds_log_message(context
, _("Could not create ISDS name space"));
1713 xmlSetNs(subtree_copy
, isds_ns
);
1716 /* Serialize the document into buffer */
1717 xml_buffer
= xmlBufferCreate();
1719 isds_log_message(context
, _("Could not create xmlBuffer"));
1723 /* Last argument 0 means to not format the XML tree */
1724 save_ctx
= xmlSaveToBuffer(xml_buffer
, "UTF-8", 0);
1726 isds_log_message(context
, _("Could not create XML serializer"));
1730 /* XXX: According LibXML documentation, this function does not return
1731 * meaningful value yet */
1732 xmlSaveDoc(save_ctx
, subtree_doc
);
1733 if (-1 == xmlSaveFlush(save_ctx
)) {
1734 isds_log_message(context
,
1735 _("Could not serialize XML subtree"));
1739 /* XXX: libxml-2.7.4 complains when xmlSaveClose() on immutable buffer
1740 * even after xmlSaveFlush(). Thus close it here */
1741 xmlSaveClose(save_ctx
); save_ctx
= NULL
;
1744 /* Store and detach buffer from xml_buffer */
1745 *buffer
= xml_buffer
->content
;
1746 *length
= xml_buffer
->use
;
1747 xmlBufferSetAllocationScheme(xml_buffer
, XML_BUFFER_ALLOC_IMMUTABLE
);
1750 new_buffer
= realloc(*buffer
, *length
);
1751 if (new_buffer
) *buffer
= new_buffer
;
1759 xmlSaveClose(save_ctx
);
1760 xmlBufferFree(xml_buffer
);
1761 xmlFreeDoc(subtree_doc
); /* Frees subtree_copy, isds_ns etc. */
1764 #endif /* HAVE_LIBCURL */
1768 /* Dump XML subtree to buffer as literal string, not valid XML possibly.
1769 * @context is session context
1770 * @document is original document where @nodeset points to
1771 * @nodeset is XPath node set to dump (recursively)
1772 * @buffer is automatically reallocated buffer where serialize to
1773 * @length is size of serialized stream in bytes
1774 * @return standard error code, free @buffer in case of error */
1775 static isds_error
dump_nodeset(struct isds_ctx
*context
,
1776 const xmlDocPtr document
, const xmlNodeSetPtr nodeset
,
1777 void **buffer
, size_t *length
) {
1778 isds_error err
= IE_SUCCESS
;
1779 xmlBufferPtr xml_buffer
= NULL
;
1782 if (!context
) return IE_INVALID_CONTEXT
;
1783 if (!buffer
) return IE_INVAL
;
1785 if (!document
|| !nodeset
|| !length
) return IE_INVAL
;
1788 /* Empty node set results into NULL buffer */
1789 if (xmlXPathNodeSetIsEmpty(nodeset
)) {
1793 /* Resulting the document into buffer */
1794 xml_buffer
= xmlBufferCreate();
1796 isds_log_message(context
, _("Could not create xmlBuffer"));
1801 /* Iterate over all nodes */
1802 for (int i
= 0; i
< nodeset
->nodeNr
; i
++) {
1804 * XXX: xmlNodeDump() appends to xml_buffer. */
1806 xmlNodeDump(xml_buffer
, document
, nodeset
->nodeTab
[i
], 0, 0)) {
1807 isds_log_message(context
, _("Could not dump XML node"));
1813 /* Store and detach buffer from xml_buffer */
1814 *buffer
= xml_buffer
->content
;
1815 *length
= xml_buffer
->use
;
1816 xmlBufferSetAllocationScheme(xml_buffer
, XML_BUFFER_ALLOC_IMMUTABLE
);
1819 new_buffer
= realloc(*buffer
, *length
);
1820 if (new_buffer
) *buffer
= new_buffer
;
1829 xmlBufferFree(xml_buffer
);
1835 /* Dump XML subtree to buffer as literal string, not valid XML possibly.
1836 * @context is session context
1837 * @document is original document where @nodeset points to
1838 * @nodeset is XPath node set to dump (recursively)
1839 * @buffer is automatically reallocated buffer where serialize to
1840 * @length is size of serialized stream in bytes
1841 * @return standard error code, free @buffer in case of error */
1842 static isds_error
dump_nodeset(struct isds_ctx
*context
,
1843 const xmlDocPtr document
, const xmlNodeSetPtr nodeset
,
1844 void **buffer
, size_t *length
) {
1845 isds_error err
= IE_SUCCESS
;
1846 xmlBufferPtr xml_buffer
= NULL
;
1847 xmlSaveCtxtPtr save_ctx
= NULL
;
1850 if (!context
) return IE_INVALID_CONTEXT
;
1851 if (!buffer
) return IE_INVAL
;
1853 if (!document
|| !nodeset
|| !length
) return IE_INVAL
;
1856 /* Empty node set results into NULL buffer */
1857 if (xmlXPathNodeSetIsEmpty(nodeset
)) {
1861 /* Resulting the document into buffer */
1862 xml_buffer
= xmlBufferCreate();
1864 isds_log_message(context
, _("Could not create xmlBuffer"));
1868 if (xmlSubstituteEntitiesDefault(1)) {
1869 isds_log_message(context
, _("Could not disable attribute escaping"));
1873 /* Last argument means:
1874 * 0 to not format the XML tree
1875 * XML_SAVE_NO_EMPTY ISDS does not produce shorten tags */
1876 save_ctx
= xmlSaveToBuffer(xml_buffer
, "UTF-8",
1877 XML_SAVE_NO_DECL
|XML_SAVE_NO_EMPTY
|XML_SAVE_NO_XHTML
);
1879 isds_log_message(context
, _("Could not create XML serializer"));
1883 /*if (xmlSaveSetAttrEscape(save_ctx, NULL)) {
1884 isds_log_message(context, _("Could not disable attribute escaping"));
1890 /* Iterate over all nodes */
1891 for (int i
= 0; i
< nodeset
->nodeNr
; i
++) {
1893 * XXX: xmlNodeDump() appends to xml_buffer. */
1895 xmlNodeDump(xml_buffer, document, nodeset->nodeTab[i], 0, 0)) {
1897 /* XXX: According LibXML documentation, this function does not return
1898 * meaningful value yet */
1899 xmlSaveTree(save_ctx
, nodeset
->nodeTab
[i
]);
1900 if (-1 == xmlSaveFlush(save_ctx
)) {
1901 isds_log_message(context
,
1902 _("Could not serialize XML subtree"));
1908 /* XXX: libxml-2.7.4 complains when xmlSaveClose() on immutable buffer
1909 * even after xmlSaveFlush(). Thus close it here */
1910 xmlSaveClose(save_ctx
); save_ctx
= NULL
;
1912 /* Store and detach buffer from xml_buffer */
1913 *buffer
= xml_buffer
->content
;
1914 *length
= xml_buffer
->use
;
1915 xmlBufferSetAllocationScheme(xml_buffer
, XML_BUFFER_ALLOC_IMMUTABLE
);
1918 new_buffer
= realloc(*buffer
, *length
);
1919 if (new_buffer
) *buffer
= new_buffer
;
1927 xmlSaveClose(save_ctx
);
1928 xmlBufferFree(xml_buffer
);
1935 /* Convert UTF-8 @string representation of ISDS dbType to enum @type */
1936 static isds_error
string2isds_DbType(xmlChar
*string
, isds_DbType
*type
) {
1937 if (!string
|| !type
) return IE_INVAL
;
1939 if (!xmlStrcmp(string
, BAD_CAST
"FO"))
1941 else if (!xmlStrcmp(string
, BAD_CAST
"PFO"))
1943 else if (!xmlStrcmp(string
, BAD_CAST
"PFO_ADVOK"))
1944 *type
= DBTYPE_PFO_ADVOK
;
1945 else if (!xmlStrcmp(string
, BAD_CAST
"PFO_DANPOR"))
1946 *type
= DBTYPE_PFO_DANPOR
;
1947 else if (!xmlStrcmp(string
, BAD_CAST
"PFO_INSSPR"))
1948 *type
= DBTYPE_PFO_INSSPR
;
1949 else if (!xmlStrcmp(string
, BAD_CAST
"PO"))
1951 else if (!xmlStrcmp(string
, BAD_CAST
"PO_ZAK"))
1952 *type
= DBTYPE_PO_ZAK
;
1953 else if (!xmlStrcmp(string
, BAD_CAST
"PO_REQ"))
1954 *type
= DBTYPE_PO_REQ
;
1955 else if (!xmlStrcmp(string
, BAD_CAST
"OVM"))
1957 else if (!xmlStrcmp(string
, BAD_CAST
"OVM_NOTAR"))
1958 *type
= DBTYPE_OVM_NOTAR
;
1959 else if (!xmlStrcmp(string
, BAD_CAST
"OVM_EXEKUT"))
1960 *type
= DBTYPE_OVM_EXEKUT
;
1961 else if (!xmlStrcmp(string
, BAD_CAST
"OVM_REQ"))
1962 *type
= DBTYPE_OVM_REQ
;
1969 /* Convert ISDS dbType enum @type to UTF-8 string.
1970 * @Return pointer to static string, or NULL if unknown enum value */
1971 static const xmlChar
*isds_DbType2string(const isds_DbType type
) {
1973 /* DBTYPE_SYSTEM is invalid value from point of view of public
1974 * SOAP interface. */
1975 case DBTYPE_FO
: return(BAD_CAST
"FO"); break;
1976 case DBTYPE_PFO
: return(BAD_CAST
"PFO"); break;
1977 case DBTYPE_PFO_ADVOK
: return(BAD_CAST
"PFO_ADVOK"); break;
1978 case DBTYPE_PFO_DANPOR
: return(BAD_CAST
"PFO_DANPOR"); break;
1979 case DBTYPE_PFO_INSSPR
: return(BAD_CAST
"PFO_INSSPR"); break;
1980 case DBTYPE_PO
: return(BAD_CAST
"PO"); break;
1981 case DBTYPE_PO_ZAK
: return(BAD_CAST
"PO_ZAK"); break;
1982 case DBTYPE_PO_REQ
: return(BAD_CAST
"PO_REQ"); break;
1983 case DBTYPE_OVM
: return(BAD_CAST
"OVM"); break;
1984 case DBTYPE_OVM_NOTAR
: return(BAD_CAST
"OVM_NOTAR"); break;
1985 case DBTYPE_OVM_EXEKUT
: return(BAD_CAST
"OVM_EXEKUT"); break;
1986 case DBTYPE_OVM_REQ
: return(BAD_CAST
"OVM_REQ"); break;
1987 default: return NULL
; break;
1992 /* Convert UTF-8 @string representation of ISDS userType to enum @type */
1993 static isds_error
string2isds_UserType(xmlChar
*string
, isds_UserType
*type
) {
1994 if (!string
|| !type
) return IE_INVAL
;
1996 if (!xmlStrcmp(string
, BAD_CAST
"PRIMARY_USER"))
1997 *type
= USERTYPE_PRIMARY
;
1998 else if (!xmlStrcmp(string
, BAD_CAST
"ENTRUSTED_USER"))
1999 *type
= USERTYPE_ENTRUSTED
;
2000 else if (!xmlStrcmp(string
, BAD_CAST
"ADMINISTRATOR"))
2001 *type
= USERTYPE_ADMINISTRATOR
;
2002 else if (!xmlStrcmp(string
, BAD_CAST
"OFFICIAL"))
2003 *type
= USERTYPE_OFFICIAL
;
2004 else if (!xmlStrcmp(string
, BAD_CAST
"OFFICIAL_CERT"))
2005 *type
= USERTYPE_OFFICIAL_CERT
;
2006 else if (!xmlStrcmp(string
, BAD_CAST
"LIQUIDATOR"))
2007 *type
= USERTYPE_LIQUIDATOR
;
2014 /* Convert ISDS userType enum @type to UTF-8 string.
2015 * @Return pointer to static string, or NULL if unknown enum value */
2016 static const xmlChar
*isds_UserType2string(const isds_UserType type
) {
2018 case USERTYPE_PRIMARY
: return(BAD_CAST
"PRIMARY_USER"); break;
2019 case USERTYPE_ENTRUSTED
: return(BAD_CAST
"ENTRUSTED_USER"); break;
2020 case USERTYPE_ADMINISTRATOR
: return(BAD_CAST
"ADMINISTRATOR"); break;
2021 case USERTYPE_OFFICIAL
: return(BAD_CAST
"OFFICIAL"); break;
2022 case USERTYPE_OFFICIAL_CERT
: return(BAD_CAST
"OFFICIAL_CERT"); break;
2023 case USERTYPE_LIQUIDATOR
: return(BAD_CAST
"LIQUIDATOR"); break;
2024 default: return NULL
; break;
2029 /* Convert UTF-8 @string representation of ISDS sender type to enum @type */
2030 static isds_error
string2isds_sender_type(const xmlChar
*string
,
2031 isds_sender_type
*type
) {
2032 if (!string
|| !type
) return IE_INVAL
;
2034 if (!xmlStrcmp(string
, BAD_CAST
"PRIMARY_USER"))
2035 *type
= SENDERTYPE_PRIMARY
;
2036 else if (!xmlStrcmp(string
, BAD_CAST
"ENTRUSTED_USER"))
2037 *type
= SENDERTYPE_ENTRUSTED
;
2038 else if (!xmlStrcmp(string
, BAD_CAST
"ADMINISTRATOR"))
2039 *type
= SENDERTYPE_ADMINISTRATOR
;
2040 else if (!xmlStrcmp(string
, BAD_CAST
"OFFICIAL"))
2041 *type
= SENDERTYPE_OFFICIAL
;
2042 else if (!xmlStrcmp(string
, BAD_CAST
"VIRTUAL"))
2043 *type
= SENDERTYPE_VIRTUAL
;
2044 else if (!xmlStrcmp(string
, BAD_CAST
"OFFICIAL_CERT"))
2045 *type
= SENDERTYPE_OFFICIAL_CERT
;
2046 else if (!xmlStrcmp(string
, BAD_CAST
"LIQUIDATOR"))
2047 *type
= SENDERTYPE_LIQUIDATOR
;
2054 /* Convert UTF-8 @string representation of ISDS PDZType to enum @type */
2055 static isds_error
string2isds_payment_type(const xmlChar
*string
,
2056 isds_payment_type
*type
) {
2057 if (!string
|| !type
) return IE_INVAL
;
2059 if (!xmlStrcmp(string
, BAD_CAST
"K"))
2060 *type
= PAYMENT_SENDER
;
2061 else if (!xmlStrcmp(string
, BAD_CAST
"O"))
2062 *type
= PAYMENT_RESPONSE
;
2063 else if (!xmlStrcmp(string
, BAD_CAST
"G"))
2064 *type
= PAYMENT_SPONSOR
;
2065 else if (!xmlStrcmp(string
, BAD_CAST
"Z"))
2066 *type
= PAYMENT_SPONSOR_LIMITED
;
2067 else if (!xmlStrcmp(string
, BAD_CAST
"D"))
2068 *type
= PAYMENT_SPONSOR_EXTERNAL
;
2069 else if (!xmlStrcmp(string
, BAD_CAST
"E"))
2070 *type
= PAYMENT_STAMP
;
2077 /* Convert UTF-8 @string representation of ISDS ciEventType to enum @type.
2078 * ciEventType is integer but we convert it from string representation
2080 static isds_error
string2isds_credit_event_type(const xmlChar
*string
,
2081 isds_credit_event_type
*type
) {
2082 if (!string
|| !type
) return IE_INVAL
;
2084 if (!xmlStrcmp(string
, BAD_CAST
"1"))
2085 *type
= ISDS_CREDIT_CHARGED
;
2086 else if (!xmlStrcmp(string
, BAD_CAST
"2"))
2087 *type
= ISDS_CREDIT_DISCHARGED
;
2088 else if (!xmlStrcmp(string
, BAD_CAST
"3"))
2089 *type
= ISDS_CREDIT_MESSAGE_SENT
;
2090 else if (!xmlStrcmp(string
, BAD_CAST
"4"))
2091 *type
= ISDS_CREDIT_STORAGE_SET
;
2092 else if (!xmlStrcmp(string
, BAD_CAST
"5"))
2093 *type
= ISDS_CREDIT_EXPIRED
;
2100 /* Convert ISDS dmFileMetaType enum @type to UTF-8 string.
2101 * @Return pointer to static string, or NULL if unknown enum value */
2102 static const xmlChar
*isds_FileMetaType2string(const isds_FileMetaType type
) {
2104 case FILEMETATYPE_MAIN
: return(BAD_CAST
"main"); break;
2105 case FILEMETATYPE_ENCLOSURE
: return(BAD_CAST
"enclosure"); break;
2106 case FILEMETATYPE_SIGNATURE
: return(BAD_CAST
"signature"); break;
2107 case FILEMETATYPE_META
: return(BAD_CAST
"meta"); break;
2108 default: return NULL
; break;
2111 #endif /* HAVE_LIBCURL */
2114 /* Convert UTF-8 @string to ISDS dmFileMetaType enum @type.
2115 * @Return IE_ENUM if @string is not valid enum member */
2116 static isds_error
string2isds_FileMetaType(const xmlChar
*string
,
2117 isds_FileMetaType
*type
) {
2118 if (!string
|| !type
) return IE_INVAL
;
2120 if (!xmlStrcmp(string
, BAD_CAST
"main"))
2121 *type
= FILEMETATYPE_MAIN
;
2122 else if (!xmlStrcmp(string
, BAD_CAST
"enclosure"))
2123 *type
= FILEMETATYPE_ENCLOSURE
;
2124 else if (!xmlStrcmp(string
, BAD_CAST
"signature"))
2125 *type
= FILEMETATYPE_SIGNATURE
;
2126 else if (!xmlStrcmp(string
, BAD_CAST
"meta"))
2127 *type
= FILEMETATYPE_META
;
2134 /* Convert UTF-8 @string to ISDS hash @algorithm.
2135 * @Return IE_ENUM if @string is not valid enum member */
2136 static isds_error
string2isds_hash_algorithm(const xmlChar
*string
,
2137 isds_hash_algorithm
*algorithm
) {
2138 if (!string
|| !algorithm
) return IE_INVAL
;
2140 if (!xmlStrcmp(string
, BAD_CAST
"MD5"))
2141 *algorithm
= HASH_ALGORITHM_MD5
;
2142 else if (!xmlStrcmp(string
, BAD_CAST
"SHA-1"))
2143 *algorithm
= HASH_ALGORITHM_SHA_1
;
2144 else if (!xmlStrcmp(string
, BAD_CAST
"SHA-224"))
2145 *algorithm
= HASH_ALGORITHM_SHA_224
;
2146 else if (!xmlStrcmp(string
, BAD_CAST
"SHA-256"))
2147 *algorithm
= HASH_ALGORITHM_SHA_256
;
2148 else if (!xmlStrcmp(string
, BAD_CAST
"SHA-384"))
2149 *algorithm
= HASH_ALGORITHM_SHA_384
;
2150 else if (!xmlStrcmp(string
, BAD_CAST
"SHA-512"))
2151 *algorithm
= HASH_ALGORITHM_SHA_512
;
2159 /* Convert struct tm *@time to UTF-8 ISO 8601 date @string. */
2160 static isds_error
tm2datestring(const struct tm
*time
, xmlChar
**string
) {
2161 if (!time
|| !string
) return IE_INVAL
;
2163 if (-1 == isds_asprintf((char **) string
, "%d-%02d-%02d",
2164 time
->tm_year
+ 1900, time
->tm_mon
+ 1, time
->tm_mday
))
2171 /* Convert struct timeval * @time to UTF-8 ISO 8601 date-time @string. It
2172 * respects the @time microseconds too. */
2173 static isds_error
timeval2timestring(const struct timeval
*time
,
2177 if (!time
|| !string
) return IE_INVAL
;
2179 if (!gmtime_r(&time
->tv_sec
, &broken
)) return IE_DATE
;
2180 if (time
->tv_usec
< 0 || time
->tv_usec
> 999999) return IE_DATE
;
2182 /* TODO: small negative year should be formatted as "-0012". This is not
2183 * true for glibc "%04d". We should implement it.
2184 * TODO: What's type of time->tv_usec exactly? Unsigned? Absolute?
2185 * See <http://www.w3.org/TR/2001/REC-xmlschema-2-20010502/#dateTime> */
2186 if (-1 == isds_asprintf((char **) string
,
2187 "%04d-%02d-%02dT%02d:%02d:%02d.%06ld",
2188 broken
.tm_year
+ 1900, broken
.tm_mon
+ 1, broken
.tm_mday
,
2189 broken
.tm_hour
, broken
.tm_min
, broken
.tm_sec
,
2195 #endif /* HAVE_LIBCURL */
2198 /* Convert UTF-8 ISO 8601 date-time @string to struct timeval.
2199 * It respects microseconds too.
2200 * In case of error, @time will be freed. */
2201 static isds_error
timestring2timeval(const xmlChar
*string
,
2202 struct timeval
**time
) {
2204 char *offset
, *delim
, *endptr
;
2206 int offset_hours
, offset_minutes
;
2212 if (!time
) return IE_INVAL
;
2218 memset(&broken
, 0, sizeof(broken
));
2221 *time
= calloc(1, sizeof(**time
));
2222 if (!*time
) return IE_NOMEM
;
2224 memset(*time
, 0, sizeof(**time
));
2228 /* xsd:date is ISO 8601 string, thus ASCII */
2229 /*TODO: negative year */
2233 if ((tmp
= sscanf((const char*)string
, "%d-%d-%dT%d:%d:%d%n",
2234 &broken
.tm_year
, &broken
.tm_mon
, &broken
.tm_mday
,
2235 &broken
.tm_hour
, &broken
.tm_min
, &broken
.tm_sec
,
2241 broken
.tm_year
-= 1900;
2243 offset
= (char*)string
+ i
;
2245 /* Parse date and time without subseconds and offset */
2246 offset
= strptime((char*)string
, "%Y-%m-%dT%T", &broken
);
2253 /* Get subseconds */
2254 if (*offset
== '.' ) {
2257 /* Copy first 6 digits, pad it with zeros.
2258 * XXX: It truncates longer number, no round.
2259 * Current server implementation uses only millisecond resolution. */
2260 /* TODO: isdigit() is locale sensitive */
2262 i
< sizeof(subseconds
)/sizeof(char) - 1 && isdigit(*offset
);
2264 subseconds
[i
] = *offset
;
2266 for (; i
< sizeof(subseconds
)/sizeof(char) - 1; i
++) {
2267 subseconds
[i
] = '0';
2269 subseconds
[6] = '\0';
2271 /* Convert it into integer */
2272 (*time
)->tv_usec
= strtol(subseconds
, &endptr
, 10);
2273 if (*endptr
!= '\0' || (*time
)->tv_usec
== LONG_MIN
||
2274 (*time
)->tv_usec
== LONG_MAX
) {
2279 /* move to the zone offset delimiter or signal NULL*/
2280 delim
= strchr(offset
, '-');
2282 delim
= strchr(offset
, '+');
2284 delim
= strchr(offset
, 'Z');
2288 /* Get zone offset */
2289 /* ISO allows zone offset string only: "" | "Z" | ("+"|"-" "<HH>:<MM>")
2290 * "" equals to "Z" and it means UTC zone. */
2291 /* One can not use strptime(, "%z",) becase it's RFC E-MAIL format without
2292 * colon separator */
2293 if (offset
&& (*offset
== '-' || *offset
== '+')) {
2294 if (2 != sscanf(offset
+ 1, "%2d:%2d", &offset_hours
, &offset_minutes
)) {
2298 if (*offset
== '+') {
2299 broken
.tm_hour
-= offset_hours
;
2300 broken
.tm_min
-= offset_minutes
;
2302 broken
.tm_hour
+= offset_hours
;
2303 broken
.tm_min
+= offset_minutes
;
2307 /* Convert to time_t */
2308 (*time
)->tv_sec
= _isds_timegm(&broken
);
2309 if ((*time
)->tv_sec
== (time_t) -1) {
2318 /* Convert unsigned int into isds_message_status.
2319 * @context is session context
2320 * @number is pointer to number value. NULL will be treated as invalid value.
2321 * @status is automatically reallocated status
2322 * @return IE_SUCCESS, or error code and free status */
2323 static isds_error
uint2isds_message_status(struct isds_ctx
*context
,
2324 const unsigned long int *number
, isds_message_status
**status
) {
2325 if (!context
) return IE_INVALID_CONTEXT
;
2326 if (!status
) return IE_INVAL
;
2328 free(*status
); *status
= NULL
;
2329 if (!number
) return IE_INVAL
;
2331 if (*number
< 1 || *number
> 10) {
2332 isds_printf_message(context
, _("Invalid message status value: %lu"),
2337 *status
= malloc(sizeof(**status
));
2338 if (!*status
) return IE_NOMEM
;
2340 **status
= 1 << *number
;
2345 /* Convert event description string into isds_event members type and
2347 * @string is raw event description starting with event prefix
2348 * @event is structure where to store type and stripped description to
2349 * @return standard error code, unknown prefix is not classified as an error.
2351 static isds_error
eventstring2event(const xmlChar
*string
,
2352 struct isds_event
* event
) {
2353 const xmlChar
*known_prefixes
[] = {
2364 const isds_event_type types
[] = {
2365 EVENT_ENTERED_SYSTEM
,
2366 EVENT_ACCEPTED_BY_RECIPIENT
,
2367 EVENT_ACCEPTED_BY_FICTION
,
2368 EVENT_UNDELIVERABLE
,
2369 EVENT_COMMERCIAL_ACCEPTED
,
2371 EVENT_PRIMARY_LOGIN
,
2372 EVENT_ENTRUSTED_LOGIN
,
2378 if (!string
|| !event
) return IE_INVAL
;
2381 event
->type
= malloc(sizeof(*event
->type
));
2382 if (!(event
->type
)) return IE_NOMEM
;
2384 zfree(event
->description
);
2386 for (index
= 0; index
< sizeof(known_prefixes
)/sizeof(known_prefixes
[0]);
2388 length
= xmlUTF8Strlen(known_prefixes
[index
]);
2390 if (!xmlStrncmp(string
, known_prefixes
[index
], length
)) {
2391 /* Prefix is known */
2392 *event
->type
= types
[index
];
2394 /* Strip prefix from description and spaces */
2395 /* TODO: Recognize all white spaces from UCS blank class and
2396 * operate on UTF-8 chars. */
2397 for (; string
[length
] != '\0' && string
[length
] == ' '; length
++);
2398 event
->description
= strdup((char *) (string
+ length
));
2399 if (!(event
->description
)) return IE_NOMEM
;
2405 /* Unknown event prefix.
2406 * XSD allows any string */
2407 char *string_locale
= _isds_utf82locale((char *) string
);
2408 isds_log(ILF_ISDS
, ILL_WARNING
,
2409 _("Unknown delivery info event prefix: %s\n"), string_locale
);
2410 free(string_locale
);
2412 *event
->type
= EVENT_UKNOWN
;
2413 event
->description
= strdup((char *) string
);
2414 if (!(event
->description
)) return IE_NOMEM
;
2420 /* Following EXTRACT_* macros expect @result, @xpath_ctx, @err, @context
2421 * and leave label */
2422 #define EXTRACT_STRING(element, string) { \
2423 xmlXPathFreeObject(result); \
2424 result = xmlXPathEvalExpression(BAD_CAST element "/text()", xpath_ctx); \
2425 if (NULL == (result)) { \
2429 if (!xmlXPathNodeSetIsEmpty(result->nodesetval)) { \
2430 if (result->nodesetval->nodeNr > 1) { \
2431 isds_printf_message(context, _("Multiple %s element"), element); \
2435 (string) = (char *) \
2436 xmlXPathCastNodeSetToString(result->nodesetval); \
2437 if (NULL == (string)) { \
2444 #define EXTRACT_BOOLEAN(element, booleanPtr) \
2446 char *string = NULL; \
2447 EXTRACT_STRING(element, string); \
2450 (booleanPtr) = calloc(1, sizeof(*(booleanPtr))); \
2451 if (!(booleanPtr)) { \
2457 if (!xmlStrcmp((xmlChar *)string, BAD_CAST "true") || \
2458 !xmlStrcmp((xmlChar *)string, BAD_CAST "1")) \
2459 *(booleanPtr) = 1; \
2460 else if (!xmlStrcmp((xmlChar *)string, BAD_CAST "false") || \
2461 !xmlStrcmp((xmlChar *)string, BAD_CAST "0")) \
2462 *(booleanPtr) = 0; \
2464 char *string_locale = _isds_utf82locale((char*)string); \
2465 isds_printf_message(context, \
2466 _("%s value is not valid boolean: %s"), \
2467 element, string_locale); \
2468 free(string_locale); \
2478 #define EXTRACT_LONGINT(element, longintPtr, preallocated) \
2480 char *string = NULL; \
2481 EXTRACT_STRING(element, string); \
2486 number = strtol((char*)string, &endptr, 10); \
2488 if (*endptr != '\0') { \
2489 char *string_locale = _isds_utf82locale((char *)string); \
2490 isds_printf_message(context, \
2491 _("%s is not valid integer: %s"), \
2492 element, string_locale); \
2493 free(string_locale); \
2499 if (number == LONG_MIN || number == LONG_MAX) { \
2500 char *string_locale = _isds_utf82locale((char *)string); \
2501 isds_printf_message(context, \
2502 _("%s value out of range of long int: %s"), \
2503 element, string_locale); \
2504 free(string_locale); \
2510 free(string); string = NULL; \
2512 if (!(preallocated)) { \
2513 (longintPtr) = calloc(1, sizeof(*(longintPtr))); \
2514 if (!(longintPtr)) { \
2519 *(longintPtr) = number; \
2523 #define EXTRACT_ULONGINT(element, ulongintPtr, preallocated) \
2525 char *string = NULL; \
2526 EXTRACT_STRING(element, string); \
2531 number = strtol((char*)string, &endptr, 10); \
2533 if (*endptr != '\0') { \
2534 char *string_locale = _isds_utf82locale((char *)string); \
2535 isds_printf_message(context, \
2536 _("%s is not valid integer: %s"), \
2537 element, string_locale); \
2538 free(string_locale); \
2544 if (number == LONG_MIN || number == LONG_MAX) { \
2545 char *string_locale = _isds_utf82locale((char *)string); \
2546 isds_printf_message(context, \
2547 _("%s value out of range of long int: %s"), \
2548 element, string_locale); \
2549 free(string_locale); \
2555 free(string); string = NULL; \
2557 isds_printf_message(context, \
2558 _("%s value is negative: %ld"), element, number); \
2563 if (!(preallocated)) { \
2564 (ulongintPtr) = calloc(1, sizeof(*(ulongintPtr))); \
2565 if (!(ulongintPtr)) { \
2570 *(ulongintPtr) = number; \
2574 #define EXTRACT_DATE(element, tmPtr) { \
2575 char *string = NULL; \
2576 EXTRACT_STRING(element, string); \
2577 if (NULL != string) { \
2578 (tmPtr) = calloc(1, sizeof(*(tmPtr))); \
2579 if (NULL == (tmPtr)) { \
2584 err = _isds_datestring2tm((xmlChar *)string, (tmPtr)); \
2586 if (err == IE_NOTSUP) { \
2588 char *string_locale = _isds_utf82locale(string); \
2589 char *element_locale = _isds_utf82locale(element); \
2590 isds_printf_message(context, _("Invalid %s value: %s"), \
2591 element_locale, string_locale); \
2592 free(string_locale); \
2593 free(element_locale); \
2602 #define EXTRACT_STRING_ATTRIBUTE(attribute, string, required) { \
2603 (string) = (char *) xmlGetNsProp(xpath_ctx->node, ( BAD_CAST attribute), \
2605 if ((required) && (!string)) { \
2606 char *attribute_locale = _isds_utf82locale(attribute); \
2607 char *element_locale = \
2608 _isds_utf82locale((char *)xpath_ctx->node->name); \
2609 isds_printf_message(context, \
2610 _("Could not extract required %s attribute value from " \
2611 "%s element"), attribute_locale, element_locale); \
2612 free(element_locale); \
2613 free(attribute_locale); \
2620 #define INSERT_STRING_WITH_NS(parent, ns, element, string) \
2622 node = xmlNewTextChild(parent, ns, BAD_CAST (element), \
2623 (xmlChar *) (string)); \
2625 isds_printf_message(context, \
2626 _("Could not add %s child to %s element"), \
2627 element, (parent)->name); \
2633 #define INSERT_STRING(parent, element, string) \
2634 { INSERT_STRING_WITH_NS(parent, NULL, element, string) }
2636 #define INSERT_SCALAR_BOOLEAN(parent, element, boolean) \
2638 if (boolean) { INSERT_STRING(parent, element, "true"); } \
2639 else { INSERT_STRING(parent, element, "false"); } \
2642 #define INSERT_BOOLEAN(parent, element, booleanPtr) \
2645 INSERT_SCALAR_BOOLEAN(parent, element, (*(booleanPtr))); \
2647 INSERT_STRING(parent, element, NULL); \
2651 #define INSERT_LONGINT(parent, element, longintPtr, buffer) { \
2652 if ((longintPtr)) { \
2653 /* FIXME: locale sensitive */ \
2654 if (-1 == isds_asprintf((char **)&(buffer), "%ld", *(longintPtr))) { \
2658 INSERT_STRING(parent, element, buffer) \
2659 free(buffer); (buffer) = NULL; \
2660 } else { INSERT_STRING(parent, element, NULL) } \
2663 #define INSERT_ULONGINT(parent, element, ulongintPtr, buffer) { \
2664 if ((ulongintPtr)) { \
2665 /* FIXME: locale sensitive */ \
2666 if (-1 == isds_asprintf((char **)&(buffer), "%lu", *(ulongintPtr))) { \
2670 INSERT_STRING(parent, element, buffer) \
2671 free(buffer); (buffer) = NULL; \
2672 } else { INSERT_STRING(parent, element, NULL) } \
2675 #define INSERT_ULONGINTNOPTR(parent, element, ulongint, buffer) \
2677 /* FIXME: locale sensitive */ \
2678 if (-1 == isds_asprintf((char **)&(buffer), "%lu", ulongint)) { \
2682 INSERT_STRING(parent, element, buffer) \
2683 free(buffer); (buffer) = NULL; \
2686 /* Requires attribute_node variable, do not free it. Can be used to reffer to
2688 #define INSERT_STRING_ATTRIBUTE(parent, attribute, string) \
2690 attribute_node = xmlNewProp((parent), BAD_CAST (attribute), \
2691 (xmlChar *) (string)); \
2692 if (!attribute_node) { \
2693 isds_printf_message(context, _("Could not add %s " \
2694 "attribute to %s element"), \
2695 (attribute), (parent)->name); \
2701 #define CHECK_FOR_STRING_LENGTH(string, minimum, maximum, name) { \
2703 int length = xmlUTF8Strlen((xmlChar *) (string)); \
2704 if (length > (maximum)) { \
2705 isds_printf_message(context, \
2706 ngettext("%s has more than %d characters", \
2707 "%s has more than %d characters", (maximum)), \
2708 (name), (maximum)); \
2712 if (length < (minimum)) { \
2713 isds_printf_message(context, \
2714 ngettext("%s has less than %d characters", \
2715 "%s has less than %d characters", (minimum)), \
2716 (name), (minimum)); \
2723 #define INSERT_ELEMENT(child, parent, element) \
2725 (child) = xmlNewChild((parent), NULL, BAD_CAST (element), NULL); \
2727 isds_printf_message(context, \
2728 _("Could not add %s child to %s element"), \
2729 (element), (parent)->name); \
2736 /* Find child element by name in given XPath context and switch context onto
2737 * it. The child must be uniq and must exist. Otherwise fails.
2738 * @context is ISDS context
2739 * @child is child element name
2740 * @xpath_ctx is XPath context. In success, the @xpath_ctx will be changed
2741 * into it child. In error case, the @xpath_ctx keeps original value. */
2742 static isds_error
move_xpathctx_to_child(struct isds_ctx
*context
,
2743 const xmlChar
*child
, xmlXPathContextPtr xpath_ctx
) {
2744 isds_error err
= IE_SUCCESS
;
2745 xmlXPathObjectPtr result
= NULL
;
2747 if (!context
) return IE_INVALID_CONTEXT
;
2748 if (!child
|| !xpath_ctx
) return IE_INVAL
;
2751 result
= xmlXPathEvalExpression(child
, xpath_ctx
);
2758 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
2759 char *parent_locale
= _isds_utf82locale((char*) xpath_ctx
->node
->name
);
2760 char *child_locale
= _isds_utf82locale((char*) child
);
2761 isds_printf_message(context
,
2762 _("%s element does not contain %s child"),
2763 parent_locale
, child_locale
);
2765 free(parent_locale
);
2771 if (result
->nodesetval
->nodeNr
> 1) {
2772 char *parent_locale
= _isds_utf82locale((char*) xpath_ctx
->node
->name
);
2773 char *child_locale
= _isds_utf82locale((char*) child
);
2774 isds_printf_message(context
,
2775 _("%s element contains multiple %s children"),
2776 parent_locale
, child_locale
);
2778 free(parent_locale
);
2783 /* Switch context */
2784 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
2787 xmlXPathFreeObject(result
);
2794 /* Find and convert XSD:gPersonName group in current node into structure
2795 * @context is ISDS context
2796 * @personName is automatically reallocated person name structure. If no member
2797 * value is found, will be freed.
2798 * @xpath_ctx is XPath context with current node as parent for XSD:gPersonName
2800 * In case of error @personName will be freed. */
2801 static isds_error
extract_gPersonName(struct isds_ctx
*context
,
2802 struct isds_PersonName
**personName
, xmlXPathContextPtr xpath_ctx
) {
2803 isds_error err
= IE_SUCCESS
;
2804 xmlXPathObjectPtr result
= NULL
;
2806 if (!context
) return IE_INVALID_CONTEXT
;
2807 if (!personName
) return IE_INVAL
;
2808 isds_PersonName_free(personName
);
2809 if (!xpath_ctx
) return IE_INVAL
;
2812 *personName
= calloc(1, sizeof(**personName
));
2818 EXTRACT_STRING("isds:pnFirstName", (*personName
)->pnFirstName
);
2819 EXTRACT_STRING("isds:pnMiddleName", (*personName
)->pnMiddleName
);
2820 EXTRACT_STRING("isds:pnLastName", (*personName
)->pnLastName
);
2821 EXTRACT_STRING("isds:pnLastNameAtBirth", (*personName
)->pnLastNameAtBirth
);
2823 if (!(*personName
)->pnFirstName
&& !(*personName
)->pnMiddleName
&&
2824 !(*personName
)->pnLastName
&& !(*personName
)->pnLastNameAtBirth
)
2825 isds_PersonName_free(personName
);
2828 if (err
) isds_PersonName_free(personName
);
2829 xmlXPathFreeObject(result
);
2834 /* Find and convert XSD:gAddress group in current node into structure
2835 * @context is ISDS context
2836 * @address is automatically reallocated address structure. If no member
2837 * value is found, will be freed.
2838 * @xpath_ctx is XPath context with current node as parent for XSD:gAddress
2840 * In case of error @address will be freed. */
2841 static isds_error
extract_gAddress(struct isds_ctx
*context
,
2842 struct isds_Address
**address
, xmlXPathContextPtr xpath_ctx
) {
2843 isds_error err
= IE_SUCCESS
;
2844 xmlXPathObjectPtr result
= NULL
;
2846 if (!context
) return IE_INVALID_CONTEXT
;
2847 if (!address
) return IE_INVAL
;
2848 isds_Address_free(address
);
2849 if (!xpath_ctx
) return IE_INVAL
;
2852 *address
= calloc(1, sizeof(**address
));
2858 EXTRACT_STRING("isds:adCity", (*address
)->adCity
);
2859 EXTRACT_STRING("isds:adStreet", (*address
)->adStreet
);
2860 EXTRACT_STRING("isds:adNumberInStreet", (*address
)->adNumberInStreet
);
2861 EXTRACT_STRING("isds:adNumberInMunicipality",
2862 (*address
)->adNumberInMunicipality
);
2863 EXTRACT_STRING("isds:adZipCode", (*address
)->adZipCode
);
2864 EXTRACT_STRING("isds:adState", (*address
)->adState
);
2866 if (!(*address
)->adCity
&& !(*address
)->adStreet
&&
2867 !(*address
)->adNumberInStreet
&&
2868 !(*address
)->adNumberInMunicipality
&&
2869 !(*address
)->adZipCode
&& !(*address
)->adState
)
2870 isds_Address_free(address
);
2873 if (err
) isds_Address_free(address
);
2874 xmlXPathFreeObject(result
);
2879 /* Find and convert isds:biDate element in current node into structure
2880 * @context is ISDS context
2881 * @biDate is automatically reallocated birth date structure. If no member
2882 * value is found, will be freed.
2883 * @xpath_ctx is XPath context with current node as parent for isds:biDate
2885 * In case of error @biDate will be freed. */
2886 static isds_error
extract_BiDate(struct isds_ctx
*context
,
2887 struct tm
**biDate
, xmlXPathContextPtr xpath_ctx
) {
2888 isds_error err
= IE_SUCCESS
;
2889 xmlXPathObjectPtr result
= NULL
;
2890 char *string
= NULL
;
2892 if (!context
) return IE_INVALID_CONTEXT
;
2893 if (!biDate
) return IE_INVAL
;
2895 if (!xpath_ctx
) return IE_INVAL
;
2897 EXTRACT_STRING("isds:biDate", string
);
2899 *biDate
= calloc(1, sizeof(**biDate
));
2904 err
= _isds_datestring2tm((xmlChar
*)string
, *biDate
);
2906 if (err
== IE_NOTSUP
) {
2908 char *string_locale
= _isds_utf82locale(string
);
2909 isds_printf_message(context
,
2910 _("Invalid isds:biDate value: %s"), string_locale
);
2911 free(string_locale
);
2918 if (err
) zfree(*biDate
);
2920 xmlXPathFreeObject(result
);
2925 /* Convert isds:dBOwnerInfo XML tree into structure
2926 * @context is ISDS context
2927 * @db_owner_info is automatically reallocated box owner info structure
2928 * @xpath_ctx is XPath context with current node as isds:dBOwnerInfo element
2929 * In case of error @db_owner_info will be freed. */
2930 static isds_error
extract_DbOwnerInfo(struct isds_ctx
*context
,
2931 struct isds_DbOwnerInfo
**db_owner_info
,
2932 xmlXPathContextPtr xpath_ctx
) {
2933 isds_error err
= IE_SUCCESS
;
2934 xmlXPathObjectPtr result
= NULL
;
2935 char *string
= NULL
;
2937 if (!context
) return IE_INVALID_CONTEXT
;
2938 if (!db_owner_info
) return IE_INVAL
;
2939 isds_DbOwnerInfo_free(db_owner_info
);
2940 if (!xpath_ctx
) return IE_INVAL
;
2943 *db_owner_info
= calloc(1, sizeof(**db_owner_info
));
2944 if (!*db_owner_info
) {
2949 EXTRACT_STRING("isds:dbID", (*db_owner_info
)->dbID
);
2951 EXTRACT_STRING("isds:dbType", string
);
2953 (*db_owner_info
)->dbType
=
2954 calloc(1, sizeof(*((*db_owner_info
)->dbType
)));
2955 if (!(*db_owner_info
)->dbType
) {
2959 err
= string2isds_DbType((xmlChar
*)string
, (*db_owner_info
)->dbType
);
2961 zfree((*db_owner_info
)->dbType
);
2962 if (err
== IE_ENUM
) {
2964 char *string_locale
= _isds_utf82locale(string
);
2965 isds_printf_message(context
, _("Unknown isds:dbType: %s"),
2967 free(string_locale
);
2974 EXTRACT_STRING("isds:ic", (*db_owner_info
)->ic
);
2976 err
= extract_gPersonName(context
, &(*db_owner_info
)->personName
,
2978 if (err
) goto leave
;
2980 EXTRACT_STRING("isds:firmName", (*db_owner_info
)->firmName
);
2982 (*db_owner_info
)->birthInfo
=
2983 calloc(1, sizeof(*((*db_owner_info
)->birthInfo
)));
2984 if (!(*db_owner_info
)->birthInfo
) {
2988 err
= extract_BiDate(context
, &(*db_owner_info
)->birthInfo
->biDate
,
2990 if (err
) goto leave
;
2991 EXTRACT_STRING("isds:biCity", (*db_owner_info
)->birthInfo
->biCity
);
2992 EXTRACT_STRING("isds:biCounty", (*db_owner_info
)->birthInfo
->biCounty
);
2993 EXTRACT_STRING("isds:biState", (*db_owner_info
)->birthInfo
->biState
);
2994 if (!(*db_owner_info
)->birthInfo
->biDate
&&
2995 !(*db_owner_info
)->birthInfo
->biCity
&&
2996 !(*db_owner_info
)->birthInfo
->biCounty
&&
2997 !(*db_owner_info
)->birthInfo
->biState
)
2998 isds_BirthInfo_free(&(*db_owner_info
)->birthInfo
);
3000 err
= extract_gAddress(context
, &(*db_owner_info
)->address
, xpath_ctx
);
3001 if (err
) goto leave
;
3003 EXTRACT_STRING("isds:nationality", (*db_owner_info
)->nationality
);
3004 EXTRACT_STRING("isds:email", (*db_owner_info
)->email
);
3005 EXTRACT_STRING("isds:telNumber", (*db_owner_info
)->telNumber
);
3006 EXTRACT_STRING("isds:identifier", (*db_owner_info
)->identifier
);
3007 EXTRACT_STRING("isds:registryCode", (*db_owner_info
)->registryCode
);
3009 EXTRACT_LONGINT("isds:dbState", (*db_owner_info
)->dbState
, 0);
3011 EXTRACT_BOOLEAN("isds:dbEffectiveOVM", (*db_owner_info
)->dbEffectiveOVM
);
3012 EXTRACT_BOOLEAN("isds:dbOpenAddressing",
3013 (*db_owner_info
)->dbOpenAddressing
);
3016 if (err
) isds_DbOwnerInfo_free(db_owner_info
);
3018 xmlXPathFreeObject(result
);
3023 /* Insert struct isds_DbOwnerInfo data (box description) into XML tree
3024 * @context is session context
3025 * @owner is libisds structure with box description
3026 * @db_owner_info is XML element of XSD:tDbOwnerInfo */
3027 static isds_error
insert_DbOwnerInfo(struct isds_ctx
*context
,
3028 const struct isds_DbOwnerInfo
*owner
, xmlNodePtr db_owner_info
) {
3030 isds_error err
= IE_SUCCESS
;
3032 xmlChar
*string
= NULL
;
3034 if (!context
) return IE_INVALID_CONTEXT
;
3035 if (!owner
|| !db_owner_info
) return IE_INVAL
;
3038 /* Build XSD:tDbOwnerInfo */
3039 CHECK_FOR_STRING_LENGTH(owner
->dbID
, 0, 7, "dbID")
3040 INSERT_STRING(db_owner_info
, "dbID", owner
->dbID
);
3043 if (owner
->dbType
) {
3044 const xmlChar
*type_string
= isds_DbType2string(*(owner
->dbType
));
3046 isds_printf_message(context
, _("Invalid dbType value: %d"),
3051 INSERT_STRING(db_owner_info
, "dbType", type_string
);
3053 INSERT_STRING(db_owner_info
, "ic", owner
->ic
);
3054 if (owner
->personName
) {
3055 INSERT_STRING(db_owner_info
, "pnFirstName",
3056 owner
->personName
->pnFirstName
);
3057 INSERT_STRING(db_owner_info
, "pnMiddleName",
3058 owner
->personName
->pnMiddleName
);
3059 INSERT_STRING(db_owner_info
, "pnLastName",
3060 owner
->personName
->pnLastName
);
3061 INSERT_STRING(db_owner_info
, "pnLastNameAtBirth",
3062 owner
->personName
->pnLastNameAtBirth
);
3064 INSERT_STRING(db_owner_info
, "firmName", owner
->firmName
);
3065 if (owner
->birthInfo
) {
3066 if (owner
->birthInfo
->biDate
) {
3067 if (!tm2datestring(owner
->birthInfo
->biDate
, &string
))
3068 INSERT_STRING(db_owner_info
, "biDate", string
);
3069 free(string
); string
= NULL
;
3071 INSERT_STRING(db_owner_info
, "biCity", owner
->birthInfo
->biCity
);
3072 INSERT_STRING(db_owner_info
, "biCounty", owner
->birthInfo
->biCounty
);
3073 INSERT_STRING(db_owner_info
, "biState", owner
->birthInfo
->biState
);
3075 if (owner
->address
) {
3076 INSERT_STRING(db_owner_info
, "adCity", owner
->address
->adCity
);
3077 INSERT_STRING(db_owner_info
, "adStreet", owner
->address
->adStreet
);
3078 INSERT_STRING(db_owner_info
, "adNumberInStreet",
3079 owner
->address
->adNumberInStreet
);
3080 INSERT_STRING(db_owner_info
, "adNumberInMunicipality",
3081 owner
->address
->adNumberInMunicipality
);
3082 INSERT_STRING(db_owner_info
, "adZipCode", owner
->address
->adZipCode
);
3083 INSERT_STRING(db_owner_info
, "adState", owner
->address
->adState
);
3085 INSERT_STRING(db_owner_info
, "nationality", owner
->nationality
);
3086 INSERT_STRING(db_owner_info
, "email", owner
->email
);
3087 INSERT_STRING(db_owner_info
, "telNumber", owner
->telNumber
);
3089 CHECK_FOR_STRING_LENGTH(owner
->identifier
, 0, 20, "identifier")
3090 INSERT_STRING(db_owner_info
, "identifier", owner
->identifier
);
3092 CHECK_FOR_STRING_LENGTH(owner
->registryCode
, 0, 5, "registryCode")
3093 INSERT_STRING(db_owner_info
, "registryCode", owner
->registryCode
);
3095 INSERT_LONGINT(db_owner_info
, "dbState", owner
->dbState
, string
);
3097 INSERT_BOOLEAN(db_owner_info
, "dbEffectiveOVM", owner
->dbEffectiveOVM
);
3098 INSERT_BOOLEAN(db_owner_info
, "dbOpenAddressing",
3099 owner
->dbOpenAddressing
);
3107 /* Convert XSD:tDbUserInfo XML tree into structure
3108 * @context is ISDS context
3109 * @db_user_info is automatically reallocated user info structure
3110 * @xpath_ctx is XPath context with current node as XSD:tDbUserInfo element
3111 * In case of error @db_user_info will be freed. */
3112 static isds_error
extract_DbUserInfo(struct isds_ctx
*context
,
3113 struct isds_DbUserInfo
**db_user_info
, xmlXPathContextPtr xpath_ctx
) {
3114 isds_error err
= IE_SUCCESS
;
3115 xmlXPathObjectPtr result
= NULL
;
3116 char *string
= NULL
;
3118 if (!context
) return IE_INVALID_CONTEXT
;
3119 if (!db_user_info
) return IE_INVAL
;
3120 isds_DbUserInfo_free(db_user_info
);
3121 if (!xpath_ctx
) return IE_INVAL
;
3124 *db_user_info
= calloc(1, sizeof(**db_user_info
));
3125 if (!*db_user_info
) {
3130 EXTRACT_STRING("isds:userID", (*db_user_info
)->userID
);
3132 EXTRACT_STRING("isds:userType", string
);
3134 (*db_user_info
)->userType
=
3135 calloc(1, sizeof(*((*db_user_info
)->userType
)));
3136 if (!(*db_user_info
)->userType
) {
3140 err
= string2isds_UserType((xmlChar
*)string
,
3141 (*db_user_info
)->userType
);
3143 zfree((*db_user_info
)->userType
);
3144 if (err
== IE_ENUM
) {
3146 char *string_locale
= _isds_utf82locale(string
);
3147 isds_printf_message(context
,
3148 _("Unknown isds:userType value: %s"), string_locale
);
3149 free(string_locale
);
3156 EXTRACT_LONGINT("isds:userPrivils", (*db_user_info
)->userPrivils
, 0);
3158 (*db_user_info
)->personName
=
3159 calloc(1, sizeof(*((*db_user_info
)->personName
)));
3160 if (!(*db_user_info
)->personName
) {
3165 err
= extract_gPersonName(context
, &(*db_user_info
)->personName
,
3167 if (err
) goto leave
;
3169 err
= extract_gAddress(context
, &(*db_user_info
)->address
, xpath_ctx
);
3170 if (err
) goto leave
;
3172 err
= extract_BiDate(context
, &(*db_user_info
)->biDate
, xpath_ctx
);
3173 if (err
) goto leave
;
3175 EXTRACT_STRING("isds:ic", (*db_user_info
)->ic
);
3176 EXTRACT_STRING("isds:firmName", (*db_user_info
)->firmName
);
3178 EXTRACT_STRING("isds:caStreet", (*db_user_info
)->caStreet
);
3179 EXTRACT_STRING("isds:caCity", (*db_user_info
)->caCity
);
3180 EXTRACT_STRING("isds:caZipCode", (*db_user_info
)->caZipCode
);
3182 /* ???: Default value is "CZ" according specification. Should we provide
3184 EXTRACT_STRING("isds:caState", (*db_user_info
)->caState
);
3187 if (err
) isds_DbUserInfo_free(db_user_info
);
3189 xmlXPathFreeObject(result
);
3194 /* Insert struct isds_DbUserInfo data (user description) into XML tree
3195 * @context is session context
3196 * @user is libisds structure with user description
3197 * @db_user_info is XML element of XSD:tDbUserInfo */
3198 static isds_error
insert_DbUserInfo(struct isds_ctx
*context
,
3199 const struct isds_DbUserInfo
*user
, xmlNodePtr db_user_info
) {
3201 isds_error err
= IE_SUCCESS
;
3203 xmlChar
*string
= NULL
;
3205 if (!context
) return IE_INVALID_CONTEXT
;
3206 if (!user
|| !db_user_info
) return IE_INVAL
;
3208 /* Build XSD:tDbUserInfo */
3209 if (user
->personName
) {
3210 INSERT_STRING(db_user_info
, "pnFirstName",
3211 user
->personName
->pnFirstName
);
3212 INSERT_STRING(db_user_info
, "pnMiddleName",
3213 user
->personName
->pnMiddleName
);
3214 INSERT_STRING(db_user_info
, "pnLastName",
3215 user
->personName
->pnLastName
);
3216 INSERT_STRING(db_user_info
, "pnLastNameAtBirth",
3217 user
->personName
->pnLastNameAtBirth
);
3219 if (user
->address
) {
3220 INSERT_STRING(db_user_info
, "adCity", user
->address
->adCity
);
3221 INSERT_STRING(db_user_info
, "adStreet", user
->address
->adStreet
);
3222 INSERT_STRING(db_user_info
, "adNumberInStreet",
3223 user
->address
->adNumberInStreet
);
3224 INSERT_STRING(db_user_info
, "adNumberInMunicipality",
3225 user
->address
->adNumberInMunicipality
);
3226 INSERT_STRING(db_user_info
, "adZipCode", user
->address
->adZipCode
);
3227 INSERT_STRING(db_user_info
, "adState", user
->address
->adState
);
3230 if (!tm2datestring(user
->biDate
, &string
))
3231 INSERT_STRING(db_user_info
, "biDate", string
);
3234 CHECK_FOR_STRING_LENGTH(user
->userID
, 6, 12, "userID");
3235 INSERT_STRING(db_user_info
, "userID", user
->userID
);
3238 if (user
->userType
) {
3239 const xmlChar
*type_string
= isds_UserType2string(*(user
->userType
));
3241 isds_printf_message(context
, _("Invalid userType value: %d"),
3246 INSERT_STRING(db_user_info
, "userType", type_string
);
3249 INSERT_LONGINT(db_user_info
, "userPrivils", user
->userPrivils
, string
);
3250 CHECK_FOR_STRING_LENGTH(user
->ic
, 0, 8, "ic")
3251 INSERT_STRING(db_user_info
, "ic", user
->ic
);
3252 CHECK_FOR_STRING_LENGTH(user
->firmName
, 0, 100, "firmName")
3253 INSERT_STRING(db_user_info
, "firmName", user
->firmName
);
3254 INSERT_STRING(db_user_info
, "caStreet", user
->caStreet
);
3255 INSERT_STRING(db_user_info
, "caCity", user
->caCity
);
3256 INSERT_STRING(db_user_info
, "caZipCode", user
->caZipCode
);
3257 INSERT_STRING(db_user_info
, "caState", user
->caState
);
3265 /* Convert XSD:tPDZRec XML tree into structure
3266 * @context is ISDS context
3267 * @permission is automatically reallocated commercial permission structure
3268 * @xpath_ctx is XPath context with current node as XSD:tPDZRec element
3269 * In case of error @permission will be freed. */
3270 static isds_error
extract_DbPDZRecord(struct isds_ctx
*context
,
3271 struct isds_commercial_permission
**permission
,
3272 xmlXPathContextPtr xpath_ctx
) {
3273 isds_error err
= IE_SUCCESS
;
3274 xmlXPathObjectPtr result
= NULL
;
3275 char *string
= NULL
;
3277 if (!context
) return IE_INVALID_CONTEXT
;
3278 if (!permission
) return IE_INVAL
;
3279 isds_commercial_permission_free(permission
);
3280 if (!xpath_ctx
) return IE_INVAL
;
3283 *permission
= calloc(1, sizeof(**permission
));
3289 EXTRACT_STRING("isds:PDZType", string
);
3291 err
= string2isds_payment_type((xmlChar
*)string
,
3292 &(*permission
)->type
);
3294 if (err
== IE_ENUM
) {
3296 char *string_locale
= _isds_utf82locale(string
);
3297 isds_printf_message(context
,
3298 _("Unknown isds:PDZType value: %s"), string_locale
);
3299 free(string_locale
);
3306 EXTRACT_STRING("isds:PDZRecip", (*permission
)->recipient
);
3307 EXTRACT_STRING("isds:PDZPayer", (*permission
)->payer
);
3309 EXTRACT_STRING("isds:PDZExpire", string
);
3311 err
= timestring2timeval((xmlChar
*) string
,
3312 &((*permission
)->expiration
));
3314 char *string_locale
= _isds_utf82locale(string
);
3315 if (err
== IE_DATE
) err
= IE_ISDS
;
3316 isds_printf_message(context
,
3317 _("Could not convert PDZExpire as ISO time: %s"),
3319 free(string_locale
);
3325 EXTRACT_ULONGINT("isds:PDZCnt", (*permission
)->count
, 0);
3326 EXTRACT_STRING("isds:ODZIdent", (*permission
)->reply_identifier
);
3329 if (err
) isds_commercial_permission_free(permission
);
3331 xmlXPathFreeObject(result
);
3336 /* Convert XSD:tCiRecord XML tree into structure
3337 * @context is ISDS context
3338 * @event is automatically reallocated commercial credit event structure
3339 * @xpath_ctx is XPath context with current node as XSD:tCiRecord element
3340 * In case of error @event will be freed. */
3341 static isds_error
extract_CiRecord(struct isds_ctx
*context
,
3342 struct isds_credit_event
**event
,
3343 xmlXPathContextPtr xpath_ctx
) {
3344 isds_error err
= IE_SUCCESS
;
3345 xmlXPathObjectPtr result
= NULL
;
3346 char *string
= NULL
;
3347 long int *number_ptr
;
3349 if (!context
) return IE_INVALID_CONTEXT
;
3350 if (!event
) return IE_INVAL
;
3351 isds_credit_event_free(event
);
3352 if (!xpath_ctx
) return IE_INVAL
;
3355 *event
= calloc(1, sizeof(**event
));
3361 EXTRACT_STRING("isds:ciEventTime", string
);
3363 err
= timestring2timeval((xmlChar
*) string
,
3366 char *string_locale
= _isds_utf82locale(string
);
3367 if (err
== IE_DATE
) err
= IE_ISDS
;
3368 isds_printf_message(context
,
3369 _("Could not convert ciEventTime as ISO time: %s"),
3371 free(string_locale
);
3377 EXTRACT_STRING("isds:ciEventType", string
);
3379 err
= string2isds_credit_event_type((xmlChar
*)string
,
3382 if (err
== IE_ENUM
) {
3384 char *string_locale
= _isds_utf82locale(string
);
3385 isds_printf_message(context
,
3386 _("Unknown isds:ciEventType value: %s"), string_locale
);
3387 free(string_locale
);
3394 number_ptr
= &((*event
)->credit_change
);
3395 EXTRACT_LONGINT("isds:ciCreditChange", number_ptr
, 1);
3396 number_ptr
= &(*event
)->new_credit
;
3397 EXTRACT_LONGINT("isds:ciCreditAfter", number_ptr
, 1);
3399 switch((*event
)->type
) {
3400 case ISDS_CREDIT_CHARGED
:
3401 EXTRACT_STRING("isds:ciTransID",
3402 (*event
)->details
.charged
.transaction
);
3404 case ISDS_CREDIT_DISCHARGED
:
3405 EXTRACT_STRING("isds:ciTransID",
3406 (*event
)->details
.discharged
.transaction
);
3408 case ISDS_CREDIT_MESSAGE_SENT
:
3409 EXTRACT_STRING("isds:ciRecipientID",
3410 (*event
)->details
.message_sent
.recipient
);
3411 EXTRACT_STRING("isds:ciPDZID",
3412 (*event
)->details
.message_sent
.message_id
);
3414 case ISDS_CREDIT_STORAGE_SET
:
3415 number_ptr
= &((*event
)->details
.storage_set
.new_capacity
);
3416 EXTRACT_LONGINT("isds:ciNewCapacity", number_ptr
, 1);
3417 EXTRACT_DATE("isds:ciNewFrom",
3418 (*event
)->details
.storage_set
.new_valid_from
);
3419 EXTRACT_DATE("isds:ciNewTo",
3420 (*event
)->details
.storage_set
.new_valid_to
);
3421 EXTRACT_LONGINT("isds:ciOldCapacity",
3422 (*event
)->details
.storage_set
.old_capacity
, 0);
3423 EXTRACT_DATE("isds:ciOldFrom",
3424 (*event
)->details
.storage_set
.old_valid_from
);
3425 EXTRACT_DATE("isds:ciOldTo",
3426 (*event
)->details
.storage_set
.old_valid_to
);
3427 EXTRACT_STRING("isds:ciDoneBy",
3428 (*event
)->details
.storage_set
.initiator
);
3430 case ISDS_CREDIT_EXPIRED
:
3435 if (err
) isds_credit_event_free(event
);
3437 xmlXPathFreeObject(result
);
3442 #endif /* HAVE_LIBCURL */
3445 /* Convert XSD gMessageEnvelopeSub group of elements from XML tree into
3446 * isds_envelope structure. The envelope is automatically allocated but not
3447 * reallocated. The date are just appended into envelope structure.
3448 * @context is ISDS context
3449 * @envelope is automatically allocated message envelope structure
3450 * @xpath_ctx is XPath context with current node as gMessageEnvelope parent
3451 * In case of error @envelope will be freed. */
3452 static isds_error
append_GMessageEnvelopeSub(struct isds_ctx
*context
,
3453 struct isds_envelope
**envelope
, xmlXPathContextPtr xpath_ctx
) {
3454 isds_error err
= IE_SUCCESS
;
3455 xmlXPathObjectPtr result
= NULL
;
3457 if (!context
) return IE_INVALID_CONTEXT
;
3458 if (!envelope
) return IE_INVAL
;
3459 if (!xpath_ctx
) return IE_INVAL
;
3463 /* Allocate envelope */
3464 *envelope
= calloc(1, sizeof(**envelope
));
3470 /* Else free former data */
3471 zfree((*envelope
)->dmSenderOrgUnit
);
3472 zfree((*envelope
)->dmSenderOrgUnitNum
);
3473 zfree((*envelope
)->dbIDRecipient
);
3474 zfree((*envelope
)->dmRecipientOrgUnit
);
3475 zfree((*envelope
)->dmRecipientOrgUnitNum
);
3476 zfree((*envelope
)->dmToHands
);
3477 zfree((*envelope
)->dmAnnotation
);
3478 zfree((*envelope
)->dmRecipientRefNumber
);
3479 zfree((*envelope
)->dmSenderRefNumber
);
3480 zfree((*envelope
)->dmRecipientIdent
);
3481 zfree((*envelope
)->dmSenderIdent
);
3482 zfree((*envelope
)->dmLegalTitleLaw
);
3483 zfree((*envelope
)->dmLegalTitleYear
);
3484 zfree((*envelope
)->dmLegalTitleSect
);
3485 zfree((*envelope
)->dmLegalTitlePar
);
3486 zfree((*envelope
)->dmLegalTitlePoint
);
3487 zfree((*envelope
)->dmPersonalDelivery
);
3488 zfree((*envelope
)->dmAllowSubstDelivery
);
3491 /* Extract envelope elements added by sender or ISDS
3492 * (XSD: gMessageEnvelopeSub type) */
3493 EXTRACT_STRING("isds:dmSenderOrgUnit", (*envelope
)->dmSenderOrgUnit
);
3494 EXTRACT_LONGINT("isds:dmSenderOrgUnitNum",
3495 (*envelope
)->dmSenderOrgUnitNum
, 0);
3496 EXTRACT_STRING("isds:dbIDRecipient", (*envelope
)->dbIDRecipient
);
3497 EXTRACT_STRING("isds:dmRecipientOrgUnit", (*envelope
)->dmRecipientOrgUnit
);
3498 EXTRACT_LONGINT("isds:dmRecipientOrgUnitNum",
3499 (*envelope
)->dmRecipientOrgUnitNum
, 0);
3500 EXTRACT_STRING("isds:dmToHands", (*envelope
)->dmToHands
);
3501 EXTRACT_STRING("isds:dmAnnotation", (*envelope
)->dmAnnotation
);
3502 EXTRACT_STRING("isds:dmRecipientRefNumber",
3503 (*envelope
)->dmRecipientRefNumber
);
3504 EXTRACT_STRING("isds:dmSenderRefNumber", (*envelope
)->dmSenderRefNumber
);
3505 EXTRACT_STRING("isds:dmRecipientIdent", (*envelope
)->dmRecipientIdent
);
3506 EXTRACT_STRING("isds:dmSenderIdent", (*envelope
)->dmSenderIdent
);
3508 /* Extract envelope elements regarding law reference */
3509 EXTRACT_LONGINT("isds:dmLegalTitleLaw", (*envelope
)->dmLegalTitleLaw
, 0);
3510 EXTRACT_LONGINT("isds:dmLegalTitleYear", (*envelope
)->dmLegalTitleYear
, 0);
3511 EXTRACT_STRING("isds:dmLegalTitleSect", (*envelope
)->dmLegalTitleSect
);
3512 EXTRACT_STRING("isds:dmLegalTitlePar", (*envelope
)->dmLegalTitlePar
);
3513 EXTRACT_STRING("isds:dmLegalTitlePoint", (*envelope
)->dmLegalTitlePoint
);
3515 /* Extract envelope other elements */
3516 EXTRACT_BOOLEAN("isds:dmPersonalDelivery", (*envelope
)->dmPersonalDelivery
);
3517 EXTRACT_BOOLEAN("isds:dmAllowSubstDelivery",
3518 (*envelope
)->dmAllowSubstDelivery
);
3521 if (err
) isds_envelope_free(envelope
);
3522 xmlXPathFreeObject(result
);
3528 /* Convert XSD gMessageEnvelope group of elements from XML tree into
3529 * isds_envelope structure. The envelope is automatically allocated but not
3530 * reallocated. The date are just appended into envelope structure.
3531 * @context is ISDS context
3532 * @envelope is automatically allocated message envelope structure
3533 * @xpath_ctx is XPath context with current node as gMessageEnvelope parent
3534 * In case of error @envelope will be freed. */
3535 static isds_error
append_GMessageEnvelope(struct isds_ctx
*context
,
3536 struct isds_envelope
**envelope
, xmlXPathContextPtr xpath_ctx
) {
3537 isds_error err
= IE_SUCCESS
;
3538 xmlXPathObjectPtr result
= NULL
;
3540 if (!context
) return IE_INVALID_CONTEXT
;
3541 if (!envelope
) return IE_INVAL
;
3542 if (!xpath_ctx
) return IE_INVAL
;
3546 /* Allocate envelope */
3547 *envelope
= calloc(1, sizeof(**envelope
));
3553 /* Else free former data */
3554 zfree((*envelope
)->dmID
);
3555 zfree((*envelope
)->dbIDSender
);
3556 zfree((*envelope
)->dmSender
);
3557 zfree((*envelope
)->dmSenderAddress
);
3558 zfree((*envelope
)->dmSenderType
);
3559 zfree((*envelope
)->dmRecipient
);
3560 zfree((*envelope
)->dmRecipientAddress
);
3561 zfree((*envelope
)->dmAmbiguousRecipient
);
3564 /* Extract envelope elements added by ISDS
3565 * (XSD: gMessageEnvelope type) */
3566 EXTRACT_STRING("isds:dmID", (*envelope
)->dmID
);
3567 EXTRACT_STRING("isds:dbIDSender", (*envelope
)->dbIDSender
);
3568 EXTRACT_STRING("isds:dmSender", (*envelope
)->dmSender
);
3569 EXTRACT_STRING("isds:dmSenderAddress", (*envelope
)->dmSenderAddress
);
3570 /* XML Schema does not guarantee enumeration. It's plain xs:int. */
3571 EXTRACT_LONGINT("isds:dmSenderType", (*envelope
)->dmSenderType
, 0);
3572 EXTRACT_STRING("isds:dmRecipient", (*envelope
)->dmRecipient
);
3573 EXTRACT_STRING("isds:dmRecipientAddress", (*envelope
)->dmRecipientAddress
);
3574 EXTRACT_BOOLEAN("isds:dmAmbiguousRecipient",
3575 (*envelope
)->dmAmbiguousRecipient
);
3577 /* Extract envelope elements added by sender and ISDS
3578 * (XSD: gMessageEnvelope type) */
3579 err
= append_GMessageEnvelopeSub(context
, envelope
, xpath_ctx
);
3580 if (err
) goto leave
;
3583 if (err
) isds_envelope_free(envelope
);
3584 xmlXPathFreeObject(result
);
3589 /* Convert other envelope elements from XML tree into isds_envelope structure:
3590 * dmMessageStatus, dmAttachmentSize, dmDeliveryTime, dmAcceptanceTime.
3591 * The envelope is automatically allocated but not reallocated.
3592 * The data are just appended into envelope structure.
3593 * @context is ISDS context
3594 * @envelope is automatically allocated message envelope structure
3595 * @xpath_ctx is XPath context with current node as parent desired elements
3596 * In case of error @envelope will be freed. */
3597 static isds_error
append_status_size_times(struct isds_ctx
*context
,
3598 struct isds_envelope
**envelope
, xmlXPathContextPtr xpath_ctx
) {
3599 isds_error err
= IE_SUCCESS
;
3600 xmlXPathObjectPtr result
= NULL
;
3601 char *string
= NULL
;
3602 unsigned long int *unumber
= NULL
;
3604 if (!context
) return IE_INVALID_CONTEXT
;
3605 if (!envelope
) return IE_INVAL
;
3606 if (!xpath_ctx
) return IE_INVAL
;
3611 *envelope
= calloc(1, sizeof(**envelope
));
3618 zfree((*envelope
)->dmMessageStatus
);
3619 zfree((*envelope
)->dmAttachmentSize
);
3620 zfree((*envelope
)->dmDeliveryTime
);
3621 zfree((*envelope
)->dmAcceptanceTime
);
3625 /* dmMessageStatus element is mandatory */
3626 EXTRACT_ULONGINT("sisds:dmMessageStatus", unumber
, 0);
3628 isds_log_message(context
,
3629 _("Missing mandatory sisds:dmMessageStatus integer"));
3633 err
= uint2isds_message_status(context
, unumber
,
3634 &((*envelope
)->dmMessageStatus
));
3636 if (err
== IE_ENUM
) err
= IE_ISDS
;
3639 free(unumber
); unumber
= NULL
;
3641 EXTRACT_ULONGINT("sisds:dmAttachmentSize", (*envelope
)->dmAttachmentSize
,
3644 EXTRACT_STRING("sisds:dmDeliveryTime", string
);
3646 err
= timestring2timeval((xmlChar
*) string
,
3647 &((*envelope
)->dmDeliveryTime
));
3649 char *string_locale
= _isds_utf82locale(string
);
3650 if (err
== IE_DATE
) err
= IE_ISDS
;
3651 isds_printf_message(context
,
3652 _("Could not convert dmDeliveryTime as ISO time: %s"),
3654 free(string_locale
);
3660 EXTRACT_STRING("sisds:dmAcceptanceTime", string
);
3662 err
= timestring2timeval((xmlChar
*) string
,
3663 &((*envelope
)->dmAcceptanceTime
));
3665 char *string_locale
= _isds_utf82locale(string
);
3666 if (err
== IE_DATE
) err
= IE_ISDS
;
3667 isds_printf_message(context
,
3668 _("Could not convert dmAcceptanceTime as ISO time: %s"),
3670 free(string_locale
);
3677 if (err
) isds_envelope_free(envelope
);
3680 xmlXPathFreeObject(result
);
3685 /* Convert message type attribute of current element into isds_envelope
3687 * TODO: This function can be incorporated into append_status_size_times() as
3688 * they are called always together.
3689 * The envelope is automatically allocated but not reallocated.
3690 * The data are just appended into envelope structure.
3691 * @context is ISDS context
3692 * @envelope is automatically allocated message envelope structure
3693 * @xpath_ctx is XPath context with current node as parent of attribute
3694 * carrying message type
3695 * In case of error @envelope will be freed. */
3696 static isds_error
append_message_type(struct isds_ctx
*context
,
3697 struct isds_envelope
**envelope
, xmlXPathContextPtr xpath_ctx
) {
3698 isds_error err
= IE_SUCCESS
;
3700 if (!context
) return IE_INVALID_CONTEXT
;
3701 if (!envelope
) return IE_INVAL
;
3702 if (!xpath_ctx
) return IE_INVAL
;
3707 *envelope
= calloc(1, sizeof(**envelope
));
3714 zfree((*envelope
)->dmType
);
3718 EXTRACT_STRING_ATTRIBUTE("dmType", (*envelope
)->dmType
, 0);
3720 if (!(*envelope
)->dmType
) {
3721 /* Use default value */
3722 (*envelope
)->dmType
= strdup("V");
3723 if (!(*envelope
)->dmType
) {
3727 } else if (1 != xmlUTF8Strlen((xmlChar
*) (*envelope
)->dmType
)) {
3728 char *type_locale
= _isds_utf82locale((*envelope
)->dmType
);
3729 isds_printf_message(context
,
3730 _("Message type in dmType attribute is not 1 character long: "
3739 if (err
) isds_envelope_free(envelope
);
3745 /* Convert dmType isds_envelope member into XML attribute and append it to
3747 * @context is ISDS context
3748 * @type is UTF-8 encoded string one multibyte long exactly or NULL to omit
3749 * @dm_envelope is XML element the resulting attribute will be appended to.
3750 * @return error code, in case of error context' message is filled. */
3751 static isds_error
insert_message_type(struct isds_ctx
*context
,
3752 const char *type
, xmlNodePtr dm_envelope
) {
3753 isds_error err
= IE_SUCCESS
;
3754 xmlAttrPtr attribute_node
;
3756 if (!context
) return IE_INVALID_CONTEXT
;
3757 if (!dm_envelope
) return IE_INVAL
;
3759 /* Insert optional message type */
3761 if (1 != xmlUTF8Strlen((xmlChar
*) type
)) {
3762 char *type_locale
= _isds_utf82locale(type
);
3763 isds_printf_message(context
,
3764 _("Message type in envelope is not 1 character long: %s"),
3770 INSERT_STRING_ATTRIBUTE(dm_envelope
, "dmType", type
);
3776 #endif /* HAVE_LIBCURL */
3779 /* Extract message document into reallocated document structure
3780 * @context is ISDS context
3781 * @document is automatically reallocated message documents structure
3782 * @xpath_ctx is XPath context with current node as isds:dmFile
3783 * In case of error @document will be freed. */
3784 static isds_error
extract_document(struct isds_ctx
*context
,
3785 struct isds_document
**document
, xmlXPathContextPtr xpath_ctx
) {
3786 isds_error err
= IE_SUCCESS
;
3787 xmlXPathObjectPtr result
= NULL
;
3788 xmlNodePtr file_node
= xpath_ctx
->node
;
3789 char *string
= NULL
;
3791 if (!context
) return IE_INVALID_CONTEXT
;
3792 if (!document
) return IE_INVAL
;
3793 isds_document_free(document
);
3794 if (!xpath_ctx
) return IE_INVAL
;
3796 *document
= calloc(1, sizeof(**document
));
3802 /* Extract document meta data */
3803 EXTRACT_STRING_ATTRIBUTE("dmMimeType", (*document
)->dmMimeType
, 1)
3804 if (context
->normalize_mime_type
) {
3805 const char *normalized_type
=
3806 isds_normalize_mime_type((*document
)->dmMimeType
);
3807 if (NULL
!= normalized_type
&&
3808 normalized_type
!= (*document
)->dmMimeType
) {
3809 char *new_type
= strdup(normalized_type
);
3810 if (NULL
== new_type
) {
3811 isds_printf_message(context
,
3812 _("Not enough memory to normalize document MIME type"));
3816 free((*document
)->dmMimeType
);
3817 (*document
)->dmMimeType
= new_type
;
3821 EXTRACT_STRING_ATTRIBUTE("dmFileMetaType", string
, 1)
3822 err
= string2isds_FileMetaType((xmlChar
*)string
,
3823 &((*document
)->dmFileMetaType
));
3825 char *meta_type_locale
= _isds_utf82locale(string
);
3826 isds_printf_message(context
,
3827 _("Document has invalid dmFileMetaType attribute value: %s"),
3829 free(meta_type_locale
);
3835 EXTRACT_STRING_ATTRIBUTE("dmFileGuid", (*document
)->dmFileGuid
, 0)
3836 EXTRACT_STRING_ATTRIBUTE("dmUpFileGuid", (*document
)->dmUpFileGuid
, 0)
3837 EXTRACT_STRING_ATTRIBUTE("dmFileDescr", (*document
)->dmFileDescr
, 0)
3838 EXTRACT_STRING_ATTRIBUTE("dmFormat", (*document
)->dmFormat
, 0)
3841 /* Extract document data.
3842 * Base64 encoded blob or XML subtree must be presented. */
3844 /* Check for dmEncodedContent */
3845 result
= xmlXPathEvalExpression(BAD_CAST
"isds:dmEncodedContent",
3852 if (!xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
3853 /* Here we have Base64 blob */
3854 (*document
)->is_xml
= 0;
3856 if (result
->nodesetval
->nodeNr
> 1) {
3857 isds_printf_message(context
,
3858 _("Document has more dmEncodedContent elements"));
3863 xmlXPathFreeObject(result
); result
= NULL
;
3864 EXTRACT_STRING("isds:dmEncodedContent", string
);
3866 /* Decode non-empty document */
3867 if (string
&& string
[0] != '\0') {
3868 (*document
)->data_length
=
3869 _isds_b64decode(string
, &((*document
)->data
));
3870 if ((*document
)->data_length
== (size_t) -1) {
3871 isds_printf_message(context
,
3872 _("Error while Base64-decoding document content"));
3878 /* No Base64 blob, try XML document */
3879 xmlXPathFreeObject(result
); result
= NULL
;
3880 result
= xmlXPathEvalExpression(BAD_CAST
"isds:dmXMLContent",
3887 if (!xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
3888 /* Here we have XML document */
3889 (*document
)->is_xml
= 1;
3891 if (result
->nodesetval
->nodeNr
> 1) {
3892 isds_printf_message(context
,
3893 _("Document has more dmXMLContent elements"));
3898 /* XXX: We cannot serialize the content simply because:
3899 * - XML document may point out of its scope (e.g. to message
3901 * - isds:dmXMLContent can contain more elements, no element,
3903 * - it's not the XML way
3904 * Thus we provide the only right solution: XML DOM. Let's
3905 * application to cope with this hot potato :) */
3906 (*document
)->xml_node_list
=
3907 result
->nodesetval
->nodeTab
[0]->children
;
3909 /* No base64 blob, nor XML document */
3910 isds_printf_message(context
,
3911 _("Document has no dmEncodedContent, nor dmXMLContent "
3920 if (err
) isds_document_free(document
);
3922 xmlXPathFreeObject(result
);
3923 xpath_ctx
->node
= file_node
;
3929 /* Extract message documents into reallocated list of documents
3930 * @context is ISDS context
3931 * @documents is automatically reallocated message documents list structure
3932 * @xpath_ctx is XPath context with current node as XSD tFilesArray
3933 * In case of error @documents will be freed. */
3934 static isds_error
extract_documents(struct isds_ctx
*context
,
3935 struct isds_list
**documents
, xmlXPathContextPtr xpath_ctx
) {
3936 isds_error err
= IE_SUCCESS
;
3937 xmlXPathObjectPtr result
= NULL
;
3938 xmlNodePtr files_node
= xpath_ctx
->node
;
3939 struct isds_list
*document
, *prev_document
= NULL
;
3941 if (!context
) return IE_INVALID_CONTEXT
;
3942 if (!documents
) return IE_INVAL
;
3943 isds_list_free(documents
);
3944 if (!xpath_ctx
) return IE_INVAL
;
3946 /* Find documents */
3947 result
= xmlXPathEvalExpression(BAD_CAST
"isds:dmFile", xpath_ctx
);
3954 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
3955 isds_printf_message(context
,
3956 _("Message does not contain any document"));
3962 /* Iterate over documents */
3963 for (int i
= 0; i
< result
->nodesetval
->nodeNr
; i
++) {
3965 /* Allocate and append list item */
3966 document
= calloc(1, sizeof(*document
));
3971 document
->destructor
= (void (*)(void **))isds_document_free
;
3972 if (i
== 0) *documents
= document
;
3973 else prev_document
->next
= document
;
3974 prev_document
= document
;
3976 /* Extract document */
3977 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[i
];
3978 err
= extract_document(context
,
3979 (struct isds_document
**) &(document
->data
), xpath_ctx
);
3980 if (err
) goto leave
;
3985 if (err
) isds_list_free(documents
);
3986 xmlXPathFreeObject(result
);
3987 xpath_ctx
->node
= files_node
;
3993 /* Convert isds:dmRecord XML tree into structure
3994 * @context is ISDS context
3995 * @envelope is automatically reallocated message envelope structure
3996 * @xpath_ctx is XPath context with current node as isds:dmRecord element
3997 * In case of error @envelope will be freed. */
3998 static isds_error
extract_DmRecord(struct isds_ctx
*context
,
3999 struct isds_envelope
**envelope
, xmlXPathContextPtr xpath_ctx
) {
4000 isds_error err
= IE_SUCCESS
;
4001 xmlXPathObjectPtr result
= NULL
;
4003 if (!context
) return IE_INVALID_CONTEXT
;
4004 if (!envelope
) return IE_INVAL
;
4005 isds_envelope_free(envelope
);
4006 if (!xpath_ctx
) return IE_INVAL
;
4009 *envelope
= calloc(1, sizeof(**envelope
));
4016 /* Extract tRecord data */
4017 EXTRACT_ULONGINT("isds:dmOrdinal", (*envelope
)->dmOrdinal
, 0);
4019 /* Get dmMessageStatus, dmAttachmentSize, dmDeliveryTime,
4020 * dmAcceptanceTime. */
4021 err
= append_status_size_times(context
, envelope
, xpath_ctx
);
4022 if (err
) goto leave
;
4024 /* Extract envelope elements added by sender and ISDS
4025 * (XSD: gMessageEnvelope type) */
4026 err
= append_GMessageEnvelope(context
, envelope
, xpath_ctx
);
4027 if (err
) goto leave
;
4029 /* Get message type */
4030 err
= append_message_type(context
, envelope
, xpath_ctx
);
4031 if (err
) goto leave
;
4035 if (err
) isds_envelope_free(envelope
);
4036 xmlXPathFreeObject(result
);
4041 /* Convert XSD:tStateChangesRecord type XML tree into structure
4042 * @context is ISDS context
4043 * @changed_status is automatically reallocated message state change structure
4044 * @xpath_ctx is XPath context with current node as element of
4045 * XSD:tStateChangesRecord type
4046 * In case of error @changed_status will be freed. */
4047 static isds_error
extract_StateChangesRecord(struct isds_ctx
*context
,
4048 struct isds_message_status_change
**changed_status
,
4049 xmlXPathContextPtr xpath_ctx
) {
4050 isds_error err
= IE_SUCCESS
;
4051 xmlXPathObjectPtr result
= NULL
;
4052 unsigned long int *unumber
= NULL
;
4053 char *string
= NULL
;
4055 if (!context
) return IE_INVALID_CONTEXT
;
4056 if (!changed_status
) return IE_INVAL
;
4057 isds_message_status_change_free(changed_status
);
4058 if (!xpath_ctx
) return IE_INVAL
;
4061 *changed_status
= calloc(1, sizeof(**changed_status
));
4062 if (!*changed_status
) {
4068 /* Extract tGetStateChangesInput data */
4069 EXTRACT_STRING("isds:dmID", (*changed_status
)->dmID
);
4071 /* dmEventTime is mandatory */
4072 EXTRACT_STRING("isds:dmEventTime", string
);
4074 err
= timestring2timeval((xmlChar
*) string
,
4075 &((*changed_status
)->time
));
4077 char *string_locale
= _isds_utf82locale(string
);
4078 if (err
== IE_DATE
) err
= IE_ISDS
;
4079 isds_printf_message(context
,
4080 _("Could not convert dmEventTime as ISO time: %s"),
4082 free(string_locale
);
4088 /* dmMessageStatus element is mandatory */
4089 EXTRACT_ULONGINT("isds:dmMessageStatus", unumber
, 0);
4091 isds_log_message(context
,
4092 _("Missing mandatory isds:dmMessageStatus integer"));
4096 err
= uint2isds_message_status(context
, unumber
,
4097 &((*changed_status
)->dmMessageStatus
));
4099 if (err
== IE_ENUM
) err
= IE_ISDS
;
4108 if (err
) isds_message_status_change_free(changed_status
);
4109 xmlXPathFreeObject(result
);
4112 #endif /* HAVE_LIBCURL */
4115 /* Find and convert isds:dmHash XML tree into structure
4116 * @context is ISDS context
4117 * @envelope is automatically reallocated message hash structure
4118 * @xpath_ctx is XPath context with current node containing isds:dmHash child
4119 * In case of error @hash will be freed. */
4120 static isds_error
find_and_extract_DmHash(struct isds_ctx
*context
,
4121 struct isds_hash
**hash
, xmlXPathContextPtr xpath_ctx
) {
4122 isds_error err
= IE_SUCCESS
;
4123 xmlNodePtr old_ctx_node
;
4124 xmlXPathObjectPtr result
= NULL
;
4125 char *string
= NULL
;
4127 if (!context
) return IE_INVALID_CONTEXT
;
4128 if (!hash
) return IE_INVAL
;
4129 isds_hash_free(hash
);
4130 if (!xpath_ctx
) return IE_INVAL
;
4132 old_ctx_node
= xpath_ctx
->node
;
4134 *hash
= calloc(1, sizeof(**hash
));
4141 err
= move_xpathctx_to_child(context
, BAD_CAST
"sisds:dmHash", xpath_ctx
);
4142 if (err
== IE_NOEXIST
|| err
== IE_NOTUNIQ
) {
4151 /* Get hash algorithm */
4152 EXTRACT_STRING_ATTRIBUTE("algorithm", string
, 1);
4153 err
= string2isds_hash_algorithm((xmlChar
*) string
, &(*hash
)->algorithm
);
4155 if (err
== IE_ENUM
) {
4156 char *string_locale
= _isds_utf82locale(string
);
4157 isds_printf_message(context
, _("Unsupported hash algorithm: %s"),
4159 free(string_locale
);
4165 /* Get hash value */
4166 EXTRACT_STRING(".", string
);
4168 isds_printf_message(context
,
4169 _("sisds:dmHash element is missing hash value"));
4173 (*hash
)->length
= _isds_b64decode(string
, &((*hash
)->value
));
4174 if ((*hash
)->length
== (size_t) -1) {
4175 isds_printf_message(context
,
4176 _("Error while Base64-decoding hash value"));
4182 if (err
) isds_hash_free(hash
);
4184 xmlXPathFreeObject(result
);
4185 xpath_ctx
->node
= old_ctx_node
;
4190 /* Find and append isds:dmQTimestamp XML tree into envelope.
4191 * Because one service is allowed to miss time-stamp content, and we think
4192 * other could too (flaw in specification), this function is deliberated and
4193 * will not fail (i.e. will return IE_SUCCESS), if time-stamp is missing.
4194 * @context is ISDS context
4195 * @envelope is automatically allocated envelope structure
4196 * @xpath_ctx is XPath context with current node containing isds:dmQTimestamp
4198 * In case of error @envelope will be freed. */
4199 static isds_error
find_and_append_DmQTimestamp(struct isds_ctx
*context
,
4200 struct isds_envelope
**envelope
, xmlXPathContextPtr xpath_ctx
) {
4201 isds_error err
= IE_SUCCESS
;
4202 xmlXPathObjectPtr result
= NULL
;
4203 char *string
= NULL
;
4205 if (!context
) return IE_INVALID_CONTEXT
;
4206 if (!envelope
) return IE_INVAL
;
4208 isds_envelope_free(envelope
);
4213 *envelope
= calloc(1, sizeof(**envelope
));
4219 zfree((*envelope
)->timestamp
);
4220 (*envelope
)->timestamp_length
= 0;
4223 /* Get dmQTimestamp */
4224 EXTRACT_STRING("sisds:dmQTimestamp", string
);
4226 isds_log(ILF_ISDS
, ILL_INFO
, _("Missing dmQTimestamp element content\n"));
4229 (*envelope
)->timestamp_length
=
4230 _isds_b64decode(string
, &((*envelope
)->timestamp
));
4231 if ((*envelope
)->timestamp_length
== (size_t) -1) {
4232 isds_printf_message(context
,
4233 _("Error while Base64-decoding time stamp value"));
4239 if (err
) isds_envelope_free(envelope
);
4241 xmlXPathFreeObject(result
);
4246 /* Convert XSD tReturnedMessage XML tree into message structure.
4247 * It does not store serialized XML tree into message->raw.
4248 * It does store (pointer to) parsed XML tree into message->xml if needed.
4249 * @context is ISDS context
4250 * @include_documents Use true if documents must be extracted
4251 * (tReturnedMessage XSD type), use false if documents shall be omitted
4252 * (tReturnedMessageEnvelope).
4253 * @message is automatically reallocated message structure
4254 * @xpath_ctx is XPath context with current node as tReturnedMessage element
4256 * In case of error @message will be freed. */
4257 static isds_error
extract_TReturnedMessage(struct isds_ctx
*context
,
4258 const _Bool include_documents
, struct isds_message
**message
,
4259 xmlXPathContextPtr xpath_ctx
) {
4260 isds_error err
= IE_SUCCESS
;
4261 xmlNodePtr message_node
;
4263 if (!context
) return IE_INVALID_CONTEXT
;
4264 if (!message
) return IE_INVAL
;
4265 isds_message_free(message
);
4266 if (!xpath_ctx
) return IE_INVAL
;
4269 *message
= calloc(1, sizeof(**message
));
4275 /* Save message XPATH context node */
4276 message_node
= xpath_ctx
->node
;
4280 err
= move_xpathctx_to_child(context
, BAD_CAST
"isds:dmDm", xpath_ctx
);
4281 if (err
== IE_NOEXIST
|| err
== IE_NOTUNIQ
) { err
= IE_ISDS
; goto leave
; }
4282 if (err
) { err
= IE_ERROR
; goto leave
; }
4283 err
= append_GMessageEnvelope(context
, &((*message
)->envelope
), xpath_ctx
);
4284 if (err
) goto leave
;
4286 if (include_documents
) {
4287 struct isds_list
*item
;
4289 /* Extract dmFiles */
4290 err
= move_xpathctx_to_child(context
, BAD_CAST
"isds:dmFiles",
4292 if (err
== IE_NOEXIST
|| err
== IE_NOTUNIQ
) {
4293 err
= IE_ISDS
; goto leave
;
4295 if (err
) { err
= IE_ERROR
; goto leave
; }
4296 err
= extract_documents(context
, &((*message
)->documents
), xpath_ctx
);
4297 if (err
) goto leave
;
4299 /* Store xmlDoc of this message if needed */
4300 /* Only if we got a XML document in all the documents. */
4301 for (item
= (*message
)->documents
; item
; item
= item
->next
) {
4302 if (item
->data
&& ((struct isds_document
*)item
->data
)->is_xml
) {
4303 (*message
)->xml
= xpath_ctx
->doc
;
4310 /* Restore context to message */
4311 xpath_ctx
->node
= message_node
;
4313 /* Extract dmHash */
4314 err
= find_and_extract_DmHash(context
, &(*message
)->envelope
->hash
,
4316 if (err
) goto leave
;
4318 /* Extract dmQTimestamp, */
4319 err
= find_and_append_DmQTimestamp(context
, &(*message
)->envelope
,
4321 if (err
) goto leave
;
4323 /* Get dmMessageStatus, dmAttachmentSize, dmDeliveryTime,
4324 * dmAcceptanceTime. */
4325 err
= append_status_size_times(context
, &((*message
)->envelope
), xpath_ctx
);
4326 if (err
) goto leave
;
4328 /* Get message type */
4329 err
= append_message_type(context
, &((*message
)->envelope
), xpath_ctx
);
4330 if (err
) goto leave
;
4333 if (err
) isds_message_free(message
);
4338 /* Extract message event into reallocated isds_event structure
4339 * @context is ISDS context
4340 * @event is automatically reallocated message event structure
4341 * @xpath_ctx is XPath context with current node as isds:dmEvent
4342 * In case of error @event will be freed. */
4343 static isds_error
extract_event(struct isds_ctx
*context
,
4344 struct isds_event
**event
, xmlXPathContextPtr xpath_ctx
) {
4345 isds_error err
= IE_SUCCESS
;
4346 xmlXPathObjectPtr result
= NULL
;
4347 xmlNodePtr event_node
= xpath_ctx
->node
;
4348 char *string
= NULL
;
4350 if (!context
) return IE_INVALID_CONTEXT
;
4351 if (!event
) return IE_INVAL
;
4352 isds_event_free(event
);
4353 if (!xpath_ctx
) return IE_INVAL
;
4355 *event
= calloc(1, sizeof(**event
));
4361 /* Extract event data.
4362 * All elements are optional according XSD. That's funny. */
4363 EXTRACT_STRING("sisds:dmEventTime", string
);
4365 err
= timestring2timeval((xmlChar
*) string
, &((*event
)->time
));
4367 char *string_locale
= _isds_utf82locale(string
);
4368 if (err
== IE_DATE
) err
= IE_ISDS
;
4369 isds_printf_message(context
,
4370 _("Could not convert dmEventTime as ISO time: %s"),
4372 free(string_locale
);
4378 /* dmEventDescr element has prefix and the rest */
4379 EXTRACT_STRING("sisds:dmEventDescr", string
);
4381 err
= eventstring2event((xmlChar
*) string
, *event
);
4382 if (err
) goto leave
;
4387 if (err
) isds_event_free(event
);
4389 xmlXPathFreeObject(result
);
4390 xpath_ctx
->node
= event_node
;
4395 /* Convert element of XSD tEventsArray type from XML tree into
4396 * isds_list of isds_event's structure. The list is automatically reallocated.
4397 * @context is ISDS context
4398 * @events is automatically reallocated list of event structures
4399 * @xpath_ctx is XPath context with current node as tEventsArray
4400 * In case of error @events will be freed. */
4401 static isds_error
extract_events(struct isds_ctx
*context
,
4402 struct isds_list
**events
, xmlXPathContextPtr xpath_ctx
) {
4403 isds_error err
= IE_SUCCESS
;
4404 xmlXPathObjectPtr result
= NULL
;
4405 xmlNodePtr events_node
= xpath_ctx
->node
;
4406 struct isds_list
*event
, *prev_event
= NULL
;
4408 if (!context
) return IE_INVALID_CONTEXT
;
4409 if (!events
) return IE_INVAL
;
4410 if (!xpath_ctx
) return IE_INVAL
;
4413 isds_list_free(events
);
4416 result
= xmlXPathEvalExpression(BAD_CAST
"sisds:dmEvent", xpath_ctx
);
4423 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
4424 isds_printf_message(context
,
4425 _("Delivery info does not contain any event"));
4431 /* Iterate over events */
4432 for (int i
= 0; i
< result
->nodesetval
->nodeNr
; i
++) {
4434 /* Allocate and append list item */
4435 event
= calloc(1, sizeof(*event
));
4440 event
->destructor
= (void (*)(void **))isds_event_free
;
4441 if (i
== 0) *events
= event
;
4442 else prev_event
->next
= event
;
4446 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[i
];
4447 err
= extract_event(context
,
4448 (struct isds_event
**) &(event
->data
), xpath_ctx
);
4449 if (err
) goto leave
;
4454 if (err
) isds_list_free(events
);
4455 xmlXPathFreeObject(result
);
4456 xpath_ctx
->node
= events_node
;
4462 /* Insert Base64 encoded data as element with text child.
4463 * @context is session context
4464 * @parent is XML node to append @element with @data as child
4465 * @ns is XML namespace of @element, use NULL to inherit from @parent
4466 * @element is UTF-8 encoded name of new element
4467 * @data is bit stream to encode into @element
4468 * @length is size of @data in bytes
4469 * @return standard error code and fill long error message if needed */
4470 static isds_error
insert_base64_encoded_string(struct isds_ctx
*context
,
4471 xmlNodePtr parent
, const xmlNsPtr ns
, const char *element
,
4472 const void *data
, size_t length
) {
4473 isds_error err
= IE_SUCCESS
;
4476 if (!context
) return IE_INVALID_CONTEXT
;
4477 if (!data
&& length
> 0) return IE_INVAL
;
4478 if (!parent
|| !element
) return IE_INVAL
;
4480 xmlChar
*base64data
= NULL
;
4481 base64data
= (xmlChar
*) _isds_b64encode(data
, length
);
4483 isds_printf_message(context
,
4484 ngettext("Not enough memory to encode %zd byte into Base64",
4485 "Not enough memory to encode %zd bytes into Base64",
4491 INSERT_STRING_WITH_NS(parent
, ns
, element
, base64data
);
4499 /* Convert isds_document structure into XML tree and append to dmFiles node.
4500 * @context is session context
4501 * @document is ISDS document
4502 * @dm_files is XML element the resulting tree will be appended to as a child.
4503 * @return error code, in case of error context' message is filled. */
4504 static isds_error
insert_document(struct isds_ctx
*context
,
4505 struct isds_document
*document
, xmlNodePtr dm_files
) {
4506 isds_error err
= IE_SUCCESS
;
4507 xmlNodePtr new_file
= NULL
, file
= NULL
, node
;
4508 xmlAttrPtr attribute_node
;
4510 if (!context
) return IE_INVALID_CONTEXT
;
4511 if (!document
|| !dm_files
) return IE_INVAL
;
4513 /* Allocate new dmFile */
4514 new_file
= xmlNewNode(dm_files
->ns
, BAD_CAST
"dmFile");
4516 isds_printf_message(context
, _("Could not allocate main dmFile"));
4520 /* Append the new dmFile.
4521 * XXX: Main document must go first */
4522 if (document
->dmFileMetaType
== FILEMETATYPE_MAIN
&& dm_files
->children
)
4523 file
= xmlAddPrevSibling(dm_files
->children
, new_file
);
4525 file
= xmlAddChild(dm_files
, new_file
);
4528 xmlFreeNode(new_file
); new_file
= NULL
;
4529 isds_printf_message(context
, _("Could not add dmFile child to "
4530 "%s element"), dm_files
->name
);
4535 /* @dmMimeType is required */
4536 if (!document
->dmMimeType
) {
4537 isds_log_message(context
,
4538 _("Document is missing mandatory MIME type definition"));
4542 INSERT_STRING_ATTRIBUTE(file
, "dmMimeType", document
->dmMimeType
);
4544 const xmlChar
*string
= isds_FileMetaType2string(document
->dmFileMetaType
);
4546 isds_printf_message(context
,
4547 _("Document has unknown dmFileMetaType: %ld"),
4548 document
->dmFileMetaType
);
4552 INSERT_STRING_ATTRIBUTE(file
, "dmFileMetaType", string
);
4554 if (document
->dmFileGuid
) {
4555 INSERT_STRING_ATTRIBUTE(file
, "dmFileGuid", document
->dmFileGuid
);
4557 if (document
->dmUpFileGuid
) {
4558 INSERT_STRING_ATTRIBUTE(file
, "dmUpFileGuid", document
->dmUpFileGuid
);
4561 /* @dmFileDescr is required */
4562 if (!document
->dmFileDescr
) {
4563 isds_log_message(context
,
4564 _("Document is missing mandatory description (title)"));
4568 INSERT_STRING_ATTRIBUTE(file
, "dmFileDescr", document
->dmFileDescr
);
4570 if (document
->dmFormat
) {
4571 INSERT_STRING_ATTRIBUTE(file
, "dmFormat", document
->dmFormat
);
4575 /* Insert content (body) of the document. */
4576 if (document
->is_xml
) {
4577 /* XML document requested */
4579 /* Allocate new dmXMLContent */
4580 xmlNodePtr xmlcontent
= xmlNewNode(file
->ns
, BAD_CAST
"dmXMLContent");
4582 isds_printf_message(context
,
4583 _("Could not allocate dmXMLContent element"));
4588 node
= xmlAddChild(file
, xmlcontent
);
4590 xmlFreeNode(xmlcontent
); xmlcontent
= NULL
;
4591 isds_printf_message(context
,
4592 _("Could not add dmXMLContent child to %s element"),
4598 /* Copy non-empty node list */
4599 if (document
->xml_node_list
) {
4600 xmlNodePtr content
= xmlDocCopyNodeList(node
->doc
,
4601 document
->xml_node_list
);
4603 isds_printf_message(context
,
4604 _("Not enough memory to copy XML document"));
4609 if (!xmlAddChildList(node
, content
)) {
4610 xmlFreeNodeList(content
);
4611 isds_printf_message(context
,
4612 _("Error while adding XML document into dmXMLContent"));
4616 /* XXX: We cannot free the content here because it's part of node's
4617 * document since now. It will be freed with it automatically. */
4620 /* Binary document requested */
4621 err
= insert_base64_encoded_string(context
, file
, NULL
, "dmEncodedContent",
4622 document
->data
, document
->data_length
);
4623 if (err
) goto leave
;
4631 /* Append XSD tMStatus XML tree into isds_message_copy structure.
4632 * The copy must be preallocated, the date are just appended into structure.
4633 * @context is ISDS context
4634 * @copy is message copy structure
4635 * @xpath_ctx is XPath context with current node as tMStatus */
4636 static isds_error
append_TMStatus(struct isds_ctx
*context
,
4637 struct isds_message_copy
*copy
, xmlXPathContextPtr xpath_ctx
) {
4638 isds_error err
= IE_SUCCESS
;
4639 xmlXPathObjectPtr result
= NULL
;
4640 char *code
= NULL
, *message
= NULL
;
4642 if (!context
) return IE_INVALID_CONTEXT
;
4643 if (!copy
|| !xpath_ctx
) return IE_INVAL
;
4645 /* Free old values */
4646 zfree(copy
->dmStatus
);
4649 /* Get error specific to this copy */
4650 EXTRACT_STRING("isds:dmStatus/isds:dmStatusCode", code
);
4652 isds_log_message(context
,
4653 _("Missing isds:dmStatusCode under "
4654 "XSD:tMStatus type element"));
4659 if (xmlStrcmp((const xmlChar
*)code
, BAD_CAST
"0000")) {
4660 /* This copy failed */
4661 copy
->error
= IE_ISDS
;
4662 EXTRACT_STRING("isds:dmStatus/isds:dmStatusMessage", message
);
4664 copy
->dmStatus
= _isds_astrcat3(code
, ": ", message
);
4665 if (!copy
->dmStatus
) {
4666 copy
->dmStatus
= code
;
4670 copy
->dmStatus
= code
;
4674 /* This copy succeeded. In this case only, message ID is valid */
4675 copy
->error
= IE_SUCCESS
;
4677 EXTRACT_STRING("isds:dmID", copy
->dmID
);
4679 isds_log(ILF_ISDS
, ILL_ERR
, _("Server accepted sent message, "
4680 "but did not returned assigned message ID\n"));
4688 xmlXPathFreeObject(result
);
4693 /* Insert struct isds_approval data (box approval) into XML tree
4694 * @context is session context
4695 * @approval is libisds structure with approval description. NULL is
4697 * @parent is XML element to append @approval to */
4698 static isds_error
insert_GExtApproval(struct isds_ctx
*context
,
4699 const struct isds_approval
*approval
, xmlNodePtr parent
) {
4701 isds_error err
= IE_SUCCESS
;
4704 if (!context
) return IE_INVALID_CONTEXT
;
4705 if (!parent
) return IE_INVAL
;
4707 if (!approval
) return IE_SUCCESS
;
4709 /* Build XSD:gExtApproval */
4710 INSERT_SCALAR_BOOLEAN(parent
, "dbApproved", approval
->approved
);
4711 INSERT_STRING(parent
, "dbExternRefNumber", approval
->refference
);
4718 /* Build ISDS request of XSD tDummyInput type, sent it and check for error
4720 * @context is session context
4721 * @service_name is name of SERVICE_DB_ACCESS
4722 * @response is server SOAP body response as XML document
4723 * @raw_response is automatically reallocated bit stream with response body. Use
4724 * NULL if you don't care
4725 * @raw_response_length is size of @raw_response in bytes
4726 * @code is ISDS status code
4727 * @status_message is ISDS status message
4728 * @return error coded from lower layer, context message will be set up
4730 static isds_error
build_send_check_dbdummy_request(struct isds_ctx
*context
,
4731 const xmlChar
*service_name
,
4732 xmlDocPtr
*response
, void **raw_response
, size_t *raw_response_length
,
4733 xmlChar
**code
, xmlChar
**status_message
) {
4735 isds_error err
= IE_SUCCESS
;
4736 char *service_name_locale
= NULL
;
4737 xmlNodePtr request
= NULL
, node
;
4738 xmlNsPtr isds_ns
= NULL
;
4740 if (!context
) return IE_INVALID_CONTEXT
;
4741 if (!service_name
) return IE_INVAL
;
4742 if (!response
|| !code
|| !status_message
) return IE_INVAL
;
4743 if (!raw_response_length
&& raw_response
) return IE_INVAL
;
4745 /* Free output argument */
4746 xmlFreeDoc(*response
); *response
= NULL
;
4747 if (raw_response
) zfree(*raw_response
);
4749 free(*status_message
);
4752 /* Check if connection is established
4753 * TODO: This check should be done downstairs. */
4754 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
4756 service_name_locale
= _isds_utf82locale((char*)service_name
);
4757 if (!service_name_locale
) {
4763 request
= xmlNewNode(NULL
, service_name
);
4765 isds_printf_message(context
,
4766 _("Could not build %s request"), service_name_locale
);
4770 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
4772 isds_log_message(context
, _("Could not create ISDS name space"));
4776 xmlSetNs(request
, isds_ns
);
4779 /* Add XSD:tDummyInput child */
4780 INSERT_STRING(request
, "dbDummy", NULL
);
4783 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Sending %s request to ISDS\n"),
4784 service_name_locale
);
4787 err
= isds(context
, SERVICE_DB_ACCESS
, request
, response
,
4788 raw_response
, raw_response_length
);
4789 xmlFreeNode(request
); request
= NULL
;
4792 isds_log(ILF_ISDS
, ILL_DEBUG
,
4793 _("Processing ISDS response on %s request failed\n"),
4794 service_name_locale
);
4798 /* Check for response status */
4799 err
= isds_response_status(context
, SERVICE_DB_ACCESS
, *response
,
4800 code
, status_message
, NULL
);
4802 isds_log(ILF_ISDS
, ILL_DEBUG
,
4803 _("ISDS response on %s request is missing status\n"),
4804 service_name_locale
);
4808 /* Request processed, but nothing found */
4809 if (xmlStrcmp(*code
, BAD_CAST
"0000")) {
4810 char *code_locale
= _isds_utf82locale((char*) *code
);
4811 char *status_message_locale
=
4812 _isds_utf82locale((char*) *status_message
);
4813 isds_log(ILF_ISDS
, ILL_DEBUG
,
4814 _("Server refused %s request (code=%s, message=%s)\n"),
4815 service_name_locale
, code_locale
, status_message_locale
);
4816 isds_log_message(context
, status_message_locale
);
4818 free(status_message_locale
);
4824 free(service_name_locale
);
4825 xmlFreeNode(request
);
4831 /* Get data about logged in user and his box. */
4832 isds_error
isds_GetOwnerInfoFromLogin(struct isds_ctx
*context
,
4833 struct isds_DbOwnerInfo
**db_owner_info
) {
4834 isds_error err
= IE_SUCCESS
;
4836 xmlDocPtr response
= NULL
;
4837 xmlChar
*code
= NULL
, *message
= NULL
;
4838 xmlXPathContextPtr xpath_ctx
= NULL
;
4839 xmlXPathObjectPtr result
= NULL
;
4840 char *string
= NULL
;
4843 if (!context
) return IE_INVALID_CONTEXT
;
4844 zfree(context
->long_message
);
4845 if (!db_owner_info
) return IE_INVAL
;
4846 isds_DbOwnerInfo_free(db_owner_info
);
4849 /* Check if connection is established */
4850 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
4853 /* Do request and check for success */
4854 err
= build_send_check_dbdummy_request(context
,
4855 BAD_CAST
"GetOwnerInfoFromLogin",
4856 &response
, NULL
, NULL
, &code
, &message
);
4857 if (err
) goto leave
;
4861 /* Prepare structure */
4862 *db_owner_info
= calloc(1, sizeof(**db_owner_info
));
4863 if (!*db_owner_info
) {
4867 xpath_ctx
= xmlXPathNewContext(response
);
4872 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
4877 /* Set context node */
4878 result
= xmlXPathEvalExpression(BAD_CAST
4879 "/isds:GetOwnerInfoFromLoginResponse/isds:dbOwnerInfo", xpath_ctx
);
4884 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
4885 isds_log_message(context
, _("Missing dbOwnerInfo element"));
4889 if (result
->nodesetval
->nodeNr
> 1) {
4890 isds_log_message(context
, _("Multiple dbOwnerInfo element"));
4894 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
4895 xmlXPathFreeObject(result
); result
= NULL
;
4898 err
= extract_DbOwnerInfo(context
, db_owner_info
, xpath_ctx
);
4903 isds_DbOwnerInfo_free(db_owner_info
);
4907 xmlXPathFreeObject(result
);
4908 xmlXPathFreeContext(xpath_ctx
);
4912 xmlFreeDoc(response
);
4915 isds_log(ILF_ISDS
, ILL_DEBUG
,
4916 _("GetOwnerInfoFromLogin request processed by server "
4917 "successfully.\n"));
4918 #else /* not HAVE_LIBCURL */
4926 /* Get data about logged in user. */
4927 isds_error
isds_GetUserInfoFromLogin(struct isds_ctx
*context
,
4928 struct isds_DbUserInfo
**db_user_info
) {
4929 isds_error err
= IE_SUCCESS
;
4931 xmlDocPtr response
= NULL
;
4932 xmlChar
*code
= NULL
, *message
= NULL
;
4933 xmlXPathContextPtr xpath_ctx
= NULL
;
4934 xmlXPathObjectPtr result
= NULL
;
4937 if (!context
) return IE_INVALID_CONTEXT
;
4938 zfree(context
->long_message
);
4939 if (!db_user_info
) return IE_INVAL
;
4940 isds_DbUserInfo_free(db_user_info
);
4943 /* Check if connection is established */
4944 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
4947 /* Do request and check for success */
4948 err
= build_send_check_dbdummy_request(context
,
4949 BAD_CAST
"GetUserInfoFromLogin",
4950 &response
, NULL
, NULL
, &code
, &message
);
4951 if (err
) goto leave
;
4955 /* Prepare structure */
4956 *db_user_info
= calloc(1, sizeof(**db_user_info
));
4957 if (!*db_user_info
) {
4961 xpath_ctx
= xmlXPathNewContext(response
);
4966 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
4971 /* Set context node */
4972 result
= xmlXPathEvalExpression(BAD_CAST
4973 "/isds:GetUserInfoFromLoginResponse/isds:dbUserInfo", xpath_ctx
);
4978 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
4979 isds_log_message(context
, _("Missing dbUserInfo element"));
4983 if (result
->nodesetval
->nodeNr
> 1) {
4984 isds_log_message(context
, _("Multiple dbUserInfo element"));
4988 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
4989 xmlXPathFreeObject(result
); result
= NULL
;
4992 err
= extract_DbUserInfo(context
, db_user_info
, xpath_ctx
);
4996 isds_DbUserInfo_free(db_user_info
);
4999 xmlXPathFreeObject(result
);
5000 xmlXPathFreeContext(xpath_ctx
);
5004 xmlFreeDoc(response
);
5007 isds_log(ILF_ISDS
, ILL_DEBUG
,
5008 _("GetUserInfoFromLogin request processed by server "
5009 "successfully.\n"));
5010 #else /* not HAVE_LIBCURL */
5018 /* Get expiration time of current password
5019 * @context is session context
5020 * @expiration is automatically reallocated time when password expires. If
5021 * password expiration is disables, NULL will be returned. In case of error
5022 * it will be nulled too. */
5023 isds_error
isds_get_password_expiration(struct isds_ctx
*context
,
5024 struct timeval
**expiration
) {
5025 isds_error err
= IE_SUCCESS
;
5027 xmlDocPtr response
= NULL
;
5028 xmlChar
*code
= NULL
, *message
= NULL
;
5029 xmlXPathContextPtr xpath_ctx
= NULL
;
5030 xmlXPathObjectPtr result
= NULL
;
5031 char *string
= NULL
;
5034 if (!context
) return IE_INVALID_CONTEXT
;
5035 zfree(context
->long_message
);
5036 if (!expiration
) return IE_INVAL
;
5040 /* Check if connection is established */
5041 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
5044 /* Do request and check for success */
5045 err
= build_send_check_dbdummy_request(context
,
5046 BAD_CAST
"GetPasswordInfo",
5047 &response
, NULL
, NULL
, &code
, &message
);
5048 if (err
) goto leave
;
5052 xpath_ctx
= xmlXPathNewContext(response
);
5057 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
5062 /* Set context node */
5063 result
= xmlXPathEvalExpression(BAD_CAST
5064 "/isds:GetPasswordInfoResponse", xpath_ctx
);
5069 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
5070 isds_log_message(context
,
5071 _("Missing GetPasswordInfoResponse element"));
5075 if (result
->nodesetval
->nodeNr
> 1) {
5076 isds_log_message(context
,
5077 _("Multiple GetPasswordInfoResponse element"));
5081 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
5082 xmlXPathFreeObject(result
); result
= NULL
;
5084 /* Extract expiration date */
5085 EXTRACT_STRING("isds:pswExpDate", string
);
5087 /* And convert it if any returned. Otherwise expiration is disabled. */
5088 err
= timestring2timeval((xmlChar
*) string
, expiration
);
5090 char *string_locale
= _isds_utf82locale(string
);
5091 if (err
== IE_DATE
) err
= IE_ISDS
;
5092 isds_printf_message(context
,
5093 _("Could not convert pswExpDate as ISO time: %s"),
5095 free(string_locale
);
5108 xmlXPathFreeObject(result
);
5109 xmlXPathFreeContext(xpath_ctx
);
5113 xmlFreeDoc(response
);
5116 isds_log(ILF_ISDS
, ILL_DEBUG
,
5117 _("GetPasswordInfo request processed by server "
5118 "successfully.\n"));
5119 #else /* not HAVE_LIBCURL */
5128 /* Request delivering new TOTP code from ISDS through side channel before
5129 * changing password.
5130 * @context is session context
5131 * @password is current password.
5132 * @otp auxiliary data required, returns fine grade resolution of OTP procedure.
5133 * Please note the @otp argument must have TOTP OTP method. See isds_login()
5134 * function for more details.
5135 * @refnumber is reallocated serial number of request assigned by ISDS. Use
5136 * NULL, if you don't care.
5137 * @return IE_SUCCESS, if new TOTP code has been sent. Or returns appropriate
5139 static isds_error
_isds_request_totp_code(struct isds_ctx
*context
,
5140 const char *password
, struct isds_otp
*otp
, char **refnumber
) {
5141 isds_error err
= IE_SUCCESS
;
5142 char *saved_url
= NULL
; /* No copy */
5143 #if HAVE_CURL_REAUTHORIZATION_BUG
5144 CURL
*saved_curl
= NULL
; /* No copy */
5146 xmlNsPtr isds_ns
= NULL
;
5147 xmlNodePtr request
= NULL
;
5148 xmlDocPtr response
= NULL
;
5149 xmlChar
*code
= NULL
, *message
= NULL
;
5150 const xmlChar
*codes
[] = {
5155 const char *meanings
[] = {
5156 N_("Unexpected error"),
5157 N_("One-time code cannot be re-send faster than once a 30 seconds"),
5158 N_("One-time code could not been sent. Try later again.")
5160 const isds_otp_resolution resolutions
[] = {
5161 OTP_RESOLUTION_UNKNOWN
,
5162 OTP_RESOLUTION_TO_FAST
,
5163 OTP_RESOLUTION_TOTP_NOT_SENT
5166 if (NULL
== context
) return IE_INVALID_CONTEXT
;
5167 zfree(context
->long_message
);
5168 if (NULL
== password
) {
5169 isds_log_message(context
,
5170 _("Second argument (password) of isds_change_password() "
5175 /* Check if connection is established
5176 * TODO: This check should be done downstairs. */
5177 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
5179 if (!context
->otp
) {
5180 isds_log_message(context
, _("This function requires OTP-authenticated "
5182 return IE_INVALID_CONTEXT
;
5185 isds_log_message(context
, _("If one-time password authentication "
5186 "method is in use, requesting new OTP code requires "
5187 "one-time credentials argument either"));
5190 if (otp
->method
!= OTP_TIME
) {
5191 isds_log_message(context
, _("Requesting new time-based OTP code from "
5192 "server requires one-time password authentication "
5196 if (otp
->otp_code
!= NULL
) {
5197 isds_log_message(context
, _("Requesting new time-based OTP code from "
5198 "server requires undefined OTP code member in "
5199 "one-time credentials argument"));
5205 request
= xmlNewNode(NULL
, BAD_CAST
"SendSMSCode");
5207 isds_log_message(context
, _("Could not build SendSMSCode request"));
5210 isds_ns
= xmlNewNs(request
, BAD_CAST OISDS_NS
, NULL
);
5212 isds_log_message(context
, _("Could not create ISDS name space"));
5213 xmlFreeNode(request
);
5216 xmlSetNs(request
, isds_ns
);
5218 /* Change URL temporarily for sending this request only */
5220 char *new_url
= NULL
;
5221 if ((err
= _isds_build_url_from_context(context
,
5222 "%1$.*2$sasws/changePassword", &new_url
))) {
5225 saved_url
= context
->url
;
5226 context
->url
= new_url
;
5229 /* Store credentials for sending this request only */
5230 context
->otp_credentials
= otp
;
5231 _isds_discard_credentials(context
, 0);
5232 if ((err
= _isds_store_credentials(context
, context
->saved_username
,
5234 _isds_discard_credentials(context
, 0);
5237 #if HAVE_CURL_REAUTHORIZATION_BUG
5238 saved_curl
= context
->curl
;
5239 context
->curl
= curl_easy_init();
5240 if (NULL
== context
->curl
) {
5244 if (context
->timeout
) {
5245 err
= isds_set_timeout(context
, context
->timeout
);
5246 if (err
) goto leave
;
5250 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Sending SendSMSCode request to ISDS\n"));
5253 err
= isds(context
, SERVICE_ASWS
, request
, &response
, NULL
, NULL
);
5255 /* Remove temporal credentials */
5256 _isds_discard_credentials(context
, 0);
5257 /* Detach pointer to OTP credentials from context */
5258 context
->otp_credentials
= NULL
;
5259 /* Keep context->otp true to keep signaling this is OTP session */
5261 /* Destroy request */
5262 xmlFreeNode(request
); request
= NULL
;
5265 isds_log(ILF_ISDS
, ILL_DEBUG
,
5266 _("Processing ISDS response on SendSMSCode request failed\n"));
5270 /* Check for response status */
5271 err
= isds_response_status(context
, SERVICE_ASWS
, response
,
5272 &code
, &message
, (xmlChar
**)refnumber
);
5274 isds_log(ILF_ISDS
, ILL_DEBUG
,
5275 _("ISDS response on SendSMSCode request is missing "
5280 /* Check for error */
5281 if (xmlStrcmp(code
, BAD_CAST
"0000")) {
5282 char *code_locale
= _isds_utf82locale((char*)code
);
5283 char *message_locale
= _isds_utf82locale((char*)message
);
5285 isds_log(ILF_ISDS
, ILL_DEBUG
,
5286 _("Server refused to send new code on SendSMSCode "
5287 "request (code=%s, message=%s)\n"),
5288 code_locale
, message_locale
);
5290 /* Check for known error codes */
5291 for (i
= 0; i
< sizeof(codes
)/sizeof(*codes
); i
++) {
5292 if (!xmlStrcmp(code
, codes
[i
])) break;
5294 if (i
< sizeof(codes
)/sizeof(*codes
)) {
5295 isds_log_message(context
, _(meanings
[i
]));
5296 /* Mimic otp->resolution according to the code, specification does
5297 * prescribe OTP header to be available. */
5298 if (OTP_RESOLUTION_SUCCESS
== otp
->resolution
&&
5299 OTP_RESOLUTION_UNKNOWN
!= resolutions
[i
])
5300 otp
->resolution
= resolutions
[i
];
5302 isds_log_message(context
, message_locale
);
5305 free(message_locale
);
5311 /* Otherwise new code sent successfully */
5312 /* Mimic otp->resolution according to the code, specification does
5313 * prescribe OTP header to be available. */
5314 if (OTP_RESOLUTION_SUCCESS
== otp
->resolution
)
5315 otp
->resolution
= OTP_RESOLUTION_TOTP_SENT
;
5318 if (NULL
!= saved_url
) {
5319 /* Revert URL to original one */
5320 zfree(context
->url
);
5321 context
->url
= saved_url
;
5323 #if HAVE_CURL_REAUTHORIZATION_BUG
5324 if (NULL
!= saved_curl
) {
5325 if (context
->curl
!= NULL
) curl_easy_cleanup(context
->curl
);
5326 context
->curl
= saved_curl
;
5332 xmlFreeDoc(response
);
5333 xmlFreeNode(request
);
5336 isds_log(ILF_ISDS
, ILL_DEBUG
,
5337 _("New OTP code has been sent successfully on SendSMSCode "
5343 /* Convert response status code to isds_error code and set long message
5344 * @context is context to save long message to
5345 * @map is mapping from codes to errors and messages. Pass NULL for generic
5347 * @code is status code to translate
5348 * @message is non-localized status message to put into long message in case
5349 * of uknown error. It can be NULL if server did not provide any.
5350 * @return desired isds_error or IE_ISDS for unknown code or IE_INVAL for
5351 * invalid invocation. */
5352 static isds_error
statuscode2isds_error(struct isds_ctx
*context
,
5353 const struct code_map_isds_error
*map
,
5354 const xmlChar
*code
, const xmlChar
*message
) {
5356 isds_log_message(context
,
5357 _("NULL status code passed to statuscode2isds_error()"));
5362 /* Check for known error codes */
5363 for (int i
=0; map
->codes
[i
] != NULL
; i
++) {
5364 if (!xmlStrcmp(code
, map
->codes
[i
])) {
5365 isds_log_message(context
, _(map
->meanings
[i
]));
5366 return map
->errors
[i
];
5372 if (xmlStrcmp(code
, BAD_CAST
"0000")) {
5373 char *message_locale
= _isds_utf82locale((char*)message
);
5374 if (NULL
== message_locale
)
5375 isds_log_message(context
, _("ISDS server returned unknown error"));
5377 isds_log_message(context
, message_locale
);
5378 free(message_locale
);
5387 /* Change user password in ISDS.
5388 * User must supply old password, new password will takes effect after some
5389 * time, current session can continue. Password must fulfill some constraints.
5390 * @context is session context
5391 * @old_password is current password.
5392 * @new_password is requested new password
5393 * @otp auxiliary data required if one-time password authentication is in use,
5394 * defines OTP code (if known) and returns fine grade resolution of OTP
5395 * procedure. Pass NULL, if one-time password authentication is not needed.
5396 * Please note the @otp argument must match OTP method used at log-in time. See
5397 * isds_login() function for more details.
5398 * @refnumber is reallocated serial number of request assigned by ISDS. Use
5399 * NULL, if you don't care.
5400 * @return IE_SUCCESS, if password has been changed. Or returns appropriate
5401 * error code. It can return IE_PARTIAL_SUCCESS if OTP is in use and server is
5402 * awaiting OTP code that has been delivered by side channel to the user. */
5403 isds_error
isds_change_password(struct isds_ctx
*context
,
5404 const char *old_password
, const char *new_password
,
5405 struct isds_otp
*otp
, char **refnumber
) {
5406 isds_error err
= IE_SUCCESS
;
5408 char *saved_url
= NULL
; /* No copy */
5409 #if HAVE_CURL_REAUTHORIZATION_BUG
5410 CURL
*saved_curl
= NULL
; /* No copy */
5412 xmlNsPtr isds_ns
= NULL
;
5413 xmlNodePtr request
= NULL
, node
;
5414 xmlDocPtr response
= NULL
;
5415 xmlChar
*code
= NULL
, *message
= NULL
;
5416 const xmlChar
*codes
[] = {
5429 const char *meanings
[] = {
5430 N_("Password length must be between 8 and 32 characters"),
5431 N_("Password cannot be reused"), /* Server does not distinguish 1067
5432 and 1091 on ChangePasswordOTP */
5433 N_("Password contains forbidden character"),
5434 N_("Password must contain at least one upper-case letter, "
5435 "one lower-case, and one digit"),
5436 N_("Password cannot contain sequence of three identical characters"),
5437 N_("Password cannot contain user identifier"),
5438 N_("Password is too simmple"),
5439 N_("Old password is not valid"),
5440 N_("Password cannot be reused"),
5441 N_("Unexpected error"),
5442 N_("LDAP update error")
5446 if (!context
) return IE_INVALID_CONTEXT
;
5447 zfree(context
->long_message
);
5448 if (NULL
!= refnumber
)
5450 if (NULL
== old_password
) {
5451 isds_log_message(context
,
5452 _("Second argument (old password) of isds_change_password() "
5456 if (NULL
== otp
&& NULL
== new_password
) {
5457 isds_log_message(context
,
5458 _("Third argument (new password) of isds_change_password() "
5464 /* Check if connection is established
5465 * TODO: This check should be done downstairs. */
5466 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
5468 if (context
->otp
&& NULL
== otp
) {
5469 isds_log_message(context
, _("If one-time password authentication "
5470 "method is in use, changing password requires one-time "
5471 "credentials either"));
5475 /* Build ChangeISDSPassword request */
5476 request
= xmlNewNode(NULL
, (NULL
== otp
) ? BAD_CAST
"ChangeISDSPassword" :
5477 BAD_CAST
"ChangePasswordOTP");
5479 isds_log_message(context
, (NULL
== otp
) ?
5480 _("Could not build ChangeISDSPassword request") :
5481 _("Could not build ChangePasswordOTP request"));
5484 isds_ns
= xmlNewNs(request
,
5485 (NULL
== otp
) ? BAD_CAST ISDS_NS
: BAD_CAST OISDS_NS
,
5488 isds_log_message(context
, _("Could not create ISDS name space"));
5489 xmlFreeNode(request
);
5492 xmlSetNs(request
, isds_ns
);
5494 INSERT_STRING(request
, "dbOldPassword", old_password
);
5495 INSERT_STRING(request
, "dbNewPassword", new_password
);
5498 otp
->resolution
= OTP_RESOLUTION_UNKNOWN
;
5499 switch (otp
->method
) {
5501 isds_log(ILF_SEC
, ILL_INFO
,
5502 _("Selected authentication method: "
5503 "HMAC-based one-time password\n"));
5504 INSERT_STRING(request
, "dbOTPType", BAD_CAST
"HOTP");
5507 isds_log(ILF_SEC
, ILL_INFO
,
5508 _("Selected authentication method: "
5509 "Time-based one-time password\n"));
5510 INSERT_STRING(request
, "dbOTPType", BAD_CAST
"TOTP");
5511 if (otp
->otp_code
== NULL
) {
5512 isds_log(ILF_SEC
, ILL_INFO
,
5513 _("OTP code has not been provided by "
5514 "application, requesting server for "
5516 err
= _isds_request_totp_code(context
, old_password
, otp
,
5518 if (err
== IE_SUCCESS
) err
= IE_PARTIAL_SUCCESS
;
5522 isds_log(ILF_SEC
, ILL_INFO
,
5523 _("OTP code has been provided by "
5524 "application, not requesting server "
5529 isds_log_message(context
,
5530 _("Unknown one-time password authentication "
5531 "method requested by application"));
5536 /* Change URL temporarily for sending this request only */
5538 char *new_url
= NULL
;
5539 if ((err
= _isds_build_url_from_context(context
,
5540 "%1$.*2$sasws/changePassword", &new_url
))) {
5543 saved_url
= context
->url
;
5544 context
->url
= new_url
;
5547 /* Store credentials for sending this request only */
5548 context
->otp_credentials
= otp
;
5549 _isds_discard_credentials(context
, 0);
5550 if ((err
= _isds_store_credentials(context
, context
->saved_username
,
5551 old_password
, NULL
))) {
5552 _isds_discard_credentials(context
, 0);
5555 #if HAVE_CURL_REAUTHORIZATION_BUG
5556 saved_curl
= context
->curl
;
5557 context
->curl
= curl_easy_init();
5558 if (NULL
== context
->curl
) {
5562 if (context
->timeout
) {
5563 err
= isds_set_timeout(context
, context
->timeout
);
5564 if (err
) goto leave
;
5569 isds_log(ILF_ISDS
, ILL_DEBUG
, (NULL
== otp
) ?
5570 _("Sending ChangeISDSPassword request to ISDS\n") :
5571 _("Sending ChangePasswordOTP request to ISDS\n"));
5574 err
= isds(context
, (NULL
== otp
) ? SERVICE_DB_ACCESS
: SERVICE_ASWS
,
5575 request
, &response
, NULL
, NULL
);
5578 /* Remove temporal credentials */
5579 _isds_discard_credentials(context
, 0);
5580 /* Detach pointer to OTP credentials from context */
5581 context
->otp_credentials
= NULL
;
5582 /* Keep context->otp true to keep signaling this is OTP session */
5585 /* Destroy request */
5586 xmlFreeNode(request
); request
= NULL
;
5589 isds_log(ILF_ISDS
, ILL_DEBUG
, (NULL
== otp
) ?
5590 _("Processing ISDS response on ChangeISDSPassword "
5591 "request failed\n") :
5592 _("Processing ISDS response on ChangePasswordOTP "
5593 "request failed\n"));
5597 /* Check for response status */
5598 err
= isds_response_status(context
,
5599 (NULL
== otp
) ? SERVICE_DB_ACCESS
: SERVICE_ASWS
, response
,
5600 &code
, &message
, (xmlChar
**)refnumber
);
5602 isds_log(ILF_ISDS
, ILL_DEBUG
, (NULL
== otp
) ?
5603 _("ISDS response on ChangeISDSPassword request is missing "
5605 _("ISDS response on ChangePasswordOTP request is missing "
5610 /* Check for known error codes */
5611 for (int i
=0; i
< sizeof(codes
)/sizeof(*codes
); i
++) {
5612 if (!xmlStrcmp(code
, codes
[i
])) {
5613 char *code_locale
= _isds_utf82locale((char*)code
);
5614 char *message_locale
= _isds_utf82locale((char*)message
);
5615 isds_log(ILF_ISDS
, ILL_DEBUG
, (NULL
== otp
) ?
5616 _("Server refused to change password on ChangeISDSPassword "
5617 "request (code=%s, message=%s)\n") :
5618 _("Server refused to change password on ChangePasswordOTP "
5619 "request (code=%s, message=%s)\n"),
5620 code_locale
, message_locale
);
5622 free(message_locale
);
5623 isds_log_message(context
, _(meanings
[i
]));
5630 if (xmlStrcmp(code
, BAD_CAST
"0000")) {
5631 char *code_locale
= _isds_utf82locale((char*)code
);
5632 char *message_locale
= _isds_utf82locale((char*)message
);
5633 isds_log(ILF_ISDS
, ILL_DEBUG
, (NULL
== otp
) ?
5634 _("Server refused to change password on ChangeISDSPassword "
5635 "request (code=%s, message=%s)\n") :
5636 _("Server refused to change password on ChangePasswordOTP "
5637 "request (code=%s, message=%s)\n"),
5638 code_locale
, message_locale
);
5639 isds_log_message(context
, message_locale
);
5641 free(message_locale
);
5646 /* Otherwise password changed successfully */
5649 if (NULL
!= saved_url
) {
5650 /* Revert URL to original one */
5651 zfree(context
->url
);
5652 context
->url
= saved_url
;
5654 #if HAVE_CURL_REAUTHORIZATION_BUG
5655 if (NULL
!= saved_curl
) {
5656 if (context
->curl
!= NULL
) curl_easy_cleanup(context
->curl
);
5657 context
->curl
= saved_curl
;
5663 xmlFreeDoc(response
);
5664 xmlFreeNode(request
);
5667 isds_log(ILF_ISDS
, ILL_DEBUG
, (NULL
== otp
) ?
5668 _("Password changed successfully on ChangeISDSPassword "
5670 _("Password changed successfully on ChangePasswordOTP "
5672 #else /* not HAVE_LIBCURL */
5681 /* Generic middle part with request sending and response check.
5682 * It sends prepared request and checks for error code.
5683 * @context is ISDS session context.
5684 * @service is ISDS service handler
5685 * @service_name is name in scope of given @service
5686 * @request is XML tree with request. Will be freed to save memory.
5687 * @response is XML document outputting ISDS response.
5688 * @refnumber is reallocated serial number of request assigned by ISDS. Use
5689 * @map is mapping from status code to library error. Pass NULL if no special
5690 * handling is requested.
5691 * NULL, if you don't care. */
5692 static isds_error
send_destroy_request_check_response(
5693 struct isds_ctx
*context
,
5694 const isds_service service
, const xmlChar
*service_name
,
5695 xmlNodePtr
*request
, xmlDocPtr
*response
, xmlChar
**refnumber
,
5696 const struct code_map_isds_error
*map
) {
5697 isds_error err
= IE_SUCCESS
;
5698 char *service_name_locale
= NULL
;
5699 xmlChar
*code
= NULL
, *message
= NULL
;
5702 if (!context
) return IE_INVALID_CONTEXT
;
5703 if (!service_name
|| *service_name
== '\0' || !request
|| !*request
||
5707 /* Check if connection is established
5708 * TODO: This check should be done downstairs. */
5709 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
5711 service_name_locale
= _isds_utf82locale((char*) service_name
);
5712 if (!service_name_locale
) {
5717 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Sending %s request to ISDS\n"),
5718 service_name_locale
);
5721 err
= isds(context
, service
, *request
, response
, NULL
, NULL
);
5722 xmlFreeNode(*request
); *request
= NULL
;
5725 isds_log(ILF_ISDS
, ILL_DEBUG
,
5726 _("Processing ISDS response on %s request failed\n"),
5727 service_name_locale
);
5731 /* Check for response status */
5732 err
= isds_response_status(context
, service
, *response
,
5733 &code
, &message
, refnumber
);
5735 isds_log(ILF_ISDS
, ILL_DEBUG
,
5736 _("ISDS response on %s request is missing status\n"),
5737 service_name_locale
);
5741 err
= statuscode2isds_error(context
, map
, code
, message
);
5743 /* Request processed, but server failed */
5744 if (xmlStrcmp(code
, BAD_CAST
"0000")) {
5745 char *code_locale
= _isds_utf82locale((char*) code
);
5746 char *message_locale
= _isds_utf82locale((char*) message
);
5747 isds_log(ILF_ISDS
, ILL_DEBUG
,
5748 _("Server refused %s request (code=%s, message=%s)\n"),
5749 service_name_locale
, code_locale
, message_locale
);
5751 free(message_locale
);
5759 if (err
&& *response
) {
5760 xmlFreeDoc(*response
);
5764 xmlFreeNode(*request
);
5767 free(service_name_locale
);
5773 /* Generic bottom half with request sending.
5774 * It sends prepared request, checks for error code, destroys response and
5775 * request and log success or failure.
5776 * @context is ISDS session context.
5777 * @service is ISDS service handler
5778 * @service_name is name in scope of given @service
5779 * @request is XML tree with request. Will be freed to save memory.
5780 * @refnumber is reallocated serial number of request assigned by ISDS. Use
5781 * NULL, if you don't care. */
5782 static isds_error
send_request_check_drop_response(
5783 struct isds_ctx
*context
,
5784 const isds_service service
, const xmlChar
*service_name
,
5785 xmlNodePtr
*request
, xmlChar
**refnumber
) {
5786 isds_error err
= IE_SUCCESS
;
5787 xmlDocPtr response
= NULL
;
5790 if (!context
) return IE_INVALID_CONTEXT
;
5791 if (!service_name
|| *service_name
== '\0' || !request
|| !*request
)
5794 /* Send request and check response*/
5795 err
= send_destroy_request_check_response(context
,
5796 service
, service_name
, request
, &response
, refnumber
, NULL
);
5798 xmlFreeDoc(response
);
5801 xmlFreeNode(*request
);
5806 char *service_name_locale
= _isds_utf82locale((char *) service_name
);
5807 isds_log(ILF_ISDS
, ILL_DEBUG
,
5808 _("%s request processed by server successfully.\n"),
5809 service_name_locale
);
5810 free(service_name_locale
);
5817 /* Insert isds_credentials_delivery structure into XML request if not NULL
5818 * @context is session context
5819 * @credentials_delivery is NULL if to omit, non-NULL to signal on-line
5820 * credentials delivery. The email field is passed.
5821 * @parent is XML element where to insert */
5822 static isds_error
insert_credentials_delivery(struct isds_ctx
*context
,
5823 const struct isds_credentials_delivery
*credentials_delivery
,
5824 xmlNodePtr parent
) {
5825 isds_error err
= IE_SUCCESS
;
5828 if (!context
) return IE_INVALID_CONTEXT
;
5829 if (!parent
) return IE_INVAL
;
5831 if (credentials_delivery
) {
5832 /* Following elements are valid only for services:
5833 * NewAccessData, AddDataBoxUser, CreateDataBox */
5834 INSERT_SCALAR_BOOLEAN(parent
, "dbVirtual", 1);
5835 INSERT_STRING(parent
, "email", credentials_delivery
->email
);
5843 /* Extract credentials delivery from ISDS response.
5844 * @context is session context
5845 * @credentials_delivery is pointer to valid structure to fill in returned
5846 * user's password (and new log-in name). If NULL, do not extract the data.
5847 * @response is pointer to XML document with ISDS response
5848 * @request_name is UTF-8 encoded name of ISDS service the @response it to.
5849 * @return IE_SUCCESS even if new user name has not been found because it's not
5850 * clear whether it's returned always. */
5851 static isds_error
extract_credentials_delivery(struct isds_ctx
*context
,
5852 struct isds_credentials_delivery
*credentials_delivery
,
5853 xmlDocPtr response
, const char *request_name
) {
5854 isds_error err
= IE_SUCCESS
;
5855 xmlXPathContextPtr xpath_ctx
= NULL
;
5856 xmlXPathObjectPtr result
= NULL
;
5857 char *xpath_query
= NULL
;
5859 if (!context
) return IE_INVALID_CONTEXT
;
5860 if (credentials_delivery
) {
5861 zfree(credentials_delivery
->token
);
5862 zfree(credentials_delivery
->new_user_name
);
5864 if (!response
|| !request_name
|| !*request_name
) return IE_INVAL
;
5867 /* Extract optional token */
5868 if (credentials_delivery
) {
5869 xpath_ctx
= xmlXPathNewContext(response
);
5874 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
5879 /* Verify root element */
5880 if (-1 == isds_asprintf(&xpath_query
, "/isds:%sResponse",
5885 result
= xmlXPathEvalExpression(BAD_CAST xpath_query
, xpath_ctx
);
5890 if (!xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
5891 char *request_name_locale
= _isds_utf82locale(request_name
);
5892 isds_log(ILF_ISDS
, ILL_WARNING
,
5893 _("Wrong element in ISDS response for %s request "
5894 "while extracting credentials delivery details\n"),
5895 request_name_locale
);
5896 free(request_name_locale
);
5900 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
5903 /* XXX: isds:dbUserID is provided only on NewAccessData. Leave it
5905 EXTRACT_STRING("isds:dbUserID", credentials_delivery
->new_user_name
);
5907 EXTRACT_STRING("isds:dbAccessDataId", credentials_delivery
->token
);
5908 if (!credentials_delivery
->token
) {
5909 char *request_name_locale
= _isds_utf82locale(request_name
);
5910 isds_log(ILF_ISDS
, ILL_ERR
,
5911 _("ISDS did not return token on %s request "
5912 "even if requested\n"), request_name_locale
);
5913 free(request_name_locale
);
5920 xmlXPathFreeObject(result
);
5921 xmlXPathFreeContext(xpath_ctx
);
5927 /* Build XSD:tCreateDBInput request type for box creating.
5928 * @context is session context
5929 * @request outputs built XML tree
5930 * @service_name is request name of SERVICE_DB_MANIPULATION service
5931 * @box is box description to create including single primary user (in case of
5933 * @users is list of struct isds_DbUserInfo (primary users in case of non-FO
5934 * box, or contact address of PFO box owner)
5935 * @former_names is optional former name of box owner. Pass NULL if otherwise.
5936 * @upper_box_id is optional ID of supper box if currently created box is
5938 * @ceo_label is optional title of OVM box owner (e.g. mayor); NULL, if you
5940 * @credentials_delivery is valid pointer if ISDS should return token that box
5941 * owner can use to obtain his new credentials in on-line way. Then valid email
5942 * member value should be supplied.
5943 * @approval is optional external approval of box manipulation */
5944 static isds_error
build_CreateDBInput_request(struct isds_ctx
*context
,
5945 xmlNodePtr
*request
, const xmlChar
*service_name
,
5946 const struct isds_DbOwnerInfo
*box
, const struct isds_list
*users
,
5947 const xmlChar
*former_names
, const xmlChar
*upper_box_id
,
5948 const xmlChar
*ceo_label
,
5949 const struct isds_credentials_delivery
*credentials_delivery
,
5950 const struct isds_approval
*approval
) {
5951 isds_error err
= IE_SUCCESS
;
5952 xmlNsPtr isds_ns
= NULL
;
5953 xmlNodePtr node
, dbPrimaryUsers
;
5954 xmlChar
*string
= NULL
;
5955 const struct isds_list
*item
;
5958 if (!context
) return IE_INVALID_CONTEXT
;
5959 if (!request
|| !service_name
|| service_name
[0] == '\0' || !box
)
5963 /* Build CreateDataBox-similar request */
5964 *request
= xmlNewNode(NULL
, service_name
);
5966 char *service_name_locale
= _isds_utf82locale((char*) service_name
);
5967 isds_printf_message(context
, _("Could build %s request"),
5968 service_name_locale
);
5969 free(service_name_locale
);
5972 if (context
->type
== CTX_TYPE_TESTING_REQUEST_COLLECTOR
) {
5973 isds_ns
= xmlNewNs(*request
, BAD_CAST ISDS1_NS
, NULL
);
5975 isds_log_message(context
, _("Could not create ISDS1 name space"));
5976 xmlFreeNode(*request
);
5980 isds_ns
= xmlNewNs(*request
, BAD_CAST ISDS_NS
, NULL
);
5982 isds_log_message(context
, _("Could not create ISDS name space"));
5983 xmlFreeNode(*request
);
5987 xmlSetNs(*request
, isds_ns
);
5989 INSERT_ELEMENT(node
, *request
, "dbOwnerInfo");
5990 err
= insert_DbOwnerInfo(context
, box
, node
);
5991 if (err
) goto leave
;
5994 /* XXX: There is bug in XSD: XSD says at least one dbUserInfo must exist,
5995 * verbose documentation allows none dbUserInfo */
5996 INSERT_ELEMENT(dbPrimaryUsers
, *request
, "dbPrimaryUsers");
5997 for (item
= users
; item
; item
= item
->next
) {
5999 INSERT_ELEMENT(node
, dbPrimaryUsers
, "dbUserInfo");
6000 err
= insert_DbUserInfo(context
,
6001 (struct isds_DbUserInfo
*) item
->data
, node
);
6002 if (err
) goto leave
;
6006 INSERT_STRING(*request
, "dbFormerNames", former_names
);
6007 INSERT_STRING(*request
, "dbUpperDBId", upper_box_id
);
6008 INSERT_STRING(*request
, "dbCEOLabel", ceo_label
);
6010 err
= insert_credentials_delivery(context
, credentials_delivery
, *request
);
6011 if (err
) goto leave
;
6013 err
= insert_GExtApproval(context
, approval
, *request
);
6014 if (err
) goto leave
;
6018 xmlFreeNode(*request
);
6024 #endif /* HAVE_LIBCURL */
6028 * @context is session context
6029 * @box is box description to create including single primary user (in case of
6030 * FO box type). It outputs box ID assigned by ISDS in dbID element.
6031 * @users is list of struct isds_DbUserInfo (primary users in case of non-FO
6032 * box, or contact address of PFO box owner)
6033 * @former_names is optional former name of box owner. Pass NULL if you don't care.
6034 * @upper_box_id is optional ID of supper box if currently created box is
6036 * @ceo_label is optional title of OVM box owner (e.g. mayor)
6037 * @credentials_delivery is NULL if new password should be delivered off-line
6038 * to box owner. It is valid pointer if owner should obtain new password on-line
6039 * on dedicated web server. Then input @credentials_delivery.email value is
6040 * his e-mail address he must provide to dedicated web server together
6041 * with output reallocated @credentials_delivery.token member. Output
6042 * member @credentials_delivery.new_user_name is unused up on this call.
6043 * @approval is optional external approval of box manipulation
6044 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6045 * NULL, if you don't care.*/
6046 isds_error
isds_add_box(struct isds_ctx
*context
,
6047 struct isds_DbOwnerInfo
*box
, const struct isds_list
*users
,
6048 const char *former_names
, const char *upper_box_id
,
6049 const char *ceo_label
,
6050 struct isds_credentials_delivery
*credentials_delivery
,
6051 const struct isds_approval
*approval
, char **refnumber
) {
6052 isds_error err
= IE_SUCCESS
;
6054 xmlNodePtr request
= NULL
;
6055 xmlDocPtr response
= NULL
;
6056 xmlXPathContextPtr xpath_ctx
= NULL
;
6057 xmlXPathObjectPtr result
= NULL
;
6061 if (!context
) return IE_INVALID_CONTEXT
;
6062 zfree(context
->long_message
);
6063 if (credentials_delivery
) {
6064 zfree(credentials_delivery
->token
);
6065 zfree(credentials_delivery
->new_user_name
);
6067 if (!box
) return IE_INVAL
;
6070 /* Scratch box ID */
6073 /* Build CreateDataBox request */
6074 err
= build_CreateDBInput_request(context
,
6075 &request
, BAD_CAST
"CreateDataBox",
6076 box
, users
, (xmlChar
*) former_names
, (xmlChar
*) upper_box_id
,
6077 (xmlChar
*) ceo_label
, credentials_delivery
, approval
);
6078 if (err
) goto leave
;
6080 /* Send it to server and process response */
6081 err
= send_destroy_request_check_response(context
,
6082 SERVICE_DB_MANIPULATION
, BAD_CAST
"CreateDataBox", &request
,
6083 &response
, (xmlChar
**) refnumber
, NULL
);
6085 /* Extract box ID */
6086 xpath_ctx
= xmlXPathNewContext(response
);
6091 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
6095 EXTRACT_STRING("/isds:CreateDataBoxResponse/isds:dbID", box
->dbID
);
6097 /* Extract optional token */
6098 err
= extract_credentials_delivery(context
, credentials_delivery
, response
,
6102 xmlXPathFreeObject(result
);
6103 xmlXPathFreeContext(xpath_ctx
);
6104 xmlFreeDoc(response
);
6105 xmlFreeNode(request
);
6108 isds_log(ILF_ISDS
, ILL_DEBUG
,
6109 _("CreateDataBox request processed by server successfully.\n"));
6111 #else /* not HAVE_LIBCURL */
6119 /* Notify ISDS about new PFO entity.
6120 * This function has no real effect.
6121 * @context is session context
6122 * @box is PFO description including single primary user.
6123 * @users is list of struct isds_DbUserInfo (contact address of PFO box owner)
6124 * @former_names is optional undocumented string. Pass NULL if you don't care.
6125 * @upper_box_id is optional ID of supper box if currently created box is
6127 * @ceo_label is optional title of OVM box owner (e.g. mayor)
6128 * @approval is optional external approval of box manipulation
6129 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6130 * NULL, if you don't care.*/
6131 isds_error
isds_add_pfoinfo(struct isds_ctx
*context
,
6132 const struct isds_DbOwnerInfo
*box
, const struct isds_list
*users
,
6133 const char *former_names
, const char *upper_box_id
,
6134 const char *ceo_label
, const struct isds_approval
*approval
,
6136 isds_error err
= IE_SUCCESS
;
6138 xmlNodePtr request
= NULL
;
6141 if (!context
) return IE_INVALID_CONTEXT
;
6142 zfree(context
->long_message
);
6143 if (!box
) return IE_INVAL
;
6146 /* Build CreateDataBoxPFOInfo request */
6147 err
= build_CreateDBInput_request(context
,
6148 &request
, BAD_CAST
"CreateDataBoxPFOInfo",
6149 box
, users
, (xmlChar
*) former_names
, (xmlChar
*) upper_box_id
,
6150 (xmlChar
*) ceo_label
, NULL
, approval
);
6151 if (err
) goto leave
;
6153 /* Send it to server and process response */
6154 err
= send_request_check_drop_response(context
,
6155 SERVICE_DB_MANIPULATION
, BAD_CAST
"CreateDataBox", &request
,
6156 (xmlChar
**) refnumber
);
6157 /* XXX: XML Schema names output dbID element but textual documentation
6158 * states no box identifier is returned. */
6160 xmlFreeNode(request
);
6161 #else /* not HAVE_LIBCURL */
6168 /* Common implementation for removing given box.
6169 * @context is session context
6170 * @service_name is UTF-8 encoded name fo ISDS service
6171 * @box is box description to delete
6172 * @since is date of box owner cancellation. Only tm_year, tm_mon and tm_mday
6173 * carry sane value. If NULL, do not inject this information into request.
6174 * @approval is optional external approval of box manipulation
6175 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6176 * NULL, if you don't care.*/
6177 isds_error
_isds_delete_box_common(struct isds_ctx
*context
,
6178 const xmlChar
*service_name
,
6179 const struct isds_DbOwnerInfo
*box
, const struct tm
*since
,
6180 const struct isds_approval
*approval
, char **refnumber
) {
6181 isds_error err
= IE_SUCCESS
;
6183 xmlNsPtr isds_ns
= NULL
;
6184 xmlNodePtr request
= NULL
;
6186 xmlChar
*string
= NULL
;
6190 if (!context
) return IE_INVALID_CONTEXT
;
6191 zfree(context
->long_message
);
6192 if (!service_name
|| !*service_name
|| !box
) return IE_INVAL
;
6196 /* Build DeleteDataBox(Promptly) request */
6197 request
= xmlNewNode(NULL
, service_name
);
6199 char *service_name_locale
= _isds_utf82locale((char*)service_name
);
6200 isds_printf_message(context
,
6201 _("Could build %s request"), service_name_locale
);
6202 free(service_name_locale
);
6205 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
6207 isds_log_message(context
, _("Could not create ISDS name space"));
6208 xmlFreeNode(request
);
6211 xmlSetNs(request
, isds_ns
);
6213 INSERT_ELEMENT(node
, request
, "dbOwnerInfo");
6214 err
= insert_DbOwnerInfo(context
, box
, node
);
6215 if (err
) goto leave
;
6218 err
= tm2datestring(since
, &string
);
6220 isds_log_message(context
,
6221 _("Could not convert `since' argument to ISO date string"));
6224 INSERT_STRING(request
, "dbOwnerTerminationDate", string
);
6228 err
= insert_GExtApproval(context
, approval
, request
);
6229 if (err
) goto leave
;
6232 /* Send it to server and process response */
6233 err
= send_request_check_drop_response(context
, SERVICE_DB_MANIPULATION
,
6234 service_name
, &request
, (xmlChar
**) refnumber
);
6237 xmlFreeNode(request
);
6239 #else /* not HAVE_LIBCURL */
6246 /* Remove given box permanently.
6247 * @context is session context
6248 * @box is box description to delete
6249 * @since is date of box owner cancellation. Only tm_year, tm_mon and tm_mday
6251 * @approval is optional external approval of box manipulation
6252 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6253 * NULL, if you don't care.*/
6254 isds_error
isds_delete_box(struct isds_ctx
*context
,
6255 const struct isds_DbOwnerInfo
*box
, const struct tm
*since
,
6256 const struct isds_approval
*approval
, char **refnumber
) {
6257 if (!context
) return IE_INVALID_CONTEXT
;
6258 zfree(context
->long_message
);
6259 if (!box
|| !since
) return IE_INVAL
;
6261 return _isds_delete_box_common(context
, BAD_CAST
"DeleteDataBox",
6262 box
, since
, approval
, refnumber
);
6266 /* Undocumented function.
6267 * @context is session context
6268 * @box is box description to delete
6269 * @approval is optional external approval of box manipulation
6270 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6271 * NULL, if you don't care.*/
6272 isds_error
isds_delete_box_promptly(struct isds_ctx
*context
,
6273 const struct isds_DbOwnerInfo
*box
,
6274 const struct isds_approval
*approval
, char **refnumber
) {
6275 if (!context
) return IE_INVALID_CONTEXT
;
6276 zfree(context
->long_message
);
6277 if (!box
) return IE_INVAL
;
6279 return _isds_delete_box_common(context
, BAD_CAST
"DeleteDataBoxPromptly",
6280 box
, NULL
, approval
, refnumber
);
6284 /* Update data about given box.
6285 * @context is session context
6286 * @old_box current box description
6287 * @new_box are updated data about @old_box
6288 * @approval is optional external approval of box manipulation
6289 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6290 * NULL, if you don't care.*/
6291 isds_error
isds_UpdateDataBoxDescr(struct isds_ctx
*context
,
6292 const struct isds_DbOwnerInfo
*old_box
,
6293 const struct isds_DbOwnerInfo
*new_box
,
6294 const struct isds_approval
*approval
, char **refnumber
) {
6295 isds_error err
= IE_SUCCESS
;
6297 xmlNsPtr isds_ns
= NULL
;
6298 xmlNodePtr request
= NULL
;
6303 if (!context
) return IE_INVALID_CONTEXT
;
6304 zfree(context
->long_message
);
6305 if (!old_box
|| !new_box
) return IE_INVAL
;
6309 /* Build UpdateDataBoxDescr request */
6310 request
= xmlNewNode(NULL
, BAD_CAST
"UpdateDataBoxDescr");
6312 isds_log_message(context
,
6313 _("Could build UpdateDataBoxDescr request"));
6316 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
6318 isds_log_message(context
, _("Could not create ISDS name space"));
6319 xmlFreeNode(request
);
6322 xmlSetNs(request
, isds_ns
);
6324 INSERT_ELEMENT(node
, request
, "dbOldOwnerInfo");
6325 err
= insert_DbOwnerInfo(context
, old_box
, node
);
6326 if (err
) goto leave
;
6328 INSERT_ELEMENT(node
, request
, "dbNewOwnerInfo");
6329 err
= insert_DbOwnerInfo(context
, new_box
, node
);
6330 if (err
) goto leave
;
6332 err
= insert_GExtApproval(context
, approval
, request
);
6333 if (err
) goto leave
;
6336 /* Send it to server and process response */
6337 err
= send_request_check_drop_response(context
, SERVICE_DB_MANIPULATION
,
6338 BAD_CAST
"UpdateDataBoxDescr", &request
, (xmlChar
**) refnumber
);
6341 xmlFreeNode(request
);
6342 #else /* not HAVE_LIBCURL */
6351 /* Build ISDS request of XSD tIdDbInput type, sent it and check for error
6353 * @context is session context
6354 * @service is SOAP service
6355 * @service_name is name of request in @service
6356 * @box_id_element is name of element to wrap the @box_id. NULL means "dbID".
6357 * @box_id is box ID of interest
6358 * @approval is optional external approval of box manipulation
6359 * @response is server SOAP body response as XML document
6360 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6361 * NULL, if you don't care.
6362 * @return error coded from lower layer, context message will be set up
6364 static isds_error
build_send_dbid_request_check_response(
6365 struct isds_ctx
*context
, const isds_service service
,
6366 const xmlChar
*service_name
, const xmlChar
*box_id_element
,
6367 const xmlChar
*box_id
, const struct isds_approval
*approval
,
6368 xmlDocPtr
*response
, xmlChar
**refnumber
) {
6370 isds_error err
= IE_SUCCESS
;
6371 char *service_name_locale
= NULL
, *box_id_locale
= NULL
;
6372 xmlNodePtr request
= NULL
, node
;
6373 xmlNsPtr isds_ns
= NULL
;
6375 if (!context
) return IE_INVALID_CONTEXT
;
6376 if (!service_name
|| !box_id
) return IE_INVAL
;
6377 if (!response
) return IE_INVAL
;
6379 /* Free output argument */
6380 xmlFreeDoc(*response
); *response
= NULL
;
6382 /* Prepare strings */
6383 service_name_locale
= _isds_utf82locale((char*)service_name
);
6384 if (!service_name_locale
) {
6388 box_id_locale
= _isds_utf82locale((char*)box_id
);
6389 if (!box_id_locale
) {
6395 request
= xmlNewNode(NULL
, service_name
);
6397 isds_printf_message(context
,
6398 _("Could not build %s request for %s box"), service_name_locale
,
6403 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
6405 isds_log_message(context
, _("Could not create ISDS name space"));
6409 xmlSetNs(request
, isds_ns
);
6411 /* Add XSD:tIdDbInput children */
6412 if (NULL
== box_id_element
) box_id_element
= BAD_CAST
"dbID";
6413 INSERT_STRING(request
, box_id_element
, box_id
);
6414 err
= insert_GExtApproval(context
, approval
, request
);
6415 if (err
) goto leave
;
6417 /* Send request and check response*/
6418 err
= send_destroy_request_check_response(context
,
6419 service
, service_name
, &request
, response
, refnumber
, NULL
);
6422 free(service_name_locale
);
6423 free(box_id_locale
);
6424 xmlFreeNode(request
);
6427 #endif /* HAVE_LIBCURL */
6430 /* Get data about all users assigned to given box.
6431 * @context is session context
6433 * @users is automatically reallocated list of struct isds_DbUserInfo */
6434 isds_error
isds_GetDataBoxUsers(struct isds_ctx
*context
, const char *box_id
,
6435 struct isds_list
**users
) {
6436 isds_error err
= IE_SUCCESS
;
6438 xmlDocPtr response
= NULL
;
6439 xmlXPathContextPtr xpath_ctx
= NULL
;
6440 xmlXPathObjectPtr result
= NULL
;
6442 struct isds_list
*item
, *prev_item
= NULL
;
6445 if (!context
) return IE_INVALID_CONTEXT
;
6446 zfree(context
->long_message
);
6447 if (!users
|| !box_id
) return IE_INVAL
;
6448 isds_list_free(users
);
6452 /* Do request and check for success */
6453 err
= build_send_dbid_request_check_response(context
,
6454 SERVICE_DB_MANIPULATION
, BAD_CAST
"GetDataBoxUsers", NULL
,
6455 BAD_CAST box_id
, NULL
, &response
, NULL
);
6456 if (err
) goto leave
;
6460 /* Prepare structure */
6461 xpath_ctx
= xmlXPathNewContext(response
);
6466 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
6471 /* Set context node */
6472 result
= xmlXPathEvalExpression(BAD_CAST
6473 "/isds:GetDataBoxUsersResponse/isds:dbUsers/isds:dbUserInfo",
6479 if (!xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
6480 /* Iterate over all users */
6481 for (i
= 0; i
< result
->nodesetval
->nodeNr
; i
++) {
6483 /* Prepare structure */
6484 item
= calloc(1, sizeof(*item
));
6489 item
->destructor
= (void(*)(void**))isds_DbUserInfo_free
;
6490 if (i
== 0) *users
= item
;
6491 else prev_item
->next
= item
;
6495 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[i
];
6496 err
= extract_DbUserInfo(context
,
6497 (struct isds_DbUserInfo
**) (&item
->data
), xpath_ctx
);
6498 if (err
) goto leave
;
6504 isds_list_free(users
);
6507 xmlXPathFreeObject(result
);
6508 xmlXPathFreeContext(xpath_ctx
);
6509 xmlFreeDoc(response
);
6512 isds_log(ILF_ISDS
, ILL_DEBUG
,
6513 _("GetDataBoxUsers request processed by server "
6514 "successfully.\n"));
6515 #else /* not HAVE_LIBCURL */
6523 /* Update data about user assigned to given box.
6524 * @context is session context
6525 * @box is box identification
6526 * @old_user identifies user to update
6527 * @new_user are updated data about @old_user
6528 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6529 * NULL, if you don't care.*/
6530 isds_error
isds_UpdateDataBoxUser(struct isds_ctx
*context
,
6531 const struct isds_DbOwnerInfo
*box
,
6532 const struct isds_DbUserInfo
*old_user
,
6533 const struct isds_DbUserInfo
*new_user
,
6535 isds_error err
= IE_SUCCESS
;
6537 xmlNsPtr isds_ns
= NULL
;
6538 xmlNodePtr request
= NULL
;
6543 if (!context
) return IE_INVALID_CONTEXT
;
6544 zfree(context
->long_message
);
6545 if (!box
|| !old_user
|| !new_user
) return IE_INVAL
;
6549 /* Build UpdateDataBoxUser request */
6550 request
= xmlNewNode(NULL
, BAD_CAST
"UpdateDataBoxUser");
6552 isds_log_message(context
,
6553 _("Could build UpdateDataBoxUser request"));
6556 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
6558 isds_log_message(context
, _("Could not create ISDS name space"));
6559 xmlFreeNode(request
);
6562 xmlSetNs(request
, isds_ns
);
6564 INSERT_ELEMENT(node
, request
, "dbOwnerInfo");
6565 err
= insert_DbOwnerInfo(context
, box
, node
);
6566 if (err
) goto leave
;
6568 INSERT_ELEMENT(node
, request
, "dbOldUserInfo");
6569 err
= insert_DbUserInfo(context
, old_user
, node
);
6570 if (err
) goto leave
;
6572 INSERT_ELEMENT(node
, request
, "dbNewUserInfo");
6573 err
= insert_DbUserInfo(context
, new_user
, node
);
6574 if (err
) goto leave
;
6576 /* Send it to server and process response */
6577 err
= send_request_check_drop_response(context
, SERVICE_DB_MANIPULATION
,
6578 BAD_CAST
"UpdateDataBoxUser", &request
, (xmlChar
**) refnumber
);
6581 xmlFreeNode(request
);
6582 #else /* not HAVE_LIBCURL */
6590 /* Undocumented function.
6591 * @context is session context
6592 * @box_id is UTF-8 encoded box identifier
6593 * @token is UTF-8 encoded temporary password
6594 * @user_id outputs UTF-8 encoded reallocated user identifier
6595 * @password outpus UTF-8 encoded reallocated user password
6596 * Output arguments will be nulled in case of error */
6597 isds_error
isds_activate(struct isds_ctx
*context
,
6598 const char *box_id
, const char *token
,
6599 char **user_id
, char **password
) {
6600 isds_error err
= IE_SUCCESS
;
6602 xmlNsPtr isds_ns
= NULL
;
6603 xmlNodePtr request
= NULL
, node
;
6604 xmlDocPtr response
= NULL
;
6605 xmlXPathContextPtr xpath_ctx
= NULL
;
6606 xmlXPathObjectPtr result
= NULL
;
6610 if (!context
) return IE_INVALID_CONTEXT
;
6611 zfree(context
->long_message
);
6613 if (user_id
) zfree(*user_id
);
6614 if (password
) zfree(*password
);
6616 if (!box_id
|| !token
|| !user_id
|| !password
) return IE_INVAL
;
6620 /* Build Activate request */
6621 request
= xmlNewNode(NULL
, BAD_CAST
"Activate");
6623 isds_log_message(context
, _("Could build Activate request"));
6626 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
6628 isds_log_message(context
, _("Could not create ISDS name space"));
6629 xmlFreeNode(request
);
6632 xmlSetNs(request
, isds_ns
);
6634 INSERT_STRING(request
, "dbAccessDataId", token
);
6635 CHECK_FOR_STRING_LENGTH(box_id
, 7, 7, "dbID");
6636 INSERT_STRING(request
, "dbID", box_id
);
6639 /* Send request and check response*/
6640 err
= send_destroy_request_check_response(context
,
6641 SERVICE_DB_MANIPULATION
, BAD_CAST
"Activate", &request
,
6642 &response
, NULL
, NULL
);
6643 if (err
) goto leave
;
6647 xpath_ctx
= xmlXPathNewContext(response
);
6652 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
6656 result
= xmlXPathEvalExpression(BAD_CAST
"/isds:ActivateResponse",
6662 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
6663 isds_log_message(context
, _("Missing ActivateResponse element"));
6667 if (result
->nodesetval
->nodeNr
> 1) {
6668 isds_log_message(context
, _("Multiple ActivateResponse element"));
6672 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
6673 xmlXPathFreeObject(result
); result
= NULL
;
6675 EXTRACT_STRING("isds:userId", *user_id
);
6677 isds_log(ILF_ISDS
, ILL_ERR
, _("Server accepted Activate request, "
6678 "but did not return `userId' element.\n"));
6680 EXTRACT_STRING("isds:password", *password
);
6682 isds_log(ILF_ISDS
, ILL_ERR
, _("Server accepted Activate request, "
6683 "but did not return `password' element.\n"));
6686 xmlXPathFreeObject(result
);
6687 xmlXPathFreeContext(xpath_ctx
);
6688 xmlFreeDoc(response
);
6689 xmlFreeNode(request
);
6692 isds_log(ILF_ISDS
, ILL_DEBUG
,
6693 _("Activate request processed by server successfully.\n"));
6694 #else /* not HAVE_LIBCURL */
6702 /* Reset credentials of user assigned to given box.
6703 * @context is session context
6704 * @box is box identification
6705 * @user identifies user to reset password
6706 * @fee_paid is true if fee has been paid, false otherwise
6707 * @approval is optional external approval of box manipulation
6708 * @credentials_delivery is NULL if new password should be delivered off-line
6709 * to the user. It is valid pointer if user should obtain new password on-line
6710 * on dedicated web server. Then input @credentials_delivery.email value is
6711 * user's e-mail address user must provide to dedicated web server together
6712 * with @credentials_delivery.token. The output reallocated token user needs
6713 * to use to authorize on the web server to view his new password. Output
6714 * reallocated @credentials_delivery.new_user_name is user's log-in name that
6715 * ISDS changed up on this call. (No reason why server could change the name
6717 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6718 * NULL, if you don't care.*/
6719 isds_error
isds_reset_password(struct isds_ctx
*context
,
6720 const struct isds_DbOwnerInfo
*box
,
6721 const struct isds_DbUserInfo
*user
,
6722 const _Bool fee_paid
, const struct isds_approval
*approval
,
6723 struct isds_credentials_delivery
*credentials_delivery
,
6725 isds_error err
= IE_SUCCESS
;
6727 xmlNsPtr isds_ns
= NULL
;
6728 xmlNodePtr request
= NULL
, node
;
6729 xmlDocPtr response
= NULL
;
6733 if (!context
) return IE_INVALID_CONTEXT
;
6734 zfree(context
->long_message
);
6736 if (credentials_delivery
) {
6737 zfree(credentials_delivery
->token
);
6738 zfree(credentials_delivery
->new_user_name
);
6740 if (!box
|| !user
) return IE_INVAL
;
6744 /* Build NewAccessData request */
6745 request
= xmlNewNode(NULL
, BAD_CAST
"NewAccessData");
6747 isds_log_message(context
,
6748 _("Could build NewAccessData request"));
6751 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
6753 isds_log_message(context
, _("Could not create ISDS name space"));
6754 xmlFreeNode(request
);
6757 xmlSetNs(request
, isds_ns
);
6759 INSERT_ELEMENT(node
, request
, "dbOwnerInfo");
6760 err
= insert_DbOwnerInfo(context
, box
, node
);
6761 if (err
) goto leave
;
6763 INSERT_ELEMENT(node
, request
, "dbUserInfo");
6764 err
= insert_DbUserInfo(context
, user
, node
);
6765 if (err
) goto leave
;
6767 INSERT_SCALAR_BOOLEAN(request
, "dbFeePaid", fee_paid
);
6769 err
= insert_credentials_delivery(context
, credentials_delivery
, request
);
6770 if (err
) goto leave
;
6772 err
= insert_GExtApproval(context
, approval
, request
);
6773 if (err
) goto leave
;
6775 /* Send request and check response*/
6776 err
= send_destroy_request_check_response(context
,
6777 SERVICE_DB_MANIPULATION
, BAD_CAST
"NewAccessData", &request
,
6778 &response
, (xmlChar
**) refnumber
, NULL
);
6779 if (err
) goto leave
;
6782 /* Extract optional token */
6783 err
= extract_credentials_delivery(context
, credentials_delivery
,
6784 response
, "NewAccessData");
6787 xmlFreeDoc(response
);
6788 xmlFreeNode(request
);
6791 isds_log(ILF_ISDS
, ILL_DEBUG
,
6792 _("NewAccessData request processed by server "
6793 "successfully.\n"));
6794 #else /* not HAVE_LIBCURL */
6802 /* Build ISDS request of XSD tAddDBUserInput type, sent it, check for error
6803 * code, destroy response and log success.
6804 * @context is ISDS session context.
6805 * @service_name is name of SERVICE_DB_MANIPULATION service
6806 * @box is box identification
6807 * @user identifies user to remove
6808 * @credentials_delivery is NULL if new user's password should be delivered
6809 * off-line to the user. It is valid pointer if user should obtain new
6810 * password on-line on dedicated web server. Then input
6811 * @credentials_delivery.email value is user's e-mail address user must
6812 * provide to dedicated web server together with @credentials_delivery.token.
6813 * The output reallocated token user needs to use to authorize on the web
6814 * server to view his new password. Output reallocated
6815 * @credentials_delivery.new_user_name is user's log-in name that ISDS
6816 * assingned or changed up on this call.
6817 * @approval is optional external approval of box manipulation
6818 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6819 * NULL, if you don't care. */
6820 static isds_error
build_send_manipulationboxuser_request_check_drop_response(
6821 struct isds_ctx
*context
, const xmlChar
*service_name
,
6822 const struct isds_DbOwnerInfo
*box
, const struct isds_DbUserInfo
*user
,
6823 struct isds_credentials_delivery
*credentials_delivery
,
6824 const struct isds_approval
*approval
, xmlChar
**refnumber
) {
6825 isds_error err
= IE_SUCCESS
;
6827 xmlNsPtr isds_ns
= NULL
;
6828 xmlNodePtr request
= NULL
, node
;
6829 xmlDocPtr response
= NULL
;
6833 if (!context
) return IE_INVALID_CONTEXT
;
6834 zfree(context
->long_message
);
6835 if (credentials_delivery
) {
6836 zfree(credentials_delivery
->token
);
6837 zfree(credentials_delivery
->new_user_name
);
6839 if (!service_name
|| service_name
[0] == '\0' || !box
|| !user
)
6844 /* Build NewAccessData or similar request */
6845 request
= xmlNewNode(NULL
, service_name
);
6847 char *service_name_locale
= _isds_utf82locale((char *) service_name
);
6848 isds_printf_message(context
, _("Could not build %s request"),
6849 service_name_locale
);
6850 free(service_name_locale
);
6853 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
6855 isds_log_message(context
, _("Could not create ISDS name space"));
6856 xmlFreeNode(request
);
6859 xmlSetNs(request
, isds_ns
);
6861 INSERT_ELEMENT(node
, request
, "dbOwnerInfo");
6862 err
= insert_DbOwnerInfo(context
, box
, node
);
6863 if (err
) goto leave
;
6865 INSERT_ELEMENT(node
, request
, "dbUserInfo");
6866 err
= insert_DbUserInfo(context
, user
, node
);
6867 if (err
) goto leave
;
6869 err
= insert_credentials_delivery(context
, credentials_delivery
, request
);
6870 if (err
) goto leave
;
6872 err
= insert_GExtApproval(context
, approval
, request
);
6873 if (err
) goto leave
;
6876 /* Send request and check response*/
6877 err
= send_destroy_request_check_response(context
,
6878 SERVICE_DB_MANIPULATION
, service_name
, &request
, &response
,
6881 xmlFreeNode(request
);
6884 /* Pick up credentials_delivery if requested */
6885 err
= extract_credentials_delivery(context
, credentials_delivery
, response
,
6886 (char *)service_name
);
6889 xmlFreeDoc(response
);
6890 if (request
) xmlFreeNode(request
);
6893 char *service_name_locale
= _isds_utf82locale((char *) service_name
);
6894 isds_log(ILF_ISDS
, ILL_DEBUG
,
6895 _("%s request processed by server successfully.\n"),
6896 service_name_locale
);
6897 free(service_name_locale
);
6899 #else /* not HAVE_LIBCURL */
6907 /* Assign new user to given box.
6908 * @context is session context
6909 * @box is box identification
6910 * @user defines new user to add
6911 * @credentials_delivery is NULL if new user's password should be delivered
6912 * off-line to the user. It is valid pointer if user should obtain new
6913 * password on-line on dedicated web server. Then input
6914 * @credentials_delivery.email value is user's e-mail address user must
6915 * provide to dedicated web server together with @credentials_delivery.token.
6916 * The output reallocated token user needs to use to authorize on the web
6917 * server to view his new password. Output reallocated
6918 * @credentials_delivery.new_user_name is user's log-in name that ISDS
6919 * assingned up on this call.
6920 * @approval is optional external approval of box manipulation
6921 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6922 * NULL, if you don't care.*/
6923 isds_error
isds_add_user(struct isds_ctx
*context
,
6924 const struct isds_DbOwnerInfo
*box
, const struct isds_DbUserInfo
*user
,
6925 struct isds_credentials_delivery
*credentials_delivery
,
6926 const struct isds_approval
*approval
, char **refnumber
) {
6927 return build_send_manipulationboxuser_request_check_drop_response(context
,
6928 BAD_CAST
"AddDataBoxUser", box
, user
, credentials_delivery
,
6929 approval
, (xmlChar
**) refnumber
);
6933 /* Remove user assigned to given box.
6934 * @context is session context
6935 * @box is box identification
6936 * @user identifies user to remove
6937 * @approval is optional external approval of box manipulation
6938 * @refnumber is reallocated serial number of request assigned by ISDS. Use
6939 * NULL, if you don't care.*/
6940 isds_error
isds_delete_user(struct isds_ctx
*context
,
6941 const struct isds_DbOwnerInfo
*box
, const struct isds_DbUserInfo
*user
,
6942 const struct isds_approval
*approval
, char **refnumber
) {
6943 return build_send_manipulationboxuser_request_check_drop_response(context
,
6944 BAD_CAST
"DeleteDataBoxUser", box
, user
, NULL
, approval
,
6945 (xmlChar
**) refnumber
);
6949 /* Get list of boxes in ZIP archive.
6950 * @context is session context
6951 * @list_identifier is UTF-8 encoded string identifying boxes of interrest.
6952 * System recognizes following values currently: ALL (all boxes), UPG
6953 * (effectively OVM boxes), OVM (OVM gross type boxes), OPN (boxes allowing
6954 * receiving commercial messages). This argument is a string because
6955 * specification states new values can appear in the future. Not all list
6956 * types are available to all users.
6957 * @buffer is automatically reallocated memory to store the list of boxes. The
6958 * list is zipped CSV file.
6959 * @buffer_length is size of @buffer data in bytes.
6960 * In case of error @buffer will be freed and @buffer_length will be
6962 isds_error
isds_get_box_list_archive(struct isds_ctx
*context
,
6963 const char *list_identifier
, void **buffer
, size_t *buffer_length
) {
6964 isds_error err
= IE_SUCCESS
;
6966 xmlNsPtr isds_ns
= NULL
;
6967 xmlNodePtr request
= NULL
, node
;
6968 xmlDocPtr response
= NULL
;
6969 xmlXPathContextPtr xpath_ctx
= NULL
;
6970 xmlXPathObjectPtr result
= NULL
;
6971 char *string
= NULL
;
6975 if (!context
) return IE_INVALID_CONTEXT
;
6976 zfree(context
->long_message
);
6977 if (buffer
) zfree(*buffer
);
6978 if (!buffer
|| !buffer_length
) return IE_INVAL
;
6982 /* Check if connection is established
6983 * TODO: This check should be done downstairs. */
6984 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
6987 /* Build AuthenticateMessage request */
6988 request
= xmlNewNode(NULL
, BAD_CAST
"GetDataBoxList");
6990 isds_log_message(context
,
6991 _("Could not build GetDataBoxList request"));
6994 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
6996 isds_log_message(context
, _("Could not create ISDS name space"));
6997 xmlFreeNode(request
);
7000 xmlSetNs(request
, isds_ns
);
7001 INSERT_STRING(request
, "dblType", list_identifier
);
7003 /* Send request to server and process response */
7004 err
= send_destroy_request_check_response(context
,
7005 SERVICE_DB_SEARCH
, BAD_CAST
"GetDataBoxList", &request
,
7006 &response
, NULL
, NULL
);
7007 if (err
) goto leave
;
7010 /* Extract Base-64 encoded ZIP file */
7011 xpath_ctx
= xmlXPathNewContext(response
);
7016 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
7020 EXTRACT_STRING("/isds:GetDataBoxListResponse/isds:dblData", string
);
7022 /* Decode non-empty archive */
7023 if (string
&& string
[0] != '\0') {
7024 *buffer_length
= _isds_b64decode(string
, buffer
);
7025 if (*buffer_length
== (size_t) -1) {
7026 isds_printf_message(context
,
7027 _("Error while Base64-decoding box list archive"));
7036 xmlXPathFreeObject(result
);
7037 xmlXPathFreeContext(xpath_ctx
);
7038 xmlFreeDoc(response
);
7039 xmlFreeNode(request
);
7042 isds_log(ILF_ISDS
, ILL_DEBUG
, _("GetDataBoxList request "
7043 "processed by server successfully.\n"));
7045 #else /* not HAVE_LIBCURL */
7053 /* Find boxes suiting given criteria.
7054 * @criteria is filter. You should fill in at least some members.
7055 * @boxes is automatically reallocated list of isds_DbOwnerInfo structures,
7056 * possibly empty. Input NULL or valid old structure.
7058 * IE_SUCCESS if search succeeded, @boxes contains useful data
7059 * IE_NOEXIST if no such box exists, @boxes will be NULL
7060 * IE_2BIG if too much boxes exist and server truncated the results, @boxes
7061 * contains still valid data
7062 * other code if something bad happens. @boxes will be NULL. */
7063 isds_error
isds_FindDataBox(struct isds_ctx
*context
,
7064 const struct isds_DbOwnerInfo
*criteria
,
7065 struct isds_list
**boxes
) {
7066 isds_error err
= IE_SUCCESS
;
7068 _Bool truncated
= 0;
7069 xmlNsPtr isds_ns
= NULL
;
7070 xmlNodePtr request
= NULL
;
7071 xmlDocPtr response
= NULL
;
7072 xmlChar
*code
= NULL
, *message
= NULL
;
7073 xmlNodePtr db_owner_info
;
7074 xmlXPathContextPtr xpath_ctx
= NULL
;
7075 xmlXPathObjectPtr result
= NULL
;
7076 xmlChar
*string
= NULL
;
7080 if (!context
) return IE_INVALID_CONTEXT
;
7081 zfree(context
->long_message
);
7082 if (!boxes
) return IE_INVAL
;
7083 isds_list_free(boxes
);
7090 /* Check if connection is established
7091 * TODO: This check should be done downstairs. */
7092 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
7095 /* Build FindDataBox request */
7096 request
= xmlNewNode(NULL
, BAD_CAST
"FindDataBox");
7098 isds_log_message(context
,
7099 _("Could build FindDataBox request"));
7102 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
7104 isds_log_message(context
, _("Could not create ISDS name space"));
7105 xmlFreeNode(request
);
7108 xmlSetNs(request
, isds_ns
);
7109 db_owner_info
= xmlNewChild(request
, NULL
, BAD_CAST
"dbOwnerInfo", NULL
);
7110 if (!db_owner_info
) {
7111 isds_log_message(context
, _("Could not add dbOwnerInfo child to "
7112 "FindDataBox element"));
7113 xmlFreeNode(request
);
7117 err
= insert_DbOwnerInfo(context
, criteria
, db_owner_info
);
7118 if (err
) goto leave
;
7121 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Sending FindDataBox request to ISDS\n"));
7124 err
= isds(context
, SERVICE_DB_SEARCH
, request
, &response
, NULL
, NULL
);
7126 /* Destroy request */
7127 xmlFreeNode(request
); request
= NULL
;
7130 isds_log(ILF_ISDS
, ILL_DEBUG
,
7131 _("Processing ISDS response on FindDataBox "
7132 "request failed\n"));
7136 /* Check for response status */
7137 err
= isds_response_status(context
, SERVICE_DB_SEARCH
, response
,
7138 &code
, &message
, NULL
);
7140 isds_log(ILF_ISDS
, ILL_DEBUG
,
7141 _("ISDS response on FindDataBox request is missing status\n"));
7145 /* Request processed, but nothing found */
7146 if (!xmlStrcmp(code
, BAD_CAST
"0002") ||
7147 !xmlStrcmp(code
, BAD_CAST
"5001")) {
7148 char *code_locale
= _isds_utf82locale((char*)code
);
7149 char *message_locale
= _isds_utf82locale((char*)message
);
7150 isds_log(ILF_ISDS
, ILL_DEBUG
,
7151 _("Server did not found any box on FindDataBox request "
7152 "(code=%s, message=%s)\n"), code_locale
, message_locale
);
7153 isds_log_message(context
, message_locale
);
7155 free(message_locale
);
7160 /* Warning, not a error */
7161 if (!xmlStrcmp(code
, BAD_CAST
"0003")) {
7162 char *code_locale
= _isds_utf82locale((char*)code
);
7163 char *message_locale
= _isds_utf82locale((char*)message
);
7164 isds_log(ILF_ISDS
, ILL_DEBUG
,
7165 _("Server truncated response on FindDataBox request "
7166 "(code=%s, message=%s)\n"), code_locale
, message_locale
);
7167 isds_log_message(context
, message_locale
);
7169 free(message_locale
);
7174 else if (xmlStrcmp(code
, BAD_CAST
"0000")) {
7175 char *code_locale
= _isds_utf82locale((char*)code
);
7176 char *message_locale
= _isds_utf82locale((char*)message
);
7177 isds_log(ILF_ISDS
, ILL_DEBUG
,
7178 _("Server refused FindDataBox request "
7179 "(code=%s, message=%s)\n"), code_locale
, message_locale
);
7180 isds_log_message(context
, message_locale
);
7182 free(message_locale
);
7187 xpath_ctx
= xmlXPathNewContext(response
);
7192 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
7197 /* Extract boxes if they present */
7198 result
= xmlXPathEvalExpression(BAD_CAST
7199 "/isds:FindDataBoxResponse/isds:dbResults/isds:dbOwnerInfo",
7205 if (!xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
7206 struct isds_list
*item
, *prev_item
= NULL
;
7207 for (int i
= 0; i
< result
->nodesetval
->nodeNr
; i
++) {
7208 item
= calloc(1, sizeof(*item
));
7214 item
->destructor
= (void (*)(void **))isds_DbOwnerInfo_free
;
7215 if (i
== 0) *boxes
= item
;
7216 else prev_item
->next
= item
;
7219 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[i
];
7220 err
= extract_DbOwnerInfo(context
,
7221 (struct isds_DbOwnerInfo
**) &(item
->data
), xpath_ctx
);
7222 if (err
) goto leave
;
7228 isds_list_free(boxes
);
7230 if (truncated
) err
= IE_2BIG
;
7234 xmlFreeNode(request
);
7235 xmlXPathFreeObject(result
);
7236 xmlXPathFreeContext(xpath_ctx
);
7240 xmlFreeDoc(response
);
7243 isds_log(ILF_ISDS
, ILL_DEBUG
,
7244 _("FindDataBox request processed by server successfully.\n"));
7245 #else /* not HAVE_LIBCURL */
7253 /* Get status of a box.
7254 * @context is ISDS session context.
7255 * @box_id is UTF-8 encoded box identifier as zero terminated string
7256 * @box_status is return value of box status.
7258 * IE_SUCCESS if box has been found and its status retrieved
7259 * IE_NOEXIST if box is not known to ISDS server
7260 * or other appropriate error.
7261 * You can use isds_DbState to enumerate box status. However out of enum
7262 * range value can be returned too. This is feature because ISDS
7263 * specification leaves the set of values open.
7264 * Be ware that status DBSTATE_REMOVED is signaled as IE_SUCCESS. That means
7265 * the box has been deleted, but ISDS still lists its former existence. */
7266 isds_error
isds_CheckDataBox(struct isds_ctx
*context
, const char *box_id
,
7267 long int *box_status
) {
7268 isds_error err
= IE_SUCCESS
;
7270 xmlNsPtr isds_ns
= NULL
;
7271 xmlNodePtr request
= NULL
, db_id
;
7272 xmlDocPtr response
= NULL
;
7273 xmlXPathContextPtr xpath_ctx
= NULL
;
7274 xmlXPathObjectPtr result
= NULL
;
7275 xmlChar
*string
= NULL
;
7277 const xmlChar
*codes
[] = {
7283 const char *meanings
[] = {
7284 "The box does not exist",
7285 "Box ID is malformed",
7288 const isds_error errors
[] = {
7293 struct code_map_isds_error map
= {
7295 .meanings
= meanings
,
7300 if (!context
) return IE_INVALID_CONTEXT
;
7301 zfree(context
->long_message
);
7302 if (!box_status
|| !box_id
|| *box_id
== '\0') return IE_INVAL
;
7305 /* Check if connection is established
7306 * TODO: This check should be done downstairs. */
7307 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
7310 /* Build CheckDataBox request */
7311 request
= xmlNewNode(NULL
, BAD_CAST
"CheckDataBox");
7313 isds_log_message(context
,
7314 _("Could build CheckDataBox request"));
7317 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
7319 isds_log_message(context
, _("Could not create ISDS name space"));
7320 xmlFreeNode(request
);
7323 xmlSetNs(request
, isds_ns
);
7324 db_id
= xmlNewTextChild(request
, NULL
, BAD_CAST
"dbID", (xmlChar
*) box_id
);
7326 isds_log_message(context
, _("Could not add dbID child to "
7327 "CheckDataBox element"));
7328 xmlFreeNode(request
);
7333 /* Send request and check response*/
7334 err
= send_destroy_request_check_response(context
,
7335 SERVICE_DB_SEARCH
, BAD_CAST
"CheckDataBox",
7336 &request
, &response
, NULL
, &map
);
7337 if (err
) goto leave
;
7341 xpath_ctx
= xmlXPathNewContext(response
);
7346 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
7350 result
= xmlXPathEvalExpression(BAD_CAST
"/isds:CheckDataBoxResponse",
7356 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
7357 isds_log_message(context
, _("Missing CheckDataBoxResponse element"));
7361 if (result
->nodesetval
->nodeNr
> 1) {
7362 isds_log_message(context
, _("Multiple CheckDataBoxResponse element"));
7366 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
7367 xmlXPathFreeObject(result
); result
= NULL
;
7369 EXTRACT_LONGINT("isds:dbState", box_status
, 1);
7374 xmlXPathFreeObject(result
);
7375 xmlXPathFreeContext(xpath_ctx
);
7377 xmlFreeDoc(response
);
7380 isds_log(ILF_ISDS
, ILL_DEBUG
,
7381 _("CheckDataBox request processed by server successfully.\n"));
7382 #else /* not HAVE_LIBCURL */
7390 /* Get list of permissions to send commercial messages.
7391 * @context is ISDS session context.
7392 * @box_id is UTF-8 encoded sender box identifier as zero terminated string
7393 * @permissions is a reallocated list of permissions (struct
7394 * isds_commercial_permission*) to send commercial messages from @box_id. The
7395 * order of permissions is significant as the server applies the permissions
7396 * and associated pre-paid credits in the order. Empty list means no
7399 * IE_SUCCESS if the list has been obtained correctly,
7400 * or other appropriate error. */
7401 isds_error
isds_get_commercial_permissions(struct isds_ctx
*context
,
7402 const char *box_id
, struct isds_list
**permissions
) {
7403 isds_error err
= IE_SUCCESS
;
7405 xmlDocPtr response
= NULL
;
7406 xmlXPathContextPtr xpath_ctx
= NULL
;
7407 xmlXPathObjectPtr result
= NULL
;
7410 if (!context
) return IE_INVALID_CONTEXT
;
7411 zfree(context
->long_message
);
7412 if (NULL
== permissions
) return IE_INVAL
;
7413 isds_list_free(permissions
);
7414 if (NULL
== box_id
) return IE_INVAL
;
7417 /* Check if connection is established */
7418 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
7420 /* Do request and check for success */
7421 err
= build_send_dbid_request_check_response(context
,
7422 SERVICE_DB_SEARCH
, BAD_CAST
"PDZInfo", BAD_CAST
"PDZSender",
7423 BAD_CAST box_id
, NULL
, &response
, NULL
);
7425 isds_log(ILF_ISDS
, ILL_DEBUG
,
7426 _("PDZInfo request processed by server successfully.\n"));
7430 /* Prepare structure */
7431 xpath_ctx
= xmlXPathNewContext(response
);
7436 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
7441 /* Set context node */
7442 result
= xmlXPathEvalExpression(BAD_CAST
7443 "/isds:PDZInfoResponse/isds:dbPDZRecords/isds:dbPDZRecord",
7449 if (!xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
7450 /* Iterate over all permission records */
7451 for (long unsigned int i
= 0; i
< result
->nodesetval
->nodeNr
; i
++) {
7452 struct isds_list
*item
, *prev_item
= NULL
;
7454 /* Prepare structure */
7455 item
= calloc(1, sizeof(*item
));
7460 item
->destructor
= (void(*)(void**))isds_commercial_permission_free
;
7461 if (i
== 0) *permissions
= item
;
7462 else prev_item
->next
= item
;
7466 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[i
];
7467 err
= extract_DbPDZRecord(context
,
7468 (struct isds_commercial_permission
**) (&item
->data
),
7470 if (err
) goto leave
;
7476 isds_list_free(permissions
);
7479 xmlXPathFreeObject(result
);
7480 xmlXPathFreeContext(xpath_ctx
);
7481 xmlFreeDoc(response
);
7483 #else /* not HAVE_LIBCURL */
7491 /* Get details about credit for sending pre-paid commercial messages.
7492 * @context is ISDS session context.
7493 * @box_id is UTF-8 encoded sender box identifier as zero terminated string.
7494 * @from_date is first day of credit history to return in @history. Only
7495 * tm_year, tm_mon and tm_mday carry sane value.
7496 * @to_date is last day of credit history to return in @history. Only
7497 * tm_year, tm_mon and tm_mday carry sane value.
7498 * @credit outputs current credit value into pre-allocated memory. Pass NULL
7499 * if you don't care. This and all other credit values are integers in
7500 * hundredths of Czech Crowns.
7501 * @email outputs notification e-mail address where notifications about credit
7502 * are sent. This is automatically reallocated string. Pass NULL if you don't
7503 * care. It can return NULL if no address is defined.
7504 * @history outputs auto-reallocated list of pointers to struct
7505 * isds_credit_event. Events in closed interval @from_time to @to_time are
7506 * returned. Pass NULL @to_time and @from_time if you don't care. The events
7507 * are sorted by time.
7509 * IE_SUCCESS if the credit details have been obtained correctly,
7510 * or other appropriate error. Please note that server allows to retrieve
7511 * only limited history of events. */
7512 isds_error
isds_get_commercial_credit(struct isds_ctx
*context
,
7514 const struct tm
*from_date
, const struct tm
*to_date
,
7515 long int *credit
, char **email
, struct isds_list
**history
) {
7516 isds_error err
= IE_SUCCESS
;
7518 char *box_id_locale
= NULL
;
7519 xmlNodePtr request
= NULL
, node
;
7520 xmlNsPtr isds_ns
= NULL
;
7521 xmlChar
*string
= NULL
;
7523 xmlDocPtr response
= NULL
;
7524 xmlXPathContextPtr xpath_ctx
= NULL
;
7525 xmlXPathObjectPtr result
= NULL
;
7527 const xmlChar
*codes
[] = {
7535 const char *meanings
[] = {
7536 "Insufficient priviledges for the box",
7537 "The box does not exist",
7538 "Date is too long (history is not available after 15 months)",
7539 "Interval is too long (limit is 3 months)",
7542 const isds_error errors
[] = {
7549 struct code_map_isds_error map
= {
7551 .meanings
= meanings
,
7556 if (!context
) return IE_INVALID_CONTEXT
;
7557 zfree(context
->long_message
);
7559 /* Free output argument */
7560 if (NULL
!= credit
) *credit
= 0;
7561 if (NULL
!= email
) zfree(*email
);
7562 isds_list_free(history
);
7564 if (NULL
== box_id
) return IE_INVAL
;
7567 /* Check if connection is established */
7568 if (NULL
== context
->curl
) return IE_CONNECTION_CLOSED
;
7570 box_id_locale
= _isds_utf82locale((char*)box_id
);
7571 if (NULL
== box_id_locale
) {
7577 request
= xmlNewNode(NULL
, BAD_CAST
"DataBoxCreditInfo");
7578 if (NULL
== request
) {
7579 isds_printf_message(context
,
7580 _("Could not build DataBoxCreditInfo request for %s box"),
7585 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
7587 isds_log_message(context
, _("Could not create ISDS name space"));
7591 xmlSetNs(request
, isds_ns
);
7593 /* Add mandatory XSD:tIdDbInput child */
7594 INSERT_STRING(request
, BAD_CAST
"dbID", box_id
);
7595 /* Add mandatory dates elements with optional values */
7597 err
= tm2datestring(from_date
, &string
);
7599 isds_log_message(context
,
7600 _("Could not convert `from_date' argument to ISO date "
7604 INSERT_STRING(request
, "ciFromDate", string
);
7607 INSERT_STRING(request
, "ciFromDate", NULL
);
7610 err
= tm2datestring(to_date
, &string
);
7612 isds_log_message(context
,
7613 _("Could not convert `to_date' argument to ISO date "
7617 INSERT_STRING(request
, "ciTodate", string
);
7620 INSERT_STRING(request
, "ciTodate", NULL
);
7623 /* Send request and check response*/
7624 err
= send_destroy_request_check_response(context
,
7625 SERVICE_DB_SEARCH
, BAD_CAST
"DataBoxCreditInfo",
7626 &request
, &response
, NULL
, &map
);
7627 if (err
) goto leave
;
7631 /* Set context to the root */
7632 xpath_ctx
= xmlXPathNewContext(response
);
7637 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
7641 result
= xmlXPathEvalExpression(BAD_CAST
"/isds:DataBoxCreditInfoResponse",
7647 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
7648 isds_log_message(context
, _("Missing DataBoxCreditInfoResponse element"));
7652 if (result
->nodesetval
->nodeNr
> 1) {
7653 isds_log_message(context
, _("Multiple DataBoxCreditInfoResponse element"));
7657 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
7658 xmlXPathFreeObject(result
); result
= NULL
;
7660 /* Extract common data */
7661 if (NULL
!= credit
) EXTRACT_LONGINT("isds:currentCredit", credit
, 1);
7662 if (NULL
!= email
) EXTRACT_STRING("isds:notifEmail", *email
);
7664 /* Extract records */
7665 if (NULL
== history
) goto leave
;
7666 result
= xmlXPathEvalExpression(BAD_CAST
"isds:ciRecords/isds:ciRecord",
7672 if (!xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
7673 struct isds_list
*prev_item
= NULL
;
7675 /* Iterate over all records */
7676 for (long unsigned int i
= 0; i
< result
->nodesetval
->nodeNr
; i
++) {
7677 struct isds_list
*item
;
7679 /* Prepare structure */
7680 item
= calloc(1, sizeof(*item
));
7685 item
->destructor
= (void(*)(void**))isds_credit_event_free
;
7686 if (i
== 0) *history
= item
;
7687 else prev_item
->next
= item
;
7691 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[i
];
7692 err
= extract_CiRecord(context
,
7693 (struct isds_credit_event
**) (&item
->data
),
7695 if (err
) goto leave
;
7701 isds_log(ILF_ISDS
, ILL_DEBUG
,
7702 _("DataBoxCreditInfo request processed by server successfully.\n"));
7705 isds_list_free(history
);
7706 if (NULL
!= email
) zfree(*email
)
7709 free(box_id_locale
);
7710 xmlXPathFreeObject(result
);
7711 xmlXPathFreeContext(xpath_ctx
);
7712 xmlFreeDoc(response
);
7714 #else /* not HAVE_LIBCURL */
7722 /* Build ISDS request of XSD tIdDbInput type, sent it, check for error
7723 * code, destroy response and log success.
7724 * @context is ISDS session context.
7725 * @service_name is name of SERVICE_DB_MANIPULATION service
7726 * @box_id is UTF-8 encoded box identifier as zero terminated string
7727 * @approval is optional external approval of box manipulation
7728 * @refnumber is reallocated serial number of request assigned by ISDS. Use
7729 * NULL, if you don't care. */
7730 static isds_error
build_send_manipulationdbid_request_check_drop_response(
7731 struct isds_ctx
*context
, const xmlChar
*service_name
,
7732 const xmlChar
*box_id
, const struct isds_approval
*approval
,
7733 xmlChar
**refnumber
) {
7734 isds_error err
= IE_SUCCESS
;
7736 xmlDocPtr response
= NULL
;
7739 if (!context
) return IE_INVALID_CONTEXT
;
7740 zfree(context
->long_message
);
7741 if (!service_name
|| *service_name
== '\0' || !box_id
) return IE_INVAL
;
7744 /* Check if connection is established */
7745 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
7747 /* Do request and check for success */
7748 err
= build_send_dbid_request_check_response(context
,
7749 SERVICE_DB_MANIPULATION
, service_name
, NULL
, box_id
, approval
,
7750 &response
, refnumber
);
7751 xmlFreeDoc(response
);
7754 char *service_name_locale
= _isds_utf82locale((char *) service_name
);
7755 isds_log(ILF_ISDS
, ILL_DEBUG
,
7756 _("%s request processed by server successfully.\n"),
7757 service_name_locale
);
7758 free(service_name_locale
);
7760 #else /* not HAVE_LIBCURL */
7768 /* Switch box into state where box can receive commercial messages (off by
7770 * @context is ISDS session context.
7771 * @box_id is UTF-8 encoded box identifier as zero terminated string
7772 * @allow is true for enable, false for disable commercial messages income
7773 * @approval is optional external approval of box manipulation
7774 * @refnumber is reallocated serial number of request assigned by ISDS. Use
7775 * NULL, if you don't care. */
7776 isds_error
isds_switch_commercial_receiving(struct isds_ctx
*context
,
7777 const char *box_id
, const _Bool allow
,
7778 const struct isds_approval
*approval
, char **refnumber
) {
7779 return build_send_manipulationdbid_request_check_drop_response(context
,
7780 (allow
) ? BAD_CAST
"SetOpenAddressing" :
7781 BAD_CAST
"ClearOpenAddressing",
7782 BAD_CAST box_id
, approval
, (xmlChar
**) refnumber
);
7786 /* Switch box into / out of state where non-OVM box can act as OVM (e.g. force
7787 * message acceptance). This is just a box permission. Sender must apply
7788 * such role by sending each message.
7789 * @context is ISDS session context.
7790 * @box_id is UTF-8 encoded box identifier as zero terminated string
7791 * @allow is true for enable, false for disable OVM role permission
7792 * @approval is optional external approval of box manipulation
7793 * @refnumber is reallocated serial number of request assigned by ISDS. Use
7794 * NULL, if you don't care. */
7795 isds_error
isds_switch_effective_ovm(struct isds_ctx
*context
,
7796 const char *box_id
, const _Bool allow
,
7797 const struct isds_approval
*approval
, char **refnumber
) {
7798 return build_send_manipulationdbid_request_check_drop_response(context
,
7799 (allow
) ? BAD_CAST
"SetEffectiveOVM" :
7800 BAD_CAST
"ClearEffectiveOVM",
7801 BAD_CAST box_id
, approval
, (xmlChar
**) refnumber
);
7805 /* Build ISDS request of XSD tOwnerInfoInput type, sent it, check for error
7806 * code, destroy response and log success.
7807 * @context is ISDS session context.
7808 * @service_name is name of SERVICE_DB_MANIPULATION service
7809 * @owner is structure describing box
7810 * @approval is optional external approval of box manipulation
7811 * @refnumber is reallocated serial number of request assigned by ISDS. Use
7812 * NULL, if you don't care. */
7813 static isds_error
build_send_manipulationdbowner_request_check_drop_response(
7814 struct isds_ctx
*context
, const xmlChar
*service_name
,
7815 const struct isds_DbOwnerInfo
*owner
,
7816 const struct isds_approval
*approval
, xmlChar
**refnumber
) {
7817 isds_error err
= IE_SUCCESS
;
7819 char *service_name_locale
= NULL
;
7820 xmlNodePtr request
= NULL
, db_owner_info
;
7821 xmlNsPtr isds_ns
= NULL
;
7825 if (!context
) return IE_INVALID_CONTEXT
;
7826 zfree(context
->long_message
);
7827 if (!service_name
|| *service_name
== '\0' || !owner
) return IE_INVAL
;
7830 service_name_locale
= _isds_utf82locale((char*)service_name
);
7831 if (!service_name_locale
) {
7837 request
= xmlNewNode(NULL
, service_name
);
7839 isds_printf_message(context
,
7840 _("Could not build %s request"), service_name_locale
);
7844 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
7846 isds_log_message(context
, _("Could not create ISDS name space"));
7850 xmlSetNs(request
, isds_ns
);
7853 /* Add XSD:tOwnerInfoInput child*/
7854 INSERT_ELEMENT(db_owner_info
, request
, "dbOwnerInfo");
7855 err
= insert_DbOwnerInfo(context
, owner
, db_owner_info
);
7856 if (err
) goto leave
;
7858 /* Add XSD:gExtApproval*/
7859 err
= insert_GExtApproval(context
, approval
, request
);
7860 if (err
) goto leave
;
7862 /* Send it to server and process response */
7863 err
= send_request_check_drop_response(context
, SERVICE_DB_MANIPULATION
,
7864 service_name
, &request
, refnumber
);
7867 xmlFreeNode(request
);
7868 free(service_name_locale
);
7869 #else /* not HAVE_LIBCURL */
7877 /* Switch box accessibility state on request of box owner.
7878 * Despite the name, owner must do the request off-line. This function is
7879 * designed for such off-line meeting points (e.g. Czech POINT).
7880 * @context is ISDS session context.
7881 * @box identifies box to switch accessibility state.
7882 * @allow is true for making accessible, false to disallow access.
7883 * @approval is optional external approval of box manipulation
7884 * @refnumber is reallocated serial number of request assigned by ISDS. Use
7885 * NULL, if you don't care. */
7886 isds_error
isds_switch_box_accessibility_on_owner_request(
7887 struct isds_ctx
*context
, const struct isds_DbOwnerInfo
*box
,
7888 const _Bool allow
, const struct isds_approval
*approval
,
7890 return build_send_manipulationdbowner_request_check_drop_response(context
,
7891 (allow
) ? BAD_CAST
"EnableOwnDataBox" :
7892 BAD_CAST
"DisableOwnDataBox",
7893 box
, approval
, (xmlChar
**) refnumber
);
7897 /* Disable box accessibility on law enforcement (e.g. by prison) since exact
7899 * @context is ISDS session context.
7900 * @box identifies box to switch accessibility state.
7901 * @since is date since accessibility has been denied. This can be past too.
7902 * Only tm_year, tm_mon and tm_mday carry sane value.
7903 * @approval is optional external approval of box manipulation
7904 * @refnumber is reallocated serial number of request assigned by ISDS. Use
7905 * NULL, if you don't care. */
7906 isds_error
isds_disable_box_accessibility_externaly(
7907 struct isds_ctx
*context
, const struct isds_DbOwnerInfo
*box
,
7908 const struct tm
*since
, const struct isds_approval
*approval
,
7910 isds_error err
= IE_SUCCESS
;
7912 char *service_name_locale
= NULL
;
7913 xmlNodePtr request
= NULL
, node
;
7914 xmlNsPtr isds_ns
= NULL
;
7915 xmlChar
*string
= NULL
;
7919 if (!context
) return IE_INVALID_CONTEXT
;
7920 zfree(context
->long_message
);
7921 if (!box
|| !since
) return IE_INVAL
;
7925 request
= xmlNewNode(NULL
, BAD_CAST
"DisableDataBoxExternally");
7927 isds_printf_message(context
,
7928 _("Could not build %s request"), "DisableDataBoxExternally");
7932 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
7934 isds_log_message(context
, _("Could not create ISDS name space"));
7938 xmlSetNs(request
, isds_ns
);
7941 /* Add @box identification */
7942 INSERT_ELEMENT(node
, request
, "dbOwnerInfo");
7943 err
= insert_DbOwnerInfo(context
, box
, node
);
7944 if (err
) goto leave
;
7946 /* Add @since date */
7947 err
= tm2datestring(since
, &string
);
7949 isds_log_message(context
,
7950 _("Could not convert `since' argument to ISO date string"));
7953 INSERT_STRING(request
, "dbOwnerDisableDate", string
);
7957 err
= insert_GExtApproval(context
, approval
, request
);
7958 if (err
) goto leave
;
7960 /* Send it to server and process response */
7961 err
= send_request_check_drop_response(context
, SERVICE_DB_MANIPULATION
,
7962 BAD_CAST
"DisableDataBoxExternally", &request
,
7963 (xmlChar
**) refnumber
);
7967 xmlFreeNode(request
);
7968 free(service_name_locale
);
7969 #else /* not HAVE_LIBCURL */
7978 /* Insert struct isds_message data (envelope (recipient data optional) and
7979 * documents into XML tree
7980 * @context is session context
7981 * @outgoing_message is libisds structure with message data
7982 * @create_message is XML CreateMessage or CreateMultipleMessage element
7983 * @process_recipient true for recipient data serialization, false for no
7985 static isds_error
insert_envelope_files(struct isds_ctx
*context
,
7986 const struct isds_message
*outgoing_message
, xmlNodePtr create_message
,
7987 const _Bool process_recipient
) {
7989 isds_error err
= IE_SUCCESS
;
7990 xmlNodePtr envelope
, dm_files
, node
;
7991 xmlChar
*string
= NULL
;
7993 if (!context
) return IE_INVALID_CONTEXT
;
7994 if (!outgoing_message
|| !create_message
) return IE_INVAL
;
7997 /* Build envelope */
7998 envelope
= xmlNewChild(create_message
, NULL
, BAD_CAST
"dmEnvelope", NULL
);
8000 isds_printf_message(context
, _("Could not add dmEnvelope child to "
8001 "%s element"), create_message
->name
);
8005 if (!outgoing_message
->envelope
) {
8006 isds_log_message(context
, _("Outgoing message is missing envelope"));
8011 /* Insert optional message type */
8012 err
= insert_message_type(context
, outgoing_message
->envelope
->dmType
,
8014 if (err
) goto leave
;
8016 INSERT_STRING(envelope
, "dmSenderOrgUnit",
8017 outgoing_message
->envelope
->dmSenderOrgUnit
);
8018 INSERT_LONGINT(envelope
, "dmSenderOrgUnitNum",
8019 outgoing_message
->envelope
->dmSenderOrgUnitNum
, string
);
8021 if (process_recipient
) {
8022 if (!outgoing_message
->envelope
->dbIDRecipient
) {
8023 isds_log_message(context
,
8024 _("Outgoing message is missing recipient box identifier"));
8028 INSERT_STRING(envelope
, "dbIDRecipient",
8029 outgoing_message
->envelope
->dbIDRecipient
);
8031 INSERT_STRING(envelope
, "dmRecipientOrgUnit",
8032 outgoing_message
->envelope
->dmRecipientOrgUnit
);
8033 INSERT_LONGINT(envelope
, "dmRecipientOrgUnitNum",
8034 outgoing_message
->envelope
->dmRecipientOrgUnitNum
, string
);
8035 INSERT_STRING(envelope
, "dmToHands",
8036 outgoing_message
->envelope
->dmToHands
);
8039 CHECK_FOR_STRING_LENGTH(outgoing_message
->envelope
->dmAnnotation
, 0, 255,
8041 INSERT_STRING(envelope
, "dmAnnotation",
8042 outgoing_message
->envelope
->dmAnnotation
);
8044 CHECK_FOR_STRING_LENGTH(outgoing_message
->envelope
->dmRecipientRefNumber
,
8045 0, 50, "dmRecipientRefNumber");
8046 INSERT_STRING(envelope
, "dmRecipientRefNumber",
8047 outgoing_message
->envelope
->dmRecipientRefNumber
);
8049 CHECK_FOR_STRING_LENGTH(outgoing_message
->envelope
->dmSenderRefNumber
,
8050 0, 50, "dmSenderRefNumber");
8051 INSERT_STRING(envelope
, "dmSenderRefNumber",
8052 outgoing_message
->envelope
->dmSenderRefNumber
);
8054 CHECK_FOR_STRING_LENGTH(outgoing_message
->envelope
->dmRecipientIdent
,
8055 0, 50, "dmRecipientIdent");
8056 INSERT_STRING(envelope
, "dmRecipientIdent",
8057 outgoing_message
->envelope
->dmRecipientIdent
);
8059 CHECK_FOR_STRING_LENGTH(outgoing_message
->envelope
->dmSenderIdent
,
8060 0, 50, "dmSenderIdent");
8061 INSERT_STRING(envelope
, "dmSenderIdent",
8062 outgoing_message
->envelope
->dmSenderIdent
);
8064 INSERT_LONGINT(envelope
, "dmLegalTitleLaw",
8065 outgoing_message
->envelope
->dmLegalTitleLaw
, string
);
8066 INSERT_LONGINT(envelope
, "dmLegalTitleYear",
8067 outgoing_message
->envelope
->dmLegalTitleYear
, string
);
8068 INSERT_STRING(envelope
, "dmLegalTitleSect",
8069 outgoing_message
->envelope
->dmLegalTitleSect
);
8070 INSERT_STRING(envelope
, "dmLegalTitlePar",
8071 outgoing_message
->envelope
->dmLegalTitlePar
);
8072 INSERT_STRING(envelope
, "dmLegalTitlePoint",
8073 outgoing_message
->envelope
->dmLegalTitlePoint
);
8075 INSERT_BOOLEAN(envelope
, "dmPersonalDelivery",
8076 outgoing_message
->envelope
->dmPersonalDelivery
);
8077 INSERT_BOOLEAN(envelope
, "dmAllowSubstDelivery",
8078 outgoing_message
->envelope
->dmAllowSubstDelivery
);
8080 /* ???: Should we require value for dbEffectiveOVM sender?
8081 * ISDS has default as true */
8082 INSERT_BOOLEAN(envelope
, "dmOVM", outgoing_message
->envelope
->dmOVM
);
8083 INSERT_BOOLEAN(envelope
, "dmOVM",
8084 outgoing_message
->envelope
->dmPublishOwnID
);
8087 /* Append dmFiles */
8088 if (!outgoing_message
->documents
) {
8089 isds_log_message(context
,
8090 _("Outgoing message is missing list of documents"));
8094 dm_files
= xmlNewChild(create_message
, NULL
, BAD_CAST
"dmFiles", NULL
);
8096 isds_printf_message(context
, _("Could not add dmFiles child to "
8097 "%s element"), create_message
->name
);
8102 /* Check for document hierarchy */
8103 err
= _isds_check_documents_hierarchy(context
, outgoing_message
->documents
);
8104 if (err
) goto leave
;
8106 /* Process each document */
8107 for (struct isds_list
*item
=
8108 (struct isds_list
*) outgoing_message
->documents
;
8109 item
; item
= item
->next
) {
8111 isds_log_message(context
,
8112 _("List of documents contains empty item"));
8116 /* FIXME: Check for dmFileMetaType and for document references.
8117 * Only first document can be of MAIN type */
8118 err
= insert_document(context
, (struct isds_document
*) item
->data
,
8121 if (err
) goto leave
;
8128 #endif /* HAVE_LIBCURL */
8131 /* Send a message via ISDS to a recipient
8132 * @context is session context
8133 * @outgoing_message is message to send; Some members are mandatory (like
8134 * dbIDRecipient), some are optional and some are irrelevant (especially data
8135 * about sender). Included pointer to isds_list documents must contain at
8136 * least one document of FILEMETATYPE_MAIN. This is read-write structure, some
8137 * members will be filled with valid data from ISDS. Exact list of write
8138 * members is subject to change. Currently dmID is changed.
8139 * @return ISDS_SUCCESS, or other error code if something goes wrong. */
8140 isds_error
isds_send_message(struct isds_ctx
*context
,
8141 struct isds_message
*outgoing_message
) {
8143 isds_error err
= IE_SUCCESS
;
8145 xmlNsPtr isds_ns
= NULL
;
8146 xmlNodePtr request
= NULL
;
8147 xmlDocPtr response
= NULL
;
8148 xmlChar
*code
= NULL
, *message
= NULL
;
8149 xmlXPathContextPtr xpath_ctx
= NULL
;
8150 xmlXPathObjectPtr result
= NULL
;
8151 /*_Bool message_is_complete = 0;*/
8154 if (!context
) return IE_INVALID_CONTEXT
;
8155 zfree(context
->long_message
);
8156 if (!outgoing_message
) return IE_INVAL
;
8159 /* Check if connection is established
8160 * TODO: This check should be done downstairs. */
8161 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
8164 /* Build CreateMessage request */
8165 request
= xmlNewNode(NULL
, BAD_CAST
"CreateMessage");
8167 isds_log_message(context
,
8168 _("Could not build CreateMessage request"));
8171 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
8173 isds_log_message(context
, _("Could not create ISDS name space"));
8174 xmlFreeNode(request
);
8177 xmlSetNs(request
, isds_ns
);
8179 /* Append envelope and files */
8180 err
= insert_envelope_files(context
, outgoing_message
, request
, 1);
8181 if (err
) goto leave
;
8184 /* Signal we can serialize message since now */
8185 /*message_is_complete = 1;*/
8188 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Sending CreateMessage request to ISDS\n"));
8191 err
= isds(context
, SERVICE_DM_OPERATIONS
, request
, &response
, NULL
, NULL
);
8193 /* Don't' destroy request, we want to provide it to application later */
8196 isds_log(ILF_ISDS
, ILL_DEBUG
,
8197 _("Processing ISDS response on CreateMessage "
8198 "request failed\n"));
8202 /* Check for response status */
8203 err
= isds_response_status(context
, SERVICE_DM_OPERATIONS
, response
,
8204 &code
, &message
, NULL
);
8206 isds_log(ILF_ISDS
, ILL_DEBUG
,
8207 _("ISDS response on CreateMessage request "
8208 "is missing status\n"));
8212 /* Request processed, but refused by server or server failed */
8213 if (xmlStrcmp(code
, BAD_CAST
"0000")) {
8214 char *box_id_locale
=
8215 _isds_utf82locale((char*)outgoing_message
->envelope
->dbIDRecipient
);
8216 char *code_locale
= _isds_utf82locale((char*)code
);
8217 char *message_locale
= _isds_utf82locale((char*)message
);
8218 isds_log(ILF_ISDS
, ILL_DEBUG
,
8219 _("Server did not accept message for %s on CreateMessage "
8220 "request (code=%s, message=%s)\n"),
8221 box_id_locale
, code_locale
, message_locale
);
8222 isds_log_message(context
, message_locale
);
8223 free(box_id_locale
);
8225 free(message_locale
);
8232 xpath_ctx
= xmlXPathNewContext(response
);
8237 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
8241 result
= xmlXPathEvalExpression(BAD_CAST
"/isds:CreateMessageResponse",
8247 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
8248 isds_log_message(context
, _("Missing CreateMessageResponse element"));
8252 if (result
->nodesetval
->nodeNr
> 1) {
8253 isds_log_message(context
, _("Multiple CreateMessageResponse element"));
8257 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
8258 xmlXPathFreeObject(result
); result
= NULL
;
8260 if (outgoing_message
->envelope
->dmID
) {
8261 free(outgoing_message
->envelope
->dmID
);
8262 outgoing_message
->envelope
->dmID
= NULL
;
8264 EXTRACT_STRING("isds:dmID", outgoing_message
->envelope
->dmID
);
8265 if (!outgoing_message
->envelope
->dmID
) {
8266 isds_log(ILF_ISDS
, ILL_ERR
, _("Server accepted sent message, "
8267 "but did not return assigned message ID\n"));
8271 /* TODO: Serialize message into structure member raw */
8272 /* XXX: Each web service transport message in different format.
8273 * Therefore it's not possible to save them directly.
8274 * To save them, one must figure out common format.
8275 * We can leave it on application, or we can implement the ESS format. */
8276 /*if (message_is_complete) {
8277 if (outgoing_message->envelope->dmID) {
8279 /* Add assigned message ID as first child*/
8280 /*xmlNodePtr dmid_text = xmlNewText(
8281 (xmlChar *) outgoing_message->envelope->dmID);
8282 if (!dmid_text) goto serialization_failed;
8284 xmlNodePtr dmid_element = xmlNewNode(envelope->ns,
8286 if (!dmid_element) {
8287 xmlFreeNode(dmid_text);
8288 goto serialization_failed;
8291 xmlNodePtr dmid_element_with_text =
8292 xmlAddChild(dmid_element, dmid_text);
8293 if (!dmid_element_with_text) {
8294 xmlFreeNode(dmid_element);
8295 xmlFreeNode(dmid_text);
8296 goto serialization_failed;
8299 node = xmlAddPrevSibling(envelope->childern,
8300 dmid_element_with_text);
8302 xmlFreeNodeList(dmid_element_with_text);
8303 goto serialization_failed;
8307 /* Serialize message with ID into raw */
8308 /*buffer = serialize_element(envelope)*/
8311 serialization_failed:
8316 xmlXPathFreeObject(result
);
8317 xmlXPathFreeContext(xpath_ctx
);
8321 xmlFreeDoc(response
);
8322 xmlFreeNode(request
);
8325 isds_log(ILF_ISDS
, ILL_DEBUG
,
8326 _("CreateMessage request processed by server "
8327 "successfully.\n"));
8328 #else /* not HAVE_LIBCURL */
8336 /* Send a message via ISDS to a multiple recipients
8337 * @context is session context
8338 * @outgoing_message is message to send; Some members are mandatory,
8339 * some are optional and some are irrelevant (especially data
8340 * about sender). Data about recipient will be substituted by ISDS from
8341 * @copies. Included pointer to isds_list documents must
8342 * contain at least one document of FILEMETATYPE_MAIN.
8343 * @copies is list of isds_message_copy structures addressing all desired
8344 * recipients. This is read-write structure, some members will be filled with
8345 * valid data from ISDS (message IDs, error codes, error descriptions).
8347 * ISDS_SUCCESS if all messages have been sent
8348 * ISDS_PARTIAL_SUCCESS if sending of some messages has failed (failed and
8349 * succeeded messages can be identified by copies->data->error),
8350 * or other error code if something other goes wrong. */
8351 isds_error
isds_send_message_to_multiple_recipients(struct isds_ctx
*context
,
8352 const struct isds_message
*outgoing_message
,
8353 struct isds_list
*copies
) {
8355 isds_error err
= IE_SUCCESS
;
8357 isds_error append_err
;
8358 xmlNsPtr isds_ns
= NULL
;
8359 xmlNodePtr request
= NULL
, recipients
, recipient
, node
;
8360 struct isds_list
*item
;
8361 struct isds_message_copy
*copy
;
8362 xmlDocPtr response
= NULL
;
8363 xmlChar
*code
= NULL
, *message
= NULL
;
8364 xmlXPathContextPtr xpath_ctx
= NULL
;
8365 xmlXPathObjectPtr result
= NULL
;
8366 xmlChar
*string
= NULL
;
8370 if (!context
) return IE_INVALID_CONTEXT
;
8371 zfree(context
->long_message
);
8372 if (!outgoing_message
|| !copies
) return IE_INVAL
;
8375 /* Check if connection is established
8376 * TODO: This check should be done downstairs. */
8377 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
8380 /* Build CreateMultipleMessage request */
8381 request
= xmlNewNode(NULL
, BAD_CAST
"CreateMultipleMessage");
8383 isds_log_message(context
,
8384 _("Could not build CreateMultipleMessage request"));
8387 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
8389 isds_log_message(context
, _("Could not create ISDS name space"));
8390 xmlFreeNode(request
);
8393 xmlSetNs(request
, isds_ns
);
8396 /* Build recipients */
8397 recipients
= xmlNewChild(request
, NULL
, BAD_CAST
"dmRecipients", NULL
);
8399 isds_log_message(context
, _("Could not add dmRecipients child to "
8400 "CreateMultipleMessage element"));
8401 xmlFreeNode(request
);
8405 /* Insert each recipient */
8406 for (item
= copies
; item
; item
= item
->next
) {
8407 copy
= (struct isds_message_copy
*) item
->data
;
8409 isds_log_message(context
,
8410 _("`copies' list item contains empty data"));
8415 recipient
= xmlNewChild(recipients
, NULL
, BAD_CAST
"dmRecipient", NULL
);
8417 isds_log_message(context
, _("Could not add dmRecipient child to "
8418 "dmRecipients element"));
8423 if (!copy
->dbIDRecipient
) {
8424 isds_log_message(context
,
8425 _("Message copy is missing recipient box identifier"));
8429 INSERT_STRING(recipient
, "dbIDRecipient", copy
->dbIDRecipient
);
8430 INSERT_STRING(recipient
, "dmRecipientOrgUnit",
8431 copy
->dmRecipientOrgUnit
);
8432 INSERT_LONGINT(recipient
, "dmRecipientOrgUnitNum",
8433 copy
->dmRecipientOrgUnitNum
, string
);
8434 INSERT_STRING(recipient
, "dmToHands", copy
->dmToHands
);
8437 /* Append envelope and files */
8438 err
= insert_envelope_files(context
, outgoing_message
, request
, 0);
8439 if (err
) goto leave
;
8442 isds_log(ILF_ISDS
, ILL_DEBUG
,
8443 _("Sending CreateMultipleMessage request to ISDS\n"));
8446 err
= isds(context
, SERVICE_DM_OPERATIONS
, request
, &response
, NULL
, NULL
);
8448 isds_log(ILF_ISDS
, ILL_DEBUG
,
8449 _("Processing ISDS response on CreateMultipleMessage "
8450 "request failed\n"));
8454 /* Check for response status */
8455 err
= isds_response_status(context
, SERVICE_DM_OPERATIONS
, response
,
8456 &code
, &message
, NULL
);
8458 isds_log(ILF_ISDS
, ILL_DEBUG
,
8459 _("ISDS response on CreateMultipleMessage request "
8460 "is missing status\n"));
8464 /* Request processed, but some copies failed */
8465 if (!xmlStrcmp(code
, BAD_CAST
"0004")) {
8466 char *box_id_locale
=
8467 _isds_utf82locale((char*)outgoing_message
->envelope
->dbIDRecipient
);
8468 char *code_locale
= _isds_utf82locale((char*)code
);
8469 char *message_locale
= _isds_utf82locale((char*)message
);
8470 isds_log(ILF_ISDS
, ILL_DEBUG
,
8471 _("Server did accept message for multiple recipients "
8472 "on CreateMultipleMessage request but delivery to "
8473 "some of them failed (code=%s, message=%s)\n"),
8474 box_id_locale
, code_locale
, message_locale
);
8475 isds_log_message(context
, message_locale
);
8476 free(box_id_locale
);
8478 free(message_locale
);
8479 err
= IE_PARTIAL_SUCCESS
;
8482 /* Request refused by server as whole */
8483 else if (xmlStrcmp(code
, BAD_CAST
"0000")) {
8484 char *box_id_locale
=
8485 _isds_utf82locale((char*)outgoing_message
->envelope
->dbIDRecipient
);
8486 char *code_locale
= _isds_utf82locale((char*)code
);
8487 char *message_locale
= _isds_utf82locale((char*)message
);
8488 isds_log(ILF_ISDS
, ILL_DEBUG
,
8489 _("Server did not accept message for multiple recipients "
8490 "on CreateMultipleMessage request (code=%s, message=%s)\n"),
8491 box_id_locale
, code_locale
, message_locale
);
8492 isds_log_message(context
, message_locale
);
8493 free(box_id_locale
);
8495 free(message_locale
);
8502 xpath_ctx
= xmlXPathNewContext(response
);
8507 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
8511 result
= xmlXPathEvalExpression(
8512 BAD_CAST
"/isds:CreateMultipleMessageResponse"
8513 "/isds:dmMultipleStatus/isds:dmSingleStatus",
8519 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
8520 isds_log_message(context
, _("Missing isds:dmSingleStatus element"));
8525 /* Extract message ID and delivery status for each copy */
8526 for (item
= copies
, i
= 0; item
&& i
< result
->nodesetval
->nodeNr
;
8527 item
= item
->next
, i
++) {
8528 copy
= (struct isds_message_copy
*) item
->data
;
8529 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[i
];
8531 append_err
= append_TMStatus(context
, copy
, xpath_ctx
);
8537 if (item
|| i
< result
->nodesetval
->nodeNr
) {
8538 isds_printf_message(context
, _("ISDS returned unexpected number of "
8539 "message copy delivery states: %d"),
8540 result
->nodesetval
->nodeNr
);
8549 xmlXPathFreeObject(result
);
8550 xmlXPathFreeContext(xpath_ctx
);
8554 xmlFreeDoc(response
);
8555 xmlFreeNode(request
);
8558 isds_log(ILF_ISDS
, ILL_DEBUG
,
8559 _("CreateMultipleMessageResponse request processed by server "
8560 "successfully.\n"));
8561 #else /* not HAVE_LIBCURL */
8569 /* Get list of messages. This is common core for getting sent or received
8571 * Any criterion argument can be NULL, if you don't care about it.
8572 * @context is session context. Must not be NULL.
8573 * @outgoing_direction is true if you want list of outgoing messages,
8574 * it's false if you want incoming messages.
8575 * @from_time is minimal time and date of message sending inclusive.
8576 * @to_time is maximal time and date of message sending inclusive
8577 * @organization_unit_number is number of sender/recipient respectively.
8578 * @status_filter is bit field of isds_message_status values. Use special
8579 * value MESSAGESTATE_ANY to signal you don't care. (It's defined as union of
8580 * all values, you can use bit-wise arithmetic if you want.)
8581 * @offset is index of first message we are interested in. First message is 1.
8582 * Set to 0 (or 1) if you don't care.
8583 * @number is maximal length of list you want to get as input value, outputs
8584 * number of messages matching these criteria. Can be NULL if you don't care
8585 * (applies to output value either).
8586 * @messages is automatically reallocated list of isds_message's. Be ware that
8587 * it returns only brief overview (envelope and some other fields) about each
8588 * message, not the complete message. FIXME: Specify exact fields.
8589 * The list is sorted by delivery time in ascending order.
8590 * Use NULL if you don't care about don't need the data (useful if you want to
8591 * know only the @number). If you provide &NULL, list will be allocated on
8592 * heap, if you provide pointer to non-NULL, list will be freed automatically
8593 * at first. Also in case of error the list will be NULLed.
8594 * @return IE_SUCCESS or appropriate error code. */
8595 static isds_error
isds_get_list_of_messages(struct isds_ctx
*context
,
8596 _Bool outgoing_direction
,
8597 const struct timeval
*from_time
, const struct timeval
*to_time
,
8598 const long int *organization_unit_number
,
8599 const unsigned int status_filter
,
8600 const unsigned long int offset
, unsigned long int *number
,
8601 struct isds_list
**messages
) {
8603 isds_error err
= IE_SUCCESS
;
8605 xmlNsPtr isds_ns
= NULL
;
8606 xmlNodePtr request
= NULL
, node
;
8607 xmlDocPtr response
= NULL
;
8608 xmlChar
*code
= NULL
, *message
= NULL
;
8609 xmlXPathContextPtr xpath_ctx
= NULL
;
8610 xmlXPathObjectPtr result
= NULL
;
8611 xmlChar
*string
= NULL
;
8612 long unsigned int count
= 0;
8615 if (!context
) return IE_INVALID_CONTEXT
;
8616 zfree(context
->long_message
);
8618 /* Free former message list if any */
8619 if (messages
) isds_list_free(messages
);
8622 /* Check if connection is established
8623 * TODO: This check should be done downstairs. */
8624 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
8626 /* Build GetListOf*Messages request */
8627 request
= xmlNewNode(NULL
,
8628 (outgoing_direction
) ?
8629 BAD_CAST
"GetListOfSentMessages" :
8630 BAD_CAST
"GetListOfReceivedMessages"
8633 isds_log_message(context
,
8634 (outgoing_direction
) ?
8635 _("Could not build GetListOfSentMessages request") :
8636 _("Could not build GetListOfReceivedMessages request")
8640 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
8642 isds_log_message(context
, _("Could not create ISDS name space"));
8643 xmlFreeNode(request
);
8646 xmlSetNs(request
, isds_ns
);
8650 err
= timeval2timestring(from_time
, &string
);
8651 if (err
) goto leave
;
8653 INSERT_STRING(request
, "dmFromTime", string
);
8654 free(string
); string
= NULL
;
8657 err
= timeval2timestring(to_time
, &string
);
8658 if (err
) goto leave
;
8660 INSERT_STRING(request
, "dmToTime", string
);
8661 free(string
); string
= NULL
;
8663 if (outgoing_direction
) {
8664 INSERT_LONGINT(request
, "dmSenderOrgUnitNum",
8665 organization_unit_number
, string
);
8667 INSERT_LONGINT(request
, "dmRecipientOrgUnitNum",
8668 organization_unit_number
, string
);
8671 if (status_filter
> MESSAGESTATE_ANY
) {
8672 isds_printf_message(context
,
8673 _("Invalid message state filter value: %ld"), status_filter
);
8677 INSERT_ULONGINTNOPTR(request
, "dmStatusFilter", status_filter
, string
);
8680 INSERT_ULONGINTNOPTR(request
, "dmOffset", offset
, string
);
8682 INSERT_STRING(request
, "dmOffset", "1");
8685 /* number 0 means no limit */
8686 if (number
&& *number
== 0) {
8687 INSERT_STRING(request
, "dmLimit", NULL
);
8689 INSERT_ULONGINT(request
, "dmLimit", number
, string
);
8693 isds_log(ILF_ISDS
, ILL_DEBUG
,
8694 (outgoing_direction
) ?
8695 _("Sending GetListOfSentMessages request to ISDS\n") :
8696 _("Sending GetListOfReceivedMessages request to ISDS\n")
8700 err
= isds(context
, SERVICE_DM_INFO
, request
, &response
, NULL
, NULL
);
8701 xmlFreeNode(request
); request
= NULL
;
8704 isds_log(ILF_ISDS
, ILL_DEBUG
,
8705 (outgoing_direction
) ?
8706 _("Processing ISDS response on GetListOfSentMessages "
8707 "request failed\n") :
8708 _("Processing ISDS response on GetListOfReceivedMessages "
8714 /* Check for response status */
8715 err
= isds_response_status(context
, SERVICE_DM_INFO
, response
,
8716 &code
, &message
, NULL
);
8718 isds_log(ILF_ISDS
, ILL_DEBUG
,
8719 (outgoing_direction
) ?
8720 _("ISDS response on GetListOfSentMessages request "
8721 "is missing status\n") :
8722 _("ISDS response on GetListOfReceivedMessages request "
8723 "is missing status\n")
8728 /* Request processed, but nothing found */
8729 if (xmlStrcmp(code
, BAD_CAST
"0000")) {
8730 char *code_locale
= _isds_utf82locale((char*)code
);
8731 char *message_locale
= _isds_utf82locale((char*)message
);
8732 isds_log(ILF_ISDS
, ILL_DEBUG
,
8733 (outgoing_direction
) ?
8734 _("Server refused GetListOfSentMessages request "
8735 "(code=%s, message=%s)\n") :
8736 _("Server refused GetListOfReceivedMessages request "
8737 "(code=%s, message=%s)\n"),
8738 code_locale
, message_locale
);
8739 isds_log_message(context
, message_locale
);
8741 free(message_locale
);
8748 xpath_ctx
= xmlXPathNewContext(response
);
8753 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
8757 result
= xmlXPathEvalExpression(
8758 (outgoing_direction
) ?
8759 BAD_CAST
"/isds:GetListOfSentMessagesResponse/"
8760 "isds:dmRecords/isds:dmRecord" :
8761 BAD_CAST
"/isds:GetListOfReceivedMessagesResponse/"
8762 "isds:dmRecords/isds:dmRecord",
8769 /* Fill output arguments in */
8770 if (!xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
8771 struct isds_envelope
*envelope
;
8772 struct isds_list
*item
= NULL
, *last_item
= NULL
;
8774 for (count
= 0; count
< result
->nodesetval
->nodeNr
; count
++) {
8775 /* Create new message */
8776 item
= calloc(1, sizeof(*item
));
8781 item
->destructor
= (void(*)(void**)) &isds_message_free
;
8782 item
->data
= calloc(1, sizeof(struct isds_message
));
8784 isds_list_free(&item
);
8789 /* Extract envelope data */
8790 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[count
];
8792 err
= extract_DmRecord(context
, &envelope
, xpath_ctx
);
8794 isds_list_free(&item
);
8798 /* Attach extracted envelope */
8799 ((struct isds_message
*) item
->data
)->envelope
= envelope
;
8801 /* Append new message into the list */
8803 *messages
= last_item
= item
;
8805 last_item
->next
= item
;
8810 if (number
) *number
= count
;
8814 isds_list_free(messages
);
8818 xmlXPathFreeObject(result
);
8819 xmlXPathFreeContext(xpath_ctx
);
8823 xmlFreeDoc(response
);
8824 xmlFreeNode(request
);
8827 isds_log(ILF_ISDS
, ILL_DEBUG
,
8828 (outgoing_direction
) ?
8829 _("GetListOfSentMessages request processed by server "
8830 "successfully.\n") :
8831 _("GetListOfReceivedMessages request processed by server "
8834 #else /* not HAVE_LIBCURL */
8841 /* Get list of outgoing (already sent) messages.
8842 * Any criterion argument can be NULL, if you don't care about it.
8843 * @context is session context. Must not be NULL.
8844 * @from_time is minimal time and date of message sending inclusive.
8845 * @to_time is maximal time and date of message sending inclusive
8846 * @dmSenderOrgUnitNum is the same as isds_envelope.dmSenderOrgUnitNum
8847 * @status_filter is bit field of isds_message_status values. Use special
8848 * value MESSAGESTATE_ANY to signal you don't care. (It's defined as union of
8849 * all values, you can use bit-wise arithmetic if you want.)
8850 * @offset is index of first message we are interested in. First message is 1.
8851 * Set to 0 (or 1) if you don't care.
8852 * @number is maximal length of list you want to get as input value, outputs
8853 * number of messages matching these criteria. Can be NULL if you don't care
8854 * (applies to output value either).
8855 * @messages is automatically reallocated list of isds_message's. Be ware that
8856 * it returns only brief overview (envelope and some other fields) about each
8857 * message, not the complete message. FIXME: Specify exact fields.
8858 * The list is sorted by delivery time in ascending order.
8859 * Use NULL if you don't care about the meta data (useful if you want to know
8860 * only the @number). If you provide &NULL, list will be allocated on heap,
8861 * if you provide pointer to non-NULL, list will be freed automatically at
8862 * first. Also in case of error the list will be NULLed.
8863 * @return IE_SUCCESS or appropriate error code. */
8864 isds_error
isds_get_list_of_sent_messages(struct isds_ctx
*context
,
8865 const struct timeval
*from_time
, const struct timeval
*to_time
,
8866 const long int *dmSenderOrgUnitNum
, const unsigned int status_filter
,
8867 const unsigned long int offset
, unsigned long int *number
,
8868 struct isds_list
**messages
) {
8870 return isds_get_list_of_messages(
8872 from_time
, to_time
, dmSenderOrgUnitNum
, status_filter
,
8878 /* Get list of incoming (addressed to you) messages.
8879 * Any criterion argument can be NULL, if you don't care about it.
8880 * @context is session context. Must not be NULL.
8881 * @from_time is minimal time and date of message sending inclusive.
8882 * @to_time is maximal time and date of message sending inclusive
8883 * @dmRecipientOrgUnitNum is the same as isds_envelope.dmRecipientOrgUnitNum
8884 * @status_filter is bit field of isds_message_status values. Use special
8885 * value MESSAGESTATE_ANY to signal you don't care. (It's defined as union of
8886 * all values, you can use bit-wise arithmetic if you want.)
8887 * @offset is index of first message we are interested in. First message is 1.
8888 * Set to 0 (or 1) if you don't care.
8889 * @number is maximal length of list you want to get as input value, outputs
8890 * number of messages matching these criteria. Can be NULL if you don't care
8891 * (applies to output value either).
8892 * @messages is automatically reallocated list of isds_message's. Be ware that
8893 * it returns only brief overview (envelope and some other fields) about each
8894 * message, not the complete message. FIXME: Specify exact fields.
8895 * Use NULL if you don't care about the meta data (useful if you want to know
8896 * only the @number). If you provide &NULL, list will be allocated on heap,
8897 * if you provide pointer to non-NULL, list will be freed automatically at
8898 * first. Also in case of error the list will be NULLed.
8899 * @return IE_SUCCESS or appropriate error code. */
8900 isds_error
isds_get_list_of_received_messages(struct isds_ctx
*context
,
8901 const struct timeval
*from_time
, const struct timeval
*to_time
,
8902 const long int *dmRecipientOrgUnitNum
,
8903 const unsigned int status_filter
,
8904 const unsigned long int offset
, unsigned long int *number
,
8905 struct isds_list
**messages
) {
8907 return isds_get_list_of_messages(
8909 from_time
, to_time
, dmRecipientOrgUnitNum
, status_filter
,
8915 /* Get list of sent message state changes.
8916 * Any criterion argument can be NULL, if you don't care about it.
8917 * @context is session context. Must not be NULL.
8918 * @from_time is minimal time and date of status changes inclusive
8919 * @to_time is maximal time and date of status changes inclusive
8920 * @changed_states is automatically reallocated list of
8921 * isds_message_status_change's. If you provide &NULL, list will be allocated
8922 * on heap, if you provide pointer to non-NULL, list will be freed
8923 * automatically at first. Also in case of error the list will be NULLed.
8924 * XXX: The list item ordering is not specified.
8925 * XXX: Server provides only `recent' changes.
8926 * @return IE_SUCCESS or appropriate error code. */
8927 isds_error
isds_get_list_of_sent_message_state_changes(
8928 struct isds_ctx
*context
,
8929 const struct timeval
*from_time
, const struct timeval
*to_time
,
8930 struct isds_list
**changed_states
) {
8932 isds_error err
= IE_SUCCESS
;
8934 xmlNsPtr isds_ns
= NULL
;
8935 xmlNodePtr request
= NULL
, node
;
8936 xmlDocPtr response
= NULL
;
8937 xmlXPathContextPtr xpath_ctx
= NULL
;
8938 xmlXPathObjectPtr result
= NULL
;
8939 xmlChar
*string
= NULL
;
8940 long unsigned int count
= 0;
8943 if (!context
) return IE_INVALID_CONTEXT
;
8944 zfree(context
->long_message
);
8946 /* Free former message list if any */
8947 isds_list_free(changed_states
);
8950 /* Check if connection is established
8951 * TODO: This check should be done downstairs. */
8952 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
8954 /* Build GetMessageStateChanges request */
8955 request
= xmlNewNode(NULL
, BAD_CAST
"GetMessageStateChanges");
8957 isds_log_message(context
,
8958 _("Could not build GetMessageStateChanges request"));
8961 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
8963 isds_log_message(context
, _("Could not create ISDS name space"));
8964 xmlFreeNode(request
);
8967 xmlSetNs(request
, isds_ns
);
8971 err
= timeval2timestring(from_time
, &string
);
8972 if (err
) goto leave
;
8974 INSERT_STRING(request
, "dmFromTime", string
);
8978 err
= timeval2timestring(to_time
, &string
);
8979 if (err
) goto leave
;
8981 INSERT_STRING(request
, "dmToTime", string
);
8986 err
= send_destroy_request_check_response(context
,
8987 SERVICE_DM_INFO
, BAD_CAST
"GetMessageStateChanges", &request
,
8988 &response
, NULL
, NULL
);
8989 if (err
) goto leave
;
8993 xpath_ctx
= xmlXPathNewContext(response
);
8998 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
9002 result
= xmlXPathEvalExpression(
9003 BAD_CAST
"/isds:GetMessageStateChangesResponse/"
9004 "isds:dmRecords/isds:dmRecord", xpath_ctx
);
9010 /* Fill output arguments in */
9011 if (!xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
9012 struct isds_list
*item
= NULL
, *last_item
= NULL
;
9014 for (count
= 0; count
< result
->nodesetval
->nodeNr
; count
++) {
9015 /* Create new status change */
9016 item
= calloc(1, sizeof(*item
));
9022 (void(*)(void**)) &isds_message_status_change_free
;
9024 /* Extract message status change */
9025 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[count
];
9026 err
= extract_StateChangesRecord(context
,
9027 (struct isds_message_status_change
**) &item
->data
,
9030 isds_list_free(&item
);
9034 /* Append new message status change into the list */
9035 if (!*changed_states
) {
9036 *changed_states
= last_item
= item
;
9038 last_item
->next
= item
;
9046 isds_list_free(changed_states
);
9050 xmlXPathFreeObject(result
);
9051 xmlXPathFreeContext(xpath_ctx
);
9052 xmlFreeDoc(response
);
9053 xmlFreeNode(request
);
9056 isds_log(ILF_ISDS
, ILL_DEBUG
,
9057 _("GetMessageStateChanges request processed by server "
9058 "successfully.\n"));
9059 #else /* not HAVE_LIBCURL */
9067 /* Build ISDS request of XSD tIDMessInput type, sent it and check for error
9069 * @context is session context
9070 * @service is ISDS WS service handler
9071 * @service_name is name of SERVICE_DM_OPERATIONS
9072 * @message_id is message ID to send as service argument to ISDS
9073 * @response is server SOAP body response as XML document
9074 * @raw_response is automatically reallocated bit stream with response body. Use
9075 * NULL if you don't care
9076 * @raw_response_length is size of @raw_response in bytes
9077 * @code is ISDS status code
9078 * @status_message is ISDS status message
9079 * @return error coded from lower layer, context message will be set up
9081 static isds_error
build_send_check_message_request(struct isds_ctx
*context
,
9082 const isds_service service
, const xmlChar
*service_name
,
9083 const char *message_id
,
9084 xmlDocPtr
*response
, void **raw_response
, size_t *raw_response_length
,
9085 xmlChar
**code
, xmlChar
**status_message
) {
9087 isds_error err
= IE_SUCCESS
;
9088 char *service_name_locale
= NULL
, *message_id_locale
= NULL
;
9089 xmlNodePtr request
= NULL
, node
;
9090 xmlNsPtr isds_ns
= NULL
;
9092 if (!context
) return IE_INVALID_CONTEXT
;
9093 if (!service_name
|| !message_id
) return IE_INVAL
;
9094 if (!response
|| !code
|| !status_message
) return IE_INVAL
;
9095 if (!raw_response_length
&& raw_response
) return IE_INVAL
;
9097 /* Free output argument */
9098 xmlFreeDoc(*response
); *response
= NULL
;
9099 if (raw_response
) zfree(*raw_response
);
9101 free(*status_message
);
9104 /* Check if connection is established
9105 * TODO: This check should be done downstairs. */
9106 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
9108 service_name_locale
= _isds_utf82locale((char*)service_name
);
9109 message_id_locale
= _isds_utf82locale(message_id
);
9110 if (!service_name_locale
|| !message_id_locale
) {
9116 request
= xmlNewNode(NULL
, service_name
);
9118 isds_printf_message(context
,
9119 _("Could not build %s request for %s message ID"),
9120 service_name_locale
, message_id_locale
);
9124 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
9126 isds_log_message(context
, _("Could not create ISDS name space"));
9130 xmlSetNs(request
, isds_ns
);
9133 /* Add requested ID */
9134 err
= validate_message_id_length(context
, (xmlChar
*) message_id
);
9135 if (err
) goto leave
;
9136 INSERT_STRING(request
, "dmID", message_id
);
9139 isds_log(ILF_ISDS
, ILL_DEBUG
,
9140 _("Sending %s request for %s message ID to ISDS\n"),
9141 service_name_locale
, message_id_locale
);
9144 err
= isds(context
, service
, request
, response
,
9145 raw_response
, raw_response_length
);
9146 xmlFreeNode(request
); request
= NULL
;
9149 isds_log(ILF_ISDS
, ILL_DEBUG
,
9150 _("Processing ISDS response on %s request failed\n"),
9151 service_name_locale
);
9155 /* Check for response status */
9156 err
= isds_response_status(context
, service
, *response
,
9157 code
, status_message
, NULL
);
9159 isds_log(ILF_ISDS
, ILL_DEBUG
,
9160 _("ISDS response on %s request is missing status\n"),
9161 service_name_locale
);
9165 /* Request processed, but nothing found */
9166 if (xmlStrcmp(*code
, BAD_CAST
"0000")) {
9167 char *code_locale
= _isds_utf82locale((char*) *code
);
9168 char *status_message_locale
= _isds_utf82locale((char*) *status_message
);
9169 isds_log(ILF_ISDS
, ILL_DEBUG
,
9170 _("Server refused %s request for %s message ID "
9171 "(code=%s, message=%s)\n"),
9172 service_name_locale
, message_id_locale
,
9173 code_locale
, status_message_locale
);
9174 isds_log_message(context
, status_message_locale
);
9176 free(status_message_locale
);
9182 free(message_id_locale
);
9183 free(service_name_locale
);
9184 xmlFreeNode(request
);
9189 /* Find dmSignature in ISDS response, extract decoded CMS structure, extract
9190 * signed data and free ISDS response.
9191 * @context is session context
9192 * @message_id is UTF-8 encoded message ID for logging purpose
9193 * @response is parsed XML document. It will be freed and NULLed in the middle
9194 * of function run to save memory. This is not guaranteed in case of error.
9195 * @request_name is name of ISDS request used to construct response root
9196 * element name and for logging purpose.
9197 * @raw is reallocated output buffer with DER encoded CMS data
9198 * @raw_length is size of @raw buffer in bytes
9199 * @returns standard error codes, in case of error, @raw will be freed and
9200 * NULLed, @response sometimes. */
9201 static isds_error
find_extract_signed_data_free_response(
9202 struct isds_ctx
*context
, const xmlChar
*message_id
,
9203 xmlDocPtr
*response
, const xmlChar
*request_name
,
9204 void **raw
, size_t *raw_length
) {
9206 isds_error err
= IE_SUCCESS
;
9207 char *xpath_expression
= NULL
;
9208 xmlXPathContextPtr xpath_ctx
= NULL
;
9209 xmlXPathObjectPtr result
= NULL
;
9210 char *encoded_structure
= NULL
;
9212 if (!context
) return IE_INVALID_CONTEXT
;
9213 if (!raw
) return IE_INVAL
;
9215 if (!message_id
|| !response
|| !*response
|| !request_name
|| !raw_length
)
9218 /* Build XPath expression */
9219 xpath_expression
= _isds_astrcat3("/isds:", (char *) request_name
,
9220 "Response/isds:dmSignature");
9221 if (!xpath_expression
) return IE_NOMEM
;
9224 xpath_ctx
= xmlXPathNewContext(*response
);
9229 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
9233 result
= xmlXPathEvalExpression(BAD_CAST xpath_expression
, xpath_ctx
);
9238 /* Empty response */
9239 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
9240 char *message_id_locale
= _isds_utf82locale((char*) message_id
);
9241 isds_printf_message(context
,
9242 _("Server did not return any signed data for message ID `%s' "
9244 message_id_locale
, request_name
);
9245 free(message_id_locale
);
9249 /* More responses */
9250 if (result
->nodesetval
->nodeNr
> 1) {
9251 char *message_id_locale
= _isds_utf82locale((char*) message_id
);
9252 isds_printf_message(context
,
9253 _("Server did return more signed data for message ID `%s' "
9255 message_id_locale
, request_name
);
9256 free(message_id_locale
);
9261 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
9263 /* Extract PKCS#7 structure */
9264 EXTRACT_STRING(".", encoded_structure
);
9265 if (!encoded_structure
) {
9266 isds_log_message(context
, _("dmSignature element is empty"));
9269 /* Here we have delivery info as standalone CMS in encoded_structure.
9270 * We don't need any other data, free them: */
9271 xmlXPathFreeObject(result
); result
= NULL
;
9272 xmlXPathFreeContext(xpath_ctx
); xpath_ctx
= NULL
;
9273 xmlFreeDoc(*response
); *response
= NULL
;
9276 /* Decode PKCS#7 to DER format */
9277 *raw_length
= _isds_b64decode(encoded_structure
, raw
);
9278 if (*raw_length
== (size_t) -1) {
9279 isds_log_message(context
,
9280 _("Error while Base64-decoding PKCS#7 structure"));
9291 free(encoded_structure
);
9292 xmlXPathFreeObject(result
);
9293 xmlXPathFreeContext(xpath_ctx
);
9294 free(xpath_expression
);
9298 #endif /* HAVE_LIBCURL */
9301 /* Download incoming message envelope identified by ID.
9302 * @context is session context
9303 * @message_id is message identifier (you can get them from
9304 * isds_get_list_of_received_messages())
9305 * @message is automatically reallocated message retrieved from ISDS.
9306 * It will miss documents per se. Use isds_get_received_message(), if you are
9307 * interested in documents (content) too.
9308 * Returned hash and timestamp require documents to be verifiable. */
9309 isds_error
isds_get_received_envelope(struct isds_ctx
*context
,
9310 const char *message_id
, struct isds_message
**message
) {
9312 isds_error err
= IE_SUCCESS
;
9314 xmlDocPtr response
= NULL
;
9315 xmlChar
*code
= NULL
, *status_message
= NULL
;
9316 xmlXPathContextPtr xpath_ctx
= NULL
;
9317 xmlXPathObjectPtr result
= NULL
;
9320 if (!context
) return IE_INVALID_CONTEXT
;
9321 zfree(context
->long_message
);
9323 /* Free former message if any */
9324 if (!message
) return IE_INVAL
;
9325 isds_message_free(message
);
9328 /* Do request and check for success */
9329 err
= build_send_check_message_request(context
, SERVICE_DM_INFO
,
9330 BAD_CAST
"MessageEnvelopeDownload", message_id
,
9331 &response
, NULL
, NULL
, &code
, &status_message
);
9332 if (err
) goto leave
;
9335 xpath_ctx
= xmlXPathNewContext(response
);
9340 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
9344 result
= xmlXPathEvalExpression(
9345 BAD_CAST
"/isds:MessageEnvelopeDownloadResponse/"
9346 "isds:dmReturnedMessageEnvelope",
9352 /* Empty response */
9353 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
9354 char *message_id_locale
= _isds_utf82locale((char*) message_id
);
9355 isds_printf_message(context
,
9356 _("Server did not return any envelope for ID `%s' "
9357 "on MessageEnvelopeDownload request"), message_id_locale
);
9358 free(message_id_locale
);
9363 if (result
->nodesetval
->nodeNr
> 1) {
9364 char *message_id_locale
= _isds_utf82locale((char*) message_id
);
9365 isds_printf_message(context
,
9366 _("Server did return more envelopes for ID `%s' "
9367 "on MessageEnvelopeDownload request"), message_id_locale
);
9368 free(message_id_locale
);
9373 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
9375 /* Extract the envelope (= message without documents, hence 0) */
9376 err
= extract_TReturnedMessage(context
, 0, message
, xpath_ctx
);
9377 if (err
) goto leave
;
9380 err
= serialize_subtree(context
, xpath_ctx
->node
, &(*message
)->raw
,
9381 &(*message
)->raw_length
);
9385 isds_message_free(message
);
9388 xmlXPathFreeObject(result
);
9389 xmlXPathFreeContext(xpath_ctx
);
9392 free(status_message
);
9393 if (!*message
|| !(*message
)->xml
) {
9394 xmlFreeDoc(response
);
9398 isds_log(ILF_ISDS
, ILL_DEBUG
,
9399 _("MessageEnvelopeDownload request processed by server "
9402 #else /* not HAVE_LIBCURL */
9409 /* Load delivery info of any format from buffer.
9410 * @context is session context
9411 * @raw_type advertises format of @buffer content. Only delivery info types
9413 * @buffer is DER encoded PKCS#7 structure with signed delivery info. You can
9414 * retrieve such data from message->raw after calling
9415 * isds_get_signed_delivery_info().
9416 * @length is length of buffer in bytes.
9417 * @message is automatically reallocated message parsed from @buffer.
9418 * @strategy selects how buffer will be attached into raw isds_message member.
9420 isds_error
isds_load_delivery_info(struct isds_ctx
*context
,
9421 const isds_raw_type raw_type
,
9422 const void *buffer
, const size_t length
,
9423 struct isds_message
**message
, const isds_buffer_strategy strategy
) {
9425 isds_error err
= IE_SUCCESS
;
9426 message_ns_type message_ns
;
9427 xmlDocPtr message_doc
= NULL
;
9428 xmlXPathContextPtr xpath_ctx
= NULL
;
9429 xmlXPathObjectPtr result
= NULL
;
9430 void *xml_stream
= NULL
;
9431 size_t xml_stream_length
= 0;
9433 if (!context
) return IE_INVALID_CONTEXT
;
9434 zfree(context
->long_message
);
9435 if (!message
) return IE_INVAL
;
9436 isds_message_free(message
);
9437 if (!buffer
) return IE_INVAL
;
9440 /* Select buffer format and extract XML from CMS*/
9442 case RAWTYPE_DELIVERYINFO
:
9443 message_ns
= MESSAGE_NS_UNSIGNED
;
9444 xml_stream
= (void *) buffer
;
9445 xml_stream_length
= length
;
9448 case RAWTYPE_PLAIN_SIGNED_DELIVERYINFO
:
9449 message_ns
= MESSAGE_NS_SIGNED_DELIVERY
;
9450 xml_stream
= (void *) buffer
;
9451 xml_stream_length
= length
;
9454 case RAWTYPE_CMS_SIGNED_DELIVERYINFO
:
9455 message_ns
= MESSAGE_NS_SIGNED_DELIVERY
;
9456 err
= _isds_extract_cms_data(context
, buffer
, length
,
9457 &xml_stream
, &xml_stream_length
);
9458 if (err
) goto leave
;
9462 isds_log_message(context
, _("Bad raw delivery representation type"));
9467 isds_log(ILF_ISDS
, ILL_DEBUG
,
9468 _("Delivery info content:\n%.*s\nEnd of delivery info\n"),
9469 xml_stream_length
, xml_stream
);
9471 /* Convert delivery info XML stream into XPath context */
9472 message_doc
= xmlParseMemory(xml_stream
, xml_stream_length
);
9477 xpath_ctx
= xmlXPathNewContext(message_doc
);
9482 /* XXX: Name spaces mangled for signed delivery info:
9483 * http://isds.czechpoint.cz/v20/delivery:
9485 * <q:GetDeliveryInfoResponse xmlns:q="http://isds.czechpoint.cz/v20/delivery">
9487 * <p:dmDm xmlns:p="http://isds.czechpoint.cz/v20">
9488 * <p:dmID>170272</p:dmID>
9491 * <q:dmHash algorithm="SHA-1">...</q:dmHash>
9493 * </q:dmEvents>...</q:dmEvents>
9495 * </q:GetDeliveryInfoResponse>
9497 if (_isds_register_namespaces(xpath_ctx
, message_ns
)) {
9501 result
= xmlXPathEvalExpression(
9502 BAD_CAST
"/sisds:GetDeliveryInfoResponse/sisds:dmDelivery",
9508 /* Empty delivery info */
9509 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
9510 isds_printf_message(context
,
9511 _("XML document is not sisds:dmDelivery document"));
9515 /* More delivery info's */
9516 if (result
->nodesetval
->nodeNr
> 1) {
9517 isds_printf_message(context
,
9518 _("XML document has more sisds:dmDelivery elements"));
9522 /* One delivery info */
9523 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
9525 /* Extract the envelope (= message without documents, hence 0).
9526 * XXX: extract_TReturnedMessage() can obtain attachments size,
9527 * but delivery info carries none. It's coded as option elements,
9528 * so it should work. */
9529 err
= extract_TReturnedMessage(context
, 0, message
, xpath_ctx
);
9530 if (err
) goto leave
;
9532 /* Extract events */
9533 err
= move_xpathctx_to_child(context
, BAD_CAST
"sisds:dmEvents", xpath_ctx
);
9534 if (err
== IE_NOEXIST
|| err
== IE_NOTUNIQ
) { err
= IE_ISDS
; goto leave
; }
9535 if (err
) { err
= IE_ERROR
; goto leave
; }
9536 err
= extract_events(context
, &(*message
)->envelope
->events
, xpath_ctx
);
9537 if (err
) goto leave
;
9539 /* Append raw CMS structure into message */
9540 (*message
)->raw_type
= raw_type
;
9542 case BUFFER_DONT_STORE
:
9545 (*message
)->raw
= malloc(length
);
9546 if (!(*message
)->raw
) {
9550 memcpy((*message
)->raw
, buffer
, length
);
9551 (*message
)->raw_length
= length
;
9554 (*message
)->raw
= (void *) buffer
;
9555 (*message
)->raw_length
= length
;
9564 if (*message
&& strategy
== BUFFER_MOVE
) (*message
)->raw
= NULL
;
9565 isds_message_free(message
);
9568 xmlXPathFreeObject(result
);
9569 xmlXPathFreeContext(xpath_ctx
);
9570 if (!*message
|| !(*message
)->xml
) {
9571 xmlFreeDoc(message_doc
);
9573 if (xml_stream
!= buffer
) _isds_cms_data_free(xml_stream
);
9576 isds_log(ILF_ISDS
, ILL_DEBUG
,
9577 _("Delivery info loaded successfully.\n"));
9582 /* Download signed delivery info-sheet of given message identified by ID.
9583 * @context is session context
9584 * @message_id is message identifier (you can get them from
9585 * isds_get_list_of_{sent,received}_messages())
9586 * @message is automatically reallocated message retrieved from ISDS.
9587 * It will miss documents per se. Use isds_get_signed_received_message(),
9588 * if you are interested in documents (content). OTOH, only this function
9589 * can get list events message has gone through. */
9590 isds_error
isds_get_signed_delivery_info(struct isds_ctx
*context
,
9591 const char *message_id
, struct isds_message
**message
) {
9593 isds_error err
= IE_SUCCESS
;
9595 xmlDocPtr response
= NULL
;
9596 xmlChar
*code
= NULL
, *status_message
= NULL
;
9598 size_t raw_length
= 0;
9601 if (!context
) return IE_INVALID_CONTEXT
;
9602 zfree(context
->long_message
);
9604 /* Free former message if any */
9605 if (!message
) return IE_INVAL
;
9606 isds_message_free(message
);
9609 /* Do request and check for success */
9610 err
= build_send_check_message_request(context
, SERVICE_DM_INFO
,
9611 BAD_CAST
"GetSignedDeliveryInfo", message_id
,
9612 &response
, NULL
, NULL
, &code
, &status_message
);
9613 if (err
) goto leave
;
9615 /* Find signed delivery info, extract it into raw and maybe free
9617 err
= find_extract_signed_data_free_response(context
,
9618 (xmlChar
*)message_id
, &response
,
9619 BAD_CAST
"GetSignedDeliveryInfo", &raw
, &raw_length
);
9620 if (err
) goto leave
;
9622 /* Parse delivery info */
9623 err
= isds_load_delivery_info(context
,
9624 RAWTYPE_CMS_SIGNED_DELIVERYINFO
, raw
, raw_length
,
9625 message
, BUFFER_MOVE
);
9626 if (err
) goto leave
;
9632 isds_message_free(message
);
9637 free(status_message
);
9638 xmlFreeDoc(response
);
9641 isds_log(ILF_ISDS
, ILL_DEBUG
,
9642 _("GetSignedDeliveryInfo request processed by server "
9645 #else /* not HAVE_LIBCURL */
9652 /* Download delivery info-sheet of given message identified by ID.
9653 * @context is session context
9654 * @message_id is message identifier (you can get them from
9655 * isds_get_list_of_{sent,received}_messages())
9656 * @message is automatically reallocated message retrieved from ISDS.
9657 * It will miss documents per se. Use isds_get_received_message(), if you are
9658 * interested in documents (content). OTOH, only this function can get list
9659 * of events message has gone through. */
9660 isds_error
isds_get_delivery_info(struct isds_ctx
*context
,
9661 const char *message_id
, struct isds_message
**message
) {
9663 isds_error err
= IE_SUCCESS
;
9665 xmlDocPtr response
= NULL
;
9666 xmlChar
*code
= NULL
, *status_message
= NULL
;
9667 xmlNodePtr delivery_node
= NULL
;
9669 size_t raw_length
= 0;
9672 if (!context
) return IE_INVALID_CONTEXT
;
9673 zfree(context
->long_message
);
9675 /* Free former message if any */
9676 if (!message
) return IE_INVAL
;
9677 isds_message_free(message
);
9680 /* Do request and check for success */
9681 err
= build_send_check_message_request(context
, SERVICE_DM_INFO
,
9682 BAD_CAST
"GetDeliveryInfo", message_id
,
9683 &response
, NULL
, NULL
, &code
, &status_message
);
9684 if (err
) goto leave
;
9687 /* Serialize delivery info */
9688 delivery_node
= xmlDocGetRootElement(response
);
9689 if (!delivery_node
) {
9690 char *message_id_locale
= _isds_utf82locale((char*) message_id
);
9691 isds_printf_message(context
,
9692 _("Server did not return any delivery info for ID `%s' "
9693 "on GetDeliveryInfo request"), message_id_locale
);
9694 free(message_id_locale
);
9698 err
= serialize_subtree(context
, delivery_node
, &raw
, &raw_length
);
9699 if (err
) goto leave
;
9701 /* Parse delivery info */
9702 /* TODO: Here we parse the response second time. We could single delivery
9703 * parser from isds_load_delivery_info() to make things faster. */
9704 err
= isds_load_delivery_info(context
,
9705 RAWTYPE_DELIVERYINFO
, raw
, raw_length
,
9706 message
, BUFFER_MOVE
);
9707 if (err
) goto leave
;
9714 isds_message_free(message
);
9719 free(status_message
);
9720 xmlFreeDoc(response
);
9723 isds_log(ILF_ISDS
, ILL_DEBUG
,
9724 _("GetDeliveryInfo request processed by server "
9727 #else /* not HAVE_LIBCURL */
9734 /* Download incoming message identified by ID.
9735 * @context is session context
9736 * @message_id is message identifier (you can get them from
9737 * isds_get_list_of_received_messages())
9738 * @message is automatically reallocated message retrieved from ISDS */
9739 isds_error
isds_get_received_message(struct isds_ctx
*context
,
9740 const char *message_id
, struct isds_message
**message
) {
9742 isds_error err
= IE_SUCCESS
;
9744 xmlDocPtr response
= NULL
;
9745 void *xml_stream
= NULL
;
9746 size_t xml_stream_length
;
9747 xmlChar
*code
= NULL
, *status_message
= NULL
;
9748 xmlXPathContextPtr xpath_ctx
= NULL
;
9749 xmlXPathObjectPtr result
= NULL
;
9750 char *phys_path
= NULL
;
9751 size_t phys_start
, phys_end
;
9754 if (!context
) return IE_INVALID_CONTEXT
;
9755 zfree(context
->long_message
);
9757 /* Free former message if any */
9758 if (message
) isds_message_free(message
);
9761 /* Do request and check for success */
9762 err
= build_send_check_message_request(context
, SERVICE_DM_OPERATIONS
,
9763 BAD_CAST
"MessageDownload", message_id
,
9764 &response
, &xml_stream
, &xml_stream_length
,
9765 &code
, &status_message
);
9766 if (err
) goto leave
;
9769 xpath_ctx
= xmlXPathNewContext(response
);
9774 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
9778 result
= xmlXPathEvalExpression(
9779 BAD_CAST
"/isds:MessageDownloadResponse/isds:dmReturnedMessage",
9785 /* Empty response */
9786 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
9787 char *message_id_locale
= _isds_utf82locale((char*) message_id
);
9788 isds_printf_message(context
,
9789 _("Server did not return any message for ID `%s' "
9790 "on MessageDownload request"), message_id_locale
);
9791 free(message_id_locale
);
9796 if (result
->nodesetval
->nodeNr
> 1) {
9797 char *message_id_locale
= _isds_utf82locale((char*) message_id
);
9798 isds_printf_message(context
,
9799 _("Server did return more messages for ID `%s' "
9800 "on MessageDownload request"), message_id_locale
);
9801 free(message_id_locale
);
9806 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
9808 /* Extract the message */
9809 err
= extract_TReturnedMessage(context
, 1, message
, xpath_ctx
);
9810 if (err
) goto leave
;
9812 /* Locate raw XML blob */
9814 SOAP_NS PHYSXML_NS_SEPARATOR
"Envelope"
9815 PHYSXML_ELEMENT_SEPARATOR
9816 SOAP_NS PHYSXML_NS_SEPARATOR
"Body"
9817 PHYSXML_ELEMENT_SEPARATOR
9818 ISDS_NS PHYSXML_NS_SEPARATOR
"MessageDownloadResponse"
9824 err
= _isds_find_element_boundary(xml_stream
, xml_stream_length
,
9825 phys_path
, &phys_start
, &phys_end
);
9828 isds_log_message(context
,
9829 _("Substring with isds:MessageDownloadResponse element "
9830 "could not be located in raw SOAP message"));
9834 /*err = serialize_subtree(context, xpath_ctx->node, &(*message)->raw,
9835 &(*message)->raw_length);*/
9836 /* TODO: Store name space declarations from ancestors */
9837 /* TODO: Handle non-UTF-8 encoding (XML prologue) */
9838 (*message
)->raw_type
= RAWTYPE_INCOMING_MESSAGE
;
9839 (*message
)->raw_length
= phys_end
- phys_start
+ 1;
9840 (*message
)->raw
= malloc((*message
)->raw_length
);
9841 if (!(*message
)->raw
) {
9845 memcpy((*message
)->raw
, xml_stream
+ phys_start
, (*message
)->raw_length
);
9850 isds_message_free(message
);
9855 xmlXPathFreeObject(result
);
9856 xmlXPathFreeContext(xpath_ctx
);
9859 free(status_message
);
9861 if (!*message
|| !(*message
)->xml
) {
9862 xmlFreeDoc(response
);
9866 isds_log(ILF_ISDS
, ILL_DEBUG
,
9867 _("MessageDownload request processed by server "
9870 #else /* not HAVE_LIBCURL */
9877 /* Load message of any type from buffer.
9878 * @context is session context
9879 * @raw_type defines content type of @buffer. Only message types are allowed.
9880 * @buffer is message raw representation. Format (CMS, plain signed,
9881 * message direction) is defined in @raw_type. You can retrieve such data
9882 * from message->raw after calling isds_get_[signed]{received,sent}_message().
9883 * @length is length of buffer in bytes.
9884 * @message is automatically reallocated message parsed from @buffer.
9885 * @strategy selects how buffer will be attached into raw isds_message member.
9887 isds_error
isds_load_message(struct isds_ctx
*context
,
9888 const isds_raw_type raw_type
, const void *buffer
, const size_t length
,
9889 struct isds_message
**message
, const isds_buffer_strategy strategy
) {
9891 isds_error err
= IE_SUCCESS
;
9892 void *xml_stream
= NULL
;
9893 size_t xml_stream_length
= 0;
9894 message_ns_type message_ns
;
9895 xmlDocPtr message_doc
= NULL
;
9896 xmlXPathContextPtr xpath_ctx
= NULL
;
9897 xmlXPathObjectPtr result
= NULL
;
9899 if (!context
) return IE_INVALID_CONTEXT
;
9900 zfree(context
->long_message
);
9901 if (!message
) return IE_INVAL
;
9902 isds_message_free(message
);
9903 if (!buffer
) return IE_INVAL
;
9906 /* Select buffer format and extract XML from CMS*/
9908 case RAWTYPE_INCOMING_MESSAGE
:
9909 message_ns
= MESSAGE_NS_UNSIGNED
;
9910 xml_stream
= (void *) buffer
;
9911 xml_stream_length
= length
;
9914 case RAWTYPE_PLAIN_SIGNED_INCOMING_MESSAGE
:
9915 message_ns
= MESSAGE_NS_SIGNED_INCOMING
;
9916 xml_stream
= (void *) buffer
;
9917 xml_stream_length
= length
;
9920 case RAWTYPE_CMS_SIGNED_INCOMING_MESSAGE
:
9921 message_ns
= MESSAGE_NS_SIGNED_INCOMING
;
9922 err
= _isds_extract_cms_data(context
, buffer
, length
,
9923 &xml_stream
, &xml_stream_length
);
9924 if (err
) goto leave
;
9927 case RAWTYPE_PLAIN_SIGNED_OUTGOING_MESSAGE
:
9928 message_ns
= MESSAGE_NS_SIGNED_OUTGOING
;
9929 xml_stream
= (void *) buffer
;
9930 xml_stream_length
= length
;
9933 case RAWTYPE_CMS_SIGNED_OUTGOING_MESSAGE
:
9934 message_ns
= MESSAGE_NS_SIGNED_OUTGOING
;
9935 err
= _isds_extract_cms_data(context
, buffer
, length
,
9936 &xml_stream
, &xml_stream_length
);
9937 if (err
) goto leave
;
9941 isds_log_message(context
, _("Bad raw message representation type"));
9946 isds_log(ILF_ISDS
, ILL_DEBUG
,
9947 _("Loading message:\n%.*s\nEnd of message\n"),
9948 xml_stream_length
, xml_stream
);
9950 /* Convert messages XML stream into XPath context */
9951 message_doc
= xmlParseMemory(xml_stream
, xml_stream_length
);
9956 xpath_ctx
= xmlXPathNewContext(message_doc
);
9961 /* XXX: Standard name space for unsigned incoming direction:
9962 * http://isds.czechpoint.cz/v20/
9964 * XXX: Name spaces mangled for signed outgoing direction:
9965 * http://isds.czechpoint.cz/v20/SentMessage:
9967 * <q:MessageDownloadResponse
9968 * xmlns:q="http://isds.czechpoint.cz/v20/SentMessage">
9969 * <q:dmReturnedMessage>
9970 * <p:dmDm xmlns:p="http://isds.czechpoint.cz/v20">
9971 * <p:dmID>151916</p:dmID>
9974 * <q:dmHash algorithm="SHA-1">...</q:dmHash>
9976 * <q:dmAttachmentSize>260</q:dmAttachmentSize>
9977 * </q:dmReturnedMessage>
9978 * </q:MessageDownloadResponse>
9980 * XXX: Name spaces mangled for signed incoming direction:
9981 * http://isds.czechpoint.cz/v20/message:
9983 * <q:MessageDownloadResponse
9984 * xmlns:q="http://isds.czechpoint.cz/v20/message">
9985 * <q:dmReturnedMessage>
9986 * <p:dmDm xmlns:p="http://isds.czechpoint.cz/v20">
9987 * <p:dmID>151916</p:dmID>
9990 * <q:dmHash algorithm="SHA-1">...</q:dmHash>
9992 * <q:dmAttachmentSize>260</q:dmAttachmentSize>
9993 * </q:dmReturnedMessage>
9994 * </q:MessageDownloadResponse>
9996 * Stupidity of ISDS developers is unlimited */
9997 if (_isds_register_namespaces(xpath_ctx
, message_ns
)) {
10001 result
= xmlXPathEvalExpression(
10002 BAD_CAST
"/sisds:MessageDownloadResponse/sisds:dmReturnedMessage",
10008 /* Empty message */
10009 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
10010 isds_printf_message(context
,
10011 _("XML document does not contain "
10012 "sisds:dmReturnedMessage element"));
10016 /* More messages */
10017 if (result
->nodesetval
->nodeNr
> 1) {
10018 isds_printf_message(context
,
10019 _("XML document has more sisds:dmReturnedMessage elements"));
10024 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
10026 /* Extract the message */
10027 err
= extract_TReturnedMessage(context
, 1, message
, xpath_ctx
);
10028 if (err
) goto leave
;
10030 /* Append raw buffer into message */
10031 (*message
)->raw_type
= raw_type
;
10032 switch (strategy
) {
10033 case BUFFER_DONT_STORE
:
10036 (*message
)->raw
= malloc(length
);
10037 if (!(*message
)->raw
) {
10041 memcpy((*message
)->raw
, buffer
, length
);
10042 (*message
)->raw_length
= length
;
10045 (*message
)->raw
= (void *) buffer
;
10046 (*message
)->raw_length
= length
;
10056 if (*message
&& strategy
== BUFFER_MOVE
) (*message
)->raw
= NULL
;
10057 isds_message_free(message
);
10060 if (xml_stream
!= buffer
) _isds_cms_data_free(xml_stream
);
10061 xmlXPathFreeObject(result
);
10062 xmlXPathFreeContext(xpath_ctx
);
10063 if (!*message
|| !(*message
)->xml
) {
10064 xmlFreeDoc(message_doc
);
10068 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Message loaded successfully.\n"));
10073 /* Determine type of raw message or delivery info according some heuristics.
10074 * It does not validate the raw blob.
10075 * @context is session context
10076 * @raw_type returns content type of @buffer. Valid only if exit code of this
10077 * function is IE_SUCCESS. The pointer must be valid. This is no automatically
10078 * reallocated memory.
10079 * @buffer is message raw representation.
10080 * @length is length of buffer in bytes. */
10081 isds_error
isds_guess_raw_type(struct isds_ctx
*context
,
10082 isds_raw_type
*raw_type
, const void *buffer
, const size_t length
) {
10084 void *xml_stream
= NULL
;
10085 size_t xml_stream_length
= 0;
10086 xmlDocPtr document
= NULL
;
10087 xmlNodePtr root
= NULL
;
10089 if (!context
) return IE_INVALID_CONTEXT
;
10090 zfree(context
->long_message
);
10091 if (length
== 0 || !buffer
) return IE_INVAL
;
10092 if (!raw_type
) return IE_INVAL
;
10095 err
= _isds_extract_cms_data(context
, buffer
, length
,
10096 &xml_stream
, &xml_stream_length
);
10098 xml_stream
= (void *) buffer
;
10099 xml_stream_length
= (size_t) length
;
10104 document
= xmlParseMemory(xml_stream
, xml_stream_length
);
10106 isds_printf_message(context
,
10107 _("Could not parse data as XML document"));
10112 /* Get root element */
10113 root
= xmlDocGetRootElement(document
);
10115 isds_printf_message(context
,
10116 _("XML document is missing root element"));
10121 if (!root
->ns
|| !root
->ns
->href
) {
10122 isds_printf_message(context
,
10123 _("Root element does not belong to any name space"));
10128 /* Test name space */
10129 if (!xmlStrcmp(root
->ns
->href
, BAD_CAST SISDS_INCOMING_NS
)) {
10130 if (xml_stream
== buffer
)
10131 *raw_type
= RAWTYPE_PLAIN_SIGNED_INCOMING_MESSAGE
;
10133 *raw_type
= RAWTYPE_CMS_SIGNED_INCOMING_MESSAGE
;
10134 } else if (!xmlStrcmp(root
->ns
->href
, BAD_CAST SISDS_OUTGOING_NS
)) {
10135 if (xml_stream
== buffer
)
10136 *raw_type
= RAWTYPE_PLAIN_SIGNED_OUTGOING_MESSAGE
;
10138 *raw_type
= RAWTYPE_CMS_SIGNED_OUTGOING_MESSAGE
;
10139 } else if (!xmlStrcmp(root
->ns
->href
, BAD_CAST SISDS_DELIVERY_NS
)) {
10140 if (xml_stream
== buffer
)
10141 *raw_type
= RAWTYPE_PLAIN_SIGNED_DELIVERYINFO
;
10143 *raw_type
= RAWTYPE_CMS_SIGNED_DELIVERYINFO
;
10144 } else if (!xmlStrcmp(root
->ns
->href
, BAD_CAST ISDS_NS
)) {
10145 if (xml_stream
!= buffer
) {
10146 isds_printf_message(context
,
10147 _("Document in ISDS name space is encapsulated into CMS" ));
10149 } else if (!xmlStrcmp(root
->name
, BAD_CAST
"MessageDownloadResponse"))
10150 *raw_type
= RAWTYPE_INCOMING_MESSAGE
;
10151 else if (!xmlStrcmp(root
->name
, BAD_CAST
"GetDeliveryInfoResponse"))
10152 *raw_type
= RAWTYPE_DELIVERYINFO
;
10154 isds_printf_message(context
,
10155 _("Unknown root element in ISDS name space"));
10159 isds_printf_message(context
,
10160 _("Unknown name space"));
10165 if (xml_stream
!= buffer
) _isds_cms_data_free(xml_stream
);
10166 xmlFreeDoc(document
);
10171 /* Download signed incoming/outgoing message identified by ID.
10172 * @context is session context
10173 * @output is true for outgoing message, false for incoming message
10174 * @message_id is message identifier (you can get them from
10175 * isds_get_list_of_{sent,received}_messages())
10176 * @message is automatically reallocated message retrieved from ISDS. The raw
10177 * member will be filled with PKCS#7 structure in DER format. */
10178 static isds_error
isds_get_signed_message(struct isds_ctx
*context
,
10179 const _Bool outgoing
, const char *message_id
,
10180 struct isds_message
**message
) {
10182 isds_error err
= IE_SUCCESS
;
10184 xmlDocPtr response
= NULL
;
10185 xmlChar
*code
= NULL
, *status_message
= NULL
;
10186 xmlXPathContextPtr xpath_ctx
= NULL
;
10187 xmlXPathObjectPtr result
= NULL
;
10188 char *encoded_structure
= NULL
;
10190 size_t raw_length
= 0;
10193 if (!context
) return IE_INVALID_CONTEXT
;
10194 zfree(context
->long_message
);
10195 if (!message
) return IE_INVAL
;
10196 isds_message_free(message
);
10199 /* Do request and check for success */
10200 err
= build_send_check_message_request(context
, SERVICE_DM_OPERATIONS
,
10201 (outgoing
) ? BAD_CAST
"SignedSentMessageDownload" :
10202 BAD_CAST
"SignedMessageDownload",
10203 message_id
, &response
, NULL
, NULL
, &code
, &status_message
);
10204 if (err
) goto leave
;
10206 /* Find signed message, extract it into raw and maybe free
10208 err
= find_extract_signed_data_free_response(context
,
10209 (xmlChar
*)message_id
, &response
,
10210 (outgoing
) ? BAD_CAST
"SignedSentMessageDownload" :
10211 BAD_CAST
"SignedMessageDownload",
10212 &raw
, &raw_length
);
10213 if (err
) goto leave
;
10215 /* Parse message */
10216 err
= isds_load_message(context
,
10217 (outgoing
) ? RAWTYPE_CMS_SIGNED_OUTGOING_MESSAGE
:
10218 RAWTYPE_CMS_SIGNED_INCOMING_MESSAGE
,
10219 raw
, raw_length
, message
, BUFFER_MOVE
);
10220 if (err
) goto leave
;
10226 isds_message_free(message
);
10229 free(encoded_structure
);
10230 xmlXPathFreeObject(result
);
10231 xmlXPathFreeContext(xpath_ctx
);
10235 free(status_message
);
10236 xmlFreeDoc(response
);
10239 isds_log(ILF_ISDS
, ILL_DEBUG
,
10241 _("SignedSentMessageDownload request processed by server "
10242 "successfully.\n") :
10243 _("SignedMessageDownload request processed by server "
10246 #else /* not HAVE_LIBCURL */
10253 /* Download signed incoming message identified by ID.
10254 * @context is session context
10255 * @message_id is message identifier (you can get them from
10256 * isds_get_list_of_received_messages())
10257 * @message is automatically reallocated message retrieved from ISDS. The raw
10258 * member will be filled with PKCS#7 structure in DER format. */
10259 isds_error
isds_get_signed_received_message(struct isds_ctx
*context
,
10260 const char *message_id
, struct isds_message
**message
) {
10261 return isds_get_signed_message(context
, 0, message_id
, message
);
10265 /* Download signed outgoing message identified by ID.
10266 * @context is session context
10267 * @message_id is message identifier (you can get them from
10268 * isds_get_list_of_sent_messages())
10269 * @message is automatically reallocated message retrieved from ISDS. The raw
10270 * member will be filled with PKCS#7 structure in DER format. */
10271 isds_error
isds_get_signed_sent_message(struct isds_ctx
*context
,
10272 const char *message_id
, struct isds_message
**message
) {
10273 return isds_get_signed_message(context
, 1, message_id
, message
);
10277 /* Get type and name of user who sent a message identified by ID.
10278 * @context is session context
10279 * @message_id is message identifier
10280 * @sender_type is pointer to automatically allocated type of sender detected
10281 * from @raw_sender_type string. If @raw_sender_type is unknown to this
10282 * library or to the server, NULL will be returned. Pass NULL if you don't
10284 * @raw_sender_type is automatically reallocated UTF-8 string describing
10285 * sender type or NULL if not known to server. Pass NULL if you don't care.
10286 * @sender_name is automatically reallocated UTF-8 name of user who sent the
10287 * message, or NULL if not known to ISDS. Pass NULL if you don't care. */
10288 isds_error
isds_get_message_sender(struct isds_ctx
*context
,
10289 const char *message_id
, isds_sender_type
**sender_type
,
10290 char **raw_sender_type
, char **sender_name
) {
10291 isds_error err
= IE_SUCCESS
;
10293 xmlDocPtr response
= NULL
;
10294 xmlChar
*code
= NULL
, *status_message
= NULL
;
10295 xmlXPathContextPtr xpath_ctx
= NULL
;
10296 xmlXPathObjectPtr result
= NULL
;
10297 char *type_string
= NULL
;
10300 if (!context
) return IE_INVALID_CONTEXT
;
10301 zfree(context
->long_message
);
10302 if (sender_type
) zfree(*sender_type
);
10303 if (raw_sender_type
) zfree(*raw_sender_type
);
10304 if (sender_name
) zfree(*sender_name
);
10305 if (!message_id
) return IE_INVAL
;
10308 /* Do request and check for success */
10309 err
= build_send_check_message_request(context
, SERVICE_DM_INFO
,
10310 BAD_CAST
"GetMessageAuthor",
10311 message_id
, &response
, NULL
, NULL
, &code
, &status_message
);
10312 if (err
) goto leave
;
10315 xpath_ctx
= xmlXPathNewContext(response
);
10320 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
10324 result
= xmlXPathEvalExpression(
10325 BAD_CAST
"/isds:GetMessageAuthorResponse", xpath_ctx
);
10330 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
10331 isds_log_message(context
,
10332 _("Missing GetMessageAuthorResponse element"));
10336 if (result
->nodesetval
->nodeNr
> 1) {
10337 isds_log_message(context
,
10338 _("Multiple GetMessageAuthorResponse element"));
10342 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
10343 xmlXPathFreeObject(result
); result
= NULL
;
10345 /* Fill output arguments in */
10346 EXTRACT_STRING("isds:userType", type_string
);
10348 *sender_type
= calloc(1, sizeof(**sender_type
));
10349 if (!*sender_type
) {
10355 err
= string2isds_sender_type((xmlChar
*)type_string
,
10358 zfree(*sender_type
);
10359 if (err
== IE_ENUM
) {
10361 char *type_string_locale
= _isds_utf82locale(type_string
);
10362 isds_log(ILF_ISDS
, ILL_WARNING
,
10363 _("Unknown isds:userType value: %s"),
10364 type_string_locale
);
10365 free(type_string_locale
);
10371 EXTRACT_STRING("isds:authorName", *sender_name
);
10375 if (sender_type
) zfree(*sender_type
);
10376 zfree(type_string
);
10377 if (sender_name
) zfree(*sender_name
);
10379 if (raw_sender_type
) *raw_sender_type
= type_string
;
10381 xmlXPathFreeObject(result
);
10382 xmlXPathFreeContext(xpath_ctx
);
10385 free(status_message
);
10386 xmlFreeDoc(response
);
10389 isds_log(ILF_ISDS
, ILL_DEBUG
,
10390 _("GetMessageAuthor request processed by server "
10391 "successfully.\n"));
10392 #else /* not HAVE_LIBCURL */
10399 /* Retrieve hash of message identified by ID stored in ISDS.
10400 * @context is session context
10401 * @message_id is message identifier
10402 * @hash is automatically reallocated message hash downloaded from ISDS.
10403 * Message must exist in system and must not be deleted. */
10404 isds_error
isds_download_message_hash(struct isds_ctx
*context
,
10405 const char *message_id
, struct isds_hash
**hash
) {
10407 isds_error err
= IE_SUCCESS
;
10409 xmlDocPtr response
= NULL
;
10410 xmlChar
*code
= NULL
, *status_message
= NULL
;
10411 xmlXPathContextPtr xpath_ctx
= NULL
;
10412 xmlXPathObjectPtr result
= NULL
;
10415 if (!context
) return IE_INVALID_CONTEXT
;
10416 zfree(context
->long_message
);
10418 isds_hash_free(hash
);
10421 err
= build_send_check_message_request(context
, SERVICE_DM_INFO
,
10422 BAD_CAST
"VerifyMessage", message_id
,
10423 &response
, NULL
, NULL
, &code
, &status_message
);
10424 if (err
) goto leave
;
10428 xpath_ctx
= xmlXPathNewContext(response
);
10433 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
10437 result
= xmlXPathEvalExpression(
10438 BAD_CAST
"/isds:VerifyMessageResponse",
10444 /* Empty response */
10445 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
10446 char *message_id_locale
= _isds_utf82locale((char*) message_id
);
10447 isds_printf_message(context
,
10448 _("Server did not return any response for ID `%s' "
10449 "on VerifyMessage request"), message_id_locale
);
10450 free(message_id_locale
);
10454 /* More responses */
10455 if (result
->nodesetval
->nodeNr
> 1) {
10456 char *message_id_locale
= _isds_utf82locale((char*) message_id
);
10457 isds_printf_message(context
,
10458 _("Server did return more responses for ID `%s' "
10459 "on VerifyMessage request"), message_id_locale
);
10460 free(message_id_locale
);
10465 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
10467 /* Extract the hash */
10468 err
= find_and_extract_DmHash(context
, hash
, xpath_ctx
);
10472 isds_hash_free(hash
);
10475 xmlXPathFreeObject(result
);
10476 xmlXPathFreeContext(xpath_ctx
);
10479 free(status_message
);
10480 xmlFreeDoc(response
);
10483 isds_log(ILF_ISDS
, ILL_DEBUG
,
10484 _("VerifyMessage request processed by server "
10487 #else /* not HAVE_LIBCURL */
10494 /* Erase message specified by @message_id from long term storage. Other
10495 * message cannot be erased on user request.
10496 * @context is session context
10497 * @message_id is message identifier.
10498 * @incoming is true for incoming message, false for outgoing message.
10500 * IE_SUCCESS if message has ben removed
10501 * IE_INVAL if message does not exist in long term storage or message
10502 * belongs to different box
10503 * TODO: IE_NOEPRM if user has no permission to erase a message */
10504 isds_error
isds_delete_message_from_storage(struct isds_ctx
*context
,
10505 const char *message_id
, _Bool incoming
) {
10506 isds_error err
= IE_SUCCESS
;
10508 xmlNodePtr request
= NULL
, node
;
10509 xmlNsPtr isds_ns
= NULL
;
10510 xmlDocPtr response
= NULL
;
10511 xmlChar
*code
= NULL
, *status_message
= NULL
;
10514 if (!context
) return IE_INVALID_CONTEXT
;
10515 zfree(context
->long_message
);
10516 if (NULL
== message_id
) return IE_INVAL
;
10518 /* Check if connection is established
10519 * TODO: This check should be done downstairs. */
10520 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
10523 /* Build request */
10524 request
= xmlNewNode(NULL
, BAD_CAST
"EraseMessage");
10526 isds_log_message(context
,
10527 _("Could build EraseMessage request"));
10530 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
10532 isds_log_message(context
, _("Could not create ISDS name space"));
10533 xmlFreeNode(request
);
10536 xmlSetNs(request
, isds_ns
);
10538 err
= validate_message_id_length(context
, (xmlChar
*) message_id
);
10539 if (err
) goto leave
;
10540 INSERT_STRING(request
, "dmID", message_id
);
10542 INSERT_SCALAR_BOOLEAN(request
, "dmIncoming", incoming
);
10546 isds_log(ILF_ISDS
, ILL_DEBUG
, _("Sending EraseMessage request for "
10547 "message ID %s to ISDS\n"), message_id
);
10548 err
= isds(context
, SERVICE_DM_INFO
, request
, &response
, NULL
, NULL
);
10549 xmlFreeNode(request
); request
= NULL
;
10552 isds_log(ILF_ISDS
, ILL_DEBUG
,
10553 _("Processing ISDS response on EraseMessage request "
10558 /* Check for response status */
10559 err
= isds_response_status(context
, SERVICE_DM_INFO
, response
,
10560 &code
, &status_message
, NULL
);
10562 isds_log(ILF_ISDS
, ILL_DEBUG
,
10563 _("ISDS response on EraseMessage request is missing "
10568 /* Check server status code */
10569 if (!xmlStrcmp(code
, BAD_CAST
"1211")) {
10570 isds_log_message(context
, _("Message to erase belongs to other box"));
10572 } else if (!xmlStrcmp(code
, BAD_CAST
"1219")) {
10573 isds_log_message(context
, _("Message to erase is not saved in "
10574 "long term storage or the direction does not match"));
10576 } else if (xmlStrcmp(code
, BAD_CAST
"0000")) {
10577 char *code_locale
= _isds_utf82locale((char*) code
);
10578 char *message_locale
= _isds_utf82locale((char*) status_message
);
10579 isds_log(ILF_ISDS
, ILL_DEBUG
,
10580 _("Server refused EraseMessage request "
10581 "(code=%s, message=%s)\n"),
10582 code_locale
, message_locale
);
10583 isds_log_message(context
, message_locale
);
10585 free(message_locale
);
10592 free(status_message
);
10593 xmlFreeDoc(response
);
10594 xmlFreeNode(request
);
10597 isds_log(ILF_ISDS
, ILL_DEBUG
,
10598 _("EraseMessage request processed by server "
10601 #else /* not HAVE_LIBCURL */
10608 /* Mark message as read. This is a transactional commit function to acknowledge
10609 * to ISDS the message has been downloaded and processed by client properly.
10610 * @context is session context
10611 * @message_id is message identifier. */
10612 isds_error
isds_mark_message_read(struct isds_ctx
*context
,
10613 const char *message_id
) {
10615 isds_error err
= IE_SUCCESS
;
10617 xmlDocPtr response
= NULL
;
10618 xmlChar
*code
= NULL
, *status_message
= NULL
;
10621 if (!context
) return IE_INVALID_CONTEXT
;
10622 zfree(context
->long_message
);
10625 /* Do request and check for success */
10626 err
= build_send_check_message_request(context
, SERVICE_DM_INFO
,
10627 BAD_CAST
"MarkMessageAsDownloaded", message_id
,
10628 &response
, NULL
, NULL
, &code
, &status_message
);
10631 free(status_message
);
10632 xmlFreeDoc(response
);
10635 isds_log(ILF_ISDS
, ILL_DEBUG
,
10636 _("MarkMessageAsDownloaded request processed by server "
10639 #else /* not HAVE_LIBCURL */
10646 /* Mark message as received by recipient. This is applicable only to
10647 * commercial message. Use envelope->dmType message member to distinguish
10648 * commercial message from government message. Government message is
10649 * received automatically (by law), commercial message on recipient request.
10650 * @context is session context
10651 * @message_id is message identifier. */
10652 isds_error
isds_mark_message_received(struct isds_ctx
*context
,
10653 const char *message_id
) {
10655 isds_error err
= IE_SUCCESS
;
10657 xmlDocPtr response
= NULL
;
10658 xmlChar
*code
= NULL
, *status_message
= NULL
;
10661 if (!context
) return IE_INVALID_CONTEXT
;
10662 zfree(context
->long_message
);
10665 /* Do request and check for success */
10666 err
= build_send_check_message_request(context
, SERVICE_DM_INFO
,
10667 BAD_CAST
"ConfirmDelivery", message_id
,
10668 &response
, NULL
, NULL
, &code
, &status_message
);
10671 free(status_message
);
10672 xmlFreeDoc(response
);
10675 isds_log(ILF_ISDS
, ILL_DEBUG
,
10676 _("ConfirmDelivery request processed by server "
10679 #else /* not HAVE_LIBCURL */
10686 /* Send document for authorized conversion into Czech POINT system.
10687 * This is public anonymous service, no log-in necessary. Special context is
10688 * used to reuse keep-a-live HTTPS connection.
10689 * @context is Czech POINT session context. DO NOT use context connected to
10690 * ISDS server. Use new context or context used by this function previously.
10691 * @document is document to convert. Only data, data_length, dmFileDescr and
10692 * is_xml members are significant. Be ware that not all document formats can be
10693 * converted (signed PDF 1.3 and higher only (2010-02 state)).
10694 * @id is reallocated identifier assigned by Czech POINT system to
10695 * your document on submit. Use is to tell it to Czech POINT officer.
10696 * @date is reallocated document submit date (submitted documents
10697 * expires after some period). Only tm_year, tm_mon and tm_mday carry sane
10699 isds_error
czp_convert_document(struct isds_ctx
*context
,
10700 const struct isds_document
*document
,
10701 char **id
, struct tm
**date
) {
10702 isds_error err
= IE_SUCCESS
;
10704 xmlNsPtr deposit_ns
= NULL
, empty_ns
= NULL
;
10705 xmlNodePtr request
= NULL
, node
;
10706 xmlDocPtr response
= NULL
;
10708 xmlXPathContextPtr xpath_ctx
= NULL
;
10709 xmlXPathObjectPtr result
= NULL
;
10710 long int status
= -1;
10711 long int *status_ptr
= &status
;
10712 char *string
= NULL
;
10716 if (!context
) return IE_INVALID_CONTEXT
;
10717 zfree(context
->long_message
);
10718 if (!document
|| !id
|| !date
) return IE_INVAL
;
10720 if (document
->is_xml
) {
10721 isds_log_message(context
,
10722 _("XML documents cannot be submitted to conversion"));
10726 /* Free output arguments */
10731 /* Store configuration */
10732 context
->type
= CTX_TYPE_CZP
;
10733 free(context
->url
);
10734 context
->url
= strdup("https://www.czechpoint.cz/uschovna/services.php");
10735 if (!(context
->url
))
10738 /* Prepare CURL handle if not yet connected */
10739 if (!context
->curl
) {
10740 context
->curl
= curl_easy_init();
10741 if (!(context
->curl
))
10745 /* Build conversion request */
10746 request
= xmlNewNode(NULL
, BAD_CAST
"saveDocument");
10748 isds_log_message(context
,
10749 _("Could not build Czech POINT conversion request"));
10752 deposit_ns
= xmlNewNs(request
, BAD_CAST DEPOSIT_NS
, BAD_CAST
"dep");
10754 isds_log_message(context
,
10755 _("Could not create Czech POINT deposit name space"));
10756 xmlFreeNode(request
);
10759 xmlSetNs(request
, deposit_ns
);
10761 /* Insert children. They are in empty namespace! */
10762 empty_ns
= xmlNewNs(request
, BAD_CAST
"", NULL
);
10764 isds_log_message(context
, _("Could not create empty name space"));
10768 INSERT_STRING_WITH_NS(request
, empty_ns
, "conversionID", "0");
10769 INSERT_STRING_WITH_NS(request
, empty_ns
, "fileName",
10770 document
->dmFileDescr
);
10772 /* Document encoded in Base64 */
10773 err
= insert_base64_encoded_string(context
, request
, empty_ns
, "document",
10774 document
->data
, document
->data_length
);
10775 if (err
) goto leave
;
10777 isds_log(ILF_ISDS
, ILL_DEBUG
,
10778 _("Submitting document for conversion into Czech POINT deposit"));
10780 /* Send conversion request */
10781 err
= _czp_czpdeposit(context
, request
, &response
);
10782 xmlFreeNode(request
); request
= NULL
;
10785 czp_do_close_connection(context
);
10790 /* Extract response */
10791 xpath_ctx
= xmlXPathNewContext(response
);
10796 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
10800 result
= xmlXPathEvalExpression(
10801 BAD_CAST
"/deposit:saveDocumentResponse/return",
10807 /* Empty response */
10808 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
10809 isds_printf_message(context
,
10810 _("Missing `return' element in Czech POINT deposit response"));
10814 /* More responses */
10815 if (result
->nodesetval
->nodeNr
> 1) {
10816 isds_printf_message(context
,
10817 _("Multiple `return' element in Czech POINT deposit response"));
10822 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
10825 EXTRACT_LONGINT("status", status_ptr
, 1);
10827 EXTRACT_STRING("statusMsg", string
);
10828 char *string_locale
= _isds_utf82locale(string
);
10829 isds_printf_message(context
,
10830 _("Czech POINT deposit refused document for conversion "
10831 "(code=%ld, message=%s)"),
10832 status
, string_locale
);
10833 free(string_locale
);
10838 /* Get document ID */
10839 EXTRACT_STRING("documentID", *id
);
10841 /* Get submit date */
10842 EXTRACT_STRING("dateInserted", string
);
10844 *date
= calloc(1, sizeof(**date
));
10849 err
= _isds_datestring2tm((xmlChar
*)string
, *date
);
10851 if (err
== IE_NOTSUP
) {
10853 char *string_locale
= _isds_utf82locale(string
);
10854 isds_printf_message(context
,
10855 _("Invalid dateInserted value: %s"), string_locale
);
10856 free(string_locale
);
10864 xmlXPathFreeObject(result
);
10865 xmlXPathFreeContext(xpath_ctx
);
10867 xmlFreeDoc(response
);
10868 xmlFreeNode(request
);
10871 char *id_locale
= _isds_utf82locale((char *) *id
);
10872 isds_log(ILF_ISDS
, ILL_DEBUG
,
10873 _("Document %s has been submitted for conversion "
10874 "to server successfully\n"), id_locale
);
10877 #else /* not HAVE_LIBCURL */
10884 /* Close possibly opened connection to Czech POINT document deposit.
10885 * @context is Czech POINT session context. */
10886 isds_error
czp_close_connection(struct isds_ctx
*context
) {
10887 if (!context
) return IE_INVALID_CONTEXT
;
10888 zfree(context
->long_message
);
10890 return czp_do_close_connection(context
);
10897 /* Send request for new box creation in testing ISDS instance.
10898 * It's not possible to request for a production box currently, as it
10899 * communicates via e-mail.
10900 * XXX: This function does not work either. Server complains about invalid
10902 * XXX: Remove context->type hacks in isds.c and validator.c when removing
10904 * @context is special session context for box creation request. DO NOT use
10905 * standard context as it could reveal your password. Use fresh new context or
10906 * context previously used by this function.
10907 * @box is box description to create including single primary user (in case of
10908 * FO box type). It outputs box ID assigned by ISDS in dbID element.
10909 * @users is list of struct isds_DbUserInfo (primary users in case of non-FO
10910 * box, or contact address of PFO box owner). The email member is mandatory as
10911 * it will be used to deliver credentials.
10912 * @former_names is former name of box owner. Pass NULL if you don't care.
10913 * @approval is optional external approval of box manipulation
10914 * @refnumber is reallocated serial number of request assigned by ISDS. Use
10915 * NULL, if you don't care.*/
10916 isds_error
isds_request_new_testing_box(struct isds_ctx
*context
,
10917 struct isds_DbOwnerInfo
*box
, const struct isds_list
*users
,
10918 const char *former_names
, const struct isds_approval
*approval
,
10919 char **refnumber
) {
10920 isds_error err
= IE_SUCCESS
;
10922 xmlNodePtr request
= NULL
;
10923 xmlDocPtr response
= NULL
;
10924 xmlXPathContextPtr xpath_ctx
= NULL
;
10925 xmlXPathObjectPtr result
= NULL
;
10929 if (!context
) return IE_INVALID_CONTEXT
;
10930 zfree(context
->long_message
);
10931 if (!box
) return IE_INVAL
;
10934 if (!box
->email
|| box
->email
[0] == '\0') {
10935 isds_log_message(context
, _("E-mail field is mandatory"));
10939 /* Scratch box ID */
10942 /* Store configuration */
10943 context
->type
= CTX_TYPE_TESTING_REQUEST_COLLECTOR
;
10944 free(context
->url
);
10945 context
->url
= strdup("http://78.102.19.203/testbox/request_box.php");
10946 if (!(context
->url
))
10949 /* Prepare CURL handle if not yet connected */
10950 if (!context
->curl
) {
10951 context
->curl
= curl_easy_init();
10952 if (!(context
->curl
))
10956 /* Build CreateDataBox request */
10957 err
= build_CreateDBInput_request(context
,
10958 &request
, BAD_CAST
"CreateDataBox",
10959 box
, users
, (xmlChar
*) former_names
, NULL
, NULL
, NULL
, approval
);
10960 if (err
) goto leave
;
10962 /* Send it to server and process response */
10963 err
= send_destroy_request_check_response(context
,
10964 SERVICE_DB_MANIPULATION
, BAD_CAST
"CreateDataBox", &request
,
10965 &response
, (xmlChar
**) refnumber
, NULL
);
10966 if (err
) goto leave
;
10968 /* Extract box ID */
10969 xpath_ctx
= xmlXPathNewContext(response
);
10974 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
10978 EXTRACT_STRING("/isds:CreateDataBoxResponse/isds:dbID", box
->dbID
);
10981 xmlXPathFreeObject(result
);
10982 xmlXPathFreeContext(xpath_ctx
);
10983 xmlFreeDoc(response
);
10984 xmlFreeNode(request
);
10987 isds_log(ILF_ISDS
, ILL_DEBUG
,
10988 _("CreateDataBox request processed by server successfully.\n"));
10990 #else /* not HAVE_LIBCURL */
10998 /* Submit CMS signed message to ISDS to verify its originality. This is
10999 * stronger form of isds_verify_message_hash() because ISDS does more checks
11000 * than simple one (potentialy old weak) hash comparison.
11001 * @context is session context
11002 * @message is memory with raw CMS signed message bit stream
11003 * @length is @message size in bytes
11005 * IE_SUCCESS if message originates in ISDS
11006 * IE_NOTEQUAL if message is unknown to ISDS
11007 * other code for other errors */
11008 isds_error
isds_authenticate_message(struct isds_ctx
*context
,
11009 const void *message
, size_t length
) {
11010 isds_error err
= IE_SUCCESS
;
11012 xmlNsPtr isds_ns
= NULL
;
11013 xmlNodePtr request
= NULL
;
11014 xmlDocPtr response
= NULL
;
11015 xmlXPathContextPtr xpath_ctx
= NULL
;
11016 xmlXPathObjectPtr result
= NULL
;
11017 _Bool
*authentic
= NULL
;
11020 if (!context
) return IE_INVALID_CONTEXT
;
11021 zfree(context
->long_message
);
11022 if (!message
|| length
== 0) return IE_INVAL
;
11025 /* Check if connection is established
11026 * TODO: This check should be done downstairs. */
11027 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
11030 /* Build AuthenticateMessage request */
11031 request
= xmlNewNode(NULL
, BAD_CAST
"AuthenticateMessage");
11033 isds_log_message(context
,
11034 _("Could not build AuthenticateMessage request"));
11037 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
11039 isds_log_message(context
, _("Could not create ISDS name space"));
11040 xmlFreeNode(request
);
11043 xmlSetNs(request
, isds_ns
);
11045 /* Insert Base64 encoded message */
11046 err
= insert_base64_encoded_string(context
, request
, NULL
, "dmMessage",
11048 if (err
) goto leave
;
11050 /* Send request to server and process response */
11051 err
= send_destroy_request_check_response(context
,
11052 SERVICE_DM_OPERATIONS
, BAD_CAST
"AuthenticateMessage", &request
,
11053 &response
, NULL
, NULL
);
11054 if (err
) goto leave
;
11057 /* ISDS has decided */
11058 xpath_ctx
= xmlXPathNewContext(response
);
11063 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
11068 EXTRACT_BOOLEAN("/isds:AuthenticateMessageResponse/isds:dmAuthResult", authentic
);
11071 isds_log_message(context
,
11072 _("Server did not return any response on "
11073 "AuthenticateMessage request"));
11078 isds_log(ILF_ISDS
, ILL_DEBUG
,
11079 _("ISDS authenticated the message successfully\n"));
11081 isds_log_message(context
, _("ISDS does not know the message"));
11088 xmlXPathFreeObject(result
);
11089 xmlXPathFreeContext(xpath_ctx
);
11091 xmlFreeDoc(response
);
11092 xmlFreeNode(request
);
11093 #else /* not HAVE_LIBCURL */
11101 /* Submit CMS signed message or delivery info to ISDS to re-sign the content
11102 * including adding new CMS time stamp. Only CMS blobs without time stamp can
11104 * @context is session context
11105 * @input_data is memory with raw CMS signed message or delivery info bit
11106 * stream to re-sign
11107 * @input_length is @input_data size in bytes
11108 * @output_data is pointer to auto-allocated memory where to store re-signed
11109 * input data blob. Caller must free it.
11110 * @output_data is pointer where to store @output_data size in bytes
11111 * @valid_to is pointer to auto-allocated date of time stamp expiration.
11112 * Only tm_year, tm_mon and tm_mday will be set. Pass NULL, if you don't care.
11114 * IE_SUCCESS if CMS blob has been re-signed successfully
11115 * other code for other errors */
11116 isds_error
isds_resign_message(struct isds_ctx
*context
,
11117 const void *input_data
, size_t input_length
,
11118 void **output_data
, size_t *output_length
, struct tm
**valid_to
) {
11119 isds_error err
= IE_SUCCESS
;
11121 xmlNsPtr isds_ns
= NULL
;
11122 xmlNodePtr request
= NULL
;
11123 xmlDocPtr response
= NULL
;
11124 xmlXPathContextPtr xpath_ctx
= NULL
;
11125 xmlXPathObjectPtr result
= NULL
;
11126 char *string
= NULL
;
11127 const xmlChar
*codes
[] = {
11134 const char *meanings
[] = {
11136 "Message is not original",
11137 "Message already contains time stamp in CAdES-EPES or CAdES-T CMS structure",
11138 "Time stamp could not been generated in time"
11140 const isds_error errors
[] = {
11146 struct code_map_isds_error map
= {
11148 .meanings
= meanings
,
11153 if (NULL
!= output_data
) *output_data
= NULL
;
11154 if (NULL
!= output_length
) *output_length
= 0;
11155 if (NULL
!= valid_to
) *valid_to
= NULL
;
11157 if (NULL
== context
) return IE_INVALID_CONTEXT
;
11158 zfree(context
->long_message
);
11159 if (NULL
== input_data
|| 0 == input_length
) {
11160 isds_log_message(context
, _("Empty CMS blob on input"));
11163 if (NULL
== output_data
|| NULL
== output_length
) {
11164 isds_log_message(context
,
11165 _("NULL pointer provided for output CMS blob"));
11170 /* Check if connection is established
11171 * TODO: This check should be done downstairs. */
11172 if (!context
->curl
) return IE_CONNECTION_CLOSED
;
11175 /* Build Re-signISDSDocument request */
11176 request
= xmlNewNode(NULL
, BAD_CAST
"Re-signISDSDocument");
11178 isds_log_message(context
,
11179 _("Could not build Re-signISDSDocument request"));
11182 isds_ns
= xmlNewNs(request
, BAD_CAST ISDS_NS
, NULL
);
11184 isds_log_message(context
, _("Could not create ISDS name space"));
11185 xmlFreeNode(request
);
11188 xmlSetNs(request
, isds_ns
);
11190 /* Insert Base64 encoded CMS blob */
11191 err
= insert_base64_encoded_string(context
, request
, NULL
, "dmDoc",
11192 input_data
, input_length
);
11193 if (err
) goto leave
;
11195 /* Send request to server and process response */
11196 err
= send_destroy_request_check_response(context
,
11197 SERVICE_DM_OPERATIONS
, BAD_CAST
"Re-signISDSDocument", &request
,
11198 &response
, NULL
, &map
);
11199 if (err
) goto leave
;
11202 /* Extract re-signed data */
11203 xpath_ctx
= xmlXPathNewContext(response
);
11208 if (_isds_register_namespaces(xpath_ctx
, MESSAGE_NS_UNSIGNED
)) {
11212 result
= xmlXPathEvalExpression(
11213 BAD_CAST
"/isds:Re-signISDSDocumentResponse", xpath_ctx
);
11218 if (xmlXPathNodeSetIsEmpty(result
->nodesetval
)) {
11219 isds_log_message(context
,
11220 _("Missing Re-signISDSDocumentResponse element"));
11224 if (result
->nodesetval
->nodeNr
> 1) {
11225 isds_log_message(context
,
11226 _("Multiple Re-signISDSDocumentResponse element"));
11230 xpath_ctx
->node
= result
->nodesetval
->nodeTab
[0];
11231 xmlXPathFreeObject(result
); result
= NULL
;
11233 EXTRACT_STRING("isds:dmResultDoc", string
);
11234 /* Decode non-empty data */
11235 if (NULL
!= string
&& string
[0] != '\0') {
11236 *output_length
= _isds_b64decode(string
, output_data
);
11237 if (*output_length
== (size_t) -1) {
11238 isds_log_message(context
,
11239 _("Error while Base64-decoding re-signed data"));
11244 isds_log_message(context
, _("Server did not send re-signed data"));
11250 if (NULL
!= valid_to
) {
11251 /* Get time stamp expiration date */
11252 EXTRACT_STRING("isds:dmValidTo", string
);
11253 if (NULL
!= string
) {
11254 *valid_to
= calloc(1, sizeof(**valid_to
));
11259 err
= _isds_datestring2tm((xmlChar
*)string
, *valid_to
);
11261 if (err
== IE_NOTSUP
) {
11263 char *string_locale
= _isds_utf82locale(string
);
11264 isds_printf_message(context
,
11265 _("Invalid dmValidTo value: %s"), string_locale
);
11266 free(string_locale
);
11276 xmlXPathFreeObject(result
);
11277 xmlXPathFreeContext(xpath_ctx
);
11279 xmlFreeDoc(response
);
11280 xmlFreeNode(request
);
11281 #else /* not HAVE_LIBCURL */
11288 #undef INSERT_ELEMENT
11289 #undef CHECK_FOR_STRING_LENGTH
11290 #undef INSERT_STRING_ATTRIBUTE
11291 #undef INSERT_ULONGINTNOPTR
11292 #undef INSERT_ULONGINT
11293 #undef INSERT_LONGINT
11294 #undef INSERT_BOOLEAN
11295 #undef INSERT_SCALAR_BOOLEAN
11296 #undef INSERT_STRING
11297 #undef INSERT_STRING_WITH_NS
11298 #undef EXTRACT_STRING_ATTRIBUTE
11299 #undef EXTRACT_ULONGINT
11300 #undef EXTRACT_LONGINT
11301 #undef EXTRACT_BOOLEAN
11302 #undef EXTRACT_STRING
11305 /* Compute hash of message from raw representation and store it into envelope.
11306 * Original hash structure will be destroyed in envelope.
11307 * @context is session context
11308 * @message is message carrying raw XML message blob
11309 * @algorithm is desired hash algorithm to use */
11310 isds_error
isds_compute_message_hash(struct isds_ctx
*context
,
11311 struct isds_message
*message
, const isds_hash_algorithm algorithm
) {
11312 isds_error err
= IE_SUCCESS
;
11314 void *xml_stream
= NULL
;
11315 size_t xml_stream_length
;
11316 size_t phys_start
, phys_end
;
11317 char *phys_path
= NULL
;
11318 struct isds_hash
*new_hash
= NULL
;
11321 if (!context
) return IE_INVALID_CONTEXT
;
11322 zfree(context
->long_message
);
11323 if (!message
) return IE_INVAL
;
11325 if (!message
->raw
) {
11326 isds_log_message(context
,
11327 _("Message does not carry raw representation"));
11331 switch (message
->raw_type
) {
11332 case RAWTYPE_INCOMING_MESSAGE
:
11334 xml_stream
= message
->raw
;
11335 xml_stream_length
= message
->raw_length
;
11338 case RAWTYPE_PLAIN_SIGNED_INCOMING_MESSAGE
:
11339 nsuri
= SISDS_INCOMING_NS
;
11340 xml_stream
= message
->raw
;
11341 xml_stream_length
= message
->raw_length
;
11344 case RAWTYPE_CMS_SIGNED_INCOMING_MESSAGE
:
11345 nsuri
= SISDS_INCOMING_NS
;
11346 err
= _isds_extract_cms_data(context
,
11347 message
->raw
, message
->raw_length
,
11348 &xml_stream
, &xml_stream_length
);
11349 if (err
) goto leave
;
11352 case RAWTYPE_PLAIN_SIGNED_OUTGOING_MESSAGE
:
11353 nsuri
= SISDS_OUTGOING_NS
;
11354 xml_stream
= message
->raw
;
11355 xml_stream_length
= message
->raw_length
;
11358 case RAWTYPE_CMS_SIGNED_OUTGOING_MESSAGE
:
11359 nsuri
= SISDS_OUTGOING_NS
;
11360 err
= _isds_extract_cms_data(context
,
11361 message
->raw
, message
->raw_length
,
11362 &xml_stream
, &xml_stream_length
);
11363 if (err
) goto leave
;
11367 isds_log_message(context
, _("Bad raw representation type"));
11373 /* XXX: Hash is computed from original string representing isds:dmDm
11374 * subtree. That means no encoding, white space, xmlns attributes changes.
11375 * In other words, input for hash can be invalid XML stream. */
11376 if (-1 == isds_asprintf(&phys_path
, "%s%s%s%s",
11377 nsuri
, PHYSXML_NS_SEPARATOR
"MessageDownloadResponse"
11378 PHYSXML_ELEMENT_SEPARATOR
,
11379 nsuri
, PHYSXML_NS_SEPARATOR
"dmReturnedMessage"
11380 PHYSXML_ELEMENT_SEPARATOR
11381 ISDS_NS PHYSXML_NS_SEPARATOR
"dmDm")) {
11385 err
= _isds_find_element_boundary(xml_stream
, xml_stream_length
,
11386 phys_path
, &phys_start
, &phys_end
);
11389 isds_log_message(context
,
11390 _("Substring with isds:dmDM element could not be located "
11391 "in raw message"));
11397 new_hash
= calloc(1, sizeof(*new_hash
));
11402 new_hash
->algorithm
= algorithm
;
11403 err
= _isds_compute_hash(xml_stream
+ phys_start
, phys_end
- phys_start
+ 1,
11406 isds_log_message(context
, _("Could not compute message hash"));
11410 /* Save computed hash */
11411 if (!message
->envelope
) {
11412 message
->envelope
= calloc(1, sizeof(*message
->envelope
));
11413 if (!message
->envelope
) {
11418 isds_hash_free(&message
->envelope
->hash
);
11419 message
->envelope
->hash
= new_hash
;
11423 isds_hash_free(&new_hash
);
11427 if (xml_stream
!= message
->raw
) free(xml_stream
);
11432 /* Compare two hashes.
11433 * @h1 is first hash
11434 * @h2 is another hash
11436 * IE_SUCCESS if hashes equal
11437 * IE_NOTUNIQ if hashes are comparable, but they don't equal
11438 * IE_ENUM if not comparable, but both structures defined
11439 * IE_INVAL if some of the structures are undefined (NULL)
11440 * IE_ERROR if internal error occurs */
11441 isds_error
isds_hash_cmp(const struct isds_hash
*h1
, const struct isds_hash
*h2
) {
11442 if (h1
== NULL
|| h2
== NULL
) return IE_INVAL
;
11443 if (h1
->algorithm
!= h2
->algorithm
) return IE_ENUM
;
11444 if (h1
->length
!= h2
->length
) return IE_ERROR
;
11445 if (h1
->length
> 0 && !h1
->value
) return IE_ERROR
;
11446 if (h2
->length
> 0 && !h2
->value
) return IE_ERROR
;
11448 for (int i
= 0; i
< h1
->length
; i
++) {
11449 if (((uint8_t *) (h1
->value
))[i
] != ((uint8_t *) (h2
->value
))[i
])
11450 return IE_NOTEQUAL
;
11456 /* Check message has gone through ISDS by comparing message hash stored in
11457 * ISDS and locally computed hash. You must provide message with valid raw
11458 * member (do not use isds_load_message(..., BUFFER_DONT_STORE)).
11459 * This is convenient wrapper for isds_download_message_hash(),
11460 * isds_compute_message_hash(), and isds_hash_cmp() sequence.
11461 * @context is session context
11462 * @message is message with valid raw and envelope member; envelope->hash
11463 * member will be changed during function run. Use envelope on heap only.
11465 * IE_SUCCESS if message originates in ISDS
11466 * IE_NOTEQUAL if message is unknown to ISDS
11467 * other code for other errors */
11468 isds_error
isds_verify_message_hash(struct isds_ctx
*context
,
11469 struct isds_message
*message
) {
11470 isds_error err
= IE_SUCCESS
;
11471 struct isds_hash
*downloaded_hash
= NULL
;
11473 if (!context
) return IE_INVALID_CONTEXT
;
11474 zfree(context
->long_message
);
11475 if (!message
) return IE_INVAL
;
11477 if (!message
->envelope
) {
11478 isds_log_message(context
,
11479 _("Given message structure is missing envelope"));
11482 if (!message
->raw
) {
11483 isds_log_message(context
,
11484 _("Given message structure is missing raw representation"));
11488 err
= isds_download_message_hash(context
, message
->envelope
->dmID
,
11490 if (err
) goto leave
;
11492 err
= isds_compute_message_hash(context
, message
,
11493 downloaded_hash
->algorithm
);
11494 if (err
) goto leave
;
11496 err
= isds_hash_cmp(downloaded_hash
, message
->envelope
->hash
);
11499 isds_hash_free(&downloaded_hash
);
11504 /* Search for document by document ID in list of documents. IDs are compared
11506 * @documents is list of isds_documents
11507 * @id is document identifier
11508 * @return first matching document or NULL. */
11509 const struct isds_document
*isds_find_document_by_id(
11510 const struct isds_list
*documents
, const char *id
) {
11511 const struct isds_list
*item
;
11512 const struct isds_document
*document
;
11514 for (item
= documents
; item
; item
= item
->next
) {
11515 document
= (struct isds_document
*) item
->data
;
11516 if (!document
) continue;
11518 if (!xmlStrcmp((xmlChar
*) id
, (xmlChar
*) document
->dmFileGuid
))
11526 /* Normalize @mime_type to be proper MIME type.
11527 * ISDS servers pass invalid MIME types (e.g. "pdf"). This function tries to
11528 * guess regular MIME type (e.g. "application/pdf").
11529 * @mime_type is UTF-8 encoded MIME type to fix
11530 * @return original @mime_type if no better interpretation exists, or
11531 * constant static UTF-8 encoded string with proper MIME type. */
11532 const char *isds_normalize_mime_type(const char *mime_type
) {
11533 if (!mime_type
) return NULL
;
11535 for (int offset
= 0;
11536 offset
< sizeof(extension_map_mime
)/sizeof(extension_map_mime
[0]);
11538 if (!xmlStrcasecmp((const xmlChar
*) mime_type
,
11539 extension_map_mime
[offset
]))
11540 return (const char *) extension_map_mime
[offset
+ 1];
11547 /*int isds_get_message(struct isds_ctx *context, const unsigned int id,
11548 struct isds_message **message);
11549 int isds_send_message(struct isds_ctx *context, struct isds_message *message);
11550 int isds_list_messages(struct isds_ctx *context, struct isds_message **message);
11551 int isds_find_recipient(struct isds_ctx *context, const struct address *pattern,
11552 struct isds_address **address);
11554 int isds_message_free(struct isds_message **message);
11555 int isds_address_free(struct isds_address **address);
11559 /* Makes known all relevant namespaces to given XPath context
11560 * @xpath_ctx is XPath context
11561 * @message_ns selects proper message name space. Unsigned and signed
11562 * messages and delivery info's differ in prefix and URI. */
11563 _hidden isds_error
_isds_register_namespaces(xmlXPathContextPtr xpath_ctx
,
11564 const message_ns_type message_ns
) {
11565 const xmlChar
*message_namespace
= NULL
;
11567 if (!xpath_ctx
) return IE_ERROR
;
11569 switch(message_ns
) {
11571 message_namespace
= BAD_CAST ISDS1_NS
; break;
11572 case MESSAGE_NS_UNSIGNED
:
11573 message_namespace
= BAD_CAST ISDS_NS
; break;
11574 case MESSAGE_NS_SIGNED_INCOMING
:
11575 message_namespace
= BAD_CAST SISDS_INCOMING_NS
; break;
11576 case MESSAGE_NS_SIGNED_OUTGOING
:
11577 message_namespace
= BAD_CAST SISDS_OUTGOING_NS
; break;
11578 case MESSAGE_NS_SIGNED_DELIVERY
:
11579 message_namespace
= BAD_CAST SISDS_DELIVERY_NS
; break;
11584 if (xmlXPathRegisterNs(xpath_ctx
, BAD_CAST
"soap", BAD_CAST SOAP_NS
))
11586 if (xmlXPathRegisterNs(xpath_ctx
, BAD_CAST
"isds", BAD_CAST ISDS_NS
))
11588 if (xmlXPathRegisterNs(xpath_ctx
, BAD_CAST
"oisds", BAD_CAST OISDS_NS
))
11590 if (xmlXPathRegisterNs(xpath_ctx
, BAD_CAST
"sisds", message_namespace
))
11592 if (xmlXPathRegisterNs(xpath_ctx
, BAD_CAST
"xs", BAD_CAST SCHEMA_NS
))
11594 if (xmlXPathRegisterNs(xpath_ctx
, BAD_CAST
"deposit", BAD_CAST DEPOSIT_NS
))
