videosite/GrabberBase.pm

   1 package GrabberBase;
   2 use Base;
   3 @ISA = qw(Base);
   4
   5 use strict;
   6
   7 sub new {
   8     my $class = shift;
   9     my $self = {
  10         NAME => 'FlashGrab',
  11         TYPE => 'grabber',
  12         PATTERNS => [],
  13     };
  14     return bless($self, $class);
  15 }
  16
  17 sub get($$) {
  18     my $self = shift;
  19     my $url = shift;
  20     my $pattern;
  21
  22     foreach $pattern (@{$self->{'PATTERNS'}}) {
  23         $self->debug("Matching %s against %s", $pattern, $url);
  24         if ($url =~ m|$pattern|) {
  25             $self->debug("Match");
  26             return $self->_parse($url, $pattern);
  27         }
  28     }
  29
  30     return undef;
  31 }
  32
  33 sub _parse {
  34     my $self = shift;
  35     my $url = shift;
  36
  37     return undef;
  38 }
  39
  40 1;