summaryrefslogtreecommitdiff
path: root/rc/bin/ap
diff options
context:
space:
mode:
Diffstat (limited to 'rc/bin/ap')
-rwxr-xr-xrc/bin/ap36
1 files changed, 0 insertions, 36 deletions
diff --git a/rc/bin/ap b/rc/bin/ap
deleted file mode 100755
index 93462e821..000000000
--- a/rc/bin/ap
+++ /dev/null
@@ -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
- '