shithub: riscv

--- a/rc/bin/fedex

+++ /dev/null

@@ -1,62 +1,0 @@

-#!/bin/rc

-if(! ~ $#* 1) {

-	echo usage: fedex 123456789012 >[1=2]

-	exit usage

-}

-rfork e

-fn bgrep{

-pattern=`{echo $1 | sed 's;/;\\&;'}

-shift

-@{ echo 'X {

-$

-a

-.

-}

-X ,x/(.+\n)+\n/ g/'$pattern'/p' |

-sam -d $* >[2]/dev/null

-}

-}

-fn awk2 {

-	awk 'NR%2==1 { a=$0; }

-		NR%2==0 { b=$0; printf("%-30s %s\n", a, b); }

-	' $*

-}

-fn awk3 {

-	awk '{line[NR] = $0}

-	END{

-		i = 4;

-		while(i < NR){

-			what=line[i++];

-			when=line[i];

-			comment="";

-			if(!(when ~ /..\/..\/.... ..:../)){

-				# out of sync

-				printf("%s\n", what);

-				continue;

-			}

-			i++;

-			if(!(line[i+1] ~ /..\/..\/.... ..:../) &&

-				(i+2 > NR || line[i+2] ~ /..\/..\/.... ..:../)){

-				what = what ", " line[i++];

-			}

-			printf("%s  %s\n", when, what);

-		}

-	}' $*

-}

-# hget 'http://www.fedex.com/cgi-bin/track_it?airbill_list='$1'&kurrent_airbill='$1'&language=english&cntry_code=us&state=0' |

-hget 'http://www.fedex.com/Tracking?action=track&language=english&cntry_code=us&initial=x&mps=y&tracknumbers='$1 |

-	htmlfmt >/tmp/fedex.$pid

-sed -n '/Tracking number/,/^$/p' /tmp/fedex.$pid | awk2

-echo

-sed -n '/Reference number/,/^$/p' /tmp/fedex.$pid | awk2

-echo

-sed -n '/Date.time/,/^$/p' /tmp/fedex.$pid | sed 1,4d | fmt -l 4000 | sed 's/ [A-Z][A-Z] /&\n/g'

-rm /tmp/fedex.$pid

--- a/rc/bin/ups

+++ /dev/null

@@ -1,15 +1,0 @@

-#!/bin/rc

-# ups - look up a UPS tracking number

-rfork en

-if(! ~ $#* 1) {

-	echo usage: ups 1ZA41W190338680961 >[1=2]

-	exit usage

-}

-hget 'http://wwwapps.ups.com/WebTracking/processInputRequest?tracknum='^$1^ \

-	'&TypeOfInquiryNumber=T' |

-	htmlfmt |

-	awk '/^Share/,/^Subscribe/ {print;}' |

-	grep -v '^(Share|Change Delivery|Request Status Updates|Never track again|Continue|I am already a UPS My Choice Member|• What|Subscribe to UPS)' |

-	ssam 's/\n\n\n/\n/g'

--- a/rc/bin/usps

+++ /dev/null

@@ -1,20 +1,0 @@

-#!/bin/rc

-rfork en

-if(! ~ $#* 1) {

-	echo usage: usps 01601531218002685498 >[1=2]

-	exit usage

-}

-rfork e

-hget -p 'qtc_tLabels1='^$1 https://tools.usps.com/go/TrackConfirmAction |

-	htmlfmt > /tmp/usps.$pid

-sam -d /tmp/usps.$pid >[2] /dev/null <<'!'

-,/Tracking Number:/-1d

-/Available Actions/,$d

-,p

-!

-rm /tmp/usps.$pid

--- a/rc/bin/weather

+++ /dev/null

@@ -1,46 +1,0 @@

-#!/bin/rc

-rfork e

-DEFAULT=ewr

-fn usage{

-	echo 'usage: weather 3-letter-city-code' >[1=2]

-	echo 'for a list of cities in new york, say' >[1=2]

-	echo '	weather ny' >[1=2]

-	exit usage

-}

-switch($#*){

-case 0

-	arg=$DEFAULT

-	if(~ $#weather 1)

-		arg=$weather

-case 1

-	arg=$1

-case *

-	usage

-}

-switch($arg){

-case [a-zA-Z][a-zA-Z][a-zA-Z]

-	script=('' '' 'C' '4' '1' '1' $arg '' '' '' '' 'X')

-case [a-zA-Z][a-zA-Z]

-	script=('' '' 'C' '4' '1' '3' $arg '' '' '' '' 'X')

-case *

-	usage

-}

-{

-	for(i in $script)

-		echo $i

-} |

-con -nrl tcp!rainmaker.wunderground.com!telnet |

-sed -n '/Enter .-letter .* code:/,/CITY FORECAST MENU/p' |

-sed 's/Enter .-letter .* code: //' |

-sed 's/   Press Return to continue, M to return to menu, X to exit: //' |

-grep -v 'CITY FORECAST MENU' |

-tr -d '
' |

-sed 's/ *$//' |

-uniq |

-sed -n '/^VTEC/q; p'

--- a/sys/man/1/fedex

+++ /dev/null

@@ -1,27 +1,0 @@

-.TH FEDEX 1

-.SH NAME

-fedex, ups, usps \- track shipments

-.SH SYNOPSIS

-.B fedex

-.I tracking-number

-.br

-.B ups

-.I tracking-number

-.br

-.B usps

-.I tracking-number

-.SH DESCRIPTION

-.I Fedex

-writes available shipment details for the given Federal Express 12-digit

-.I tracking-number

-on the standard output.

-.I Ups

-is similar, but takes a United Parcel Service 18-digit

-.IR tracking-number .

-.I Usps

-takes a US Post Office

-.IR tracking-number .

-.SH SOURCE

-.B /rc/bin

-.SH BUGS

-Redesigns of the source website can break these programs.

--- a/sys/man/1/weather

+++ /dev/null

@@ -1,40 +1,0 @@

-.TH WEATHER 1

-.SH NAME

-weather \- print weather report

-.SH SYNOPSIS

-.B weather

-[

-.I air

-]  [

-.I st

-]

-.SH DESCRIPTION

-.I Weather

-prints the local conditions and seven-day forecast most recently reported at the

-.SM US

-airport with the three-letter location identifier

-.IR air .

-Given a two-letter

-.SM US

-state abbreviation

-.I st

-instead,

-.I weather

-prints a table of

-.I air

-location identifiers known for

-.IR st .

-.PP

-The arguments are mutually exclusive and case-insensitive.

-If neither is given,

-.I air

-defaults to the value of the environment variable

-.BR $weather ,

-or if it is unset,

-to the location identifier

-.BR ewr ,

-designating the Newark, NJ, airport near Bell Labs, Murray Hill.

-.SH SOURCE

-.B /rc/bin/weather

-.SH BUGS

-Weather is hopelessly provincial.