/usr/lib/wims/bin/css.pl is in wims 1:4.08~dfsg1-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 | #!/usr/bin/perl
## create the file public_html/bases/sys/css_classes from the css of public_html/themes/standard
## use in documentation
use warnings;
use strict;
#use Text::Balanced qw (extract_bracketed extract_tagged);
$/ = undef;
for my $theme ('default','Nikaia','standard'){
my $dir="public_html/themes/$theme";
my $outfile="public_html/bases/sys/css_classes_$theme" ;
my $TEXT="generated by bin/css.pl - do not change by hand \n" ;
for my $file (glob("$dir/*.css")) {
$TEXT .= "\n\n\n/*generated from file : $file */\n" ;
my $text=treate_file($file) ;
$TEXT .= "\n$text" ;
}
for my $file (glob("$dir/*/*.css")) {
$TEXT .= "\n\n\n/*generated from file : $file */\n" ;
my $text=treate_file($file) ;
$TEXT .= "\n$text" ;
}
out($outfile, $TEXT) ;
}
sub treate_file { my ($file)=@_;
open(IN, $file) ;
my $text = <IN>; close(IN);
$text =~ s/\n\t+//g ;
$text =~ s/\n}/}/g ;
$text =~ s/{[^{]+}/{ }/g ;
$text =~ s/{ }(.)/{ }\n$1/g ;
$text ;
}
sub out { my ($bloc, $text) = @_;
open (OUT, ">$bloc") ;
print OUT $text ; close OUT;
}
|