videosite/GrabberBase.pm

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