my $css = '';
foreach my $name (@{$wtk->{'cssfiles'}}) {
my $filename = $wtk->{'privatepath'}.'/styles/'.$name;
$filename .= '.css' if $filename !~ /\.css$/;
if (-f $filename) {
open CSSFILE, '<'.$filename or next;
$css .= "\n".join('', <CSSFILE>);
close CSSFILE;
}
}
# compress css a little
# erease comments
$css =~ s/\/\/[^\n\r]*[\r\n]//g;
$css =~ s/\/\*[^\/]+\*\///mg;
# many whitespaces -> one whitespace
$css =~ s/[\s\t\n\r]+/ /g;
# space after semicolon
$css =~ s/([\;\{\:])[\s]*/$1/g;
return output(1,'ok',$css,'text/css');