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/doc2txt | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 rc/bin/doc2txt

(limited to 'rc/bin/doc2txt')

diff --git a/rc/bin/doc2txt b/rc/bin/doc2txt
new file mode 100755
index 000000000..65b68b48e
--- /dev/null
+++ b/rc/bin/doc2txt
@@ -0,0 +1,31 @@
+#!/bin/rc
+
+rfork en
+
+if(! ~ $#* 0 1) {
+	echo 'Usage: doc2txt [file.doc]' >[1=2]
+	exit usage
+}
+
+switch($#*){
+case 0
+	cat >/tmp/doc2txt.$pid
+	file=/tmp/doc2txt.$pid
+case 1
+	file=$1
+}
+aux/olefs $file || { 
+	echo 'doc2txt: couldn''t mount word document' >[1=2]
+	rm -f /tmp/doc2txt.$pid
+	exit word
+}
+
+if(! test -f /mnt/doc/WordDocument) {
+	echo 'doc2txt: is an msoffice doc but not a word document' >[1=2]
+	rm -f /tmp/doc2txt.$pid
+	exit worddoc
+}
+
+aux/mswordstrings /mnt/doc/WordDocument | tcs -f microsoft -t utf |fmt  | uniq
+unmount /mnt/doc
+rm -f /tmp/doc2txt.$pid
-- 
cgit v1.2.3