remove stale portsinfo script

This commit is contained in:
Wolfram Schneider 2023-05-15 06:34:20 +00:00
parent 1206aa2786
commit b3087b63da
2 changed files with 0 additions and 85 deletions

View file

@ -52,7 +52,6 @@ npe Tools specific to the Intel IXP4XXX NPE device
pciid Generate src/share/misc/pci_vendors.
pciroms A tool for dumping PCI ROM images. WARNING: alpha quality.
pirtool A tool for dumping the $PIR table on i386 machines at runtime.
portsinfo Generate list of new ports for last two weeks.
scsi-defects Get at the primary or grown defect list of a SCSI disk.
sysdoc Build a manual page with available sysctls for a specific
kernel configuration.

View file

@ -1,84 +0,0 @@
#!/bin/sh
# Copyright (c) April 1997 Wolfram Schneider <wosch@FreeBSD.org>, Berlin.
#
# portsinfo - Generate list of new ports for last two weeks.
#
# $FreeBSD$
PATH=/bin:/usr/bin:/usr/local/bin:$PATH; export PATH
host=https://www.freebsd.org
url=$host/cgi/ports.cgi
time='?type=new&time=2+week+ago&sektion=all'
time2='?type=changed&time=2+week+ago&sektion=all'
info=yes
if [ x"$info" = xyes ]; then
cat <<'EOF'
Introduction
------------
The FreeBSD Ports Collection offers a simple way for users and
administrators to install applications. Each "port" listed here
contains any patches necessary to make the original application source
code compile and run on FreeBSD. Installing an application is as
simple as downloading the port, unpacking it and typing make in the
port directory. The Makefile automatically fetches the application
source code, either from a local disk or via ftp, unpacks it on your
system, applies the patches, and compiles. If all goes well, simply
type make install to install the application.
For more information about using ports, see the ports collection
https://www.freebsd.org/handbook/ports.html
and
https://www.freebsd.org/ports/
EOF
lynx -dump $host/ports/ |
perl -ne '/^[ ]*There are currently/ && s/^\s+// && print && exit'
cat <<EOF
New ports added last two weeks
------------------------------
EOF
fi
lynx -nolist -dump -reload -nostatus "$url$time" |
grep -v "Description :" |
perl -ne 'print if (/^\s*Category/ .. /__________________/)' |
grep -v ________ |
perl -ne 'if (/^\s*Category/) {
print; for(1..50) {print "="}; print "\n";
} else { print}'
cat <<EOF
Updated ports last two weeks
-----------------------------------
EOF
lynx -nolist -dump -reload -nostatus "$url$time2" |
grep -v "Description :" |
perl -ne 's/\[INLINE\]\s*//g; print if (/Category/ .. /XXXXYYYYZZZZ/)' |
perl -ne 'if (/^\s*Category/) {
print; for(1..50) {print "="}; print "\n";
} else { print}'
cat <<EOF
This information was produced by
$url
EOF