Adam Tkac ab51d8d
diff -up tigervnc-1.0.90-20091221svn3929/unix/vncserver.cookie tigervnc-1.0.90-20091221svn3929/unix/vncserver
Adam Tkac ab51d8d
--- tigervnc-1.0.90-20091221svn3929/unix/vncserver.cookie	2009-11-12 11:39:54.000000000 +0100
Adam Tkac ab51d8d
+++ tigervnc-1.0.90-20091221svn3929/unix/vncserver	2009-12-21 16:15:01.907799091 +0100
Adam Tkac ab51d8d
@@ -189,27 +189,12 @@ $vncPort = 5900 + $displayNumber;
Adam Tkac 5009736
 $desktopLog = "$vncUserDir/$host:$displayNumber.log";
Adam Tkac 5009736
 unlink($desktopLog);
Adam Tkac 5009736
 
Adam Tkac ab51d8d
-# Make an X server cookie - use /dev/urandom on systems that have it,
Adam Tkac ab51d8d
-# otherwise use perl's random number generator, seeded with the sum
Adam Tkac ab51d8d
-# of the current time, our PID and part of the encrypted form of the password.
Adam Tkac 5009736
-
Adam Tkac ab51d8d
-my $cookie = "";
Adam Tkac ab51d8d
-if (open(URANDOM, '<', '/dev/urandom')) {
Adam Tkac ab51d8d
-  my $randata;
Adam Tkac ab51d8d
-  if (sysread(URANDOM, $randata, 16) == 16) {
Adam Tkac ab51d8d
-    $cookie = unpack 'h*', $randata;
Adam Tkac ab51d8d
-  }
Adam Tkac ab51d8d
-  close(URANDOM);
Adam Tkac ab51d8d
-}
Adam Tkac ab51d8d
-if ($cookie eq "") {
Adam Tkac ab51d8d
-  srand(time+$$+unpack("L",`cat $vncUserDir/passwd`));
Adam Tkac ab51d8d
-  for (1..16) {
Adam Tkac 5009736
-    $cookie .= sprintf("%02x", int(rand(256)) % 256);
Adam Tkac ab51d8d
-  }
Adam Tkac 5009736
-}
Adam Tkac ab51d8d
-
Adam Tkac 5009736
-system("xauth -f $xauthorityFile add $host:$displayNumber . $cookie");
Adam Tkac 5009736
-system("xauth -f $xauthorityFile add $host/unix:$displayNumber . $cookie"); 
Adam Tkac 5009736
+# Make an X server cookie - use mcookie
Adam Tkac 5009736
+$cookie = `/usr/bin/mcookie`;
Adam Tkac 5009736
+open (XAUTH, "|xauth -f $xauthorityFile source -");
Adam Tkac 5009736
+print XAUTH "add $host:$displayNumber . $cookie\n";
Adam Tkac 5009736
+print XAUTH "add $host/unix:$displayNumber . $cookie\n";
Adam Tkac 5009736
+close XAUTH;
Adam Tkac 5009736
 
Adam Tkac 5009736
 if ($opt{'-name'}) {
Adam Tkac 5009736
     $desktopName = $opt{'-name'};