SYSTESTDIR=autosign
dumpit () {
- echo "D:${debug}: dumping ${1}"
- cat "${1}" | sed 's/^/D:/'
+ echo_d "${debug}: dumping ${1}"
+ cat "${1}" | cat_d
}
setup () {
done
}
+echo_d() {
+ echo "$@" | while read __LINE ; do
+ echoinfo "D:$SYSTESTDIR:$__LINE"
+ done
+}
+
+cat_d() {
+ while read __LINE ; do
+ echoinfo "D:$SYSTESTDIR:$__LINE"
+ done
+}
+
+
digcomp() {
output=`$PERL $SYSTEMTESTTOP/digcomp.pl "$@"`
result=$?
SYSTESTDIR=verify
dumpit () {
- echo "D:${debug}: dumping ${1}"
- cat "${1}" | sed 's/^/D:/'
+ echo_d "${debug}: dumping ${1}"
+ cat "${1}" | cat_d
}
setup () {
echo_i "setting up $2 zone: $1"