Index: Source/core/inspector/combine-javascript-resources.pl |
diff --git a/Source/core/inspector/combine-javascript-resources.pl b/Source/core/inspector/combine-javascript-resources.pl |
deleted file mode 100755 |
index 428b6b7d005a8db2bf54c7ad0494fcb2836ce5d9..0000000000000000000000000000000000000000 |
--- a/Source/core/inspector/combine-javascript-resources.pl |
+++ /dev/null |
@@ -1,81 +0,0 @@ |
-#!/usr/bin/perl -w |
- |
-# Copyright (C) 2008 Apple Inc. All Rights Reserved. |
-# |
-# Redistribution and use in source and binary forms, with or without |
-# modification, are permitted provided that the following conditions |
-# are met: |
-# 1. Redistributions of source code must retain the above copyright |
-# notice, this list of conditions and the following disclaimer. |
-# 2. Redistributions in binary form must reproduce the above copyright |
-# notice, this list of conditions and the following disclaimer in the |
-# documentation and/or other materials provided with the distribution. |
-# |
-# THIS SOFTWARE IS PROVIDED BY APPLE INC. ``AS IS'' AND ANY |
-# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR |
-# PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL APPLE INC. OR |
-# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, |
-# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, |
-# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR |
-# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY |
-# OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
-# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
-# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
- |
-# Script to combine multiple JavaScript files into one file, based on |
-# the script tags in the head of an input HTML file. |
- |
-use strict; |
-use Getopt::Long; |
-use File::Basename; |
-use File::Path; |
- |
-my $generatedScriptsDirectory; |
-my $outputDirectory; |
-my $scriptName; |
-my $htmlFile; |
- |
-GetOptions('output-dir=s' => \$outputDirectory, |
- 'output-script-name=s' => \$scriptName, |
- 'generated-scripts-dir=s' => \$generatedScriptsDirectory, |
- 'input-html=s' => \$htmlFile); |
- |
-unless (defined $htmlFile and defined $scriptName and defined $outputDirectory) { |
- print "Usage: $0 --input-html <path> --output-dir path --output-script-name <name>\n"; |
- exit; |
-} |
- |
-my $htmlDirectory = dirname($htmlFile); |
-my $htmlContents; |
- |
-{ |
- local $/; |
- open HTML, $htmlFile or die; |
- $htmlContents = <HTML>; |
- close HTML; |
-} |
- |
-$htmlContents =~ m/<head>(.*)<\/head>/si; |
-my $headContents = $1; |
- |
-mkpath $outputDirectory; |
-open SCRIPT_OUT, ">", "$outputDirectory/$scriptName" or die "Can't open $outputDirectory/$scriptName: $!"; |
- |
-while ($headContents =~ m/<script.*src="([^"]*)"[^>]*>/gi) { |
- local $/; |
- open SCRIPT_IN, "$generatedScriptsDirectory/$1" or open SCRIPT_IN, "$htmlDirectory/$1" or die "Can't open $htmlDirectory/$1: $!"; |
- print SCRIPT_OUT "/* $1 */\n\n"; |
- print SCRIPT_OUT <SCRIPT_IN>; |
- close SCRIPT_IN; |
-} |
- |
-close SCRIPT_OUT; |
- |
-$headContents =~ s/<script.*src="[^"]*"[^>]*><\/script>\s*//gi; |
-$headContents .= "<script type=\"text/javascript\" src=\"$scriptName\"></script>\n"; |
-$htmlContents =~ s/<head>.*<\/head>/<head>$headContents<\/head>/si; |
- |
-open HTML, ">", "$outputDirectory/" . basename($htmlFile) or die "Can't open $outputDirectory/" . basename($htmlFile) . ": $!"; |
-print HTML $htmlContents; |
-close HTML; |