X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FRedTubeGrabber.pm;h=d461c45bf706954a5b260244f33bb1579b86b4d8;hb=77303721994d561545a7a6457de9377292f7710f;hp=a67a755adafceec1b9aed02cf85cdf83b3fd2f1a;hpb=9728103802bdda15588793d80a4dc8c5065a4358;p=videosite.git

diff --git a/videosite/RedTubeGrabber.pm b/videosite/RedTubeGrabber.pm
index a67a755..d461c45 100644
--- a/videosite/RedTubeGrabber.pm
+++ b/videosite/RedTubeGrabber.pm
@@ -6,10 +6,10 @@
 # Algorithm for the file name hash reverse engineered by
 # Maximilian Rehkopf  <otakon at gmx dot net>
 
-package RedTubeGrabber;
+package videosite::RedTubeGrabber;
 
-use GrabberBase;
-@ISA = qw(GrabberBase);
+use videosite::GrabberBase;
+@ISA = qw(videosite::GrabberBase);
 
 use LWP::UserAgent;
 use HTTP::Cookies;
@@ -31,17 +31,6 @@ sub new {
     return $self;
 }
 
-sub check_cookie {
-
-    my $jar = shift;
-    my $key = shift;
-    my $found = undef;
-
-    $jar->scan(sub { $found = 1 if ( $key eq $_[1]) });
-
-    return $found;
-}
-
 sub div($$) {
     return ($_[0] - ($_[0] % $_[1])) / $_[1];
 }