#!/usr/bin/perl

#############################################################################
#                                                                           #
#  foja_mkmail.pl - FOJA e-mail composer                                    #
#                                                                           #
#  Tento skript ocakava na vstupe data z vystupu skriptu foja_parser.       # 
#  T.j. na zaciatku celkovy pocet uloh a dalej zoznam rezervovanych uloh.   #
#  Vystupom skriptu je hotova e-mailova sprava, ktoru staci poslat          #
#  programom /usr/sbin/sendmail na prislusnu adresu. Optimalne pouzitie:    #
#                                                                           #
#  ./foja_parser.pl foja_XX.html | ./foja_mkmail.pl \                       #
#                                         | /usr/sbin/sendmail fojaX@...    #
#                                                                           #
#                              =Neptunko= <neptunko@pobox.sk> [13/11/2000]  #
#                                                                           #
#############################################################################

# $Platon: foja-mkmail.pl,v 1.4 2002/02/12 00:34:24 jombik9 Exp $

$DEFAULT_EXERCISES = 7;
$RESERVED_EXERCISE_STR = "-- ODOVZDAVACIA ULOHA -- NEDA SA REZERVOVAT --";
$RESERVATION_STR = "<reservation>";
@NAME = ("Ondrej Holotnak", "Michal Hitka");

$MAIL_MSG = 'X-x: Dummy empty line - Toto tu musi byt! Nemaz to!
To: Fojaaaaaaakyyyyy... <foja2@st.fmph.uniba.sk>
Subject: Sada 11.
From: Ondrej Holotnak <holotnak9@kepler.fmph.uniba.sk>
X-Mailer: Neptunko: Uz zase sem pozeras?? Ts, ts... btw. Perl rulz!

Dobry den!

Z 11. sady si rezervujeme nasledujuci priklad:

' . $RESERVATION_STR . '
Prijemny den VSETKYYYYYYYM! :))

';

#############################################################################

if ($ex = <STDIN>) {
	chomp($ex);

	$i = 0;
	while ($res_ex[$i] = <STDIN>) {
		chomp($res_ex[$i]);
		$i++;
	}

}
else {
	$ex = $DEFAULT_EXERCISES;
}

$_ = $MAIL_MSG;
s/^([\000-\255]*)$RESERVATION_STR[\000-\255]*$/$1/;
print $_;

$curr_name = 0;
for ($i = 0; $i < $ex; $i++) {
	print $i + 1, ". ";

	for ($j = 0; $j <= $#res_ex + 1; $j++) {
		
		if ($j == $#res_ex + 1) {
			if ($curr_name <= $#NAME) {
				print $NAME[$curr_name], "\n";
				$curr_name++;
			}
			else {
				print "\n";
			}

			last; #$j = $#res_ex + 1; # break; 
		}
		else {
			if ($i + 1 == $res_ex[$j]) {
				print $RESERVED_EXERCISE_STR, "\n";  
				last; #$j = $#res_ex + 1; # break;
			}
		}
	}
}

$_ = $MAIL_MSG;
s/^[\000-\255]*$RESERVATION_STR([\000-\255]*)$/$1/;
print $1;