Tomb/src/undertaker

#!/bin/zsh
#
# Undertaker, auxiliary command for Tomb
#
# Tomb is a tool to operate file encryption of private and secret data
#
# Undertaker is a tool to retrieve tomb keys from various sources
#
# {{{ Copyleft (C) 2011 Denis Roio <jaromil@dyne.org>
#
# This source  code is free  software; you can redistribute  it and/or
# modify it under the terms of  the GNU Public License as published by
# the Free  Software Foundation; either  version 3 of the  License, or
# (at your option) any later version.
#
# This source code is distributed in  the hope that it will be useful,
# but  WITHOUT ANY  WARRANTY;  without even  the  implied warranty  of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# Please refer to the GNU Public License for more details.
#
# You should have received a copy of the GNU Public License along with
# this source code; if not, write to:
# Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

# }}}

# first of all source the tomb core functions
which tomb > /dev/null
if [[ $? != 0 ]]; then
    print "$fg[red][!]$fg[white] Tomb command not found, operation aborted."; exit 1
fi
source tomb source

if ! [ $1 ] ; then
    _warning "an argument is missing, the undertaker is confused"
    _failure "usage: undertaker url://host:path/to/tomb.key"
fi

ARG1=${1}

check_bin

_message "Undertaker will look for ${ARG1}"

baseurl=${ARG1%//*}

case $baseurl in
    bluetooth:)
	_message "access to bluetooth protocol requested"
	which obexftp &> /dev/null
	if [[ $? != 0 ]]; then
	    die "obexftp not found, needed for bluetooth: operation aborted."
	fi
	keytmp=`safe_dir undertaker`
	cd $keytmp
	# fetch key from bluetooth, url format: bluetooth://55:33:44:55:66/file/path
	obexdevpath=${ARG1#*//}
	obexdev=${obexdevpath%%/*}
	obexpath=${obexdevpath#*/}
	_message "obex device: $obexdev"
	_message "obex path: $obexpath"
	obexftp -b $obexdev -g $obexpath 
	if [[ $? != 0 ]]; then
	    rmdir ${keytmp}
	    die "a problem occurred retreiving the key via bluetooth."
	fi
	# print out the key on stdout
	cat $obexpath >&1
	# wipe out the key
	${=WIPE} $obexpath
	cd -
	rmdir ${keytmp}

#	tombkey="basename $obexpath"
	
	;;

    file:)
        _message "local file access requested"
	die "TODO"
	;;
    http:)
	_message "access to web protocol requested"
	die "TODO"
	;;
    ssh:)
	_message "access to secure shell requested"
	die "TODO"
	;;
    *)
	die "url protocol not recognized: $baseurl"
	;;
esac