Changeset 1965

Timestamp:

10/03/07 20:10:07

Author:

ko

Message:

Ustream FindEnclosures?: Fixed serverid regexp. added author

Files:

• trunk/plagger/assets/plugins/Filter-FindEnclosures/ustream.pl (modified) (2 diffs)

trunk/plagger/assets/plugins/Filter-FindEnclosures/ustream.pl

@@ -1 @@
-
+, typester
-use Plagger::Util qw( decode_content );
-
@@ -23 +23 @@
-    my $response_body = $res->content;
-
-    return unless my($server_id) = $response_body =~ /server_id...(.)/;
-    my $null = pack('C', 0);
+    return unless my($server_id) = $response_body =~ /server_id...([^$null]+)/;
-    return unless my($video_name) = $response_body =~ /video_name...([^$null]+)/;
-