1#!/bin/rc 2# 3# get AP news headline list or the given story 4# 5 6wire='http://www.newsday.com/news/nationworld/wire' 7if ( ~ $#* 0 ) 8 hget $wire | #tee /tmp/ap.$pid | 9 sed -n '/<h1>AP Top News/,/AP News Wire/p' | 10 htmlfmt -a -w 100 | 11 sed -n ' 12 /^• / { 13 N 14 s/^• / /g 15 s/\n/ /g 16 s/\[\/news\/nationworld\/wire\//|/ 17 s/sns-ap-// 18 s/\.story.*$// 19 p 20 }' | 21 awk -F '|' ' 22 { 23 s = ""; 24 for (i = 1; i < NF; i++) 25 s = s " " $i; 26 printf("ap %-40s # %s\n", $NF, s); 27 }' 28 29if not 30 hget $wire/sns-ap-^$1^.story | 31 htmlfmt | 32 sed ' 33 1,/^AP Top News$/d 34 /^\* __$/,$d 35 /^Subscribe to Newsday home delivery/,$d 36 ' 37