From a287e741842f67d0a04c48276221d85f16079d55 Mon Sep 17 00:00:00 2001
From: Opal <847966@proton.me>
Date: Sat, 15 Oct 2022 15:27:41 -0700
Subject: merging code between old emacsconf repo, to sachac's emacsconf repo

---
 wiki/templates/htmlscrubber.pm | 132 -----------------------------------------
 1 file changed, 132 deletions(-)
 delete mode 100755 wiki/templates/htmlscrubber.pm

(limited to 'wiki/templates/htmlscrubber.pm')

diff --git a/wiki/templates/htmlscrubber.pm b/wiki/templates/htmlscrubber.pm
deleted file mode 100755
index 904a2dc..0000000
--- a/wiki/templates/htmlscrubber.pm
+++ /dev/null
@@ -1,132 +0,0 @@
-#!/usr/bin/perl
-package IkiWiki::Plugin::htmlscrubber;
-
-use warnings;
-use strict;
-use IkiWiki 3.00;
-
-# This regexp matches urls that are in a known safe scheme.
-# Feel free to use it from other plugins.
-our $safe_url_regexp;
-
-sub import {
-	hook(type => "getsetup", id => "htmlscrubber", call => \&getsetup);
-	hook(type => "sanitize", id => "htmlscrubber", call => \&sanitize);
-
-	# Only known uri schemes are allowed to avoid all the ways of
-	# embedding javascrpt.
-	# List at http://en.wikipedia.org/wiki/URI_scheme
-	my $uri_schemes=join("|", map quotemeta,
-		# IANA registered schemes
-		"http", "https", "ftp", "mailto", "file", "telnet", "gopher",
-		"aaa", "aaas", "acap", 	"cap", "cid", "crid", 
-		"dav", "dict", "dns", "fax", "go", "h323", "im", "imap",
-		"ldap", "mid", "news", "nfs", "nntp", "pop", "pres",
-		"sip", "sips", "snmp", "tel", "urn", "wais", "xmpp",
-		"z39.50r", "z39.50s",
-		# Selected unofficial schemes
-		"aim", "callto", "cvs", "ed2k", "feed", "fish", "gg",
-		"irc", "ircs", "lastfm", "ldaps", "magnet", "mms",
-		"msnim", "notes", "rsync", "secondlife", "skype", "ssh",
-		"sftp", "smb", "sms", "snews", "webcal", "ymsgr",
-		"bitcoin", "git", "svn", "bzr", "darcs", "hg"
-	);
-	# data is a special case. Allow a few data:image/ types,
-	# but disallow data:text/javascript and everything else.
-	$safe_url_regexp=qr/^(?:(?:$uri_schemes):|data:image\/(?:png|jpeg|gif)|[^:]+(?:$|[\/\?#]))|^#/i;
-}
-
-sub getsetup () {
-	return
-		plugin => {
-			safe => 1,
-			rebuild => undef,
-			section => "core",
-		},
-		htmlscrubber_skip => {
-			type => "pagespec",
-			example => "!*/Discussion",
-			description => "PageSpec specifying pages not to scrub",
-			link => "ikiwiki/PageSpec",
-			safe => 1,
-			rebuild => undef,
-		},
-}
-
-sub sanitize (@) {
-	my %params=@_;
-
-	if (exists $config{htmlscrubber_skip} &&
-	    length $config{htmlscrubber_skip} &&
-	    exists $params{page} &&
-	    pagespec_match($params{page}, $config{htmlscrubber_skip})) {
-		return $params{content};
-	}
-
-	return scrubber()->scrub($params{content});
-}
-
-my $_scrubber;
-sub scrubber {
-	return $_scrubber if defined $_scrubber;
-
-	eval q{use HTML::Scrubber};
-	error($@) if $@;
-	# Lists based on http://feedparser.org/docs/html-sanitization.html
-	# With html5 tags added.
-	$_scrubber = HTML::Scrubber->new(
-      allow => [qw{
-          svg rect text g title
-			a abbr acronym address area b big blockquote br br/
-			button caption center cite code col colgroup dd del
-			dfn dir div dl dt em fieldset font form h1 h2 h3 h4
-			h5 h6 hr hr/ i img input ins kbd label legend li map
-			track
-			menu ol optgroup option p p/ pre q s samp select small
-			span strike strong sub sup table tbody td textarea
-			tfoot th thead tr tt u ul var
-			video audio source section nav article aside hgroup
-			header footer figure figcaption time mark canvas
-			datalist progress meter ruby rt rp details summary
-		}],
-		default => [undef, { (
-                             map { $_ => 1 } qw{
-                                 version xmlns x y fill font-size stroke stroke-dasharray transform 
-          data-start data-end data-video data-target data-tracks
-              kind label srclang default
-				abbr accept accept-charset accesskey
-				align alt axis border cellpadding cellspacing
-				char charoff charset checked class
-				clear cols colspan color compact coords
-				datetime dir disabled enctype for frame
-				headers height hreflang hspace id ismap
-				kind srclang src default
-				label lang maxlength media method
-				multiple name nohref noshade nowrap prompt
-				readonly rel rev rows rowspan rules scope
-				selected shape size span start summary
-				tabindex target title type valign
-				value vspace width
-				autofocus autoplay preload loopstart
-				loopend end playcount controls pubdate
-				loop muted
-				placeholder min max step low high optimum
-				form required autocomplete novalidate pattern
-				list formenctype formmethod formnovalidate
-				formtarget reversed spellcheck open hidden
-			} ),
-			"/" => 1, # emit proper <hr /> XHTML
-			href => $safe_url_regexp,
-			src => $safe_url_regexp,
-			action => $safe_url_regexp,
-			formaction => $safe_url_regexp,
-			cite => $safe_url_regexp,
-			longdesc => $safe_url_regexp,
-			poster => $safe_url_regexp,
-			usemap => $safe_url_regexp
-		}],
-	);
-	return $_scrubber;
-}
-
-1
-- 
cgit v1.2.3