#!/bin/rc
# title: get url's title
rfork e

fn title{
	switch($1){
	case *jpg* *gif *gifv *png *pdf *mp4 *:*:*
	case *
		hget $1 |
		sed -n 's!.*<title>([^<]+)</title>.*!\1!p' |
		sed 1q |
		dencr
	}
}

if(~ $#* 0){
	echo usage: title url ... >[1=2]
	exit usage
}

for(i)
	title $i