--- espi.cgi	2007/04/15 23:10:09	2
+++ espi.cgi	2007/04/15 23:39:32	3
@@ -6,12 +6,13 @@
 use CGI::Carp 'fatalsToBrowser';
 
 use Data::Dump qw/dump/;
+use YAML::Syck;
 
 $| = 1;
 
-my $admins = {
-	'dpavlin' => 'my admin secret',
-};
+my $config_file = $0;
+$config_file =~ s/\.cgi$/.yaml/;
+my $config = LoadFile( $config_file ) or die "can't open $config_file: $!";
 
 my $espi_hook = {
 #	'authenticate-user' => 'ACCESS GRANTED ADMIN',
@@ -20,7 +21,7 @@
 		my $param = shift;
 		warn "param = ",dump( $param );
 		my $ret = 'ACCESS GRANTED';
-		$ret .= ' ADMIN' if defined( $admins->{ $param->{uid} } ) && $admins->{ $param->{uid} } eq $param->{pwd};
+		$ret .= ' ADMIN' if defined( $config->{admins}->{ $param->{uid} } ) && $config->{admins}->{ $param->{uid} } eq $param->{pwd};
 		return $ret;
 	}
 };