41 lines
887 B
Perl
41 lines
887 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
die "Must set \$LJHOME before running this.\n"
|
||
|
|
unless -d $ENV{'LJHOME'};
|
||
|
|
|
||
|
|
my $LJHOME = $ENV{'LJHOME'};
|
||
|
|
my $mode = @ARGV[0];
|
||
|
|
|
||
|
|
if ($mode eq "") {
|
||
|
|
|
||
|
|
chdir $LJHOME or die "Couldn't chdir to \$LJHOME directory.\n";
|
||
|
|
|
||
|
|
system("cvs/wcmtools/bin/multicvs.pl --conf=cvs/livejournal/cvs/multicvs.conf -c -s")
|
||
|
|
and die "Failed to run multicvs.pl ... do you have the cvs/ dir?\n";
|
||
|
|
|
||
|
|
print "done.\n";
|
||
|
|
exit;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($mode eq "makerelease") {
|
||
|
|
chdir $LJHOME or die;
|
||
|
|
my $path = $ENV{'RELDIR'};
|
||
|
|
$path .= "/" if $path;
|
||
|
|
my @now = localtime;
|
||
|
|
my $ct = 0;
|
||
|
|
my $file;
|
||
|
|
do {
|
||
|
|
$file = sprintf("${path}livejournal-%04d%02d%02d%02d.tar.gz", $now[5]+1900, $now[4]+1, $now[3], $ct);
|
||
|
|
$ct++;
|
||
|
|
} while (-e $file);
|
||
|
|
|
||
|
|
system("tar -zcvf $file README.txt bootstrap.pl cvs") and die;
|
||
|
|
|
||
|
|
print "done.\n";
|
||
|
|
exit;
|
||
|
|
}
|
||
|
|
|
||
|
|
die "Unknown mode.\n";
|