1#!/usr/bin/perl -w 2 3# Copyright (C) 2008 Apple Inc. All Rights Reserved. 4# 5# Redistribution and use in source and binary forms, with or without 6# modification, are permitted provided that the following conditions 7# are met: 8# 1. Redistributions of source code must retain the above copyright 9# notice, this list of conditions and the following disclaimer. 10# 2. Redistributions in binary form must reproduce the above copyright 11# notice, this list of conditions and the following disclaimer in the 12# documentation and/or other materials provided with the distribution. 13# 14# THIS SOFTWARE IS PROVIDED BY APPLE INC. ``AS IS'' AND ANY 15# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 16# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 17# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR 18# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 19# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 20# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 21# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY 22# OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 23# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 24# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 25 26# Script to combine multiple JavaScript files into one file, based on 27# the script tags in the head of an input HTML file. 28 29use strict; 30use Getopt::Long; 31use File::Basename; 32use File::Path; 33 34my $outputDirectory; 35my $scriptName; 36my $htmlFile; 37 38GetOptions('output-dir=s' => \$outputDirectory, 39 'output-script-name=s' => \$scriptName, 40 'input-html=s' => \$htmlFile); 41 42unless (defined $htmlFile and defined $scriptName and defined $outputDirectory) { 43 print "Usage: $0 --input-html <path> --output-dir path --output-script-name <name>\n"; 44 exit; 45} 46 47my $htmlDirectory = dirname($htmlFile); 48my $htmlContents; 49 50{ 51 local $/; 52 open HTML, $htmlFile or die; 53 $htmlContents = <HTML>; 54 close HTML; 55} 56 57$htmlContents =~ m/<head>(.*)<\/head>/si; 58my $headContents = $1; 59 60mkpath $outputDirectory; 61open SCRIPT_OUT, ">", "$outputDirectory/$scriptName" or die "Can't open $outputDirectory/$scriptName: $!"; 62 63while ($headContents =~ m/<script.*src="([^"]*)"[^>]*>/gi) { 64 local $/; 65 open SCRIPT_IN, "$htmlDirectory/$1" or die "Can't open $htmlDirectory/$1: $!"; 66 print SCRIPT_OUT "/* $1 */\n\n"; 67 print SCRIPT_OUT <SCRIPT_IN>; 68 close SCRIPT_IN; 69} 70 71close SCRIPT_OUT; 72 73$headContents =~ s/<script.*src="[^"]*"[^>]*><\/script>\s*//gi; 74$headContents .= "<script type=\"text/javascript\" src=\"$scriptName\"></script>\n"; 75$htmlContents =~ s/<head>.*<\/head>/<head>$headContents<\/head>/si; 76 77open HTML, ">", "$outputDirectory/" . basename($htmlFile) or die "Can't open $outputDirectory/" . basename($htmlFile) . ": $!"; 78print HTML $htmlContents; 79close HTML; 80