Changeset 1965

Show
Ignore:
Timestamp:
10/03/07 20:10:07
Author:
ko
Message:

Ustream FindEnclosures?: Fixed serverid regexp. added author

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/plagger/assets/plugins/Filter-FindEnclosures/ustream.pl

    r1964 r1965  
    1 # author: yappo 
     1# author: yappo, typester 
    22use Plagger::Util qw( decode_content ); 
    33 
     
    2323    my $response_body = $res->content; 
    2424 
    25     return unless my($server_id) = $response_body =~ /server_id...(.)/; 
    2625    my $null = pack('C', 0); 
     26    return unless my($server_id) = $response_body =~ /server_id...([^$null]+)/; 
    2727    return unless my($video_name) = $response_body =~ /video_name...([^$null]+)/; 
    2828