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

Timestamp:

May 11, 2007, 11:31:34 AM (17 years ago)

Author:

mmc

Message:

Final tweaks to improve the messages for automatic ticket submission
and work around problems where the ticket number comes back as "".

File:

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

trunk/gui/scripts/bugreport.tcl

@@ -151 +151 @@
 
         .bugreport.expl insert end "This tool encountered an unexpected error.  We tried to submit a trouble report automatically, but that failed.  If you want to report this incident, you can file your own trouble report.  Look for the \"Help\" or \"Support\" links on the main navigation bar of the web site.\n\nIf you continue having trouble with this tool, please close it and launch another session."
-    } elseif {[regexp {Ticket #([0-9]+) +\((.*?)\) +([0-9]+) +times} $result match ticket extra times]} {
+    } elseif {[regexp {Ticket #([0-9]*) +\((.*?)\) +([0-9]+) +times} $result match ticket extra times]} {
         .bugreport.expl insert end "This tool encountered an unexpected error.  The problem has been reported as " "" "Ticket #$ticket" bold " in our system." ""
         if {[string is integer $times] && $times > 1} {
@@ -229 +229 @@
         report $stackTrace \
         login $tcl_platform(user) \
-        session [Rappture::Tool::resources -session] \
+        sesstoken [Rappture::Tool::resources -session] \
         hostname [info hostname] \
         category rappture \
@@ -249 +249 @@
     }
     upvar #0 $token rval
-    if {[regexp {Ticket #[0-9]+ \(.*?\) [0-9]+ times} $rval(body) match]} {
+    if {[regexp {Ticket #[0-9]* +\(.*?\) +[0-9]+ +times} $rval(body) match]} {
         return $match
     }
-    error "Report received, but ticket may not have been filed"
+    error "Report received, but ticket may not have been filed.  Here's the result...\n$rval(body)"
 }