git emails: remove a script that we're not using any more
Этот коммит содержится в:
родитель
a9948c6708
Коммит
db2e5bf27c
42
contrib/dist/build-server/github-send-commit-mails.pl
поставляемый
42
contrib/dist/build-server/github-send-commit-mails.pl
поставляемый
@ -1,42 +0,0 @@
|
||||
#!/usr/bin/env perl
|
||||
|
||||
use strict;
|
||||
|
||||
use Cwd;
|
||||
|
||||
die "Must specify location of source git repo"
|
||||
if ($#ARGV < 0);
|
||||
|
||||
sub doit {
|
||||
my ($cmd, $repo) = @_;
|
||||
|
||||
my $rc;
|
||||
my $outfile = "/tmp/github-send-email-tmp.$$";
|
||||
unlink($outfile);
|
||||
$rc = system("$cmd >$outfile 2>&1");
|
||||
if (0 != $rc) {
|
||||
print "Command failed:
|
||||
|
||||
Command: $cmd
|
||||
Repo: $repo
|
||||
Output:\n";
|
||||
open(IN, $outfile);
|
||||
print $_
|
||||
while (<IN>);
|
||||
close(IN);
|
||||
# die "Aborting";
|
||||
}
|
||||
unlink($outfile);
|
||||
}
|
||||
|
||||
foreach my $src_repo (@ARGV) {
|
||||
die "Specified location of source git repo is invalid"
|
||||
if (! -d $src_repo);
|
||||
chdir($src_repo);
|
||||
die "Could not chdir to $src_repo"
|
||||
if (getcwd() != $src_repo);
|
||||
|
||||
doit("/u/mpiteam/git/local/bin/git fetch", $src_repo);
|
||||
doit("/u/mpiteam/git/local/bin/git push email", $src_repo);
|
||||
}
|
||||
|
Загрузка…
Ссылка в новой задаче
Block a user