File robots.txt now read the each domain.

[tclrobot.git] / dcdot.tcl

diff --git a/dcdot.tcl b/dcdot.tcl
index af0bef7..a29e6f5 100755 (executable)
--- a/dcdot.tcl
+++ b/dcdot.tcl
@@ -1,5 +1,5 @@
 #!/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 {} {
@@ -99,7 +99,6 @@ proc RobotReadHeader {url sock} {
                    }
                }
                default {
-                   Robot404 $url
                    close $sock
                    RobotRestart
                }
@@ -170,4 +169,7 @@ if {$argc == 1} {
            puts $m
         }
     }
+    foreach v [array names URL $url,head,*] {
+       puts "$v = $URL($v)"
+    }
 }