Changeset 1586 for ccr/trunk/p/C0CUTIL.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/C0CUTIL.m (modified) (4 diffs)

ccr/trunk/p/C0CUTIL.m

@@ -1 +1 @@
 C0CUTIL ;WV/C0C/SMH - Various Utilites for generating the CCR/CCD;06/15/08
-        ;;1.2;C0C;;May 11, 2012;Build 47
+        ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
         ;Copyright 2008-2009 Sam Habiel & 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 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 General Public License for more details.
+        ; 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 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.
+        ; 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/>.
         ;
         W "No Entry at Top!"
@@ -23 +20 @@
         ;
 UUID()   ; thanks to Wally for this.
-               N R,I,J,N 
-               S N="",R="" F  S N=N_$R(100000) Q:$L(N)>64 
-               F I=1:2:64 S R=R_$E("0123456789abcdef",($E(N,I,I+1)#16+1)) 
-               Q $E(R,1,8)_"-"_$E(R,9,12)_"-4"_$E(R,14,16)_"-"_$E("89ab",$E(N,17)#4+1)_$E(R,18,20)_"-"_$E(R,21,32)
+        N R,I,J,N
+        S N="",R="" F  S N=N_$R(100000) Q:$L(N)>64
+        F I=1:2:64 S R=R_$E("0123456789abcdef",($E(N,I,I+1)#16+1))
+        Q $E(R,1,8)_"-"_$E(R,9,12)_"-4"_$E(R,14,16)_"-"_$E("89ab",$E(N,17)#4+1)_$E(R,18,20)_"-"_$E(R,21,32)
         ;
 OLDUUID()       ; GENERATE A RANDOM UUID (Version 4)
@@ -40 +37 @@
         ; UTC date is formatted as follows: YYYY-MM-DDThh:mm:ss_offsetfromUTC
         ; UTC, Year, Month, Day, Hours, Minutes, Seconds, Time offset (obtained from Mailman Site Parameters)
-        N UTC,Y,M,D,H,MM,S,OFF
+        N UTC,Y,M,D,H,MM,S,OFF,OFFS,OFF0,OFF1,OFF2
         S Y=1700+$E(DATE,1,3)
         S M=$E(DATE,4,5)
@@ -173 +170 @@
 OV()    ; Are we running on OpenVista?
         Q $G(DUZ("AG"))="O" ; Code for OpenVista
-