path: root/var/www/splstr/links.sh

#!/bin/sh
echo ne poganjaj na spletnih straneh, ki jim ne zaupaš!
u=http://splet/
[ $1x != x ] && u=$1
co="--location-trusted --silent --fail --output /dev/null --max-time 5"
noop () {
	echo noop $1
}
anyproto () {
	curl http:$1 $co || echo anyproto http: fail $1
	curl https:$1 $co || echo anyproto https: fail $1
}
full () {
	curl $1 $co || echo full fail $1
}
root () {
	origin=`echo $u | cut -d/ -f1,2,3`
	curl $u$1 $co || echo root $u fail $1
}
rel () {
	dir=`echo $u | rev | cut -d/ -f2- | rev`
	curl $dir/$1 $co || echo rel $dir fail $1
}
for i in `curl $u | pup a | tr $' ' $'\n' | grep href | cut -d\" -f2`
do
	printf .
	case $i in
		mail* | xmpp* | mumble* | irc* | tel*)
			noop $i
			;;
		//*)
			anyproto $i
			;;
		http*)
			full $i
			;;
		/*)
			root $i
			;;
		*)
			rel $i
			;;
	esac
done