#!/usr/bin/perl -w # Copyright (C) 2008, 2011 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 include some extra resources, from an inspector subdirectory, # into an html file by linking to JavaScript and CSS Stylesheet resources # in the
. use strict; use Getopt::Long; use File::Basename; use File::Path; my $inputHtmlFile; my $outputDirectory; my $outputHtmlFileName; our $extrasDirectory; our $extrasDirectoryBasename; GetOptions('input-html=s' => \$inputHtmlFile, 'output-directory=s' => \$outputDirectory, 'output-html-file-name=s' => \$outputHtmlFileName, 'extras-directory=s' => \$extrasDirectory); unless (defined $inputHtmlFile and defined $outputDirectory and defined $outputHtmlFileName and defined $extrasDirectory) { print "Usage: $0 --input-html