ref: af95aa431d6e511355a6eb953ab7845f94c0e2d7
parent: 09b0eb0d1ac7a66569263d2c48aea96e524ccebe
author: Fulton Browne <git@fulton.software>
date: Fri Jun 11 19:26:50 EDT 2021
Remove ap(1) Cool script - does not work.
--- a/rc/bin/ap
+++ /dev/null
@@ -1,36 +1,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
- '
--- a/sys/man/1/ap
+++ /dev/null
@@ -1,16 +1,0 @@
-.TH AP 1
-.SH NAME
-ap \- fetch Associated Press news articles
-.SH SYNOPSIS
-.B ap
-[
-.BI article-name
-]
-.SH DESCRIPTION
-.I ap
-fetches Associated Press news articles from http://www.newsday.com.
-Without any arguments it provides a two column list of article keys and descriptions.
-When invoked with an article key it fetches that article.
-.PP
-.SH SOURCE
-.B /rc/bin/ap