#!/usr/bin/perl # # MAINTAINER= mharo@FreeBSD.org # # $FreeBSD$ # 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@"; } # get the PR off of freefall open(D, "> $pr") or die "$pr: $!"; open(PATCH, "> pr-patch") or die "pr-patch: $!"; open(PR, " ${ssh} ${user}freefall.freebsd.org query-pr.real -F $pr | ") or die $!; my $fix = ""; my $infix = 0; while() { print D; if (m/^>Release-Note:/) { $infix = 0; } if ($infix == 1) { print PATCH; } if (m/^>Fix:/) { $infix = 1; } } close(D); close(PR); close(PATCH); # decode the submission attempting to find a file attachment by extension # .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"); while() { if (m/^# This is a shell archive. Save it in a file, remove anything before/) { &shar; exit; } if (m/^begin (\d+)? (.*)/) { &uudecode($2); close(PATCH); exit; } } close(PATCH); system("more pr-patch"); exit; sub uudecode { my ($fname) = @_; $fname =~ s/\s+$//g; print "$fname\n"; 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$/) { print `gunzip $fname`; } } sub shar { print "you may extract this shar archive by typing sh pr-patch\n"; } -1.2.3'>dependabot/npm_and_yarn/devel/electron4/files/bl-1.2.3 FreeBSD GNOME current development ports (https://github.com/freebsd/freebsd-ports-gnome)
aboutsummaryrefslogtreecommitdiffstats
path: root/Tools/scripts/README
Commit message (Expand)AuthorAgeFilesLines
* Add chkorigin.sh, a script that checks the ports tree for ports with a wrongeik2004-03-191-0/+2
* There is nothing "future" about 'addport'.obrien2004-01-031-1/+1
* Add de-pkg-comment.knu2003-02-181-0/+2
* Add checkcats.py - a script that verifyes that master categories in all portssobomax2001-12-11