1 files changed, 44 insertions, 0 deletions

diff --git a/var/www/splstr/links.sh b/var/www/splstr/links.sh
new file mode 100755
index 0000000..d0ff527
--- /dev/null
+++ b/var/www/splstr/links.sh
@@ -0,0 +1,44 @@
+#!/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