diff options
| author | Maxim Sobolev <sobomax@FreeBSD.org> | 2000-07-04 09:55:31 +0000 |
|---|---|---|
| committer | Maxim Sobolev <sobomax@FreeBSD.org> | 2000-07-04 09:55:31 +0000 |
| commit | 54f7240973ed1aba62870e7b521b790a2ce6187b (patch) | |
| tree | 44377bb0cb8a70095ef7c29ca4de76e7d585bc86 /Tools/scripts | |
| parent | 5260fdf08391a68ff28f82e4ec75970f42b7b4d6 (diff) | |
| download | ports-54f7240973ed1aba62870e7b521b790a2ce6187b.tar.gz ports-54f7240973ed1aba62870e7b521b790a2ce6187b.zip | |
Notes
Diffstat (limited to 'Tools/scripts')
| -rwxr-xr-x | Tools/scripts/getpr | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Tools/scripts/getpr b/Tools/scripts/getpr index c9951cf10bbc..9656a6e6b24f 100755 --- a/Tools/scripts/getpr +++ b/Tools/scripts/getpr @@ -9,12 +9,19 @@ use strict; my $pr = shift; my $user = shift; +my $ssh; if ($pr eq "") { print STDERR "getpr prnum [username]\n"; exit 1 } +if( !defined $ENV{"CVS_RSH"} ) { + $ssh = "ssh"; +} else { + $ssh = $ENV{"CVS_RSH"}; +} + if ($user ne "") { $user = "$user@"; } @@ -23,7 +30,7 @@ if ($user ne "") { open(D, "> $pr") or die "$pr: $!"; open(PATCH, "> pr-patch") or die "pr-patch: $!"; -open(PR, " ssh ${user}freefall.freebsd.org query-pr -F $pr | ") or die $!; +open(PR, " ${ssh} ${user}freefall.freebsd.org query-pr -F $pr | ") or die $!; my $fix = ""; my $infix = 0; |