2006-04-28 Steve Falkenburg <sfalken@apple.com>
authorsfalken <sfalken@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Sat, 29 Apr 2006 05:45:11 +0000 (05:45 +0000)
committersfalken <sfalken@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Sat, 29 Apr 2006 05:45:11 +0000 (05:45 +0000)
        Reviewed by kdecker

        Modify error reporting registry keys to disable Dr. Watson.
        This allows Javascript test cases to complete without blocking UI.

        * Scripts/install-win-extras:
         - Use Perl Win32 registry functions to disable blocking UI

git-svn-id: https://svn.webkit.org/repository/webkit/trunk@14123 268f45cc-cd09-0410-ab3c-d52691b4dbfc

WebKitTools/ChangeLog
WebKitTools/Scripts/install-win-extras

index 7ca93e6..a00bfbd 100644 (file)
@@ -1,5 +1,16 @@
 2006-04-28  Steve Falkenburg  <sfalken@apple.com>
 
+        Reviewed by kdecker
+
+        Modify error reporting registry keys to disable Dr. Watson.
+        This allows Javascript test cases to complete without blocking UI.
+        
+        * Scripts/install-win-extras:
+         - Use Perl Win32 registry functions to disable blocking UI
+        
+
+2006-04-28  Steve Falkenburg  <sfalken@apple.com>
+
         Reviewed by eric.
         
         Turned off C++ exceptions, fixed memory leaks
index d5cd47c..a213b88 100755 (executable)
@@ -32,6 +32,7 @@ use strict;
 use FindBin;
 use lib $FindBin::Bin;
 use webkitdirs;
+use Win32API::Registry 0.21 qw( :ALL );\r
 
 checkRequiredSystemConfig();
 chdirWebKit();
@@ -133,3 +134,14 @@ if (! -x "$setx") {
     system '$setx', "Path", "$WINPATH", "-m";
 }
 
+# Disable error reporting UI
+my $key;
+RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\AeDebug", 0, KEY_WRITE, $key);\r
+RegSetValueEx($key, "Auto", 0, REG_SZ, "1" );\r
+RegSetValueEx($key, "Debugger", 0, REG_SZ, "drwtsn32 -p %ld -e %ld -g");\r
+RegCloseKey($key );\r
+RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\PCHealth\\ErrorReporting", 0, KEY_WRITE, $key);\r
+RegSetValueEx($key, "DoReport", 0, REG_DWORD, "0");\r
+RegSetValueEx($key, "ShowUI", 0, REG_DWORD, "0");\r
+RegCloseKey($key );\r
+\r