1
0
mirror of https://git.FreeBSD.org/ports.git synced 2025-02-03 11:12:13 +00:00

Make getpr work for remote committers as well.

This commit is contained in:
Maxim Sobolev 2000-05-19 08:09:53 +00:00
parent 389e0ff29f
commit 9a170ebda5
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=28588

View File

@ -8,17 +8,22 @@
use strict;
my $pr = shift;
my $user = shift;
if ($pr eq "") {
print STDERR "getpr prnum\n";
print STDERR "getpr prnum [username]\n";
exit 1
}
if ($user ne "") {
$user = "$user@";
}
# get the PR off of freefall
open(D, "> $pr") or die "$pr: $!";
open(PATCH, "> pr-patch") or die "pr-patch: $!";
open(PR, " ssh freefall query-pr -F $pr | ") or die $!;
open(PR, " ssh ${user}freefall.freebsd.org query-pr -F $pr | ") or die $!;
my $fix = "";
my $infix = 0;