allow wildcards in fileexists()

CONTROL/control

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

webif/plugin/sweeper/auto.hook

@@ -548,7 +548,11 @@ proc ::sweeper::fileexists {ts str folder} {
 		set str [::sweeper::expand $ts $str]
 	}
 	log "  FILEEXISTS($str)" 2
-	return [file isfile $str]
+	set matches [glob -nocomplain \
+	    -directory [file dirname $str] \
+	    -tails [file tail $str]]
+	log "     Matches($matches)" 2
+	return $([llength $matches] > 0)
 }
 
 proc ::sweeper::direxists {ts str folder} {