diff options
| author | sobomax <sobomax@FreeBSD.org> | 2000-07-04 09:55:31 +0000 |
|---|---|---|
| committer | sobomax <sobomax@FreeBSD.org> | 2000-07-04 09:55:31 +0000 |
| commit | 91de7e58e1df14a01e008c345871799ab0585c37 (patch) | |
| tree | f9d57213b35a46c1432d45ca8d39068b1275006f /Tools | |
| parent | 48de4e3f59abd43079e32af48ed525b6879a254e (diff) | |
| download | FreeBSD-ports-91de7e58e1df14a01e008c345871799ab0585c37.zip FreeBSD-ports-91de7e58e1df14a01e008c345871799ab0585c37.tar.gz | |
Allow existing CVS_RSH environment var to take precedent.
Diffstat (limited to 'Tools')
| -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 c9951cf..9656a6e 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; |
