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

Approved by:	mharo (maintainer)

3 files changed, 0 insertions, 159 deletions

diff --git a/Tools/scripts/getpr b/Tools/scripts/getpr
deleted file mode 100755
index 5d6a3fdef752..000000000000
--- a/Tools/scripts/getpr
+++ /dev/null
@@ -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";
-}
diff --git a/Tools/scripts/prdone b/Tools/scripts/prdone
deleted file mode 100755
index f2f03336537a..000000000000
--- a/Tools/scripts/prdone
+++ /dev/null
@@ -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
diff --git a/Tools/scripts/prpatch b/Tools/scripts/prpatch
deleted file mode 100755
index 1b575f7adca4..000000000000
--- a/Tools/scripts/prpatch
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/bin/sh
-#
-# MAINTAINER= mharo@FreeBSD.org
-#
-# $FreeBSD$
-#
-
-patch $@ < pr-patch
-find . -name '*.orig' -print -delete
-find . -name '*.rej'  -print