diff --git a/LICENSE b/LICENSE index 4cc28a4..f3f064e 100644 --- a/LICENSE +++ b/LICENSE @@ -1,6 +1,6 @@ MIT License (also available at ) -(c) 2010–2016 Mantas Mikulėnas +(c) 2010–2020 Mantas Mikulėnas Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the diff --git a/getpaste b/getpaste index 88286e3..05c38fd 100755 --- a/getpaste +++ b/getpaste @@ -907,6 +907,16 @@ sub dl_dgl_pastesh { return $data; } +sub dl_dpaste { + my ($url, $frag) = @_; + + my $body = get($url); + if ($body =~ m{}) { + return decode_html($1); + } + return; +} + sub dl_ezcrypt { eval { require Crypt::Digest::SHA1; @@ -1216,10 +1226,15 @@ sub dl_zerobin { to_path => "#0.txt", }, { - host => ["dpaste.org", "dpaste.de"], + host => "dpaste.de", path => qr!^/\w+!, to_path => "#0/raw/", }, + { + host => "dpaste.org", + path => qr!^/\w+!, + parser => \&dl_dpaste, + }, { host => "www.dropbox.com", to_host => "dl.dropboxusercontent.com",