#!/bin/sh
#    retraudio: retreave audio message
#
AUDIO=_audio_msg.snd
/bin/cat $1 | /bin/awk '
BEGIN {
    name = ""
    path = "'$2'"
}
{
    if ($1 == "begin") {
	name = sprintf("%s/%s.ENC", path, substr($3,1,index($3, ".Z") - 1));
    }
    if (name != "") print $0 > name
    if ($1 == "end") name = ""
}'
if [ -s $2/$AUDIO.ENC ]
then
	cd $2
	/usr/bin/uudecode $AUDIO.ENC
	/usr/ucb/uncompress -f $AUDIO.Z
fi
