Changeset 27014 in webkit
- Timestamp:
- Oct 24, 2007, 8:51:10 PM (17 years ago)
- Location:
- trunk/WebKitTools
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified trunk/WebKitTools/ChangeLog ¶
r27013 r27014 1 2007-10-24 David Kilzer <ddkilzer@webkit.org> 2 3 Refurbish update-webkit script. 4 5 Reviewed by Adam. 6 7 * Scripts/update-webkit: Add -h|--help switch and usage statement. Check result of 8 GetOptions() call. Fix -q|--quiet switch to be passed to svn command properly. Use 9 multi-argument version of system() for flexibility and security. Check for existence 10 of Internal directory using -d test instead of -x. 11 1 12 2007-10-24 David Kilzer <ddkilzer@webkit.org> 2 13 -
TabularUnified trunk/WebKitTools/Scripts/update-webkit ¶
r23463 r27014 1 1 #!/usr/bin/perl -w 2 2 3 # Copyright (C) 2005 Apple Computer,Inc. All rights reserved.3 # Copyright (C) 2005, 2006, 2007 Apple Inc. All rights reserved. 4 4 # 5 5 # Redistribution and use in source and binary forms, with or without … … 32 32 use FindBin; 33 33 use lib $FindBin::Bin; 34 use File::Basename; 34 35 use Getopt::Long; 35 36 use webkitdirs; 36 37 37 38 # Handle options 38 my $quiet =''; 39 my $svnoptions = ''; 40 GetOptions('quiet|q' => \$quiet); 41 $svnoptions = '-q' if $quiet; 39 my $quiet = ''; 40 my $showHelp; 41 42 my $getOptionsResult = GetOptions( 43 'h|help' => \$showHelp, 44 'q|quiet' => \$quiet, 45 ); 46 47 if (!$getOptionsResult || $showHelp) { 48 print STDERR <<__END__; 49 Usage: @{[ basename($0) ]} [options] 50 -h|--help show the help message 51 -q|--quiet pass -q to svn update for quiet updates 52 __END__ 53 exit 1; 54 } 55 56 my @svnOptions = (); 57 push @svnOptions, '-q' if $quiet; 42 58 43 59 chdirWebKit(); 44 60 print "Updating OpenSource\n" unless $quiet; 45 (system("svn $svnoptions up") == 0) or die;61 (system("svn", "update", @svnOptions) == 0) or die; 46 62 if (isCygwin()) { 47 (system("perl 63 (system("perl", "WebKitTools/Scripts/update-webkit-auxiliary-libs") == 0) or die; 48 64 } 49 65 50 if (- x"../Internal") {66 if (-d "../Internal") { 51 67 chdir("../Internal"); 52 68 print "Updating Internal\n" unless $quiet; 53 (system("svn $svnoptions up") == 0) or die;69 (system("svn", "update", @svnOptions) == 0) or die; 54 70 }
Note:
See TracChangeset
for help on using the changeset viewer.