#!/usr/bin/perl -lp # # Copyright (C) 2003 Thomas Moertel . # The PXSL toolkit is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # # The text of the GNU GPL may be found in the LICENSE file, # included with this software. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # Except as provided for under the terms of the GNU GPL, all rights # are reserved worldwide. BEGIN { print < PXSL README EOF } s/&/&/g; s//>/g; s/$C$/©/g; my $line = $_; if (/\S/ && ! $first) { $_ = "

$_

"; $first = 1; } elsif (/^\s/) { s/ / /g; s/ (?= )/ /g; $_ = "$_"; } else { if (s/^(\*+)//) { my $depth = 1 + length $1; $_ = "$_"; } s{(\S+)}{my$a=$1;$a=~/(^-)|<|>|=/ ? "$a" : $1}eg; } s!(http:[^ \r\n<]+)!$1!g; $_ = "

$_" if ($prev_line_was_blank && $line =~ /\S/ && !/^" }