Changeset 2611 for trunk/gui/scripts/bugreport.tcl

Timestamp:

Oct 10, 2011, 10:24:50 AM (13 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/bugreport.tcl (modified) (2 diffs)

trunk/gui/scripts/bugreport.tcl

@@ -282 +282 @@
     set extraInfo [string map $map $extraInfo]
 }
+
+# ----------------------------------------------------------------------
+# USAGE: attach <name> <string>
+#
+# Removes any sensitive information in the bug report.  This is useful
+# for things such as passwords that should be scrubbed out before any
+# ticket is filed.  Replaces the <string> with an optional <replacement>
+# string (or ******** by default).  This is usually called in some sort
+# of "catch" before forwarding the error on to the usual bgerror routine.
+# ----------------------------------------------------------------------
+proc Rappture::bugreport::attach {str {repl ********}} {
+    global errorInfo
+    variable extraInfo
+
+    set map [list $str $repl]
+    set errorInfo [string map $map $errorInfo]
+    set extraInfo [string map $map $extraInfo]
+}
+
 
 # ----------------------------------------------------------------------
@@ -435 +454 @@
     set cmts [string trim [.bugreport.comments.info.text get 1.0 end]]
     if {[string length $cmts] > 0} {
-        set report "$cmts\n[string repeat = 72]\n$report"
+        set report "$cmts\n\n[string repeat = 72]\n$report"
     }