@@ -25,10 +25,11 @@ close $fd array set buildinfo $buildinfo_list set filename $buildinfo(filename) set outfile [file join $workdir $filename] + set logfile "${outfile}.log" } else { set status "Queued" } } @@ -63,9 +64,19 @@ puts "\t" puts "\t" puts "\t\t

KitCreator Web Interface

" puts "\t\t

Status: $status

" if {[info exists url]} { -puts "\t\t

URL: $url

" + puts "\t\t

URL: $url

" +} +if {[info exists logfile]} { + catch { + set fd [open $logfile] + set logdata [read $fd] + close $fd + + + puts "\t\t

Log:

\n$logdata

" + } } puts "\t" puts ""