diff options
Diffstat (limited to 'rc/bin/ap')
-rwxr-xr-x | rc/bin/ap | 36 |
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 - ' |