blob: 2d1eeddc2a793d04319ad4bcb6ff887f186a46d8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
#!/usr/bin/perl -w
#
# Updates the version of YUI3 used by Bugzilla. Just pass the path to
# an unzipped yui release directory, like:
#
# contrib/new-yui3.pl /path/to/yui3/
#
use strict;
use FindBin;
use File::Find;
use File::Basename;
use constant EXCLUDES => qw(
gallery-*
);
sub usage {
my $error = shift;
print "$error\n";
print <<USAGE;
Usage: contrib/new-yui3.pl /path/to/yui3/files
Eg. contrib/new-yui3.pl /home/dkl/downloads/yui3
The yui3 directory should contain the 'build' directory
from the downloaded YUI3 tarball containing the module
related files.
USAGE
exit(1);
}
#############
# Main Code #
#############
my $SOURCE_PATH = shift;
my $DEST_PATH = "$FindBin::Bin/../js/yui3";
if (!$SOURCE_PATH || !-d "$SOURCE_PATH/build") {
usage("Source path not found!");
}
mkdir($DEST_PATH) unless -d $DEST_PATH;
my $exclude_string = join(" ", map { "--exclude $_" } EXCLUDES);
my $command = "rsync -av --delete $exclude_string " .
"$SOURCE_PATH/build/ $DEST_PATH/";
system($command) == 0 or usage("system '$command' failed: $?");
find(
sub {
my $delete = 0;
my $filename = basename $File::Find::name;
if ($filename =~ /-debug\.js$/
|| $filename =~ /-coverage\.js$/)
{
$delete = 1;
}
elsif ($filename =~ /-skin\.css$/) {
my $temp_filename = $filename;
$temp_filename =~ s/-skin//;
if (-e $temp_filename) {
$delete = 1;
}
}
elsif ($filename =~ /-min\.js/) {
$filename =~ s/-min//;
if (-e $filename) {
$delete = 1;
}
}
return if !$delete;
print "deleting $filename\n";
unlink($filename) || usage($!);
},
$DEST_PATH
);
exit(0);
|
