fix relativedir

pull/1/head
hummypkg 5 years ago
parent bf37608438
commit 646e512109
  1. 2
      CONTROL/control
  2. 8
      webif/plugin/sweeper/auto.hook

@ -1,7 +1,7 @@
Package: sweeper
Priority: optional
Section: misc
Version: 2.1.5-8
Version: 2.1.5-9
Architecture: mipsel
Maintainer: af123@hummypkg.org.uk
Depends: webif(>=1.4.0)

@ -290,9 +290,13 @@ proc ::sweeper::resolvedir {dir} {
}
proc ::sweeper::relativedir {dir} {
return [string map \
[list "[file normalize $::auto::root]/" ""] \
set dir [string map \
[list [file normalize $::auto::root] ""] \
[file normalize $dir]]
if {[string index $dir 0] eq "/"} {
set dir [string range $dir 1 end]
}
return $dir
}
# returns true if the arguments are actually the same file

Loading…
Cancel
Save