XMXUTIL1 ;ISC-SF/GMB-Date & String Utilities ;04/17/2002 14:14
Source file <XMXUTIL1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENCODEUP(XMSUBJ) | ; Change ^ to ~U~
|
|
DECODEUP(XMSUBJ) | ; Change ~U~ to ^
|
|
SCRUB(XMSTRING) | ; Strip ctrl chars and leading/trailing blanks
|
|
STRIP(XMSTRING) | ; Strip leading and trailing blanks from a string
|
|
MAXBLANK(XMSTRING) | ; Reduce 3 or more consecutive blanks in a string to 2
|
|
CTRL(XMSTRING) | ; Strip control characters from a string
|
|
MELD(XMSTRING,XMNUMBER,XMLEN) | ; Function right-justifies a string and
; left-justifies a number in a combined string of a given length. ; The string will be truncated, if necessary. ; e.g. $$MELD("I just love Lotus, don't you?",123,22) returns: ; "I just love Lotus 123" |
|
TSTAMP() | ; Timestamp
|
|
MMDT(XMDT) | ; (MailMan Date/Time) Given FM date/time, return external.
; time is optional |
|
INDT(XMDT) | ; (InterNet Date/Time) Given FM date/time, return dd mmm yyyy hh:mm:ss +-hhmm (zone)
|
|
CONVERT(X,XMTIME) | ; Function to convert Internet dates to FM (returns -1 if error)
; X Internet date ; XMTIME =1 Convert time, too; =0 convert date only ; Formats: Tuesday, 28 June 1955 17:30:45 PDT ; Tue, 28 Jun 1955 17:30:45 PDT ; Tue 28 Jun 1955 17:30:45 PDT ; 28 Jun 1955 17:30:45 -0900 (PST) <== MailMan standard ; 28 Jun 55 17:30 PST <== Previous MailMan standard ; Tue Jun 28 17:30:45 PDT 1955 ; 28-JUN-1955 17:30:45 -0400 ; 6/28/55 17:30 ; JUN 28 17:30 1955 |
|
TIMETOO(XMD,XMT) | ; For internal MailMan use only. Combine date and time, adjusting for difference from GMT.
|
|
ZONEDIFF(XMYT,XMHH,XMMM) | ; Given a time zone or time difference from GMT,
; calculates the hours and minutes difference between that zone and ours ; XMYT IN: Your Time zone or Time difference from GMT ; XMHH OUT: The time difference between us in hours ; XMMM OUT: The time difference between us in minutes ; XMYTHH Your Time difference from GMT in hours ; XMYTMM Your Time difference from GMT in minutes ; XMMT My Time difference from GMT ; XMMTHH My Time difference from GMT in hours ; XMMTMM My Time difference from GMT in minutes |
|
GMTDIFF(XMZONE) | ; Given time zone, returns standard internet time difference from GMT
; XMZONE 3-char time zone name (PST, EDT, etc.) ; returns difference in hours and minutes (+-hhmm) from GMT ; e.g. -0230, +1600 ; If time zone can't be found, returns null string |
|
TIMEDIFF(XMDIFF) | ; Given time difference, returns standard internet time difference.
; XMDIFF Difference (in hours) from GMT ; e.g. -2.5 => -0230 ; 16 => +1600 |
|
CONFIRM(XMDUZ,XMZ,XMIM) | ; For internal MailMan use only. Send confirmation message to sender.
|
|
RCPTTO(XMZ) | ; For internal MailMan use only. Return-receipt-to a remote address.
|