#!/bin/sh -

searchH=http://www.cs.indiana.edu/cgi-pub/kinzler/piconsearch.cgi/
searchU=/users+usenix+misc+domains/up/single/xpm
searchD=/domains/up/single/xpm

# urlxpm - output any picon XPM for the given domained URL
# Steve Kinzler, kinzler@cs.indiana.edu, Feb 03
# http://www.cs.indiana.edu/~kinzler/home.html#x11

case "$#^$1" in
[02-9]^*|??*^*|*^-h)	echo "usage: $0 URL" 1>&2; exit 1;;
esac

url=`echo "$1" | sed 's/[ 	]*//g; s/^[a-zA-Z_]*:\/\///
		      s/^\([^\/]*\/[^\/]*\).*/\1/; s/:.*\//\//'`

case "$url" in
*/~*)	search="$searchU"; url=`echo "$url" | sed 's/~//'`;;
*)	search="$searchD"; url=`echo "$url" | sed 's/\/.*//'`/unknown;;
esac

lynx -source "$searchH$url$search" | sed '/^No picon found/,$d'