lib/clive/Host/Ehrensenf.pm

   1 # -*- coding: ascii -*-
   2 ###########################################################################
   3 # clive, command line video extraction utility.
   4 #
   5 # Copyright 2009 Toni Gundogdu.
   6 #
   7 # This file is part of clive.
   8 #
   9 # clive is free software: you can redistribute it and/or modify it under
  10 # the terms of the GNU General Public License as published by the Free
  11 # Software Foundation, either version 3 of the License, or (at your option)
  12 # any later version.
  13 #
  14 # clive is distributed in the hope that it will be useful, but WITHOUT ANY
  15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  16 # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
  17 # details.
  18 #
  19 # You should have received a copy of the GNU General Public License along
  20 # with this program. If not, see <http://www.gnu.org/licenses/>.
  21 ###########################################################################
  22 package clive::Host::Ehrensenf;
  23
  24 use warnings;
  25 use strict;
  26
  27 use clive::Error qw(CLIVE_MARKEDBROKEN);
  28
  29 sub new {
  30     return bless( {}, shift );
  31 }
  32
  33 use constant MARKEDBROKEN_ERRMSG =>
  34     "support marked as 'broken'. consider whipping up a patch to earn fame
  35 error: and other users' undying gratitude.";
  36
  37 sub parsePage {
  38     my ( $self, $content, $props ) = @_;
  39
  40     # Marked as "broken."
  41
  42     clive::Log->instance->err( CLIVE_MARKEDBROKEN, MARKEDBROKEN_ERRMSG );
  43     return 1;
  44
  45     $$props->video_host("ehrensenf");
  46
  47     my %re = ( data => qr|<h2 class="gradient">(.*?)</h2>| );
  48
  49     my $tmp;
  50     if ( clive::Util::matchRegExps( \%re, \$tmp, $content ) == 0 ) {
  51         if ( $tmp->{data} =~ /(\d\d).(\d\d).(\d\d\d\d)/ ) {
  52             my $id = "$3-$2-$1";
  53
  54             my $xurl = "http://www.ehrensenf.de/misc/load-balancing/lb.php?"
  55                 . "file=$id.flv";
  56
  57             $$props->video_id($id);
  58             $$props->video_link($xurl);
  59
  60             return (0);
  61         }
  62         else {
  63             clive::Log->instance->errn("could not match date string");
  64         }
  65     }
  66     return (1);
  67 }
  68
  69 1;
  70
  71 # All along the watchtower.