Commit | Line | Data |
---|---|---|
8e6a3064 MB |
1 | #!/pro/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
6 | use File::Find; | |
7 | use Archive::Tar; | |
8 | ||
9 | chdir "/pro/3gl/CPAN"; | |
10 | ||
11 | my @today = localtime; | |
12 | my $today = (($today[5] + 1900) * 100 + $today[4] + 1) * 100 + $today[3]; | |
13 | ||
14 | my @mc; | |
6bd2cf46 | 15 | find (sub { -d || m/\.git/ or push @mc, $File::Find::name }, "metaconfig"); |
8e6a3064 MB |
16 | |
17 | my $tgz = "/tmp/mc_units-$today.tgz"; | |
18 | unlink $tgz; | |
19 | Archive::Tar->create_archive ($tgz, 9, sort @mc); | |
20 | print $tgz, "\t", -s $tgz, "\n"; |