=cut
sub swapuid {
- ($<,$>) = ($>,$<);
+ ($<,$>) = ($>,$<) if $< != $>;
}
=item getsecrets [ USER ]
=head1 VERSION
-$Id: UID.pm,v 1.6 1998-11-15 05:27:48 ivan Exp $
+$Id: UID.pm,v 1.8 1999-02-23 07:23:23 ivan Exp $
=head1 BUGS
ivan@sisd.com 98-sep-12
$Log: UID.pm,v $
-Revision 1.6 1998-11-15 05:27:48 ivan
+Revision 1.8 1999-02-23 07:23:23 ivan
+oops, don't comment out &swapuid in &adminsuidsetup!
+
+Revision 1.7 1999/01/18 09:22:40 ivan
+changes to track email addresses for email invoicing
+
+Revision 1.6 1998/11/15 05:27:48 ivan
bugfix for new configuration layout
Revision 1.5 1998/11/15 00:51:51 ivan