#!/usr/bin/perl -w use strict; use Getopt::Long; use File::Basename; use File::Path; our $inputDirectory; our $outputDirectory; our $outputScriptName; our $outputStylesheetName; our $derivedSourcesDirectory; our $htmlDirectory; our $htmlFile; GetOptions('output-dir=s' => \$outputDirectory, 'output-script-name=s' => \$outputScriptName, 'output-style-name=s' => \$outputStylesheetName, 'derived-sources-dir=s' => \$derivedSourcesDirectory, 'input-dir=s' => \$inputDirectory, 'input-html-dir=s' => \$htmlDirectory, 'input-html=s' => \$htmlFile); unless (defined $htmlFile and defined $derivedSourcesDirectory and defined $outputDirectory and defined $outputScriptName and defined $outputStylesheetName) { print "Usage: $0 --input-html --derived-sources-dir --output-dir --output-script-name --output-style-name \n"; exit; } $htmlDirectory = dirname($htmlFile) unless $htmlDirectory; our $htmlContents; { local $/; open HTML, $htmlFile or die; $htmlContents = ; close HTML; } $htmlContents =~ m/(.*)<\/head>/si; our $headContents = $1; mkpath $outputDirectory; sub concatinateFiles($$$) { my $filename = shift; my $tagExpression = shift; my $concatinatedTag = shift; my $fileCount = 0; open OUT, ">", "$outputDirectory/$filename" or die "Can't open $outputDirectory/$filename: $!"; while ($headContents =~ m/$tagExpression/gi) { local $/; open IN, "$htmlDirectory/$1" or open IN, "$derivedSourcesDirectory/$1" or die "Can't open $htmlDirectory/$1: $!"; print OUT "\n" if $fileCount++; print OUT "/* $1 */\n\n"; print OUT ; close IN; } close OUT; # Don't use \s so we can control the newlines we consume. my $replacementExpression = "([\t ]*)" . $tagExpression . "[\t ]*\n+"; # Replace the first occurance with a token so we can inject the concatinated tag in the same place # as the first file that got consolidated. This makes sure we preserve some order if there are other # items in the head that we didn't consolidate. $headContents =~ s/$replacementExpression/$1%CONCATINATED%\n/i; $headContents =~ s/$replacementExpression//gi; $headContents =~ s/%CONCATINATED%/$concatinatedTag/; } my $inputDirectoryPattern = "(?!External\/)[^\"]*"; $inputDirectoryPattern = $inputDirectory . "\/[^\"]*" if $inputDirectory; concatinateFiles($outputStylesheetName, "", ""); concatinateFiles($outputScriptName, ""); $htmlContents =~ s/.*<\/head>/$headContents<\/head>/si; open HTML, ">", "$outputDirectory/" . basename($htmlFile) or die "Can't open $outputDirectory/" . basename($htmlFile) . ": $!"; print HTML $htmlContents; close HTML;