X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=contrib%2Ft-prot.sl;fp=contrib%2Ft-prot.sl;h=1fc1aad7bd64992c601d9243d025e241d33d01a6;hb=3319969a89bb47afbd35da55d8c0d62a33be9ca7;hp=0000000000000000000000000000000000000000;hpb=9a69a9aaad35184ed236f415208041bf19e747e3;p=pkg%2Ft-prot.git

diff --git a/contrib/t-prot.sl b/contrib/t-prot.sl
new file mode 100644
index 0000000..1fc1aad
--- /dev/null
+++ b/contrib/t-prot.sl
@@ -0,0 +1,103 @@
+% $Id: t-prot.sl,v 1.11 2005/01/07 18:15:36 jochen Exp $
+% Copyright (c) 2003 Jochen Striepe <t-prot@tolot.escape.de>
+%
+% This file is provided as an example implemention for articles to be
+% filtered through t-prot before displayed. They are still filtered if
+% you reply to such a message so you will have to deactivate this if
+% you want to include quotes of the original article.
+%
+% Activate this macro by adding
+%   interpret t-prot.sl
+% to your ~/.slrnrc.
+%
+% If you are not happy with the suggested t-prot default parameters,
+% put something like
+%   variable t_prot_params = "-cemtS";
+%   variable t_prot_tmpdir = "$HOME/.tmpdir";
+%   variable t_prot_qp     = "";
+% into ~/.slrn/t-prot-cfg and add
+%   interpret .slrn/t-prot-cfg
+% to your ~/.slrnrc (after 'interpret t-prot.sl'). However, please keep
+% in mind that the path of the temp directory should NOT be readable to
+% other users -- otherwise it might reveal information on what you read,
+% and probably even be a security hole.
+% Please see t-prot's man page for details on command line parameters.
+%
+% If you want to toggle t-prot filtering on/off without leaving slrn,
+% you may want to add something like
+%   setkey article   register_t_prot "\e1"
+%   setkey article unregister_t_prot "\e0"
+% to your ~/.slrnrc -- press ESC-1 to activate t-prot filtering, and
+% ESC-0 to disable it (this will take effect on the next article you
+% read, see the package's TODO file).
+%
+% Requirements/Bugs: tr(1) and rm(1) are POSIX and should be available
+% on any Unix-like system, mktemp(1) should be available on any recent
+% OpenBSD or Debian Linux system -- you can get the sources there
+% if your system happens to lack this program. This macro has been
+% tested with slrn-0.9.7.4 to slrn-0.9.8.0 and S-Lang v1.4.5, it might
+% fail with other versions. As always, bug reports, patches (preferrably
+% in unified diff format), comments and suggestions are welcome.
+%
+% License: This file is part of the t-prot package and therefore
+% available under the same conditions. See t-prot's man page for
+% details.
+
+
+% these should be reasonable defaults (they work fine for me, SCNR):
+variable t_prot_params = "-aceklmtS --diff --bigq -L$HOME/.slrn/mlfooters -A$HOME/.slrn/adfooters";
+variable t_prot_tmpdir = "$HOME/tmp/slrn";
+variable t_prot_qp = "perl -i -p -e '$p=1 if /^Content-Transfer-Encoding: quoted-printable/i; if ($p==1) { s/=([0-9a-f][0-9a-f])/chr(hex($1))/egi; s/=\n//eg; };'";
+
+define t_prot () {
+	variable art, f, fname, line, qp;
+	art = "";
+
+ 	% Keep in mind that the path should NOT be readable to other users --
+	% otherwise it might reveal information on what you read, and probably
+	% even be a security hole:
+	f = popen ("mktemp -q "+t_prot_tmpdir+"/t-prot.sl.XXXXXX | tr -d '\n'", "r");
+	if (f == NULL) return;
+	if (-1 == fgets (&fname, f)) return;
+	pclose (f);
+
+
+	if (t_prot_qp != "") { qp = t_prot_qp+"|"; } else { qp = ""; }
+	pipe_article (qp+"t-prot "+t_prot_params+" >"+fname);
+
+	f = fopen (fname, "r");
+	if (f == NULL) {
+		error (fname+" could not be opened.");
+		return;
+	}
+	while (-1 != fgets (&line, f)) {
+		art = art + line;
+	}
+	fclose (f);
+
+	% The removal of the tmp file works this way but should be made a
+	% little more reliable. Any ideas?
+	system ("rm -f "+fname);
+	replace_article (art);
+}
+
+define register_t_prot () {
+	if (1 == register_hook("read_article_hook", "t_prot")) {
+		error("t-prot filtering activated");
+	}
+	else {
+		error("t-prot filtering NOT activated");
+	}
+}
+
+define unregister_t_prot () {
+	if (1 == unregister_hook("read_article_hook", "t_prot")) {
+		error("t-prot filtering deactivated");
+	}
+	else {
+		error("t-prot filtering NOT deactivated");
+	}
+}
+
+% filtering is enabled by default:
+register_hook("read_article_hook", "t_prot");