Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#!/bin/rc
2 
#
3 
#	get AP news headline list or the given story
4 
#
5 
 
6 
wire='http://www.newsday.com/news/nationworld/wire'
7 
if ( ~ $#* 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 
 
29 
if 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 
		'