package helpers;

sub get_admins {
    my @admins;
    open F, "data/admins";
    while (<F>) {
    	chomp;
    	push @admins, $_;
    }
    return @admins;
}

sub is_admin {
    my $who = shift;
    my @admins = get_admins;
    print STDERR $who;
    for (@admins) {
        if ($who =~ /^$_$/) {
	    return 1;
	}
    }
    return 0;
}

1;