|
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 |
|
29 use strict; |
|
30 use Getopt::Long; |
|
31 use File::Basename; |
|
32 use File::Path; |
|
33 |
|
34 my $outputDirectory; |
|
35 my $scriptName; |
|
36 my $htmlFile; |
|
37 |
|
38 GetOptions('output-dir=s' => \$outputDirectory, |
|
39 'output-script-name=s' => \$scriptName, |
|
40 'input-html=s' => \$htmlFile); |
|
41 |
|
42 unless (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 |
|
47 my $htmlDirectory = dirname($htmlFile); |
|
48 my $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; |
|
58 my $headContents = $1; |
|
59 |
|
60 mkpath $outputDirectory; |
|
61 open SCRIPT_OUT, ">", "$outputDirectory/$scriptName" or die "Can't open $outputDirectory/$scriptName: $!"; |
|
62 |
|
63 while ($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 |
|
71 close 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 |
|
77 open HTML, ">", "$outputDirectory/" . basename($htmlFile) or die "Can't open $outputDirectory/" . basename($htmlFile) . ": $!"; |
|
78 print HTML $htmlContents; |
|
79 close HTML; |