diff options
| -rw-r--r-- | application/libraries/contrib/process-geshi-css.pl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/application/libraries/contrib/process-geshi-css.pl b/application/libraries/contrib/process-geshi-css.pl new file mode 100644 index 000000000..dbf76c294 --- /dev/null +++ b/application/libraries/contrib/process-geshi-css.pl @@ -0,0 +1,26 @@ +#!/usr/bin/perl +use warnings; +use strict; + +open INPUT, "<", "geshi.css" or die $!; + +my $last=""; + +while (<INPUT>) { + my $line = $_; + my ($lang, $rest) = split / /; + $lang =~ s/\.//; + $lang =~ s/^_+//; + chomp $lang; + + next if ($lang eq ""); + + if ($lang ne $last) { + $last = $lang; + unlink "paste-$lang.css"; + print STDERR "processing $lang\n"; + } + open OUT, ">>", "paste-$lang.css"; + print OUT "$line"; + close OUT; +} |