From: Fabian Keil Date: Sun, 11 May 2008 12:31:29 +0000 (+0000) Subject: - Generate enabled action lines for standard.action. X-Git-Tag: v_3_0_9~106 X-Git-Url: http://www.privoxy.org/gitweb/?p=privoxy.git;a=commitdiff_plain;h=801a5d8e387c4474deb9c8a49c0f2e5e115eec49 - Generate enabled action lines for standard.action. - "here-doc"ify generated markup. --- diff --git a/utils/filter2docs.pl b/utils/filter2docs.pl index ea326ed8..cd69d02e 100755 --- a/utils/filter2docs.pl +++ b/utils/filter2docs.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl -w -# $Id: filter2docs.pl,v 1.1.2.1 2003/03/16 15:32:44 oes Exp $ -# $Source: /cvsroot/ijbswa/current/utils/Attic/filter2docs.pl,v $ +# $Id: filter2docs.pl,v 1.2 2006/07/18 14:49:14 david__schmidt Exp $ +# $Source: /cvsroot/ijbswa/current/utils/filter2docs.pl,v $ # Parse the filter names and descriptions from a filter file and # spit out copy&paste-ready markup for the various places in @@ -13,13 +13,28 @@ open(INPUT, "< $ARGV[0]") or die "Coudln't open input file $ARGV[0] because $!\n while () { if (/^FILTER: ([-\w]+) (.*)$/) { $comment_lines .= "# $1:" . (" " x (20-length($1))) . "$2\n"; - $action_lines .= "-filter{$1} \\\n"; + $action_lines .= "+filter{$1} \\\n"; $sgml_source_1 .= " \n \n +filter{$1}" . (" " x (20-length($1))) . "# $2\n \n"; $sgml_source_2 .= " -filter{$1} \\\n"; } } -print("Comment lines for default.action:\n\n$comment_lines\n\nBlock of filter actions for" - ." standard.action:\n\n$action_lines\n\nSGML Source for AF chapter in U-M:" . - "\n\n$sgml_source_1\n\nSGML Source for AF Tutorial chapter in U-M\n\n$sgml_source_2\n"); +print <