Home | History | Annotate | Download | only in inspector 
      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 $outputDirectory/$scriptName: $!";
     64 
     65 while ($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 
     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 $outputDirectory/" . basename($htmlFile) . ": $!";
     80 print HTML $htmlContents;
     81 close HTML;
     82