3 # Copyright (C) 2005, 2006, 2007 Apple Computer, Inc. All rights reserved.
5 # Redistribution and use in source and binary forms, with or without
6 # modification, are permitted provided that the following conditions
9 # 1. Redistributions of source code must retain the above copyright
10 # notice, this list of conditions and the following disclaimer.
11 # 2. Redistributions in binary form must reproduce the above copyright
12 # notice, this list of conditions and the following disclaimer in the
13 # documentation and/or other materials provided with the distribution.
14 # 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of
15 # its contributors may be used to endorse or promote products derived
16 # from this software without specific prior written permission.
18 # THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY
19 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
20 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
21 # DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY
22 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
23 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
24 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
25 # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
26 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
27 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29 # Updates a development environment to the new WebKitAuxiliaryLibrary
34 use HTTP
::Date
qw(str2time);
39 use lib
$FindBin::Bin
;
42 sub lastModifiedToUnixTime
($);
44 # Time in seconds that the new zip file must be newer than the old for us to
45 # consider them to be different. If the difference in modification time is less
46 # than this threshold, we assume that the files are the same. We need this
47 # because the zip file is served from a set of mirrors with slightly different
48 # Last-Modified times.
49 my $newnessThreshold = 30;
51 my $sourceDir = sourceDir
();
52 my $file = "WebKitAuxiliaryLibrary";
53 my $zipFile = "$file.zip";
54 my $auxiliaryLibsURL = "http://developer.apple.com/opensource/internet/$zipFile";
55 my $webkitLibrariesDir = toUnixPath
($ENV{'WEBKITLIBRARIESDIR'}) || "$sourceDir/WebKitLibraries/win";
56 my $tmpDir = File
::Spec
->rel2abs(File
::Temp
::tempdir
("webkitlibsXXXXXXX", TMPDIR
=> 1, CLEANUP
=> 1));
58 print "Checking Last-Modified date of $zipFile...\n";
60 my $result = system "curl -s -I $auxiliaryLibsURL | grep Last-Modified > \"$tmpDir/$file.headers\"";
61 print STDERR
"Couldn't check Last-Modified date of new $zipFile.\n" if $result;
63 if (!$result && open NEW
, "$tmpDir/$file.headers") {
64 my $new = lastModifiedToUnixTime
(<NEW
>);
67 if (defined $new && open OLD
, "$webkitLibrariesDir/$file.headers") {
68 my $old = lastModifiedToUnixTime
(<OLD
>);
70 if (defined $old && abs($new - $old) < $newnessThreshold) {
71 print "Current $file is up to date\n";
77 print "Downloading $zipFile...\n\n";
78 $result = system "curl -o \"$tmpDir/$zipFile\" $auxiliaryLibsURL";
79 die "Couldn't download $zipFile!" if $result;
81 $result = system "unzip", "-q", "-d", $tmpDir, "$tmpDir/$zipFile";
82 die "Couldn't unzip $zipFile." if $result;
84 print "\nInstalling $file...\n";
88 my $relativeName = File
::Spec
->abs2rel($File::Find
::name
, "$tmpDir/$file/win");
89 my $destination = "$webkitLibrariesDir/$relativeName";
96 system "cp", $_, $destination;
99 File
::Find
::find
(\
&wanted
, "$tmpDir/$file");
101 $result = system "mv", "$tmpDir/$file.headers", $webkitLibrariesDir;
102 print STDERR
"Couldn't move $file.headers to $webkitLibrariesDir" . ".\n" if $result;
104 print "The $file has been sucessfully installed in\n $webkitLibrariesDir\n";
111 chomp($path = `cygpath -u '$path'`);
115 sub lastModifiedToUnixTime
($)
119 $str =~ /^Last-Modified: (.*)$/ or return;