My work on this so far....

[irc/SurrealServices/srsv.git] / branches / erry-devel / SrSv / Insp / UUID.pm

diff --git a/branches/erry-devel/SrSv/Insp/UUID.pm b/branches/erry-devel/SrSv/Insp/UUID.pm
index 0d1c38f2428229d814cbb01a230674fd38e7e7be..f43585725cc90fe78c32e7be277cf2e9d4328dd9 100644 (file)
--- a/branches/erry-devel/SrSv/Insp/UUID.pm
+++ b/branches/erry-devel/SrSv/Insp/UUID.pm
@@ -105,16 +105,16 @@ sub encodeUUID($) {
        int2chars($SID_int, \@SID);
        my @UID = (0,0,0,0,0,0);
        int2chars($UID_int, \@UID);
-       print join('', @SID,@UID),"\n";
+       return join('', @SID,@UID);
 }
 
 1;
 
-#=cut
-#my $int = decodeUUID('751AAAAAA');
+##=cut
+#my $int = decodeUUID('583AAAAAE');
 #print "$int\n";
 #print log($int)/log(2), "\n";
-#encodeUUID($int);
-print decodeUUID('583AAAAAK');
+print encodeUUID(142036011587731460);
+#print decodeUUID('583AAAAAK');
 #print encodeUUID (1);
 #=cut