(my $whoami = `whoami`) =~ s/\s//g;
(my $hostname = `hostname`) =~ s/\s//g;
-my $uidhash = `echo "$name$time$whoami$hostname" | sha1sum`;
-my $idhash = `echo "$whoami$hostname" | sha1sum`;
+my ($uidhash, $idhash);
+if( `uname` =~ /Darwin/ ) {
+ $uidhash = `echo "$name$time$whoami$hostname" | md5`;
+ $idhash = `echo "$whoami$hostname" | md5`;
+} else {
+ $uidhash = `echo "$name$time$whoami$hostname" | sha1sum`;
+ $idhash = `echo "$whoami$hostname" | sha1sum`;
+}
my $uid = ($uidhash =~/^(.{8})/) ? "0x$1" : 0;
my $id = ($idhash =~/^(.{8})/) ? "0x$1" : 0;