###################################################
###					Zadatak 9					###
###	Iskoristiti prethodni zadatak da se naprave	###
###	tabele rasporeda za sve grupe i za sve sale	###
###################################################

# Otvaramo raspored.txt i pamtimo sve grupe i prostorije
open(RASPORED, "raspored.txt");
while (<RASPORED>) {
	if (/\w+_(\w+)_\w+[.](p|v)_(\w+)_(pon|uto|sre|cet|pet)_\d+/) {
		$grupe{$1} = 1;
		$sale{$3} = 1;
	}
}
# Zatvaramo fajl
close(RASPORED);

# Za sve grupe pravimo po html-datoteku
foreach $param (keys %grupe) {
	print "---$param---\n";
	# Izvrsavamo vec napisan skript
	system("perl 08_raspored_po_param.perl $param");
}

# Za sve sale pravimo po html-datoteku
foreach $param (keys %sale) {
	print "---$param---\n";
	# Izvrsavamo vec napisan skript
	system("perl 08_raspored_po_param.perl $param");
}