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…
Add table
Add a link
Reference in a new issue