From owner-svn-ports-head@FreeBSD.ORG  Mon Oct 29 11:37:56 2012
Return-Path: <owner-svn-ports-head@FreeBSD.ORG>
Delivered-To: svn-ports-head@freebsd.org
Received: from mx1.freebsd.org (mx1.freebsd.org [69.147.83.52])
 by hub.freebsd.org (Postfix) with ESMTP id E02CFB0A;
 Mon, 29 Oct 2012 11:37:56 +0000 (UTC)
 (envelope-from crees@FreeBSD.org)
Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:4f8:fff6::2c])
 by mx1.freebsd.org (Postfix) with ESMTP id C5B478FC15;
 Mon, 29 Oct 2012 11:37:56 +0000 (UTC)
Received: from svn.freebsd.org (localhost [127.0.0.1])
 by svn.freebsd.org (8.14.4/8.14.4) with ESMTP id q9TBbuFm051659;
 Mon, 29 Oct 2012 11:37:56 GMT (envelope-from crees@svn.freebsd.org)
Received: (from crees@localhost)
 by svn.freebsd.org (8.14.4/8.14.4/Submit) id q9TBbu3J051657;
 Mon, 29 Oct 2012 11:37:56 GMT (envelope-from crees@svn.freebsd.org)
Message-Id: <201210291137.q9TBbu3J051657@svn.freebsd.org>
From: Chris Rees <crees@FreeBSD.org>
Date: Mon, 29 Oct 2012 11:37:56 +0000 (UTC)
To: ports-committers@freebsd.org, svn-ports-all@freebsd.org,
 svn-ports-head@freebsd.org
Subject: svn commit: r306602 - head/Tools/scripts
X-SVN-Group: ports-head
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
X-BeenThere: svn-ports-head@freebsd.org
X-Mailman-Version: 2.1.14
Precedence: list
List-Id: SVN commit messages for the ports tree for head
 <svn-ports-head.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/options/svn-ports-head>,
 <mailto:svn-ports-head-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/svn-ports-head>
List-Post: <mailto:svn-ports-head@freebsd.org>
List-Help: <mailto:svn-ports-head-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/svn-ports-head>,
 <mailto:svn-ports-head-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Mon, 29 Oct 2012 11:37:57 -0000

Author: crees
Date: Mon Oct 29 11:37:56 2012
New Revision: 306602
URL: http://svn.freebsd.org/changeset/ports/306602

Log:
  Freefall doesn't have LWP::Simple, so use /usr/bin/fetch to reduce dependencies
  
  Noticed by:	thierry
  Feature safe:	yes

Modified:
  head/Tools/scripts/addport

Modified: head/Tools/scripts/addport
==============================================================================
--- head/Tools/scripts/addport	Mon Oct 29 11:21:58 2012	(r306601)
+++ head/Tools/scripts/addport	Mon Oct 29 11:37:56 2012	(r306602)
@@ -41,7 +41,6 @@
 use Cwd "abs_path";
 use Getopt::Std;
 use Sys::Hostname;
-use LWP::Simple;
 use locale;
 use strict;
 
@@ -324,8 +323,8 @@ foreach my $thisdir (@dirs) {
 	# 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;
-	if ($oldportlist = get('http://people.FreeBSD.org/~crees/removed_ports/index.xml')) {
+	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 (/^ +\<port\>$category\/$portname(?:\<removed_revision\>r([0-9]*)\<\/removed_revision\>)?\<removed_date\>([^<]*)/) {
 				print "Found one!\n";