| OLD | NEW |
|---|
| (Empty) |
| 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 $generatedScriptsDirectory; | |
| 35 my $outputDirectory; | |
| 36 my $scriptName; | |
| 37 my $htmlFile; | |
| 38 | |
| 39 GetOptions('output-dir=s' => \$outputDirectory, | |
| 40 'output-script-name=s' => \$scriptName, | |
| 41 'generated-scripts-dir=s' => \$generatedScriptsDirectory, | |
| 42 'input-html=s' => \$htmlFile); | |
| 43 | |
| 44 unless (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 | |
| 49 my $htmlDirectory = dirname($htmlFile); | |
| 50 my $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; | |
| 60 my $headContents = $1; | |
| 61 | |
| 62 mkpath $outputDirectory; | |
| 63 open SCRIPT_OUT, ">", "$outputDirectory/$scriptName" or die "Can't open $outputD
irectory/$scriptName: $!"; | |
| 64 | |
| 65 while ($headContents =~ m/<script.*src="([^"]*)"[^>]*>/gi) { | |
| 66 local $/; | |
| 67 open SCRIPT_IN, "$generatedScriptsDirectory/$1" or open SCRIPT_IN, "$htmlDir
ectory/$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 | |
| 73 close 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 | |
| 79 open HTML, ">", "$outputDirectory/" . basename($htmlFile) or die "Can't open $ou
tputDirectory/" . basename($htmlFile) . ": $!"; | |
| 80 print HTML $htmlContents; | |
| 81 close HTML; | |
| OLD | NEW |
|---|
Chromium Code Reviews
Issue 133433003:
[Cleanup] Remove unused script combine-javascript-resources.pl (Closed)
Base URL: https://chromium.googlesource.com/chromium/blink.git@master