Wimp: adapt to new player

diff --git a/videosite/WimpGrabber.pm b/videosite/WimpGrabber.pm
index 8d37766..cda5a95 100644 (file)
--- a/videosite/WimpGrabber.pm
+++ b/videosite/WimpGrabber.pm
@@ -72,7 +72,7 @@ sub _parse {
 
     # Look for the download URL
     foreach $e (@text) {
-        if ($e->[0] =~ m|\.addVariable\("file",\s*"([^\x22]+)"\)|) {
+        if ($e->[0] =~ m|\.setup\(.*file:\s*"([^\x22]+)"|) {
             $metadata->{'DLURL'} = $1;
         }
     }