+ } elsif ($pattern eq $self->{'PATTERNS'}->[1]) {
+ my $r;
+ my $u;
+
+ $ua = LWP::UserAgent->new(max_redirect => 0);
+ $r = $ua->get(sprintf('http://blip.tv/play/%s', $2));
+
+ unless(defined($r)) {
+ $self->error('Could not download page');
+ return undef;
+ }
+ unless($r->is_redirect()) {
+ $self->error('Expected redirect, but got none');
+ return undef;
+ }
+ $u = URI->new($r->header('Location'));
+ $u = $u->query_param("file");
+
+ unless(defined($u)) {
+ $self->error('Did not find file parameter in URL');
+ return undef;
+ }
+ $u =~ m|^http://blip.tv/rss/flash/(\d+)$|;
+ $xml = $1;
+
+ } else {
+ $self->error("Don't know how to handle that pattern yet");
+ return undef;