From 8b4207e3b81c766f8acc0617707239538485bb83 Mon Sep 17 00:00:00 2001
From: sobomax <sobomax@FreeBSD.org>
Date: Fri, 19 May 2000 08:09:53 +0000
Subject: Make getpr work for remote committers as well.

---
 Tools/scripts/getpr | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'Tools/scripts')

diff --git a/Tools/scripts/getpr b/Tools/scripts/getpr
index e7b703bc607f..c9951cf10bbc 100755
--- a/Tools/scripts/getpr
+++ b/Tools/scripts/getpr
@@ -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;
-- 
cgit