revert to HTML scraping for dpaste.org

LICENSE

@@ -1,6 +1,6 @@
 MIT License (also available at <https://spdx.org/licenses/MIT>)
 
-(c) 2010–2016 Mantas Mikulėnas <grawity@gmail.com>
+(c) 2010–2020 Mantas Mikulėnas <grawity@gmail.com>
 
 Permission is hereby granted, free of charge, to any person obtaining
 a copy of this software and associated documentation files (the

getpaste

@@ -907,6 +907,16 @@ sub dl_dgl_pastesh {
 	return $data;
 }
 
+sub dl_dpaste {
+	my ($url, $frag) = @_;
+
+	my $body = get($url);
+	if ($body =~ m{<textarea id="copySnippetSource">(.+?)</textarea>}) {
+		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",