# Author: Paul Eggert <eggert@twinsun.com>
-# $Id: rcs2log,v 1.19 1995/03/21 05:11:06 eggert Exp $
+# $Id: rcs2log,v 1.19 1995/03/21 05:37:42 eggert Exp eggert $
# Copyright 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
loginFullnameMailaddrs=$loginFullnameMailaddrs$nl$2$tab$3$tab$4
shift; shift; shift;;
-u)
+ # If $2 is not tab-separated, use colon for separator.
case ${2?} in
*"$nl"*)
echo >&2 "$0: -u '$2': newlines not allowed"
exit 1;;
- *"$tab"*"$tab"*"$tab"*)
+ *"$tab"*)
+ t=$tab;;
+ *)
+ t=:
+ esac
+ case $2 in
+ *"$t"*"$t"*"$t"*)
echo >&2 "$0: -u '$2': too many fields"
exit 1;;
- *"$tab"*"$tab"*)
+ *"$t"*"$t"*)
;;
*)
echo >&2 "$0: -u '$2': not enough fields"
IFS=$nl
for loginFullnameMailaddr in $loginFullnameMailaddrs
do
- IFS=$tab
+ case $loginFullnameMailaddr in
+ *"$tab"*) IFS=$tab;;
+ *) IFS=:
+ esac
set x $loginFullnameMailaddr
login=$2
fullname=$3