Changeset 176c22b for perlconfig.c
- Timestamp:
- Nov 14, 2012, 3:45:50 PM (12 years ago)
- Children:
- 472dcbe
- Parents:
- c42a8d1
- git-author:
- David Benjamin <davidben@mit.edu> (11/14/12 15:22:41)
- git-committer:
- David Benjamin <davidben@mit.edu> (11/14/12 15:45:50)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perlconfig.c
rd199207 r176c22b 92 92 owl_new_sv(owl_message_get_##field(m)), 0) 93 93 94 if (owl_message_ get_notice(m)) {94 if (owl_message_is_type_zephyr(m) && owl_message_is_direction_in(m)) { 95 95 /* Handle zephyr-specific fields... */ 96 AV *av_zfields; 97 98 av_zfields = newAV(); 99 for (f = owl_zephyr_first_raw_field(owl_message_get_notice(m)); f != NULL; 100 f = owl_zephyr_next_raw_field(owl_message_get_notice(m), f)) { 101 ptr=owl_zephyr_field_as_utf8(owl_message_get_notice(m), f); 102 av_push(av_zfields, owl_new_sv(ptr)); 103 g_free(ptr); 96 AV *av_zfields = newAV(); 97 if (owl_message_get_notice(m)) { 98 for (f = owl_zephyr_first_raw_field(owl_message_get_notice(m)); f != NULL; 99 f = owl_zephyr_next_raw_field(owl_message_get_notice(m), f)) { 100 ptr = owl_zephyr_field_as_utf8(owl_message_get_notice(m), f); 101 av_push(av_zfields, owl_new_sv(ptr)); 102 g_free(ptr); 103 } 104 (void)hv_store(h, "auth", strlen("auth"), 105 owl_new_sv(owl_zephyr_get_authstr(owl_message_get_notice(m))), 0); 106 } else { 107 /* Incoming zephyrs without a ZNotice_t are pseudo-logins. To appease 108 * existing styles, put in bogus 'auth' and 'fields' keys. */ 109 (void)hv_store(h, "auth", strlen("auth"), owl_new_sv("NO"), 0); 104 110 } 105 111 (void)hv_store(h, "fields", strlen("fields"), newRV_noinc((SV*)av_zfields), 0); 106 107 (void)hv_store(h, "auth", strlen("auth"),108 owl_new_sv(owl_zephyr_get_authstr(owl_message_get_notice(m))),0);109 112 } 110 113
Note: See TracChangeset
for help on using the changeset viewer.