Remove ap(1)
Cool script - does not work.
This commit is contained in:
parent
09b0eb0d1a
commit
af95aa431d
2 changed files with 0 additions and 52 deletions
36
rc/bin/ap
36
rc/bin/ap
|
@ -1,36 +0,0 @@
|
|||
#!/bin/rc
|
||||
#
|
||||
# get AP news headline list or the given story
|
||||
#
|
||||
|
||||
wire='http://www.newsday.com/news/nationworld/wire'
|
||||
if ( ~ $#* 0 )
|
||||
hget $wire | #tee /tmp/ap.$pid |
|
||||
sed -n '/<h1>AP Top News/,/AP News Wire/p' |
|
||||
htmlfmt -a -w 100 |
|
||||
sed -n '
|
||||
/^• / {
|
||||
N
|
||||
s/^• / /g
|
||||
s/\n/ /g
|
||||
s/\[\/news\/nationworld\/wire\//|/
|
||||
s/sns-ap-//
|
||||
s/\.story.*$//
|
||||
p
|
||||
}' |
|
||||
awk -F '|' '
|
||||
{
|
||||
s = "";
|
||||
for (i = 1; i < NF; i++)
|
||||
s = s " " $i;
|
||||
printf("ap %-40s # %s\n", $NF, s);
|
||||
}'
|
||||
|
||||
if not
|
||||
hget $wire/sns-ap-^$1^.story |
|
||||
htmlfmt |
|
||||
sed '
|
||||
1,/^AP Top News$/d
|
||||
/^\* __$/,$d
|
||||
/^Subscribe to Newsday home delivery/,$d
|
||||
'
|
16
sys/man/1/ap
16
sys/man/1/ap
|
@ -1,16 +0,0 @@
|
|||
.TH AP 1
|
||||
.SH NAME
|
||||
ap \- fetch Associated Press news articles
|
||||
.SH SYNOPSIS
|
||||
.B ap
|
||||
[
|
||||
.BI article-name
|
||||
]
|
||||
.SH DESCRIPTION
|
||||
.I ap
|
||||
fetches Associated Press news articles from http://www.newsday.com.
|
||||
Without any arguments it provides a two column list of article keys and descriptions.
|
||||
When invoked with an article key it fetches that article.
|
||||
.PP
|
||||
.SH SOURCE
|
||||
.B /rc/bin/ap
|
Loading…
Reference in a new issue