#!/usr/local/bin/perl

use CGI ':standard';
print header();
print start_html();
open FILE, "user/test";
for $line (<FILE>) {
  print index $line,"password";$PasswordLine=$line;
    if (index $line, "password" == 0) {
        
    }
    if (index $line, "minatt" == 0) {
        $MinattLine=$line;
    }
    if (index $line, "maxatt" == 0) {
        $MaxattLine=$line;
    }
    if (index $line, "exp"  ==0 ) {
        $ExpLine=$line;
    }
    if (index $line, "gold" == 0) {
       $GoldLine=$line;
    }
}
close FILE;
sub getpassword {
     my $start= index $PasswordLine, ":";
     return substr ($PasswordLine, $start + 2, length ($PasswordLine));
}
sub getminatt {
     my $start=index $MinattLine, ":";
     return substr $MinattLine, $start+2, length ($MinattLine);
}
sub getmaxatt {
     my $start= index $MaxattLine, ":";
    return substr $MaxattLine, $start+2, length $MacattLine;
}
sub getexp {
     my $start= index $ExpLine, ":";
     return substr $ExpLine, $start+2, length $ExpLine;
}
sub getgold {
    my $start= index ($GoldLine, ":");
    return substr $GoldLine, $start+2, length $GoldLine;
}
print getgold;
print getexp;
print getmaxarr;
end_html();