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.
 |