Changeset 1586 for ccr/trunk/p/C0CMIME.m

Timestamp:

Oct 30, 2012, 1:11:02 PM (12 years ago)

Author:

Sam Habiel

Message:

Changed license to AGPL. Some clean-up for XINDEX

File:

• ccr/trunk/p/C0CMIME.m (modified) (7 diffs)

ccr/trunk/p/C0CMIME.m

@@ -1 +1 @@
 C0CMIME ; CCDCCR/GPL - MIME manipulation utilities; 3/8/11 ; 5/16/11 2:32pm
-        ;;1.2;C0C;;May 11, 2012;Build 47
-        ;Copyright 2008 George Lilly.  Licensed under the terms of the GNU
-        ;General Public License See attached copy of the License.
-        ;
-        ;This program is free software; you can redistribute it and/or modify
-        ;it under the terms of the GNU General Public License as published by
-        ;the Free Software Foundation; either version 2 of the License, or
-        ;(at your option) any later version.
-        ;
-        ;This program is distributed in the hope that it will be useful,
-        ;but WITHOUT ANY WARRANTY; without even the implied warranty of
-        ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-        ;GNU General Public License for more details.
-        ;
-        ;You should have received a copy of the GNU General Public License along
-        ;with this program; if not, write to the Free Software Foundation, Inc.,
-        ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+        ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
+        ;Copyright 2008 George Lilly.  
+        ;
+        ; This program is free software: you can redistribute it and/or modify
+        ; it under the terms of the GNU Affero General Public License as
+        ; published by the Free Software Foundation, either version 3 of the
+        ; License, or (at your option) any later version.
+        ;
+        ; This program is distributed in the hope that it will be useful,
+        ; but WITHOUT ANY WARRANTY; without even the implied warranty of
+        ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+        ; GNU Affero General Public License for more details.
+        ;
+        ; You should have received a copy of the GNU Affero General Public License
+        ; along with this program.  If not, see <http://www.gnu.org/licenses/>.
         ;
         Q
@@ -45 +43 @@
         Q
         ; THIS ROUTINE WAS COPIED FROM LRSRVR4 AND THEN MODIFIED . THANKS JOHN
-ENCODEOLD(IARY,LRNODE,LRSTR)    ; Encode a string, keep remainder for next line
+ENCODEO(IARY,LRNODE,LRSTR)      ; Encode a string, keep remainder for next line
         ; Call with LRSTR by reference, Remainder returned in LRSTR
         ; IARY IS PASSED BY NAME
@@ -70 +68 @@
         S ZSUBJECT="TEST OF THE NEW MAILSEND ROUTINE"
         D MAILSEND(.GR,ZFROM,"ZTO",,ZSUBJECT,,ZATTACH)
-        ZWR GR
-        Q
-        ;
-TESTMAIL2       ;
+        ; ZWR GR
+        Q
+        ;
+TESTMAI2        ;
         ; TEST OF MAILSEND TO gpl.mdc-crew.net
         N C0CGM
@@ -85 +83 @@
         ;S ZTO("george@nhin.openforum.opensourcevista.net")=""
         ;S ZTO("mish@nhin.openforum.opensourcevista.net")="" 
-        S ZTO("brooks.richard@securemail.opensourcevista.net")="" 
+        S ZTO("brooks.richard@securemail.opensourcevista.net")=""
         ;S ZTO("LILLY.GEORGE@mdc-crew.net")=""
         ;S ZTO("ncoal@live.com")=""
@@ -99 +97 @@
         S ZSUBJECT="TEST OF THE NEW MAILSEND ROUTINE"
         D MAILSEND(.GR,ZFROM,"ZTO",,ZSUBJECT,"C0CGM",ZATTACH,"CCR.xml")
-        ZWR GR
+        ; ZWR GR
         Q
         ;
@@ -203 +201 @@
         Q
         ;
-MAILSEND0(LRMSUBJ)      ; Send extract back to requestor.
+MAILSEN0(LRMSUBJ)       ; Send extract back to requestor.
         ;
         ;D TEST
@@ -251 +249 @@
         Q
         ;
-MAILSEND2(UDFN,ADDR)    ; Send extract back to requestor.
+MAILSEN2(UDFN,ADDR)     ; Send extract back to requestor.
         ;
         I +$G(UDFN)=0 S UDFN=2 ;