- Timestamp:
- Nov 15, 2011, 12:11:49 PM (13 years ago)
- Location:
- trunk/gui
- Files:
-
- 1 deleted
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/aclocal.m4
r2117 r2686 1 builtin(include,./ tclconfig/tcl.m4)1 builtin(include,./cf/tcl.m4) -
trunk/gui/scripts/analyzer.tcl
r2611 r2686 438 438 set ::errorInfo "\n\n== RAPPTURE INPUT ==\n[$_tool xml xml]" 439 439 Rappture::bugreport::register "Problem launching job:\n$result" 440 Rappture::bugreport::attachment [$_tool xml xml] 440 441 Rappture::bugreport::send 441 442 } -
trunk/gui/scripts/bugreport.tcl
r2611 r2686 435 435 436 436 # ---------------------------------------------------------------------- 437 # USAGE: attachment <string> 438 # 439 # Low-level function used to capture information about a bug report 440 # prior to calling "send", which actually sends the ticket. We usually 441 # let the user preview the information and decide whether or not to 442 # send the ticket. 443 # ---------------------------------------------------------------------- 444 proc Rappture::bugreport::attachment { string } { 445 variable details 446 set details(attachment) $string 447 } 448 449 # ---------------------------------------------------------------------- 437 450 # USAGE: send 438 451 # … … 456 469 set report "$cmts\n\n[string repeat = 72]\n$report" 457 470 } 458 471 set toolFile "" 472 if { [info exists details(attachment)] } { 473 set toolFile "/tmp/tool[pid].xml" 474 set f [open $toolFile "w"] 475 puts $f $details(attachment) 476 close $f 477 unset details(attachment) 478 } 459 479 set query [http::formatQuery \ 460 480 option com_support \ 481 controller tickets \ 482 upload $toolFile \ 461 483 task create \ 462 484 no_html 1 \ … … 472 494 type $settings(type) \ 473 495 ] 474 475 496 set url [Rappture::Tool::resources -huburl] 476 497 if { $url == "" } { … … 492 513 http::cleanup $token 493 514 515 if { $toolFile != "" } { 516 file delete $toolFile 517 } 494 518 if {[regexp {Ticket #[0-9]* +\(.*?\) +[0-9]+ +times} $info match]} { 495 519 return $match … … 654 678 set btags [bindtags .bugreport] 655 679 bindtags .bugreport [linsert $btags 0 BugReportOnTop] 680
Note: See TracChangeset
for help on using the changeset viewer.