#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI qw(:standard);
$event 			= param('event');
$eventtype 		= param('eventype');
$s 				= param('s');
$n 				= param('n');




opendir my $dir, "/home/tdnthivnstbs/public_html/$eventtype/$event" or die "Cannot open directory: $!";
my @files = readdir $dir;
closedir $dir;

	foreach $file(@files){
		if ($file =~ /.jpg$|.JPG$/){ push  @images , $file}
	}

	foreach $img(@images){
		if (-e "/home/tdnthivnstbs/public_html/$eventtype/$event/$img.txt"){
			open(TXT,"</home/tdnthivnstbs/public_html/$eventtype/$event/$img.txt");
			@imgtxt=<TXT>;
			close TXT;		
		
		
		#$txt{$img} = join ( ",",@imgtxt)
			foreach $bit(@imgtxt){
				($parm, $val) = split(/=/, $bit);
			$txtbit{$img}{$parm} = $val ;	
		
			}
		}
	}
@days = qw/Mon Tue Wed Thu Fri Sat Sun/;

@limimages = @images[$s..($s+11)];

	
print "Content-Type: text/html\n\n";
print " $event $eventtype <br>start: $s<br> Number: $n ";

	    foreach $img(@limimages){
			$x++;
			if (($x+2)/3 == int(($x+2)/3)){
				print "      <div class=\"row\">	\n";
			}			
			print "		<div class=\"col-lg-4 col-md-4 thumbnail\" >\n";
            print "		<h3>&nbsp;$txtbit{$img}{TITLE}</h3><img class=\"img-responsive\" src=\"../../$eventtype/$event/$img\"> $txtbit{$img}{PEOPLE}$txtbit{$img}{ACTIVITY}$txtbit{$img}{LOCATION}\n";

			print "		<a href=\"#\" >edit\n";
 			print "		</a>	\n";
			print "		</div>\n";
			if ($x/3 == int($x/3)){
				print "	     </div>	<div class=\"row\">&nbsp;</div>\n"; 
			}
        }