(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;
($qname = $name) =~ s/['"]//g;
substr( $qname, $MaxNameLength-1 ) = "" if length $qname >= $MaxNameLength;
my @bytes = unpack( "C*", $qname );
- push( @defs, "-DIDENT_PROGRAM_NAME=\\\"$qname\\\"" );
+ push( @defs, "-DIDENT_APPNAME=\\\"$qname\\\"" );
}
if( defined $whoami && $whoami !~ /^\s*$/ ) {
($qname = $whoami) =~ s/['"]//g;
substr( $qname, $MaxNameLength-1 ) = "" if length $qname >= $MaxNameLength;
my @bytes = unpack( "C*", $qname );
- push( @defs, "-DIDENT_USER_ID=\\\"$qname\\\"" );
+ push( @defs, "-DIDENT_USERNAME=\\\"$qname\\\"" );
}
if( defined $hostname && $hostname !~ /^\s*$/ ) {
($qname = $hostname) =~ s/['"]//g;
my @bytes = unpack( "C*", $qname );
push( @defs, "-DIDENT_HOSTNAME=\\\"$qname\\\"" );
}
-push( @defs, "-DIDENT_USER_HASH=${id}L" );
-push( @defs, "-DIDENT_UNIX_TIME=${time}L" );
-push( @defs, "-DIDENT_UID_HASH=${uid}L" );
+push( @defs, "-DIDENT_USERHASH=${id}L" );
+push( @defs, "-DIDENT_TIMESTAMP=${time}L" );
+push( @defs, "-DIDENT_UIDHASH=${uid}L" );
print join(" ",@defs) . "\n";