dlnahelper lock fix

git-svn-id: file:///root/webif/svn/pkg/webif/trunk@2446 2a923420-c742-0410-a762-8d5b09965624

CONTROL/control

@@ -1,7 +1,7 @@
 Package: webif
 Priority: optional
 Section: web
-Version: 1.2.3-4
+Version: 1.2.3-5
 Architecture: mipsel
 Maintainer: af123@hummypkg.org.uk
 Depends: webif-channelicons(>=1.1.18),lighttpd(>=1.4.35-2),jim(>=0.76),jim-oo,jim-sqlite3(>=0.76),jim-cgi(>=0.7),jim-binary(>=0.76),service-control(>=2.1),busybox(>=1.20.2-1),lsof(>=4.87),epg(>=1.2.0),hmt(>=2.0.3),ssmtp,anacron,trm(>=1.1),openssl-command,nicesplice,id3v2,file,rsvsync(>=1.0.2),webif-charts(>=1.2-1),stripts(>=1.2.5-3),smartmontools,tmenu(>=1.08),ffmpeg,id3v2,multienv(>=1.6),tcpping(>=1.1),e2fsprogs,wireless-tools(>=29-1),dbupdate,recmon(>2.0.3-3),auto-unprotect(>=2.0.0-1)

webif/lib/lock

@@ -35,7 +35,7 @@ proc release_lock {id} {
 	global _locks
 
 	if {[catch {close $_locks($id)} msg]} {
-		puts "Error releasing lock: $msg"
+		#puts "Error releasing lock: $msg"
 		return 0
 	}
 	unset _locks($id)

webif/lib/system.class

@@ -232,6 +232,9 @@ proc {system dlnahelper} {file {urlbase ""}} {
 			set ret [system dlnaurl "$dir/helper.ts" $urlbase]
 		}
 	}
+	if {![llength $ret]} {
+		release_lock dlnahelper
+	}
 	return $ret
 }