' || content || ''; } else if (contentType like 'multipart/%') { declare res, best_cnt any; declare exit handler for sqlstate '*' { signal ('CONVX', __SQL_MESSAGE);}; AB.WA.nntp_process_parts (tree, N_NM_BODY, vector ('text/%'), res, 1); best_cnt := null; content := null; foreach (any elm in res) do { if (elm[1] = 'text/html' and (content is null or best_cnt = 'text/plain')) { best_cnt := 'text/html'; content := elm[2]; if (elm[4] = 'quoted-printable') { content := uudecode (content, 12); } else if (elm[4] = 'base64') { content := decode_base64 (content); } cset := elm[5]; } else if (best_cnt is null and elm[1] = 'text/plain') { content := elm[2]; best_cnt := 'text/plain'; cset := elm[5]; } if (elm[1] not like 'text/%') signal ('CONVX', sprintf ('The post contains parts of type [%s] which is prohibited.', elm[1])); } if (length (cset) and cset <> 'UTF-8') { declare exit handler for sqlstate '2C000' { goto next_2;}; content := charset_recode (content, cset, 'UTF-8'); } next_2:; } else signal ('CONVX', sprintf ('The content type [%s] is not supported', contentType)); rfc_header := ''; for (declare i int, i := 0; i < length (head); i := i + 2) { if (lower (head[i]) <> 'content-type' and lower (head[i]) <> 'mime-version' and lower (head[i]) <> 'boundary' and lower (head[i]) <> 'subject') rfc_header := rfc_header || head[i] ||': ' || head[i + 1]||'\r\n'; } rfc_header := AB.WA.make_mail_subject (subject) || rfc_header || 'Content-Type: text/html; charset=UTF-8\r\n\r\n'; rfc_references := N_NM_REF; if (not isnull (N_NM_REF)) { declare exit handler for not found { signal ('CONV1', 'No such article.');}; parent_id := null; refs := split_and_decode (N_NM_REF, 0, '\0\0 '); if (length (refs)) N_NM_REF := refs[length (refs) - 1]; select PC_ID, PC_DOMAIN_ID, PC_PERSON_ID, PC_TITLE into parent_id, domain_id, item_id, title from AB.WA.PERSON_COMMENTS where PC_RFC_ID = N_NM_REF; if (isnull (subject)) subject := 'Re: '|| title; AB.WA.mail_address_split (author, name, mail); insert into AB.WA.PERSON_COMMENTS (PC_PARENT_ID, PC_DOMAIN_ID, PC_PERSON_ID, PC_TITLE, PC_COMMENT, PC_U_NAME, PC_U_MAIL, PC_UPDATED, PC_RFC_ID, PC_RFC_HEADER, PC_RFC_REFERENCES) values (parent_id, domain_id, item_id, subject, content, name, mail, N_NM_REC_DATE, N_NM_ID, rfc_header, rfc_references); } } ; ----------------------------------------------------------------------------------------- -- create procedure DB.DBA.ADDRESSBOOK_NEWS_MSG_U ( inout O_NM_ID any, inout N_NM_ID any, inout N_NM_REF any, inout N_NM_READ any, inout N_NM_OWN any, inout N_NM_REC_DATE any, inout N_NM_STAT any, inout N_NM_TRY_POST any, inout N_NM_DELETED any, inout N_NM_HEAD any, inout N_NM_BODY any) { return; } ; ----------------------------------------------------------------------------------------- -- create procedure DB.DBA.ADDRESSBOOK_NEWS_MSG_D ( inout O_NM_ID any) { signal ('CONV3', 'Delete of a Person comment is not allowed'); } ; ----------------------------------------------------------------------------------------- -- create procedure AB.WA.news_comment_get_mess_attachments (inout _data any, in get_uuparts integer) { declare data, outp, _all any; declare line varchar; declare in_UU, get_body integer; data := string_output (http_strses_memory_size ()); http (_data, data); http ('\n', data); _all := vector (); outp := string_output (http_strses_memory_size ()); in_UU := 0; get_body := 1; while (1 = 1) { line := ses_read_line (data, 0); if (line is null or isstring (line) = 0) { if (length (_all) = 0) { _all := vector_concat (_all, vector (string_output_string (outp))); } return _all; } if (in_UU = 0 and subseq (line, 0, 6) = 'begin ' and length (line) > 6) { in_UU := 1; if (get_body) { get_body := 0; _all := vector_concat (_all, vector (string_output_string (outp))); http_output_flush (outp); } _all := vector_concat (_all, vector (subseq (line, 10))); } else if (in_UU = 1 and subseq (line, 0, 3) = 'end') { in_UU := 0; if (get_uuparts) { _all := vector_concat (_all, vector (string_output_string (outp))); http_output_flush (outp); } } else if ((get_uuparts and in_UU = 1) or get_body) { http (line, outp); http ('\n', outp); } } return _all; } ; ----------------------------------------------------------------------------------------- -- create procedure AB.WA.news_comment_get_cn_type (in f_name varchar) { declare ext varchar; declare temp any; ext := 'text/html'; temp := split_and_decode (f_name, 0, '\0\0.'); if (length (temp) < 2) return ext; temp := temp[1]; if (exists (select 1 from WS.WS.SYS_DAV_RES_TYPES where T_EXT = temp)) ext := ((select T_TYPE from WS.WS.SYS_DAV_RES_TYPES where T_EXT = temp)); return ext; } ; ----------------------------------------------------------------------------------------- -- -- API Lib Procedures -- ----------------------------------------------------------------------------------------- create procedure AB.WA.owner2contactMap () { return vector ( 'U_ID' , 'P_ID' , 'U_NAME' , 'P_NAME' , 'U_E_MAIL' , 'P_MAIL' , 'WAUI_TITLE' , 'P_TITLE' , 'WAUI_BIRTHDAY' , 'P_BIRTHDAY' , 'WAUI_GENDER' , 'P_GENDER' , 'WAUI_FIRST_NAME', 'P_FIRST_NAME' , 'WAUI_LAST_NAME' , 'P_LAST_NAME' , 'WAUI_GENDER' , 'P_GENDER' , 'WAUI_ICQ' , 'P_ICQ' , 'WAUI_SKYPE' , 'P_SKYPE' , 'WAUI_YAHOO' , 'P_YAHOO' , 'WAUI_AIM' , 'P_AIM' , 'WAUI_MSN' , 'P_MSN' , 'WAUI_HCOUNTRY' , 'P_H_COUNTRY' , 'WAUI_HSTATE' , 'P_H_STATE' , 'WAUI_HCITY' , 'P_H_CITY' , 'WAUI_HCODE' , 'P_H_CODE' , 'WAUI_HADDRESS1' , 'P_H_ADDRESS1' , 'WAUI_HADDRESS2' , 'P_H_ADDRESS2' , 'WAUI_HTZONE' , 'P_H_TZONE' , 'WAUI_LAT' , 'P_H_LAT' , 'WAUI_LNG' , 'P_H_LNG' , 'WAUI_HPHONE' , 'P_H_PHONE' , 'WAUI_HMOBILE' , 'P_H_MOBILE' , 'WAUI_BCOUNTRY' , 'P_B_COUNTRY' , 'WAUI_BSTATE' , 'P_B_STATE' , 'WAUI_BCITY' , 'P_B_CITY' , 'WAUI_BCODE' , 'P_B_CODE' , 'WAUI_BADDRESS1' , 'P_B_ADDRESS1' , 'WAUI_BADDRESS2' , 'P_B_ADDRESS2' , 'WAUI_BTZONE' , 'P_B_TZONE' , 'WAUI_BLAT' , 'P_B_LAT' , 'WAUI_BLNG' , 'P_B_LNG' , 'WAUI_BPHONE' , 'P_B_PHONE' , 'WAUI_BMOBILE' , 'P_B_MOBILE' , 'WAUI_WEBPAGE' , 'P_WEB' , 'WAUI_BINDUSTRY' , 'P_B_INDUSTRY' , 'WAUI_BORG' , 'P_B_ORGANIZATION', 'WAUI_BJOB' , 'P_B_JOB' , 'WAUI_TAGS' , 'P_TAGS' ); } ; ----------------------------------------------------------------------------------------- -- create procedure AB.WA.apiHTTPError ( in error varchar) { declare S varchar; S := replace (error, 'HTTP/1.1 ', ''); http_header ('Content-Type: text/html; charset=UTF-8\r\n'); http_request_status (error); http (sprintf ('
No annotations |
', iri)); self.showTDValue (id, row.te_column_value('A_AUTHOR')); http (''); ?> |
|
|
Item
|
||||||||||||
Comments
';
for (idx := 1; idx < length (parsed_message); idx := idx + 1)
{
d_name := parsed_message[idx];
comment := comment || sprintf ('Download attachment : %s
', WA_LINK(1,'/'), self.domain_id, id, idx, d_name, d_name); if (d_name like '%.jpg' or d_name like '%.gif' or d_name like '%.png') { comment := comment || sprintf ('', WA_LINK(1,'/'), self.domain_id, id, idx, d_name); comment := comment||' '; } } ?>
%s', iri, title)); ?>
|
||||||||||||
|
||||||||||||
Subscribe to an RSS feed of this comment thread: ', AB.WA.gems_url (self.domain_id), self.v_id)); ?> |
SQL State | |
SQL Message |
' || AB.WA.utf2wide (cast (fValue as varchar)) || ''; } else if (internal_type (fValue) = 211) { F := left (cast (fValue as varchar), 10); } else { F := cast (fValue as varchar); } if (is_empty_or_null (fProperty)) return F; FT := ''; if (not isnull (fPropertyType)) { V := split_and_decode (fPropertyType, 0, '\0\0,'); for (N := 0; N < length (V); N := N + 1) FT := sprintf ('%s ', FT, V[N]); } FS := fShowValue; if (isnull (FS)) FS := F; if (not isnull (fPropertyType)) FS := sprintf ('%s', FS); P := ''; -- vcard class if (not is_empty_or_null (fProperty)) P := P || sprintf (' class="%s"', fProperty); -- vcard special values if (fProperty in ('dtstart', 'dtend', 'completed', 'created', 'last-modified')) P := P || sprintf (' title="%s"', substring (cast (fValue as varchar), 1, 10)); -- dc properties if (fProperty = 'summary') P := P || ' property="dc:title"'; -- tag T := 'span'; if (fProperty = 'dtstart') T := 'abbr'; if (fProperty = 'dtend') T := 'abbr'; return sprintf ('<%s%s>%s%s%s>', T, P, FT, FS, T); ]]>
|
|
---|
|
|
---|---|
|
|
|
---|---|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Name | Comment | Ping | Action | |||
---|---|---|---|---|---|---|
', item[1])); ?> | ', item[1])); } ?> | ', item[1])); ?> |
CSV Column | Contact Property |
---|---|
LDAP Property | Contact Property | Sample Data (based on first record) |
---|---|---|
|
|
||||
---|---|---|---|---|---|
Sharing | |||||
Duplicate entries mode |
|
||||
Specify fields to identify entries |
|
|
|
---|---|
|
|
Settings
Categories
Publications
Subscriptions
SyncML
Back |
|