remove old, broken scripts: fedex, u(s)ps, weather (thanks fulton)
This commit is contained in:
parent
fd4e8eef0b
commit
b777d3fe7d
62
rc/bin/fedex
62
rc/bin/fedex
|
@ -1,62 +0,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
|
|
15
rc/bin/ups
15
rc/bin/ups
|
@ -1,15 +0,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'
|
|
20
rc/bin/usps
20
rc/bin/usps
|
@ -1,20 +0,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
|
|
|
@ -1,46 +0,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'
|
|
|
@ -1,27 +0,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.
|
|
|
@ -1,40 +0,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.
|
|
Loading…
Reference in a new issue