# 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;
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];
}