package COMMON::AUTH;
use strict;
use Exporter;
@COMMON::AUTH::ISA = qw(Exporter);
our ($user,$admin);
@EXPORT = qw($user $admin);
$user = $ENV{'REMOTE_USER'};
$admin = 'admin';
1;

##</code><code>##

package COMMON::AUTH;
use strict;
use Exporter;
@COMMON::AUTH::ISA = qw(Exporter);
@EXPORT = qw(user admin);

sub user {
    return $ENV{'REMOTE_USER'}; #Make sure to untaint this data just in case
}

sub admin {
    return 'admin'; 
}
1;