#!/bin/sh
# $Id: original,v 1.0 1995/04/26 17:29:19 jerry book3 $
#
### original - Replace mhn-edited draft with original containing directives
### Usage: What now? edit original
t=',' # CHARACTER mhn PREPENDS TO DRAFT FILENAME TO MAKE IT "TEMPORARY"
# $mhdraft HAS DRAFT PATHNAME. IF NOT SET, PRINT TWO-LINE ERROR AND EXIT:
: ${mhdraft?"aborting: mhdraft not set in environment.
Be sure that you're using this from a 'What now?' prompt."}
# PUT DRAFT DIRECTORY IN $dir, DRAFT FILE IN $file:
eval `echo "$mhdraft" | sed 's@\(.*\)/\(.*\)@dir="\1" file="\2"@'`
cd "$dir" || {
echo "`basename $0` aborting: can't cd to draft directory '$dir'?" 1>&2
exit 1
}
case "$file" in
draft|[1-9]*) orig="$t$file.orig" ;;
*) echo "`basename $0` aborting: invalid draft filename '$file'?" 1>&2
exit 1
;;
esac
if test ! -r "$file" -o ! -r "$orig" -o ! -w "$file"
then
echo "`basename $0` aborting: can't read draft '$orig' and/or read/write '$file'" 1>&2
exit 1
fi
/bin/mv "$file" "$t$file.mhn" || {
echo "`basename $0` aborting: can't rename '$file' to '$t$file.mhn'?" 1>&2
exit 1
}
/bin/mv "$orig" "$file" || {
echo "`basename $0` aborting: can't rename '$orig' to '$file'?" 1>&2
exit 1
}
[Table of Contents] [Index] [Return to Explanation of original]
This file is from the third edition of the book MH & xmh: Email for Users & Programmers, ISBN 1-56592-093-7, by Jerry Peek. Copyright © 1991, 1992, 1995 by O'Reilly & Associates, Inc. This file is freely-available; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation. For more information, see the file copying.htm.
Suggestions are welcome: Jerry Peek <jerry@ora.com>