svn commit: r306602 - head/Tools/scripts

[Chris Rees]

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";