prof_read_file("professors.dat");

print "Searching for overlappings: \n";
print "--------------------------\n";

prof_check_constraints("00001");
prof_check_constraints("00002");
prof_check_constraints("00003");

print "--------------------------\nSearch done.\n";
print "Current enrolled teachers:\n";
print "-------------------------\n";
while (my($key,$value)=each(%profs)) {
    next if not defined $profs{$key};
    print "Name: ".$profs{$key}->{name}."\n";
    foreach my $course (@{$profs{$key}->{Courses}}){
        print "\t-$course  \tSchedule: (",unpack("b*",course_get_hours($course)),")\n" if defined $course;
    }
    print "Office Hours: ",unpack("%b*",$profs{$key}->{Office_Hours}),"\tSchedule: (",unpack("b*",$profs{$key}->{Office_Hours}),")\n";
}