1.1 --- a/thirdparty/bowwow/main.tcl Wed Nov 11 12:22:14 2009 +0530
1.2 +++ b/thirdparty/bowwow/main.tcl Wed Nov 11 13:23:45 2009 +0530
1.3 @@ -55,9 +55,9 @@
1.4 ::woof::webservers::wibble::main $::env(WOOF_ROOT) -port $opts(-port) -urlroot $opts(-urlroot)
1.5 }
1.6
1.7 -if {[lindex $argv 0] eq "stubs"} {
1.8 - source [file join $starkit::topdir scripts woofus.tcl]
1.9 - woofus::main {*}$::argv
1.10 +if {[lindex $argv 0] in {controller url verify}} {
1.11 + source [file join $starkit::topdir scripts wag.tcl]
1.12 + wag::main {*}$::argv
1.13 } else {
1.14 if {[catch {bowwow {*}$::argv} msg]} {
1.15 puts stderr $msg