mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-23 00:43:28 +00:00
Code Issues Releases Activity

Remove obsolete PR handling scripts. These had hardcoded /home/ncvs

Browse Source 
Approved by:	mharo (maintainer)
This commit is contained in:
Chris Rees 2012-05-24 20:19:12 +00:00
parent 6b27fcb25c
commit 7bafcecff5
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=297358
3 changed files with 0 additions and 159 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

93
Tools/scripts/getpr
View File

@ -1,93 +0,0 @@
#!/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 -F $pr | ") or die $!;
my $fix = "";
my $infix = 0;
while(<PR>) {
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(<PATCH>) {
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";
}

56
Tools/scripts/prdone
View File

@ -1,56 +0,0 @@
#!/bin/sh
#
# MAINTAINER= mharo@FreeBSD.org
#
# $FreeBSD$
#
# $Id: prdone,v 1.4 2000/04/22 21:48:53 mharo Exp $
if [ $# -lt 1 ] ; then
echo "prdone prnumber [ci]"
exit 1
fi
file=$1; shift
action=$1;
if [ "X$file" = "Xci" ] ; then
echo "hey, dumbass, the PR number is not 'ci'"
exit 1
fi
rm -f pr-patch
rm -f MAINTAINER_WAIT
if [ "X$action" = "Xci" ] ; then
echo "preparing commit"
cvsmsg=cvsmsg
cp /home/ncvs/CVSROOT/rcstemplate CVS/Template
from=`grep From: $file | sed -e 's/From: //' -e 's/\@/\\\@/g'`
name=`grep Originator: $file | sed -e 's/>Originator: //'`
synopsis=`grep Synopsis: $file | sed -e 's/>Synopsis: //'`
cp /home/ncvs/CVSROOT/rcstemplate $cvsmsg
chmod +w $cvsmsg
/usr/bin/perl -pi -e "s,^PR:,PR:\t\t$file," $cvsmsg
/usr/bin/perl -pi -e "s,^Submitted by:,Submitted by:\t$name <$from>," $cvsmsg
echo "$synopsis" > $cvsmsg.tmp
cat $cvsmsg >> $cvsmsg.tmp
mv $cvsmsg.tmp $cvsmsg
vi $cvsmsg
cvs -d mharo@freefall.freebsd.org:/home/ncvs ci -F $cvsmsg
rm -f $cvsmsg
echo "done"
else
echo "PR: $file" > MAINTAINER_WAIT
echo ""
echo "Don't forget to email" `grep MAINTAINER Makefile`
echo ""
fi
# remove pr number after we commit as I always forget to track PR number
rm -f $file
ssh freefall.freebsd.org -t edit-pr $file

10
Tools/scripts/prpatch
View File

@ -1,10 +0,0 @@
#!/bin/sh
#
# MAINTAINER= mharo@FreeBSD.org
#
# $FreeBSD$
#
patch $@ < pr-patch
find . -name '*.orig' -print -delete
find . -name '*.rej' -print