From 2959e1ede0ebc6fdffd7b8660f43c2ce14c9696f Mon Sep 17 00:00:00 2001
From: Taru Karttunen <taruti@taruti.net>
Date: Wed, 30 Mar 2011 17:14:36 +0300
Subject: Import sources from 2011-03-30 iso image - rc

---
 rc/bin/wurl2txt | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 rc/bin/wurl2txt

(limited to 'rc/bin/wurl2txt')

diff --git a/rc/bin/wurl2txt b/rc/bin/wurl2txt
new file mode 100755
index 000000000..19dad7b6f
--- /dev/null
+++ b/rc/bin/wurl2txt
@@ -0,0 +1,15 @@
+#!/bin/rc
+
+switch($#*){
+case 0
+	exit
+case 1
+	name = /`{echo $1 | sed 's;.*//;;
+		s;/.*;;'}^/webpage
+	# send hget errors to 2 so they appear in window
+	hget $1 >[2=1]| {echo $1; echo; htmlfmt} >[2=1] | plumb -i -d edit -a 'action=showdata filename='$name
+	exit
+case *
+	for(i in *)
+		wurl2txt $i
+}
-- 
cgit v1.2.3