#!/usr/local/bin/perl
# my own private HTML beautifier, saves some typing
$^I = '~'; # edit inplace
undef $/; # overread linebreaks
$* = 1; # multiline matching
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$mon = ("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli",
"August", "September", "Oktober", "November", "Dezember") [$mon];
$year+= 1900;
$date= "$mday. $mon $year";
while (<>)
{
s|http://www.cs.tu-berlin.de(:\d+)?||gi; # strip redundant junk
s|Ä|Ä|g;
s|Ö|Ö|g;
s|Ü|Ü|g;
s|ä|ä|g;
s|ö|ö|g;
s|ü|ü|g;
s|ß|ß|g;
s|(<[AH]\d?\s[^>]+>)\s+|$1|gi; # zap underlined whitespace
s|\s+()|$1|gi;
s|(<[^>]+=)\s*([^\"][^\s>]+)|$1"$2"|gi; # quote all values
s|(<[^\">]+)|\U$1|g; # upcase markup tags
print '
' , $_ , '
www@cs.tu-berlin.de
', $date, '
';
}