X-Git-Url: https://git.camperquake.de/gitweb.cgi?a=blobdiff_plain;f=videosite%2FGrabberBase.pm;h=44bde355e8e4481d5c93ad90700e498ca0bbd3e7;hb=d4fae22c083e110d1c788a78196f85d1e39b116e;hp=e354bc9a1f40d64b3e790a9b6b917837a9494b76;hpb=a33c3a8a1fc98179619e13fd64bc5d2f3c2ddc4d;p=videosite.git diff --git a/videosite/GrabberBase.pm b/videosite/GrabberBase.pm index e354bc9..44bde35 100644 --- a/videosite/GrabberBase.pm +++ b/videosite/GrabberBase.pm @@ -3,6 +3,8 @@ package videosite::GrabberBase; use videosite::Base; +use MIME::Base64; +use Data::Dumper; @ISA = qw(videosite::Base); use strict; @@ -40,6 +42,12 @@ sub get($$) { last; } } + if (defined($res)) { + if (defined($self->_cached_ua())) { + $res->{COOKIES} = encode_base64("#LWP-Cookies-1.0\n" . $self->_cached_ua()->cookie_jar->as_string(), ""); + } + } + return wantarray?($res, $pattern):$res; } }