#!/usr/bin/tclsh
-# $Id: dcdot.tcl,v 1.2 2000/12/08 08:55:35 adam Exp $
+# $Id: dcdot.tcl,v 1.3 2000/12/08 22:46:53 adam Exp $
#
proc RobotRestart {} {
}
}
default {
- Robot404 $url
close $sock
RobotRestart
}
puts $m
}
}
+ foreach v [array names URL $url,head,*] {
+ puts "$v = $URL($v)"
+ }
}