comparison lib-src/rcs2log @ 12066:b9b0b3f96dc2

(output_authors): Allow ':' in time zone, as per ISO 8601 and RCS 5.6.8 beta.
author Paul Eggert <eggert@twinsun.com>
date Sun, 04 Jun 1995 01:34:39 +0000
parents 2f0766bf8315
children 67f759e94c3e
comparison
equal deleted inserted replaced
12065:094636c759bf 12066:b9b0b3f96dc2
283 ?*) sort -u -o $llogout <<EOF || exit 283 ?*) sort -u -o $llogout <<EOF || exit
284 $logins 284 $logins
285 EOF 285 EOF
286 esac 286 esac
287 output_authors='/^date: / { 287 output_authors='/^date: / {
288 if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) { 288 if ($2 ~ /^[0-9]*[-\/][0-9][0-9][-\/][0-9][0-9]$/ && $3 ~ /^[0-9][0-9]:[0-9][0-9]:[0-9][0-9][-+0-9:]*;$/ && $4 == "author:" && $5 ~ /^[^;]*;$/) {
289 print substr($5, 1, length($5)-1) 289 print substr($5, 1, length($5)-1)
290 } 290 }
291 }' 291 }'
292 authors=` 292 authors=`
293 $AWK "$output_authors" <$rlogout | 293 $AWK "$output_authors" <$rlogout |