#!/usr/bin/perl

#cgi lib, no need to parse form
use strict;
use warnings;
use CGI qw(:standard);

my $infile = "/home/ajb004/public_html/arabic.txt";

print header();
print start_html("Available Classes");

if (request_method() eq 'POST') {
	open my $fh, $infile or die $!;
	while (<$fh>) {
		s/_/ /g;
		my @word = split ',';
		my $result = param($word[0]) ? 'checked' : 'not checked';
		print qq{$word[0]: $result<br>};
	}
	close $fh or die $!;

} else {
	print qq{<form action="EnrollStudentPL.cgi" method="POST">};

	open my $fh, $infile or die $!;
	while (<$fh>) {
		s/_/ /g;
		my @word = split ',';
		print qq{<input type="checkbox" name="$word[0]" value="on"> $word[0]<br>};
	}
	close $fh or die $!;

	print qq{<input type="submit" value="Enroll">};
}

print end_html();