projects
/
tclrobot.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
#!/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 {} {
#
proc RobotRestart {} {
@@
-99,7
+99,6
@@
proc RobotReadHeader {url sock} {
}
}
default {
}
}
default {
- Robot404 $url
close $sock
RobotRestart
}
close $sock
RobotRestart
}
@@
-170,4
+169,7
@@
if {$argc == 1} {
puts $m
}
}
puts $m
}
}
+ foreach v [array names URL $url,head,*] {
+ puts "$v = $URL($v)"
+ }
}
}