#!/bin/rc

rfork e

gmapkey = `{cat /lib/gmapkey}
here = `{cat /lib/sky/here}
lat = $here(1)
lng = -$here(2)

if(~ $#gmapkey 0){
	echo goto http://code.google.com/apis/maps/signup.html and get a google maps key (free)
	exit 'no key'
}

flagfmt = 'z zoom,r,s,t,h'
args = query
if(! ifs = () eval `{aux/getflags $*}){
	aux/usage
	exit usage
}
if(~ $#flagz 0)
	flagz = 16
t = roadmap
~ $#flagh 1 && t = hybrid
~ $#flagt 1 && t = terrain
~ $#flags 1 && t = satellite

if(! ~ $#* 0){
	query=""
	for (p)
		query=$query+$p
	there=`{ hget 'http://maps.google.com/maps/geo?q='$"query^'&output=csv&oe=utf8&sensor=false&key='$gmapkey | sed 's/,/ /g; 1q' }
	if(! ~ $there(1) 200){
		echo $* - not found
		exit 'not found'
	}
	lng=$there(4)
	lat=$there(3)
}

if(~ $t terrain && ~ $flagz 1[6-9])
	flagz = 15

hget 'http://maps.google.com/staticmap?center='$lat^,^$lng^'&size=600x600&zoom='$flagz'&sensor=false&format=png&key='$gmapkey'&maptype='$t | png