#!/usr/bin/perl -w use strict; my ($text, $tag_author, $tag_date); while (<>) { $text .= $_; } $tag_author = '$Author'.'$'; $tag_date = '$Date'.'$'; if ($text =~ m|Id: \S+ \S+ (\d{2,4}/\d{1,2}/\d{1,2} \d{1,2}:\d{1,2}:\d{1,2}) (\S+)|) { $tag_author = "Author: $2"; $tag_date = "Date: $1"; } $text =~ s|<\!DOCTYPE[^>]+>\n||g; $text =~ s|.*.*|<?\n\$title = "|s; while ($text =~ s|(.*[^\\])'(.*)|$1\\'$2|s) { } $text =~ s||";\n\$cvs_author = '$tag_author';\n\$cvs_date = '$tag_date';\n\$metatags = '|s; #for docs and faq $text =~ s|.*(\n)*(|?>|g; $text =~ s|{FINK_([^}]*)}||g; # for news $text =~ s||';\n\ninclude_once "header.inc";\n?>\n\n|s; $text =~ s||\n\n|s; $text =~ s|\$Id|\$Fink|g; $text =~ s|\@ROOT\@||g; print $text; exit 0;