From nobody Mon May 09 19:06:33 2022 X-Original-To: dev-commits-ports-all@mlmmj.nyi.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2610:1c1:1:606c::19:1]) by mlmmj.nyi.freebsd.org (Postfix) with ESMTP id 866BD1ABCC6B; Mon, 9 May 2022 19:06:33 +0000 (UTC) (envelope-from git@FreeBSD.org) Received: from mxrelay.nyi.freebsd.org (mxrelay.nyi.freebsd.org [IPv6:2610:1c1:1:606c::19:3]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (4096 bits) server-digest SHA256 client-signature RSA-PSS (4096 bits) client-digest SHA256) (Client CN "mxrelay.nyi.freebsd.org", Issuer "R3" (verified OK)) by mx1.freebsd.org (Postfix) with ESMTPS id 4KxrHs32LKz3lxB; Mon, 9 May 2022 19:06:33 +0000 (UTC) (envelope-from git@FreeBSD.org) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=freebsd.org; s=dkim; t=1652123193; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:mime-version:mime-version:content-type:content-type: content-transfer-encoding:content-transfer-encoding; bh=/+SWn88FvL5Yq4Hj+pDNBJuh96Rs6Rhm+ny+d02rkg0=; b=q8zmAT+mh5KZ1ZtHKN4BdLuko9Q+VCR6HDDMRGRj88FGlY2KFLtZg7UaOGgs+uvfD2dKlN i5anAjyZ7R5LMxVCVmxaE0f3CK/dBAVyWJObRR1qwqzLlDejeQ2+JIKJDu57j4RW/Xi2ZR WKebyL5dEO3srfrNephKz4tbbLzHmJsCjScJr8OhLGqqUE1K1xcVfC5sKHUTJW+uqoBjpd 00qwUBAznAR3Q0ydPm7TvBD7Jp4ds0tgSdS0LFC7CA/izEQjuuCCtB5aU+S7nDqzwnujJi txpXBnTa4eTYPIjJbHcPaCsBcjIgN07zdJP8eS7j4/SSnW5+QGR0Ejl/N6R7HA== Received: from gitrepo.freebsd.org (gitrepo.freebsd.org [IPv6:2610:1c1:1:6068::e6a:5]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (4096 bits) server-digest SHA256) (Client did not present a certificate) by mxrelay.nyi.freebsd.org (Postfix) with ESMTPS id 4876D16B06; Mon, 9 May 2022 19:06:33 +0000 (UTC) (envelope-from git@FreeBSD.org) Received: from gitrepo.freebsd.org ([127.0.1.44]) by gitrepo.freebsd.org (8.16.1/8.16.1) with ESMTP id 249J6Xpd058494; Mon, 9 May 2022 19:06:33 GMT (envelope-from git@gitrepo.freebsd.org) Received: (from git@localhost) by gitrepo.freebsd.org (8.16.1/8.16.1/Submit) id 249J6XtT058493; Mon, 9 May 2022 19:06:33 GMT (envelope-from git) Date: Mon, 9 May 2022 19:06:33 GMT Message-Id: <202205091906.249J6XtT058493@gitrepo.freebsd.org> To: ports-committers@FreeBSD.org, dev-commits-ports-all@FreeBSD.org, dev-commits-ports-main@FreeBSD.org From: Rene Ladan Subject: git: bec21c95d998 - main - Tools/scripts: remove addport List-Id: Commit messages for all branches of the ports repository List-Archive: https://lists.freebsd.org/archives/dev-commits-ports-all List-Help: List-Post: List-Subscribe: List-Unsubscribe: Sender: owner-dev-commits-ports-all@freebsd.org X-BeenThere: dev-commits-ports-all@freebsd.org MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Git-Committer: rene X-Git-Repository: ports X-Git-Refname: refs/heads/main X-Git-Reftype: branch X-Git-Commit: bec21c95d998ff28ef8a8337cec3b9fce8074ce8 Auto-Submitted: auto-generated ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=freebsd.org; s=dkim; t=1652123193; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:mime-version:mime-version:content-type:content-type: content-transfer-encoding:content-transfer-encoding; bh=/+SWn88FvL5Yq4Hj+pDNBJuh96Rs6Rhm+ny+d02rkg0=; b=uVS7afEDAQ94AAd6qqChN4WDTVTQTPlDKyl8xy/mFt3OhQXyH+i4Au2NnBwUq7x2b+1/Jy myYeBLq9kMCVp9wjO2LW+x7HE1dHGh2ymC39CXwL1Gtd+bxHm2aEjLpEUwKeAAAQ/8SbKT RI2J2FtQaX49kI2ghpK/iqC9Ci4+1jRi119fd/KXAda2DkefbvycYmGZBtClB3xjEzivp/ xHxOdwjnQXndEj/XToQ/G5Zq2Bs4mPnIFY1AzJX3QVeuYn8x7bgStjnKx/S1vwEPdlkwy2 5D0hZ3aGz0xg8xRi6cf6bcdw5EjfKjMwY59Cxg0ZuZTpqyqBDzZfFCxG0/LtrA== ARC-Seal: i=1; s=dkim; d=freebsd.org; t=1652123193; a=rsa-sha256; cv=none; b=XQIyBMBYoOUDwwnVBqF5QjLNSEnnWj7z8mEJcwtzSjn9LhjPbrqDN30b2i0LUzJl6mk8aA O0GK+ncEyiv+hp7WIeOo+pBlYnvr3O2MD8ifJj4mZ1SPmRHHdu/QpgDBtK1NB1yOB+/kbl fsA1ZUpqo5UNeJH+KvAxWeFK7TrFvrruM6m4lWs+le6b9TvO/mrit81u85pgfe01KRr6h6 V6+n6l88IsZ9HfeJPmWsQtwtUbv/e6oLf0LYCwCa1y7Awy/pFo/YcylICdAnYbrKALk/ET I8nC2269+V8NfZmTeq5pX3myHOx3HLZh26Hj0e+5uRtiTPrWduz511mdDklLdA== ARC-Authentication-Results: i=1; mx1.freebsd.org; none X-ThisMailContainsUnwantedMimeParts: N The branch main has been updated by rene: URL: https://cgit.FreeBSD.org/ports/commit/?id=bec21c95d998ff28ef8a8337cec3b9fce8074ce8 commit bec21c95d998ff28ef8a8337cec3b9fce8074ce8 Author: Rene Ladan AuthorDate: 2022-04-30 19:53:22 +0000 Commit: Rene Ladan CommitDate: 2022-05-09 19:06:06 +0000 Tools/scripts: remove addport The addport script is no longer useful since git has been introduced in April 2021, just use plain "git add" instead. Do not forget to add the port name to the category Makefile and mention the contributor in the contributors article in the doc repository. Differential Revision: https://reviews.freebsd.org/D35104 --- Tools/scripts/README | 1 - Tools/scripts/addport | 626 -------------------------------------------------- 2 files changed, 627 deletions(-) diff --git a/Tools/scripts/README b/Tools/scripts/README index e3712d07d345..f69646991a45 100644 --- a/Tools/scripts/README +++ b/Tools/scripts/README @@ -5,7 +5,6 @@ NOTE: These scripts need work and are *NOT* safe to use unless you know MOVEDlint.awk - checks MOVED for common errors ardiff - compare two archives easily -addport - replacement for easy-import bad-pkgdescrs.sh - locate identical pkg descriptions bump_revision.pl - Small script to bump the PORTREVISION variable of ports which are depending on a port with a changed shared lib diff --git a/Tools/scripts/addport b/Tools/scripts/addport deleted file mode 100755 index 48e6d006ff38..000000000000 --- a/Tools/scripts/addport +++ /dev/null @@ -1,626 +0,0 @@ -#!/usr/bin/env perl -# -# addport - perl script that adds new ports to the -# FreeBSD Ports Collection. Replaces easy-import. -# -# Copyright (c) 2000 Will Andrews and Michael Haro -# All rights reserved. -# -# Redistribution and use in source and binary forms, with or without -# modification, are permitted provided that the following conditions -# are met: -# 1. Redistributions of source code must retain the above copyright -# notice, this list of conditions and the following disclaimer. -# 2. Redistributions in binary form must reproduce the above copyright -# notice, this list of conditions and the following disclaimer in the -# documentation and/or other materials provided with the distribution. -# -# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND -# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE -# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE -# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE -# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL -# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS -# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) -# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT -# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY -# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF -# SUCH DAMAGE. -# -# Original shell script & idea: Will Andrews -# Original conversion to Perl : Michael Haro -# Maintainer alumni : Renato Botelho -# -# Id: addport,v 1.2 2000/04/02 06:21:13 will Exp (original shell script) -# Id: addport,v 1.5 2000/04/22 22:19:43 mharo Exp (perl conversion) -# -# MAINTAINER= crees@FreeBSD.org -# - -# Smartmatch operator (~~) used -require 5.10.1; - -use Cwd "abs_path"; -use Getopt::Std; -use Sys::Hostname; -use locale; -use strict; - -# Subroutine prototypes -sub warnx($); -sub err($$); -sub errx($$); -sub prompt($); -sub query($); -sub usage(); -sub contains($@); -sub lsports(); -sub lastcomment(); - -my %opts; - -getopts('ac:d:fh:il:L:mns:tu:y', \%opts); - -my $autofill_l = $opts{'l'}; -my $autofill_L = $opts{'L'}; -my $autofill = ($autofill_l ? $autofill_l : $autofill_L); -my $c = $opts{'c'} if ($opts{'c'} ne ""); -my $distdir = $opts{'s'} if ($opts{'s'} ne ""); -my $dir = $opts{'d'}; -my $h = "repo.FreeBSD.org"; -$h = $opts{'h'} if ($opts{'h'} ne ""); -my $u = $ENV{USER}; -$u = $opts{'u'} if ($opts{'u'} ne ""); -my $more_testing = $opts{'t'}; -my $interactive = $opts{'i'}; -my $nomkdir = $opts{'m'}; -my $addlchk = $opts{'a'}; -my $nofetch = $opts{'f'}; -my $checkexist = $opts{'y'}; -my $currentdir = abs_path("."); -my %l10nprefix = ( - 'chinese' => 'zh-', - 'french' => 'fr-', - 'german' => 'de-', - 'hebrew' => 'iw-', - 'hungarian' => 'hu-', - 'japanese' => 'ja-', - 'korean' => 'ko-', - 'portuguese' => 'pt-', - 'russian' => 'ru-', - 'ukrainian' => 'uk-', - 'vietnamese' => 'vi-', -); - -my $tmpdir; -my $repo; -my $portsdir = $ENV{PORTSDIR} ? $ENV{PORTSDIR} : '/usr/ports'; -my $repo = $ENV{ADDPSVNROOT}? $ENV{ADDPSVNROOT} : "svn+ssh://$u\@$h/ports/head"; -my $make = "make"; -my $portlint = `which portlint`; chomp $portlint; -my $plint_args = "-N -a -c -t"; -my $perl = "perl"; -my $cp = "cp"; -my $mv = "mv"; -my $rm = "rm"; -chomp(my $svnlite = `which svnlite`); -my $svn = ($svnlite ? $svnlite : "svn"); -my $keyword = '\$FreeBSD\\\$'; -# vars required for commitfile -my $descr; my $portversion; my $pkgcomment; -my $tmp; my $pkgcommentlen; my $comment; my $maintainer = ""; -my $maintaineraddr; my $tmp2; my $offset; my $commitfile = ""; -my $moved = ""; -$tmp = $tmp2 = $offset = 0; - -# Check the editor. -my $edit = "/usr/bin/vi"; -$edit = $ENV{EDITOR} if ($ENV{EDITOR} ne ""); - -# Check svn version -my $svnversion = `$svn --version --quiet 2>/dev/null`; -chomp $svnversion; -if ($svnversion eq "") { - errx(1, "Subversion binary not found in \$PATH, aborting."); -} -my @svnversion = split(/\./, $svnversion); -if ($svnversion[0] == 1 && $svnversion[1] < 7) { - errx(1, "minimum Subversion version of 1.7 not met, aborting."); -} - -# stuff that always happens when we start -BEGIN { - $tmpdir=`mktemp -d -t ap`; - chomp $tmpdir; - if ($tmpdir eq "") { - errx(1,"making random tmpdir didn't work, aborting."); - } -} - -# stuff that always happens when we exit -END { - # only remove $tmpdir if it points to something in /tmp - # this is a silly little security thing - if (defined($rm) && defined($tmpdir)) { - system("$rm -rf $tmpdir") if ($tmpdir =~ m,/tmp/,); - } -} - -# setup the list of commands to run on the new port(s). -my @commands; -my $passenv = ""; -if ($addlchk && -f $portlint) { - $passenv = "DISTDIR=\"$distdir\"" if -d $distdir; - $passenv = $passenv . " PORTSDIR=\"$portsdir\"" if !$nomkdir; - push(@commands, "$make $passenv clean check-categories"); - push(@commands, "$portlint $plint_args"); - push(@commands, "$make $passenv FETCH_BEFORE_ARGS='-A' checksum") if !$nofetch; - if ($more_testing) { - push(@commands, "$make $passenv distclean"); - push(@commands, "$make $passenv build"); - push(@commands, "$make $passenv distclean"); - } - if (!$nomkdir) { - chdir $tmpdir; - print "Checking out Mk directory to ensure portlint correctness.\n"; - system("$svn co $repo/Mk Mk") && errx(1, "Could not checkout Mk directory"); - system("$svn co $repo/Templates Templates") && errx(1, "Could not checkout Templates directory"); - chdir $currentdir; - } -} - -if ($dir eq "") { - warnx("Need to specify a directory with -d argument!"); - usage(); - exit 1; -} - -# check the port doesn't exist already - -if ($checkexist) { - my $found = 0; - print ">> Fetching INDEX to scan for duplicates...\n"; - my $indexfile = "$tmpdir/" . `$make -C $portsdir -V INDEXFILE`; - system("$make -C /usr/ports INDEXDIR=$tmpdir fetchindex") && errx(1, "Could not fetch INDEX file."); - my @namepart; - foreach (split(/\,/, $dir)) { - s/^.*\///; - foreach (split(/[-_]/)) { - next if length () <=2 or /^rubygem$/; - push(@namepart, $_); - } - } - open(INDEXFILE, "< $indexfile") or errx(1, "$indexfile unreadable."); - while (my $line = ) { - $line =~ m,^[^|]*\|/usr/ports/[^/]*/([^|]*)\|,; - $line = $1; - foreach my $dpart (@namepart) { - if ($line =~ /^[^ ]*\b$dpart\b/i) { - $line =~ s/\s+/ /g; - print "$dpart matches $line\n"; - $found = 1; - } - } - } - if ($found) { - prompt ("Possible duplicates found -- still OK?") - and errx(1, "Investigating duplicates"); - } -} - -# make sure we're in the right place. -chdir $currentdir; -my @dirs = split(/\,/, $dir); -foreach my $i (@dirs) { $i = abs_path($i); } -my $portname; my $wrapat; -foreach my $thisdir (@dirs) { - # make double sure where we are.. - chdir $thisdir; - # do some dir sanity checking first - errx(1, "Please specify valid directories to import new ports from.") if $thisdir eq ""; - errx(1, "$thisdir is either not a directory or does not exist.") if (! -d $thisdir); - - print "Working with port directory $thisdir.\n"; - - $portname = `basename $thisdir`; # avoid problems with dirs containing `/' in cvs - chomp $portname; - warnx("Port directory contains upper-case character! Please try using an all lower-case name to make everybody's life a bit easier.") if ($portname =~ /[A-Z]/); - if ($interactive) { - if (prompt("Port directory name will be $portname in SVN Repo. OK? ")) { - do { - $portname = query("Preferred name for port directory? "); - } while (prompt("Is the new name $portname OK? ")); - } - } - - chdir $thisdir or err(1, "$thisdir"); - - # now run the tests on this baby. - for (@commands) { - system("$_") && errx(1, "'$_' had problems. aborting."); - } - - # Get the category name and make it suitable for use with svn - my @categories = split(/ /, `$make -VCATEGORIES`); - my $category = $categories[0]; - if ($interactive) { - if (prompt("Port $portname will be put in category $category. OK? " )) { - do { - $category = query("Preferred category for $portname? "); - } while (prompt("Is the new category $category OK? ")); - } - } - chomp $category; - - # Do commitfile checking but only if the user did not request automatic filling. - if (!$autofill) { - if (-f $c) { - system("$mv $c $tmpdir/commitfile") && errx(1, "Oops, can't move commitfile!"); - print "\nRemember, you asked to use a commit file to read for the commit log.\n"; - print "This means you'll get a message saying the log message was unchanged or\n"; - print "not specified. Just tell it to continue and it will be committed.\n\n"; - $commitfile = "--file $tmpdir/commitfile"; - } - } else { - ## Set up the autofill file. - # Read COMMENT for part of the commit message. - if ($autofill_l) { - chomp($pkgcomment = `$make $passenv -V COMMENT`); - # Change the first character to lowercase to make it fit with the - # rest of the commit message, only if the second is not upper case. - $pkgcomment =~ s/(^.)(?![A-Z])/\l$1/; - $pkgcomment .= "."; - $pkgcomment .= "\n\n" if ($autofill != -1); - } else { - $pkgcomment = `cat pkg-descr`; - $pkgcomment .= "\n" if ($autofill != -1); - } - chomp($maintaineraddr = `$make $passenv -V MAINTAINER`); - chomp($portversion = `$make $passenv -V PORTVERSION`); - # Read Makefile to find necessary variables. - open(MAKEFILE, "Makefile") or die("Can't open Makefile for reading: $!"); - while() { - chomp; - die ("Old style Makefile headers detected") if (/^# (?:[Nn]ew )?[Pp]orts collection [Mm]akefile/); - ($maintainer) = (m/^# Created by:\s+(\w.*)$/) if (/^# Created by/); - } - close(MAKEFILE); - $maintainer = $maintaineraddr unless ($maintainer); - # Write out the data to the comment file. - open(AUTOFILL, "> $tmpdir/commitfile") or die("Can't open $tmpdir/commitfile for writing: $!"); - if ($autofill_l) { - # pretty print; wrap @ 72 characters - $tmp = "Add $portname $portversion, $pkgcomment"; - $wrapat = 72; - while($wrapat > 1) { - $tmp2 = $tmp; - $tmp =~ s/(.{$wrapat}([^ ]+)?) /$1\n/g; - last unless $tmp =~ /^[^\n]{73}/; - $wrapat--; - $tmp = $tmp2; - } - } else { - $tmp = $pkgcomment; - } - print AUTOFILL $tmp; - print AUTOFILL "PR: $autofill\n" if ($autofill != -1); - print AUTOFILL "Submitted by: $maintainer" if ($maintainer && $autofill != -1); - close(AUTOFILL); - print "Okay, a commit log message was automatically generated for you.\n"; - print "Now you will have a chance to edit it to make sure it's OK to use.\n"; - print "Here's the contents of the file:\n--start--\n"; - open(AUTOFILL, "$tmpdir/commitfile") or die("Can't open $tmpdir/commitfile for reading: $!"); - print while (); - close(AUTOFILL); - $tmp = prompt("\n--end--\nDo you wish to edit the file before continuing? "); - system("$edit $tmpdir/commitfile") if ($tmp == 0); - print "\nRemember, you asked to use a commit file to read for the commit log.\n"; - print "This means you'll get a message saying the log message was unchanged or\n"; - print "not specified. Just tell it to continue and it will be committed.\n\n"; - $commitfile = "--file $tmpdir/commitfile"; - } - - print "We're ready to commit.\n"; - print "Source directory: $thisdir\n"; - print "Target SVN Repo directory: ports/$category/$portname\n"; - prompt("Adding port $portname to $category OK? ") && errx(1, "user abort requested"); - - chdir $tmpdir or err(1, "$tmpdir"); - - # let's get our hands dirty. - if (! -d "ports") { - system("$svn co --depth empty $repo ports") && errx(1, "can't get ports root, aborting."); - } - chdir "ports" or err(1,"ports"); - if (! -d "$category") { - system("$svn up --depth files $category") && errx(1, "can't get temporary category directory, aborting."); - } - chdir $category or err(1,"$category"); - - # check for previous existence of port -- on the way use filthy - # home-made XML parser. - # Until svn revs are in the database, we'll use dates. - print "Checking for previous versions of $category/$portname... \n"; - my $previous_incarnation = "bogus"; - my $oldportlist = `/usr/bin/fetch -qo - http://people.FreeBSD.org/~crees/removed_ports/index.xml`; - if ($oldportlist !=~ /^fetch:[^:]+: Not Found/) { - foreach (split("\n", $oldportlist)) { - if (/^ +\$category\/$portname(?:\r([0-9]*)\<\/removed_revision\>)?\([^<]*)/) { - print "Found one!\n"; - if ($1 == "") { - $previous_incarnation = $2; - $previous_incarnation =~ s,/,-,g; - print "This port was last alive on $previous_incarnation.\n"; - $previous_incarnation = "\{$previous_incarnation\}"; - } else { - $previous_incarnation = $1 - 1; - print "The last living revision of this port was r$previous_incarnation.\n"; - } - last; - } - } - } else { - print "Could not fetch list-- perhaps the site is down."; - } - if ($previous_incarnation ne "bogus") { - print "Fetching older version... "; - system("$svn cp -q '$repo/$category/$portname\@$previous_incarnation' ."); - print "[DONE]\n"; - print "Removing irrelevant files and directories... "; - my @oldfiles = split("\0", `cd $portname && find . -type f -print0`); - my @olddirs = split("\0", `cd $portname && find . -type d -print0 | sort -r`); - my @newfiles = split("\0", `cd $thisdir && find . -type f -print0`); - my @newdirs = split("\0", `cd $thisdir && find . -type d -print0| sort -r`); - - foreach my $file (@oldfiles) { - system("cd $portname && $svn rm $file") - if !($file ~~ @newfiles) - } - - foreach my $directory (@olddirs) { - system("cd $portname && $svn rm $directory") - if !($directory ~~ @newdirs); - } - - print "[DONE]\n"; - - # Remove cvs2svn props if present - print "Removing cvs2svn props...\n"; - system("$svn propdel -qR cvs2svn:cvs-rev $portname"); - - $moved = "MOVED"; - print "Removing port's entry from $moved...\n"; - system("cd .. && $svn up -q $moved && sed -i '' -e '\\,^$category/$portname\|\|,d' $moved"); - - # Add note to log about readdition - system("echo '(Readdition of $category/$portname which was removed on $previous_incarnation)\n' > $tmpdir/commitfile.tmp && cat $tmpdir/commitfile >> $tmpdir/commitfile.tmp && mv $tmpdir/commitfile.tmp $tmpdir/commitfile") unless ($commitfile eq ""); - - } else { - print "[none found]\n"; - } - system("$cp -PRp $thisdir ."); - system("$svn add --force --depth empty `find $portname -type d | grep -v '^$portname/work'`") && errx(1, "svn add for dirs failed, aborting."); - - system("$svn add --force `find $portname -type f | grep -v '^$portname/work'`") && errx(1, "svn add for files failed, aborting."); - - # Find keywords in old files and strip - print "Stripping any keywords...\n"; - system("sed -i '' -e 's,\\\$Free" . "BSD:[^\$]*\\\$,\$Free" . "BSD\$,' \$(find $portname -type f)"); - - # find files with keywords in and propset - - print "Setting correct properties on files...\n"; - - my @portfiles = split("\0", `find $portname -type f -print0`); - my $portfiles = join(" ", @portfiles); - my @keywordfiles = split("\n", `grep -l $keyword $portfiles`); - foreach (@portfiles) { - if ($_ ~~ @keywordfiles) { - system("$svn -q propset svn:keywords FreeBSD=%H $_"); - system("$svn -q propdel fbsd:nokeywords $_"); - } else { - system("$svn -q propset fbsd:nokeywords on $_"); - system("$svn -q propdel svn:keywords $_"); - } - } - - # strip svn:executable if added-- not allowed - - system("cd $portname && $svn -qR propdel svn:executable"); - - # figure out where the port name belongs in category Makefile - my ($spaces, @ports) = &lsports; - errx(1, "Error: $portname already exists in $category\'s Makefile") if (&contains($portname, @ports)); - my $port = ""; - foreach my $tmp (sort(@ports)) { - if ($tmp gt $portname) { - $port = $tmp; - last; - } - } - - # now let's insert it - my $cmd; - if (scalar @ports == 0) { - # there were no previous SUBDIR += lines, so we're going to - # put ourselves after the last comment (we can't be after a - # .include for example). - my $lastcommentnum = &lastcomment; - $cmd = "$lastcommentnum\n+\ni\n"; - } else { - if ($port eq "") { - # there were previous SUBDIR lines, but none was greater than we are, - # means, we're the last port, so, add ourselves after the last port - $port = $ports[$#ports]; - $cmd = "/^" . $spaces . "SUBDIR += $port/\na\n"; - } else { - # OK, append ourselves in the right place, so things *stay* sorted. - $cmd = "/^" . $spaces . "SUBDIR += $port/\ni\n"; - } - } - print "Inserting new port into $category/Makefile...\n"; - open(ED, "|ed Makefile") || die "Cannot start ed to actually insert module\n"; - print ED "$cmd" . $spaces . "SUBDIR += $portname\n.\nw\nq\n"; - close(ED); - - # commit the actual port. - chdir "$tmpdir/ports" or err(1, "$tmpdir/ports"); - if ($opts{'n'}) { - print "Faking commit....\n"; - } else { - system("$svn ci $commitfile $moved $category/Makefile $category/$portname") && errx(1, "svn commit failed, aborting."); - } -} - -print <; - chomp $reply; - return $reply; -} - -sub usage() { -#addport,v \$Revision: 1.21 $ -print <, - -SYNOPSIS - $0 [-c commitfile] [-h host] [-l PR number | -L PR number] - [-s distdir] [-u user] [-afimnty] -d directory - - Where "directory" contains the comma-delimited list - of root directories of new ports that you wish to - add to the Ports Collection. The name of this directory - *WILL* matter in regards to the repository! - -OPTIONS - -a Perform checks on the port to make sure - there are no problems. Recommended. - -c file Use file in place of normal log message. - -f Do not fetch the distfile. - -h host Use a svnhost besides repo.FreeBSD.org. - -i Interactive mode; allow more control over - where things are placed. - -l PR# Attempts to autogenerate a commit message by - reading the Makefile file. - The PR number must be passed to -l. If there is - no PR (i.e., self-created or submitted in - private email), use PR# -1. - -L PR# Like -l but it'll generate commit message based - on pkg-descr - -m Do not checkout ports/Mk (needed for support - of portlinting etc). - -n Do not actually commit anything. - -s distdir Use a different directory besides the default, - for downloading distfiles. - -t Do more port testing. Requires -a. - -u user Use a different username (default: $u). - -y Check for similarly named ports. - -ENVIRONMENT VARIABLES - $0 supports the following environment variables: - - ADDPSVNROOT - Location of SVN repository. - USER - Username of user invoking $0. - -EXAMPLES - % addport -n -d greatgame,helpfuldev,shoot - Will show what happens but not actually commit ports - named "greatgame", "helpfuldev", and "shoot". - - % addport - Displays this message. :-) - -EOF -} - -sub contains($@) { - # look if the first parameter is contained in the list following it - my ($item, @list) = @_; - - foreach my $i (@list) { - return 1 if $i eq $item; - } - return 0; -} - -sub lsports() { - my @rv = (); - my $spaces; - - open(F, "Makefile") || die "can't open Makefile: $!"; - while() { - chomp; - chomp; - next if $_ !~ m/SUBDIR/; - - if ( !defined($spaces) ) { - m/^([\s\t]+)[^\s\t]/; - $spaces = $1; - } - - s/^[ \t]+SUBDIR[ \t]+\+?=[\ \t]+//; - push(@rv, $_); - } - close(F); - - return ($spaces, @rv); -} - -# this finds the last comment in the Makefile -sub lastcomment() { - my $num = 0; - my $diff = 0; - - open(F, "Makefile"); - while() { - chomp; - if ($_ =~ m/^#/) { - $num += $diff; - $num++; - $diff = 0; - } else { - $diff += 1; - } - next; - } - return $num; -} -