lib/clive/Host/Gasgrank.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::Evisor;
  23
  24 use warnings;
  25 use strict;
  26
  27 sub new {
  28     return bless( {}, shift );
  29 }
  30
  31 sub parsePage {
  32     my ( $self, $content, $props ) = @_;
  33
  34     $$props->video_host("gasgrank");
  35
  36     my %re = (
  37         id   => qr|.+/(.*?).flv|,
  38         xurl => qr|file=(.*?)"|,
  39     );
  40
  41     my $tmp;
  42     if ( clive::Util::matchRegExps( \%re, \$tmp, $content ) == 0 ) {
  43         $$props->video_id( $tmp->{id} );
  44         $$props->video_link( $tmp->{xurl} );
  45         return (0);
  46     }
  47     return (1);
  48 }
  49
  50 1;
  51
  52 # No reason to get excited.