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;