Bug#603626: LiveLeak: Video ID contains superfluous URL parts

[Marc-Jano Knopp]

Package: clive
Version: 2.2.13-3
Severity: minor
Tags: upstream patch

For liveleak.com, %i does not only contain the video ID, but also
superfluous parts of the actual URL. For instance, the command

  clive --filename-format=%t-%i.%s \
  http://www.liveleak.com/view?i=cb8_1289819290

will save a file named

  Doneyourdailydozentoday1armedpushups-cb8_1289819290&links=1.flv

Obviously, "&links=1" does not belong to the video ID.

Patch that fixes that is attached.


-- System Information:
Debian Release: squeeze/sid
  APT prefers testing
  APT policy: (500, 'testing'), (50, 'unstable'), (10, 'experimental')
Architecture: i386 (i686)

Kernel: Linux 2.6.32-5-686 (SMP w/1 CPU core)
Locale: LANG=en_US.iso885915, LC_CTYPE=en_US.iso885915 (charmap=ISO-8859-15)
Shell: /bin/sh linked to /bin/bash

Versions of packages clive depends on:
ii  libclass-singleton-perl       1.4-1      implementation of a "Singleton" cl
ii  libconfig-tiny-perl           2.12-1     Read/Write .ini style files with a
ii  libexpect-perl                1.20-2     Expect.pm - Perl Expect interface
ii  libgetopt-argvfile-perl       1.11-1     Perl module for reading script opt
ii  libhtml-parser-perl           3.66-1     collection of modules that parse H
ii  liburi-perl                   1.54-2     module to manipulate and access UR
ii  libwww-curl-perl              4.12-1     Perl bindings to libcurl
ii  perl                          5.10.1-16  Larry Wall's Practical Extraction 

Versions of packages clive recommends:
ii  clive-utils              2.1.6-1         additional utilities for clive
ii  libberkeleydb-perl       0.42-1~squeeze1 use Berkeley DB 4 databases from P
ii  libterm-readkey-perl     2.30-4          A perl module for simple terminal 

Versions of packages clive suggests:
pn  ffmpeg                        <none>     (no description available)

-- no debconf information
-------------- next part --------------
--- Liveleak.pm	2010-04-06 22:03:43.000000000 +0200
+++ Liveleak.pm.patched	2010-11-15 23:20:09.000000000 +0100
@@ -34,7 +34,7 @@
     $$props->video_host("liveleak");
 
     my %re = (
-        id     => qr|token=(.*?)'|,
+        id     => qr|token=([^&]*?)'|,
         config => qr|'config','(.*?)'|,
     );