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 $generatedScriptsDirectory;
35my $outputDirectory;
36my $scriptName;
37my $htmlFile;
38
39GetOptions('output-dir=s' => \$outputDirectory,
40           'output-script-name=s' => \$scriptName,
41           'generated-scripts-dir=s' => \$generatedScriptsDirectory,
42           'input-html=s' => \$htmlFile);
43
44unless (defined $htmlFile and defined $scriptName and defined $outputDirectory) {
45    print "Usage: $0 --input-html <path> --output-dir path --output-script-name <name>\n";
46    exit;
47}
48
49my $htmlDirectory = dirname($htmlFile);
50my $htmlContents;
51
52{
53    local $/;
54    open HTML, $htmlFile or die;
55    $htmlContents = <HTML>;
56    close HTML;
57}
58
59$htmlContents =~ m/<head>(.*)<\/head>/si;
60my $headContents = $1;
61
62mkpath $outputDirectory;
63open SCRIPT_OUT, ">", "$outputDirectory/$scriptName" or die "Can't open $outputDirectory/$scriptName: $!";
64
65while ($headContents =~ m/<script.*src="([^"]*)"[^>]*>/gi) {
66    local $/;
67    open SCRIPT_IN, "$generatedScriptsDirectory/$1" or open SCRIPT_IN, "$htmlDirectory/$1" or die "Can't open $htmlDirectory/$1: $!";
68    print SCRIPT_OUT "/* $1 */\n\n";
69    print SCRIPT_OUT <SCRIPT_IN>;
70    close SCRIPT_IN;
71}
72
73close SCRIPT_OUT;
74
75$headContents =~ s/<script.*src="[^"]*"[^>]*><\/script>\s*//gi;
76$headContents .= "<script type=\"text/javascript\" src=\"$scriptName\"></script>\n";
77$htmlContents =~ s/<head>.*<\/head>/<head>$headContents<\/head>/si;
78
79open HTML, ">", "$outputDirectory/" . basename($htmlFile) or die "Can't open $outputDirectory/" . basename($htmlFile) . ": $!";
80print HTML $htmlContents;
81close HTML;
82