1234567891011121314151617181920212223242526272829303132333435363738 |
- #!/bin/rc
- #
- # get AP news headline list or the given story
- #
- tmp=/tmp/tmp.$pid
- wire='http://www.newsday.com/news/nationworld/wire'
- if ( ~ $#* 0 )
- hget $wire | tee /tmp/ap.tmp |
- htmlfmt -a -w 100 |
- sed -n '
- 1,/On Wall Street/d
- /AP News Wire/,$d
- /^• / {
- N
- s/^• / /g
- s/\n/ /g
- s/\[\/news\/nationworld\/wire\//|/
- s/,[0-9]+,[0-9]+\.story.*$//
- p
- }' |
- awk -F '|' '
- {
- s = "";
- for (i = 1; i < NF; i++)
- s = s " " $i;
- printf("%-40s %s\n", $NF, s);
- }'
- if not
- hget $wire/^$1^.story |
- htmlfmt |
- sed '
- 1,/^By Associated Press$/d
- s/\| Article licensing.*$//
- /^Copyright ©/p
- /^Copyright ©/,$d
- '
|