git://git.camperquake.de
/
videosite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove debugging output
[videosite.git]
/
videosite
/
CollegeHumorGrabber.pm
diff --git
a/videosite/CollegeHumorGrabber.pm
b/videosite/CollegeHumorGrabber.pm
index
fb03286
..
7fb3cae
100644
(file)
--- a/
videosite/CollegeHumorGrabber.pm
+++ b/
videosite/CollegeHumorGrabber.pm
@@
-9,7
+9,6
@@
use videosite::GrabberBase;
@ISA = qw(videosite::GrabberBase);
use videosite::HTMLHelper;
@ISA = qw(videosite::GrabberBase);
use videosite::HTMLHelper;
-use LWP::Simple qw(!get);
use XML::Simple;
use Data::Dumper;
use XML::Simple;
use Data::Dumper;
@@
-20,6
+19,8
@@
sub new {
my $self = $class->SUPER::new();
$self->{'NAME'} = 'collegehumor';
my $self = $class->SUPER::new();
$self->{'NAME'} = 'collegehumor';
+ $self->{_SELFTESTURL} = 'http://www.collegehumor.com/video/5635400/pixar-intro-parody';
+ $self->{_SELFTESTTITLE} = 'Pixar Intro Parody';
$self->{'PATTERNS'} = ['(http://www.collegehumor.com/video:(\d+))',
'(http://www.collegehumor.com/video/(\d+))'];
$self->{'PATTERNS'} = ['(http://www.collegehumor.com/video:(\d+))',
'(http://www.collegehumor.com/video/(\d+))'];
@@
-50,7
+51,7
@@
sub _parse {
$metadata->{'DLURL'} = undef;
# Get the XML file containing the video metadata
$metadata->{'DLURL'} = undef;
# Get the XML file containing the video metadata
- unless(defined($content =
LWP::Simple::
get(sprintf('http://www.collegehumor.com/moogaloop/video/%s', $2)))) {
+ unless(defined($content =
$self->simple_
get(sprintf('http://www.collegehumor.com/moogaloop/video/%s', $2)))) {
$self->error('Could not download XML metadata');
return undef;
}
$self->error('Could not download XML metadata');
return undef;
}