projects
/
tclrobot.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4d94083
)
Yet another fix regarding relative links.
author
Adam Dickmeiss
<adam@indexdata.dk>
Fri, 29 Jun 2001 22:25:55 +0000
(22:25 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Fri, 29 Jun 2001 22:25:55 +0000
(22:25 +0000)
robot.tcl
patch
|
blob
|
history
diff --git
a/robot.tcl
b/robot.tcl
index
6323bc3
..
c9388bc
100755
(executable)
--- a/
robot.tcl
+++ b/
robot.tcl
@@
-1,5
+1,5
@@
#!/usr/bin/tclsh
#!/usr/bin/tclsh
-# $Id: robot.tcl,v 1.19 2001/06/29 21:47:31 adam Exp $
+# $Id: robot.tcl,v 1.20 2001/06/29 22:25:55 adam Exp $
#
proc RobotFileNext1 {area lead} {
# puts "RobotFileNext1 area=$area lead=$lead"
#
proc RobotFileNext1 {area lead} {
# puts "RobotFileNext1 area=$area lead=$lead"
@@
-323,8
+323,9
@@
proc RobotHref {url hrefx hostx pathx} {
switch -- $c {
.. {
if {$pathl > 0} {
switch -- $c {
.. {
if {$pathl > 0} {
- incr pathl -1
+ incr pathl -2
set path [lrange $path 0 $pathl]
set path [lrange $path 0 $pathl]
+ incr pathl
}
}
. {
}
}
. {
@@
-637,7
+638,6
@@
proc Robot200 {url} {
proc RobotReadContent {url sock binary} {
global URL
proc RobotReadContent {url sock binary} {
global URL
- puts "RobotReadContent $url"
set buffer [read $sock 16384]
set readCount [string length $buffer]
set buffer [read $sock 16384]
set readCount [string length $buffer]