summaryrefslogtreecommitdiff
path: root/rc/bin/xls2txt
blob: 9d72c238b8a6de356aeea9eb1cc8e8abea920e1b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/bin/rc

rfork en

if(! ~ $#* 0 1) {
	echo 'usage: xls2txt [file.xls]' >[1=2]
	exit usage
}

switch($#*){
case 0
	cat >/tmp/xls2txt.$pid
	file=/tmp/xls2txt.$pid
case 1
	file=$1
}
aux/olefs $file || { 
	echo 'xls2txt: couldn''t mount excel document' >[1=2]
	rm -f /tmp/xls2txt.$pid
	exit word
}

if(! test -f /mnt/doc/Workbook) {
	echo 'xls2txt: is an MSoffice doc but not an Excel document' >[1=2]
	rm -f /tmp/xls2txt.$pid
	exit wordxls
}

aux/msexceltables /mnt/doc/Workbook
unmount /mnt/doc
rm -f /tmp/xls2txt.$pid