Merge from vendor branch OPENSSH:
[dragonfly.git] / tools / tools / portsinfo / portsinfo.sh
1 #!/bin/sh
2 # Copyright (c) April 1997 Wolfram Schneider <wosch@FreeBSD.org>, Berlin.
3 #
4 # portsinfo - Generate list of new ports for last two weeks.
5 #
6 # $FreeBSD: src/tools/tools/portsinfo/portsinfo.sh,v 1.5 1999/08/28 00:54:32 peter Exp $
7 # $DragonFly: src/tools/tools/portsinfo/Attic/portsinfo.sh,v 1.2 2003/06/17 04:29:11 dillon Exp $
8
9 PATH=/bin:/usr/bin:/usr/local/bin:$PATH; export PATH
10
11 host=http://www.freebsd.org
12 url=$host/cgi/ports.cgi
13 time='?type=new&time=2+week+ago&sektion=all'
14 time2='?type=changed&time=2+week+ago&sektion=all'
15 info=yes
16
17 if [ x"$info" = xyes ]; then
18
19 cat <<'EOF'
20 Introduction
21 ------------
22
23 The FreeBSD Ports Collection offers a simple way for users and
24 administrators to install applications. Each "port" listed here
25 contains any patches necessary to make the original application source
26 code compile and run on FreeBSD. Installing an application is as
27 simple as downloading the port, unpacking it and typing make in the
28 port directory. The Makefile automatically fetches the application
29 source code, either from a local disk or via ftp, unpacks it on your
30 system, applies the patches, and compiles. If all goes well, simply
31 type make install to install the application.
32
33 For more information about using ports, see the ports collection
34
35         http://www.freebsd.org/handbook/ports.html
36 and
37         http://www.freebsd.org/ports/
38
39 EOF
40
41     lynx -dump $host/ports/ |
42         perl -ne '/^[ ]*There are currently/ && s/^\s+// && print && exit'
43
44 cat <<EOF
45
46
47 New ports added last two weeks
48 ------------------------------
49
50 EOF
51
52
53 fi
54
55
56 lynx -nolist -dump -reload -nostatus "$url$time" | 
57     grep -v "Description :" |
58 perl -ne 'print if (/^\s*Category/ .. /__________________/)' |
59     grep -v ________ | 
60 perl -ne 'if (/^\s*Category/) { 
61                 print; for(1..50) {print "="}; print "\n";
62           } else { print}'
63
64 cat <<EOF
65
66
67 Updated ports last two weeks
68 -----------------------------------
69
70 EOF
71
72 lynx -nolist -dump -reload -nostatus "$url$time2" |
73     grep -v "Description :" |
74 perl -ne 's/\[INLINE\]\s*//g; print if (/Category/ .. /XXXXYYYYZZZZ/)' |      
75 perl -ne 'if (/^\s*Category/) {
76                 print; for(1..50) {print "="}; print "\n";
77           } else { print}'
78
79 cat <<EOF
80
81 This information was produced by
82         $url
83
84 EOF
85