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

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

diff --git a/WebKitTools/ChangeLog b/WebKitTools/ChangeLog
index 7ca93e6e96a2ec0095a3485232aaf7fb7152694b..a00bfbd449c006cd19860a93bf0067441cb727f5 100644 (file)
--- a/WebKitTools/ChangeLog
+++ b/WebKitTools/ChangeLog
@@ -1,3 +1,14 @@
+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.

diff --git a/WebKitTools/Scripts/install-win-extras b/WebKitTools/Scripts/install-win-extras
index d5cd47c77cb4f956a6459ec189c7498b3579c89e..a213b8842ebbd0f065ca3fc40ecb597084431fee 100755 (executable)
--- a/WebKitTools/Scripts/install-win-extras
+++ b/WebKitTools/Scripts/install-win-extras
@@ -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