#!/usr/bin/tclsh
-# $Id: robot.tcl,v 1.21 2001/10/26 13:26:11 adam Exp $
+# $Id: robot.tcl,v 1.22 2001/10/30 08:29:54 adam Exp $
#
proc RobotFileNext1 {area lead} {
# puts "RobotFileNext1 area=$area lead=$lead"
}
# consider type
if {[lindex $l 1] != $type} continue
- # consider mask
- if {![string match [lindex $l 2] $this]} continue
+ # consider mask (! negates)
+ set mask [lindex $l 2]
+ if {[string index $mask 0] == "!"} {
+ set mask [string range $mask 1 end]
+ if {[string match $mask $this]} continue
+ } else {
+ if {![string match $mask $this]} continue
+ }
# OK, we have a match
if {[lindex $l 0] == "allow"} {
if {$debuglevel > 3} {
-# sample rules $Id: rules,v 1.1 2001/10/26 13:26:11 adam Exp $
+# sample rules $Id: rules,v 1.2 2001/10/30 08:29:54 adam Exp $
url http://www.indexdata.dk
allow url http://www.indexdata.dk/software*
+allow url http://www.indexdata.dk/zap*
allow url http://www.indexdata.dk/yaz*
allow url http://www.indexdata.dk/
-deny url *
+deny url http://www.indexdata.dk/*
+deny url !http://*.indexdata.dk/*
allow mime text/html
allow mime application/pdf