summaryrefslogtreecommitdiff
path: root/examples/scripts.v2/uudec
blob: 798405813e2084333a843b152dd3c4b3f30dbc68 (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
33
34
35
36
37
38
39
40
41
42
43
44
45
:
# @(#) uudec.sh 1.0 93/11/22
# 92/08/04 john@armory.com (John H. DuBois III)
# 93/11/22 Added help.

isfalse()
{
	test 0 -eq "$1"
}

phelp()
{
"$name: process uuencoded files.
Usage: uudec [-h] filename ...
Options:
-h: Print this help."
}

name=${0##*/}

typeset -i force=0

while getopts "hf" opt; do
	case "$opt" in
	h)	phelp; exit 0;;
	f)	force=1;;
	*)	echo "$Usage" 1>&2; exit 2;;
	esac
done

shift $((OPTIND - 1))

for file; do
    echo "$file"
    while read b mode filename && [ "$b" != begin ]; do :; done < "$file"
    if [ "$b" = begin ]; then
	if [ -f "$filename" ] && isfalse $force; then
	    echo "Output file \"$filename\" exists.  Not written."
	else
	    uudecode "$file"
	fi
    else
	echo "No begin line."
    fi
done