videosite/MotherlessGrabber.pm

   1 # (c) 2008 by Ralf Ertzinger <ralf@camperquake.de>
   2 # licensed under GNU GPL v2
   3 #
   4 # Grabber for motherless.com
   5 #
   6 # written by Maximilian Rehkopf  <otakon at gmx dot net>
   7
   8 package videosite::MotherlessGrabber;
   9
  10 use videosite::GrabberBase;
  11 @ISA = qw(videosite::GrabberBase);
  12
  13 use HTML::TokeParser;
  14 use Data::Dumper;
  15
  16 use strict;
  17
  18 sub new {
  19     my $class = shift;
  20     my $self = $class->SUPER::new();
  21
  22     $self->{'NAME'} = 'motherless';
  23     $self->{_SELFTESTURL} = 'http://motherless.com/4976432';
  24     $self->{_SELFTESTTITLE} = 'Teen masturbation in shower';
  25     $self->{'PATTERNS'} = ['(http://(?:[-a-zA-Z0-9_.]+\.)*motherless.com/([a-zA-Z0-9]+))'];
  26
  27     bless($self, $class);
  28     $self->_prepare_parameters();
  29
  30     return $self;
  31 }
  32
  33 sub _parse {
  34     my $self = shift;
  35     my $url = shift;
  36     my $pattern = shift;
  37     my $ua = $self->ua();
  38     my $content;
  39     my $metadata = {};
  40     my $p;
  41     my $r;
  42     my $tag;
  43     my $dir;
  44     my $hash;
  45
  46     $url =~ m|$pattern|;
  47     $url = $1;
  48
  49     $metadata->{'URL'} = $url;
  50     $metadata->{'ID'} = $2;
  51     $metadata->{'TYPE'} = 'video';
  52     $metadata->{'SOURCE'} = $self->{'NAME'};
  53     $metadata->{'TITLE'} = undef;
  54     $metadata->{'DLURL'} = undef;
  55
  56     unless(defined($content = $self->simple_get(sprintf("http://motherless.com/%s", $2), $ua))) {
  57         $self->error('Could not download page');
  58         return undef;
  59     }
  60
  61     $p = HTML::TokeParser->new(\$content);
  62
  63     # Look for the title
  64     while ($tag = $p->get_tag('title', 'script')) {
  65         if ('title' eq $tag->[0]) {
  66             my $t = $p->get_text();
  67             $metadata->{'TITLE'} = $t;
  68             $metadata->{'TITLE'} =~ s/.* : *//;
  69         } elsif ('script' eq $tag->[0]) {
  70             my $t = $p->get_text();
  71
  72             if ($t =~ m|__fileurl = '(.*)';|) {
  73                 $self->debug("Found fileurl: %s", $1);
  74                 $metadata->{'DLURL'} = $1;
  75             }
  76         }
  77     }
  78
  79     unless(defined($metadata->{'DLURL'}) && defined($metadata->{'TITLE'})) {
  80         $self->error('Could not extract download URL and title');
  81         return undef;
  82     }
  83
  84     return $metadata;
  85 }
  86
  87 1;