diff options
author | Thorvald Natvig <slicer@users.sourceforge.net> | 2009-01-25 18:26:29 +0300 |
---|---|---|
committer | Thorvald Natvig <slicer@users.sourceforge.net> | 2009-01-25 18:26:29 +0300 |
commit | 4a07c670b3436682963db7b1a4156396c8044fe1 (patch) | |
tree | b1e7c2984c3405ddb562ff2ffa6467a4ef374eb9 /scripts/release.pl | |
parent | b4258dc586d3d1ea2b45f4729397d0e6bd5445e6 (diff) |
Update distribution scripts
git-svn-id: https://mumble.svn.sourceforge.net/svnroot/mumble/trunk@1477 05730e5d-ab1b-0410-a4ac-84af385074fa
Diffstat (limited to 'scripts/release.pl')
-rw-r--r-- | scripts/release.pl | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/scripts/release.pl b/scripts/release.pl index d80b23e0f..020c10591 100644 --- a/scripts/release.pl +++ b/scripts/release.pl @@ -8,13 +8,33 @@ use Archive::Tar; use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); use Compress::Zlib; +sub adddir($$) { + my ($dir, $ref) = @_; + $dir =~ s/^\.\///; + my $base = $dir; + $base =~ s/^.+\/([^\/]+)$/$1/; + if (-f "$dir/$base.pro") { + push @{$ref}, "$dir/$base.pro"; + } + opendir(DIR, $dir); + foreach my $e (grep { ! /^\./ } readdir(DIR)) { + if (-d "$dir/$e") { + adddir("$dir/$e", $ref); + } + } +} + my %files; my $ver; my %filevars = ( 'sources' => 1, 'headers' => 1, 'rc_file' => 1, 'dist' => 1, 'forms' => 1, 'resources' => 1, 'precompiled_header' => 1, 'translations' => 1); system("rm mumble-*"); -foreach my $pro ("main.pro", "overlay/overlay.pro", "overlay_gl/overlay_gl.pro", "speexbuild/speexbuild.pro", "src/mumble/mumble.pro", "src/murmur/murmur.pro", "src/mumble.pri", "plugins/plugins.pro", "plugins/wow/wow.pro", "plugins/bf2/bf2.pro", "plugins/link/link.pro") { + +my @pro = ("main.pro", "src/mumble.pri"); +adddir(".", \@pro); + +foreach my $pro (@pro) { open(F, $pro) or croak "Failed to open $pro"; print "Processing $pro\n"; $files{$pro}=1; @@ -36,7 +56,7 @@ foreach my $pro ("main.pro", "overlay/overlay.pro", "overlay_gl/overlay_gl.pro", $files{$basedir.$f}=1; } else { my $ok = 0; - foreach my $d ("", "speexbuild/", "speexbuild/speex/", "src/", "src/mumble/", "src/murmur/", "icons/", "scripts/", "plugins/", "overlay/", "overlay_gl/", "speex/libspeex/") { + foreach my $d ("", "speexbuild/", "speexbuild/speex/", "src/", "src/mumble/", "src/murmur/", "icons/", "scripts/", "plugins/", "overlay/", "overlay_gl/", "speex/libspeex/", "g15helper/") { if (-f "$d$f") { $files{$d.$f}=1; $ok = 1; |