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
|
#!/usr/bin/env perl
use strict;
sub cmd
{
my ($cmd) = @_;
print "$cmd\n";
`$cmd`;
}
my $version = $ENV{'VERSION'};
foreach (@ARGV) {
my $file = $_;
die if $file !~ /(.*)\/([^\/]*)\.wad$/;
my ($path, $pkgname) = ($1, $2);
my %dirnames = (
'doom2' => 'freedoom-iwad',
'doom1' => 'freedoom-demo',
'freedoom' => 'freedoom-resource-wad',
);
my $basedir;
if ($dirnames{$pkgname}) {
$basedir = $dirnames{$pkgname};
} else {
$basedir = $pkgname;
}
$basedir .= "-$version";
$basedir =~ tr/_/-/;
my $fulldir = "$path/$basedir";
# mkdir($dir);
# `cp NEWS ChangeLog COPYING CREDITS $dir`;
# `cp $file $dir`;
cmd("mkdir $fulldir");
cmd("cp NEWS ChangeLog COPYING CREDITS $fulldir");
cmd("cp README-dist $fulldir/README");
cmd("cp $file $fulldir\n");
my $cwd = `pwd`;
chomp $cwd;
chdir($path);
cmd("rm -f $basedir.zip");
cmd("zip -r $basedir.zip $basedir");
cmd("rm -rf $basedir");
chdir($cwd);
}
|
