#!/usr/bin/perl
sub login_enable{
open(my $CONFIG_FILE, "<", "/etc/wsd.conf") or die("Could not open wsd.conf");
my ($LOGIN_ENABLE, $LOGIN_USER, $LOGIN_PWD);
while( my $line = <$CONFIG_FILE> ){
chomp($line);
if($line=~/Login-set : (.*)/){
$LOGIN_ENABLE=$1;
}
if($line=~/Login-user : (.*)/){
$LOGIN_USER=$1;
}
if($line=~/Login-password : (.*)/){
$LOGIN_PWD=$1;
}
}
close(WIRELESS_FILE);
return ($LOGIN_ENABLE, $LOGIN_USER, $LOGIN_PWD);
}
my @LOGIN_INFO=&login_enable();
print "Content-type: text/html\n\n";
print "";
print "";
print "KCard Login";
print "";
print "";
print "";
print "";
print "";
print "";