#! /usr/bin/env tclsh set outdir "/web/customers/kitcreator.rkeene.org/kits" set key "" if {[info exists ::env(PATH_INFO)]} { set key [lindex [split $::env(PATH_INFO) "/"] 1] } set status "Unknown" set terminal 0 if {![regexp {^[0-9a-f]+$} $key]} { set status "Invalid Key" unset key } if {[info exists key]} { set workdir [file join $outdir $key] } if {[info exists workdir]} { if {[file exists $workdir]} { set fd [open [file join $workdir filename]] set filename [gets $fd] close $fd set outfile [file join $workdir $filename] } else { set status "Queued" } } if {[info exists outfile]} { if {[file exists $outfile]} { set status "Complete" set url "http://kitcreator.rkeene.org/kits/$key/$filename" } elseif {[file exists "${outfile}.buildfail"]} { set status "Failed" set terminal 1 } else { set status "Building" } } puts "Content-Type: text/html" if {[info exists url]} { puts "Location: $url" } else { if {!$terminal} { puts "Refresh: 30;url=." } } puts "" puts "" puts "\t" puts "\t\tKitCreator, Web Interface" puts "\t" puts "\t" puts "\t\t

KitCreator Web Interface

" puts "\t\t

Status: $status

" puts "\t" puts ""