ref: b67b2eeac8acf220d33c8e354fe17d8f1d1efdcc
dir: /rc/bin/doc2txt/
#!/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