From 78397776b89d9df48192574dadfa04488203d1e0 Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Wed, 11 Jun 2003 08:49:09 +0000
Subject: [PATCH] robotSeq(t) moved to control(task,seq)

---
 robot.tcl |   31 ++++++++++++++-----------------
 1 file changed, 14 insertions(+), 17 deletions(-)

diff --git a/robot.tcl b/robot.tcl
index 2d9ea64..141ecac 100755
--- a/robot.tcl
+++ b/robot.tcl
@@ -1,5 +1,5 @@
 #!/usr/bin/tclsh 
-# $Id: robot.tcl,v 1.41 2003/06/10 13:16:16 adam Exp $
+# $Id: robot.tcl,v 1.42 2003/06/11 08:49:09 adam Exp $
 #
 proc RobotFileNext1 {area lead} {
     # puts "RobotFileNext1 area=$area lead=$lead"
@@ -50,15 +50,15 @@ proc RobotReadRecord {inf fromurlx distancex} {
 }
 
 proc RobotFileNext {task area} {
-    global robotSeq
+    global control
     global idletime ns
     global status
 
-    # puts "RobotFileNext robotSeq=$robotSeq($task)"
-    if {$robotSeq($task) < 0} {
+    # puts "RobotFileNext seq=$control($task,seq)"
+    if {$control($task,seq) < 0} {
 	return {}
     }
-    if {$robotSeq($task) == 0} {
+    if {$control($task,seq) == 0} {
 	if {[catch {set ns($task) [glob $task/$area/*]}]} {
 	    return done
 	}
@@ -66,17 +66,17 @@ proc RobotFileNext {task area} {
     # puts "ns=$ns($task)"
     set off [string length $task/$area]
     incr off
-    set n [lindex $ns($task) $robotSeq($task)]
+    set n [lindex $ns($task) $control($task,seq)]
     # puts "n=$n"
     if {![string length $n]} {
-	set robotSeq($task) -1
+	set control($task,seq) -1
 	flush stdout
         set statusfile [open $task/status w]
         puts $statusfile "$status($task,unvisited) $status($task,bad) $status($task,visited)"
         close $statusfile
 	return wait
     }
-    incr robotSeq($task)
+    incr control($task,seq)
     if {[file isfile $n/frobots.txt]} {
 	puts "ok returning http://[string range $n $off end]/robots.txt"
 	return http://[string range $n $off end]/robots.txt
@@ -148,7 +148,7 @@ proc RobotFileOpen {task area host path {mode w}} {
     global status
     global debuglevel
 
-    puts "RobotFileOpen task=$task path=$path"
+    # puts "RobotFileOpen task=$task path=$path"
 
     if {![info exists workdir]} {
 	return stdout
@@ -174,7 +174,6 @@ proc RobotFileOpen {task area host path {mode w}} {
 	if {[string length $d] == 0} {
 	    cd /
 	} elseif {[catch {cd $d}]} {
-	    puts "mkdir (1) d=$d"
             exec mkdir $d
             cd ./$d
 	    if {![string compare $area unvisited] && $i == $len && $mode == "w"} {
@@ -198,7 +197,6 @@ proc RobotFileOpen {task area host path {mode w}} {
         set d "d[lindex $comp $i]" 
         if {[string length $d] > 1} {
             if {[catch {cd $d}]} {
-		puts "mkdir (2) d=$d"
                 exec mkdir $d
                 cd ./$d
             }
@@ -221,7 +219,6 @@ proc RobotFileOpen {task area host path {mode w}} {
 proc RobotStartJob {fname t} {
     global control
 
-
     set f [open $fname r]
     set xml [read $f]
     puts "Reading $fname"
@@ -308,7 +305,7 @@ proc RobotScanDir {} {
 }
 
 proc RobotRR {task} {
-    global robotSeq robotsRunning tasks robotsMax status
+    global control robotsRunning tasks robotsMax status
 
     puts "RobotRR -- running=$robotsRunning max=$robotsMax---------------"
     incr robotsRunning -1
@@ -330,7 +327,7 @@ proc RobotRR {task} {
         set statusfile [open $t/status w]
         puts $statusfile "$status($t,unvisited) $status($t,bad) $status($t,visited)"
         close $statusfile
-        set robotSeq($t) 0
+        set control($t,seq) 0
         RobotStart $t
     }
 }
@@ -353,7 +350,7 @@ proc RobotDaemonLoop {} {
         if {[info exists tasks]} {
             puts "daemon loop tasks $tasks"
             foreach t $tasks {
-                set robotSeq($t) 0
+                set control($t,seq) 0
                 RobotStart $t
             }
             while {$robotsRunning} {
@@ -1150,7 +1147,7 @@ proc debug {level} {
 }
 
 proc task {t} {
-    global tasks task status robotSeq control
+    global tasks task status control
 
     set task $t
 
@@ -1166,7 +1163,7 @@ proc task {t} {
     set status($t,bad) 0
     set status($t,raw) 0
     set status($t,active) 1
-    set robotSeq($t) 0
+    set control($t,seq) 0
     set control($t,distance) 10
     return 1
 }
-- 
1.7.10.4