+open(MAPSECRETS,"<$FREESIDE_CONF/mapsecrets")
+ or die "can't open $FREESIDE_CONF/mapsecrets: $!";
+while (<MAPSECRETS>) {
+ /^(\S+) / or die "unparsable line in mapsecrets: $_";
+ die "user $user already exists\n" if $user eq $1;
+}
+close MAPSECRETS;
+