Index: head/Tools/scripts/prpatch =================================================================== --- head/Tools/scripts/prpatch (revision 297357) +++ head/Tools/scripts/prpatch (nonexistent) @@ -1,10 +0,0 @@ -#!/bin/sh -# -# MAINTAINER= mharo@FreeBSD.org -# -# $FreeBSD$ -# - -patch $@ < pr-patch -find . -name '*.orig' -print -delete -find . -name '*.rej' -print Property changes on: head/Tools/scripts/prpatch ___________________________________________________________________ Deleted: cvs2svn:cvs-rev ## -1 +0,0 ## -1.1 \ No newline at end of property Deleted: svn:executable ## -1 +0,0 ## -* \ No newline at end of property Deleted: svn:keywords ## -1 +0,0 ## -FreeBSD=%H \ No newline at end of property Index: head/Tools/scripts/getpr =================================================================== --- head/Tools/scripts/getpr (revision 297357) +++ head/Tools/scripts/getpr (nonexistent) @@ -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() { - 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"; -} Property changes on: head/Tools/scripts/getpr ___________________________________________________________________ Deleted: cvs2svn:cvs-rev ## -1 +0,0 ## -1.6 \ No newline at end of property Deleted: svn:executable ## -1 +0,0 ## -* \ No newline at end of property Deleted: svn:keywords ## -1 +0,0 ## -FreeBSD=%H \ No newline at end of property Index: head/Tools/scripts/prdone =================================================================== --- head/Tools/scripts/prdone (revision 297357) +++ head/Tools/scripts/prdone (nonexistent) @@ -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 Property changes on: head/Tools/scripts/prdone ___________________________________________________________________ Deleted: cvs2svn:cvs-rev ## -1 +0,0 ## -1.1 \ No newline at end of property Deleted: svn:executable ## -1 +0,0 ## -* \ No newline at end of property Deleted: svn:keywords ## -1 +0,0 ## -FreeBSD=%H \ No newline at end of property