Migrate update-webkit for Windows to not require Cygwin
[WebKit-https.git] / Tools / Scripts / update-webkit-dependency
1 #!/usr/bin/perl -w
2
3 # Copyright (C) 2005, 2006, 2007 Apple Inc.  All rights reserved.
4 # Copyright (C) 2011 Carl Lobo.  All rights reserved.
5 #
6 # Redistribution and use in source and binary forms, with or without
7 # modification, are permitted provided that the following conditions
8 # are met:
9 #
10 # 1.  Redistributions of source code must retain the above copyright
11 #     notice, this list of conditions and the following disclaimer. 
12 # 2.  Redistributions in binary form must reproduce the above copyright
13 #     notice, this list of conditions and the following disclaimer in the
14 #     documentation and/or other materials provided with the distribution. 
15 # 3.  Neither the name of Apple Inc. ("Apple") nor the names of
16 #     its contributors may be used to endorse or promote products derived
17 #     from this software without specific prior written permission. 
18 #
19 # THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY
20 # EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
21 # WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
22 # DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY
23 # DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
24 # (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
25 # LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
26 # ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
29
30 # Updates a development environment to the new WebKitAuxiliaryLibrary
31
32 use strict;
33 use warnings;
34
35 use Archive::Zip qw( :ERROR_CODES );
36 use File::Copy;
37 use File::Find;
38 use File::Spec;
39 use File::Temp ();
40 use FindBin;
41 use HTTP::Date qw(str2time time2str);
42 use LWP::Simple;
43 use POSIX;
44 use lib $FindBin::Bin;
45 use webkitdirs;
46
47 if ($#ARGV != 1) {
48     die <<EOF;
49 Usage:
50         update-webkit-dependancy <URL with the dependancy zip file> <*prefix dir inside zip without filename>
51
52         * If filename is requirements.zip and the contents of the zipfile are "requirements/x" then prefix = "."
53         * If filename is xyz.zip and the contents of the zipfile are xyz/abc/x" then prefix = "abc"
54         * x is lib or include or bin.
55 EOF
56 }
57
58 sub lastModifiedToUnixTime($);
59 sub getLibraryName($);
60
61 # Time in seconds that the new zip file must be newer than the old for us to
62 # consider them to be different. If the difference in modification time is less
63 # than this threshold, we assume that the files are the same. We need this
64 # because the zip file is served from a set of mirrors with slightly different
65 # Last-Modified times.
66 my $newnessThreshold = 30;
67
68 my $libsURL = shift;
69 my $prefixInZip = shift;
70 my $sourceDir = sourceDir();
71 my $file = getLibraryName($libsURL);
72 my $zipFile = "$file.zip"; 
73 my $webkitLibrariesDir = $ENV{'WEBKIT_LIBRARIES'} || "$sourceDir/WebKitLibraries/win";
74 my $tmpRelativeDir = File::Temp::tempdir("webkitlibsXXXXXXX", TMPDIR => 1, CLEANUP => 1);
75 my $tmpAbsDir = File::Spec->rel2abs($tmpRelativeDir);
76
77 print "Checking Last-Modified date of $zipFile...\n";
78
79 my ($content_type, $document_length, $modified_time, $expires, $server) = head($libsURL);
80
81 if (defined $modified_time) {
82
83     open NEW, ">", "$tmpAbsDir/$file.headers";
84     print NEW "Last-Modified: " . time2str($modified_time) . "\n";
85     close NEW;
86
87 } else {
88
89     #Note: Neither GitHub nor DropBox emit the Last-Modified HTTP header, so fall back to a file
90         #containing the necessary information if we do not receive the information in our initial query.
91     my $headerURL = $libsURL;
92     $headerURL =~ s/\.zip$/\.headers/;
93
94     my $result = getstore($headerURL, "$tmpAbsDir/$file.headers");
95
96     if (!is_success($result)) {
97         print STDERR "Couldn't check Last-Modified date of new $zipFile.\n";
98         print STDERR "Please ensure that Perl can use LWP::Simple to connect to HTTPS urls, and that $libsURL is reachable.\n";
99         print STDERR "You may have to run $ cpan LWP::Protocol::https\n";
100
101         if (! -f "$webkitLibrariesDir/$file.headers") {
102             print STDERR "Unable to check Last-Modified date and no version of $file to fall back to.\n";
103             exit 1;
104         }
105
106         print STDERR "Falling back to existing version of $file.\n";
107         exit 0;
108     }
109 }
110
111 if (open NEW, "$tmpAbsDir/$file.headers") {
112     my $new = lastModifiedToUnixTime(<NEW>);
113     close NEW;
114
115     if (defined $new && open OLD, "$webkitLibrariesDir/$file.headers") {
116         my $old = lastModifiedToUnixTime(<OLD>);
117         close OLD;
118         if (defined $old && abs($new - $old) < $newnessThreshold) {
119             print "Current $file is up to date\n";
120             exit 0;
121         }
122     }
123 }
124
125 print "Downloading $zipFile...\n\n";
126 print "$libsURL\n";
127 my $result = getstore($libsURL, "$tmpAbsDir/$zipFile");
128 die "Couldn't download $zipFile!" if is_error($result);
129
130 my $zip = Archive::Zip->new("$tmpAbsDir/$zipFile");
131 $result = $zip->extractTree("", $tmpAbsDir);
132 die "Couldn't unzip $zipFile." if $result != AZ_OK;
133
134 print "\nInstalling $file...\n";
135
136 sub wanted
137 {
138     my $relativeName = File::Spec->abs2rel($File::Find::name, "$tmpAbsDir/$file/$prefixInZip");
139     my $destination = "$webkitLibrariesDir/$relativeName";
140
141     if (-d $_) {
142         mkdir $destination;
143         return;
144     }
145
146     copy($_, $destination);
147 }
148
149 File::Find::find(\&wanted, "$tmpAbsDir/$file");
150
151 $result = move("$tmpAbsDir/$file.headers", $webkitLibrariesDir);
152 print STDERR "Couldn't move $file.headers to $webkitLibrariesDir" . ".\n" if $result == 0;
153
154 print "The $file has been sucessfully installed in\n $webkitLibrariesDir\n";
155 exit;
156
157 sub lastModifiedToUnixTime($)
158 {
159     my ($str) = @_;
160
161     $str =~ /^Last-Modified: (.*)$/ or return;
162     return str2time($1);
163 }
164
165 sub getLibraryName($)
166 {
167     my $url = shift;
168     $url =~ m#/([^/]+)\.zip$#;
169     return $1;
170 }
171