add helper script to create split css files

Signed-off-by: Florian Pritz <bluewind@xinu.at>

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;
+}