add missing regex

release/B/scripts/process-email

@@ -0,0 +1,57 @@
+#!/bin/sh
+#
+# process-email (c) Copyright Bunyip Information Systems, Inc. 1994
+#
+# This routine can be used to batch incoming email requests for later 
+# processing
+#
+# Modified by Lee McLoughlin for Solaris 2.3 <lmjm@doc.ic.ac.uk>
+#
+PATH=/bin:/usr/bin:/usr/ucb
+
+if p=`grep "^archie:" /etc/passwd` ; then
+  archiehome=`echo $p | awk -F: '{print $6}'`
+elif p=`ypmatch archie passwd` ; then
+    archiehome=`echo $p | awk -F: '{print $6}'`
+fi
+
+ch_tmp()
+{
+
+    cd $archiehome/db/tmp
+}
+
+usage() {
+  echo "Usage: batch-email -t <tmp dir>"
+  exit 1
+}
+
+tdir="notset"
+
+while [ $# -gt 1 ] ; do
+  case $1 in
+
+#temp directory
+    -t)  if [ $# -gt 1 ] ; then shift ; tdir=$1; else usage; fi;;
+
+  esac
+  shift
+done
+
+
+if [ $tdir = "notset" ]; then
+   ch_tmp
+else
+   cd $tdir
+fi
+
+for i in aremail.*; do
+#	$archiehome/bin/email-client -i $i $*
+	if ($archiehome/bin/email-client < $i) ; then
+		/bin/rm -f $i
+	else
+		/bin/mv -f $i FAILED_$i
+	fi
+done
+
+