Add portsinfo, which generate list of new ports for last two weeks.

2 files changed, 23 insertions, 1 deletions

diff --git a/tools/tools/README b/tools/tools/README
index 70b5124..ef68551 100644
--- a/tools/tools/README
+++ b/tools/tools/README
@@ -1,4 +1,4 @@
-#	$Id$
+#	$Id: README,v 1.8 1997/02/22 14:08:16 peter Exp $
 
 This directory is for tools.
 
@@ -15,3 +15,4 @@ tcl_bmake	generates a bmake Makefile for src/lib/libtcl
 kdrv		KernelDriver; add/list/remove third-party kernel driver
 		source to/in/from a kernel source tree.
 scsi-defects	Get at the primary or grown defect list of a SCSI disk.
+portsinfo 	Generate list of new ports for last two weeks.
diff --git a/tools/tools/portsinfo/portsinfo.sh b/tools/tools/portsinfo/portsinfo.sh
new file mode 100644
index 0000000..b8a53f4
--- /dev/null
+++ b/tools/tools/portsinfo/portsinfo.sh
@@ -0,0 +1,21 @@
+#!/bin/sh
+# Copyright (c) April 1997 Wolfram Schneider <wosch@FreeBSD.org>, Berlin.
+#
+# portsinfo - Generate list of new ports for last two weeks.
+#
+# $Id$
+
+url=http://www.de.freebsd.org/de/cgi/ports.cgi
+time='?type=new&time=2+week+ago&sektion=all'
+
+lynx -nolist -dump "$url$time" | grep -v "Description _:_" |
+perl -ne 's/_$//; s/:_ /: /; s/^(\s+)_/$1/; print if (/Main/ .. /____/)' |
+perl -ne 'if (/Main Category/) { 
+		print; for(1..50) {print "="}; print "\n";
+          } else { print}'
+
+echo "This information was produced at `date -u +'%Y/%m/%d %H:%M UTC'` by"
+echo "$url"
+
+
+