my $class = shift;
my $self = $class->SUPER::new(
NAME => 'asyncfilegetter',
+ @_,
);
return bless($self, $class);
my $class = shift;
my $self = $class->SUPER::new(
NAME => 'asyncwgetfilegetter',
+ @_,
);
return bless($self, $class);
_SELFTESTURL => 'http://blip.tv/rebelliouspixelscom/buffy-vs-edward-twilight-remixed-2274024',
_SELFTESTTITLE => 'Buffy vs Edward (Twilight Remixed)',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*blip.tv/\S+/\S+)'],
+ @_,
);
return bless($self, $class);
my $self = $class->SUPER::new(
NAME => 'break',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*break.com/index/([-a-zA-Z0-9_]+?)\.html)'],
+ @_,
);
return bless($self, $class);
my $self = $class->SUPER::new(
NAME => 'broadcaster',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*broadcaster\.com/clip/(\d+))'],
+ @_,
);
return bless($self, $class);
_SELFTESTTITLE => 'Pixar Intro Parody',
PATTERNS => ['(http://www.collegehumor.com/video:(\d+))',
'(http://www.collegehumor.com/video/(\d+))'],
+ @_,
);
return bless($self, $class);
my $self = $class->SUPER::new(
NAME => 'dailymotion',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*dailymotion.com/(?:[^/]+/)*video/([-a-zA-Z0-9_]+))'],
+ @_,
);
return bless($self, $class);
my $self = $class->SUPER::new(
NAME => 'doubleviking',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*doubleviking.com/videos/(?:[-a-zA-Z0-9_ %]+/)*page0\.html/(\d+)\.html$)'],
+ @_,
);
return bless($self, $class);
MINFREE => ['500000', 'The amount of space that needs to be available on the filesystem before the video is downloaded (in kilobytes)'],
FILEPATTERN => ['/tmp/%s - %s - %s.flv', "The file name to save the file under. This is a string which is passed to a sprintf call later on. The parameters passed to that sprintf call, in order, are:\n- The site the video is from\n- The ID of the video\n- The title of the video\n- The URL of the video file itself\n- The URL of the site the video was taken from\nAll parameters are encoded (space and / replaced by _)"]
},
+ @_,
);
return bless($self, $class);
_PARAMS => {
QUALITY => ['normal', 'Quality of the video to download. normal = standard resolution flash video, h264 = high resolution MPEG4 video']
},
+ @_,
);
return bless($self, $class);
_PARAMS => {
URL => ['http://www.example.com/getjson.pl', "The URL to call in order to trigger a download. The JSON encoded information will be POSTed to this URL."]
},
+ @_,
);
return bless($self, $class);
_PARAMS => {
URL => ['http://www.example.com/get.pl?type=%s&vid=%s&title=%s&url=%s', "The URL to call in order to trigger a download. This is a string which is passed to a sprintf call later on. The parameters passed to that sprintf call, in order, are:\n- The site the video is from\n- The ID of the video\n- The title of the video\n- The URL of the video file itself\n- The URL of the site the video was taken from\nAll parameters are hexencoded"]
},
+ @_,
);
return bless($self, $class);
my $self = $class->SUPER::new(
NAME => 'liveleak',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*liveleak.com/view\?i=([^\&]+))'],
+ @_,
);
return bless($self, $class);
my $self = $class->SUPER::new(
NAME => 'mncast',
PATTERNS => ['(http://www\.mncast\.com/\?(\d+))'],
+ @_,
);
return bless($self, $class);
my $self = $class->SUPER::new(
NAME => 'metacafe',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*metacafe.com/watch/(\d+)(?:\S+)?)'],
+ @_,
);
return bless($self, $class);
_SELFTESTURL => 'http://motherless.com/4976432',
_SELFTESTTITLE => 'Teen masturbation in shower',
_PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*motherless.com/([a-zA-Z0-9]+))'],
+ @_,
);
return bless($self, $class);
my $self = $class->SUPER::new(
NAME => 'myvideo',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*myvideo.de/watch/(\d+))'],
+ @_,
);
return bless($self, $class);
my $class = shift;
my $self = $class->SUPER::new(
NAME => 'nullgetter',
+ @_,
);
return bless($self, $class);
_SELFTESTURL => 'http://www.redtube.com/8269',
_SELFTESTTITLE => 'Porn bloopers with pretty girl',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*redtube.com/(\d+))'],
+ @_,
);
return bless($self, $class);
_SELFTESTURL => 'http://de.sevenload.com/videos/uqDvKzh-vilogo-TV-Spot',
_SELFTESTTITLE => 'vilogo TV-Spot',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*sevenload.com/videos/(\w+?)-.*)'],
+ @_,
);
return bless($self, $class);
_SELFTESTURL => 'http://www.snotr.com/video/1836',
_SELFTESTTITLE => 'Brilliant thief',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*snotr\.com/video/(\d+))'],
+ @_,
);
return bless($self, $class);
my $self = $class->SUPER::new(
NAME => 'spikedhumor',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*spikedhumor.com/articles/(\d+)(?:/.*)*)'],
+ @_,
);
return bless($self, $class);
_SELFTESTURL => 'http://www.veoh.com/watch/v18348952fyn2twbe',
_SELFTESTTITLE => '518_2 kureyon shinchan',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*veoh.com/+watch/(\w+)\??)'],
+ @_,
);
return bless($self, $class);
_SELFTESTURL => 'http://vimeo.com/35055590',
_SELFTESTTITLE => 'Hello',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*vimeo.com/(?:m/)?(\d+))'],
+ @_,
);
return bless($self, $class);
_SELFTESTURL => 'http://www.wimp.com/insanebuilding/',
_SELFTESTTITLE => 'Insane building.',
PATTERNS => ['(http://(?:[-a-zA-Z0-9_.]+\.)*wimp.com/([^/]+)/?)'],
+ @_,
);
return bless($self, $class);
my $self = $class->SUPER::new(
NAME => 'yahoo',
PATTERNS => ['(http://video\.yahoo\.com/watch/\d+/(\d+))'],
+ @_,
);
return bless($self, $class);
PASSWORD => ['', 'Password to use for YouTube login'],
HTTPS => [1, 'Whether to use HTTPS (if available) to connect to YouTube']
},
+ @_,
);
return bless($self, $class);
_SELFTESTURL => 'http://www.escapistmagazine.com/videos/view/zero-punctuation/5346-Amy',
_SELFTESTTITLE =>'Amy',
PATTERNS => ['(http://www.escapistmagazine.com/videos/view/zero-punctuation/([-A-Za-z0-9]+))'],
+ @_,
);
return bless($self, $class);