diff options
Diffstat (limited to 'Tools/scripts/getpr')
| -rwxr-xr-x | Tools/scripts/getpr | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/Tools/scripts/getpr b/Tools/scripts/getpr index 7b0eabf1b119..e612ee32f3ef 100755 --- a/Tools/scripts/getpr +++ b/Tools/scripts/getpr @@ -26,10 +26,13 @@ if ($user ne "") { $user = "$user@"; } +my $pr_num = "PR_" . $pr; +my $pr_patch = "PR_" . $pr . ".patch"; + # get the PR off of freefall -open(D, "> $pr") or die "$pr: $!"; -open(PATCH, "> pr-patch") or die "pr-patch: $!"; +open(D, "> $pr_num") or die "$pr_num: $!"; +open(PATCH, "> $pr_patch") or die "$pr_patch: $!"; open(PR, " ${ssh} ${user}freefall.freebsd.org query-pr -F $pr | ") or die $!; my $fix = ""; @@ -56,7 +59,7 @@ close(PATCH); # .tar.gz, .shar or just .gz, if not found, display what we think of as # the file submission (probably just a patch) -open(PATCH, "pr-patch"); +open(PATCH, $pr_patch); while(<PATCH>) { if (m/^# This is a shell archive. Save it in a file, remove anything before/) { &shar; @@ -70,7 +73,7 @@ while(<PATCH>) { } close(PATCH); -system("more pr-patch"); +system("more $pr_patch"); exit; @@ -80,7 +83,7 @@ sub uudecode { $fname =~ s/\s+$//g; print "$fname\n"; - print `uudecode pr-patch`; + print `uudecode $pr_patch`; if (($fname =~ m/.tar.gz$/) || ($fname =~ m/.tgz$/)) { print "you may extract this tarball by typing tar xvzf $fname\n"; } elsif ($fname =~ m/.gz$/) { @@ -89,5 +92,5 @@ sub uudecode { } sub shar { - print "you may extract this shar archive by typing sh pr-patch\n"; + print "you may extract this shar archive by typing sh $pr_patch\n"; } |