cpet/freebsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

- prefix saved files (PR/patches) with PR_$num

Browse Source 
PR:		ports/171853
Submitted by:	ohauer
Approved by:	miwi (maintainer) explicit per PM
This commit is contained in:
Olli Hauer 2012-09-23 17:12:59 +00:00
parent ab15538b30
commit 5547c29967
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=304753
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Tools/scripts/getpr
View File

@ -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";
}