#!/usr/local/bin/perl 
print ("Content-Type: text/html\n\n");

require 'photo.lib';

#used to list all current QComet slideshows based on forms.txt


#default title
$title = "QComet.com: Menu of Slideshows";
$baseUrl = "http://www.qcomet.com";
$emailname = "";
$topic = "";
$vmonth = "";
($sec, $min, $hour, $mday, $mon, $year, $wday,$yday, $isdst)=localtime(time);

$hour = sprintf("%02d", $hour);
$min = sprintf("%02d", $min);
$mon = sprintf("%02d", $mon);
$mday = sprintf("%02d", $mday);


$Log = "2000-$mon-$mday, $hour:$min, ".$ENV{'REMOTE_ADDR'};


if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
	$buffer = $ENV{'QUERY_STRING'};
	@pairs = split(/&/, $buffer);	
}
elsif  ($ENV{'REQUEST_METHOD'} eq 'POST')
{
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
	@pairs = split(/&/, $buffer);	
}



# Split the name-value pairs
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
   ($name, $value) = split(/=/, $pair);
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/<!--(.|\n)*-->//g;
   
   if($name eq "email") 
   { 
	$emailname = $value;
	$Log=$Log.",".$name."=".$emailname;
   }
   
   if($name eq "topics") 
   { 
	$topic = $value;
	$Log=$Log.",".$name."=".$topic;
   }
   
   if($name eq "month") 
   { 
	$vmonth = $value;
	$Log=$Log.",".$name."=".$vmonth;
   }
} 

	if($emailname eq "null")
	{
		$emailname = "";
	}	

	if($vmonth eq "null")
	{
		$vmonth = "";
	}	


open(HFILE,">>input.txt") ;
print HFILE ( "$Log\n" );
close (HFILE);




&plibPrintTop($title);

&plibPrintBody;
&printListboxs;
# Start our Table in the main tables cell
print ("<table align=center bgColor='FloralWhite' border=3 bordercolordark=#000066 bordercolorlight=#99CCFF bordercolor=#000066 width=520 rules=rows CELLSPACING='2' CELLPADDING='2'>");
if($emailname)
{	print ("<TR>");
	print ("<TD bgcolor=PowderBlue colspan=3 align='center' class='captionText'>");
	print ("$emailname");
	print ("</TD></TR>");
}

print ("<TR bgcolor=PowderBlue class='buttonText12'>");
print ("<TH align='center' width=340 >Slide Show Title</TH>");
print ("<TH align='center' width=60 >Slides</TH>");
print ("<TH align='center' width=100> Show Topic </TH>");
print ("</TR>");

print ("<TR>");
print ("<TD bgcolor='FloralWhite' align='left' colspan=3 class='copyText'>Click the Show Title below to view");
print ("</TD></TR>");



# 0 = Email address
# 1 = Access code
# 2 = Path relative to Photos
# Inputs  Email address and displays a list of 
	
$errText0 = "E-mail address can not be found<br><br>Press the back button to return and try again.";
$validUser = 0;	
$count=0;
$allcount=0;
	
if( open(HCODES,"<forms.txt") ) 
{
	@users = <HCODES>;
	close (HCODES);
	
	foreach $users (@users)
	{
		@info = split(/,/, $users);
		$allcount++;
		
		if( ($allcount < 200) || ($topic) || ($emailname))
		{
		
			if($emailname)
			{
				if($info[0] =~ m/$emailname/i) 
				{
					$code = $info[3];
					chomp($code);
					if( $code eq "1")
					{
						&DisplayShowName($info[2]); 
						$validUser = 1;
					}
				}
			}
	
			if($vmonth)
			{	
				if ($info[2] =~ m/$vmonth/i)
				{
					$code = $info[3];
					chomp($code);
					if( $code eq "1")
					{
						&DisplayShowName($info[2]); 
						$validUser = 1;
					}
				}
			}
	
			if( (!$vmonth) && (!$emailname) )
			{
				$code = $info[3];
				chomp($code);
				if( $code eq "1")
				{
					&DisplayShowName($info[2]); 
					$validUser = 1;
				}
			}
		}	
	}
	
	
	
	#if( $validUser == 0)
	#{
	#	&plibErrorMessage("$errText0<br>$emailname");	
	#}	
}
else
{		# Fatal error on site
		&plibErrorMessage("Serious Error:<br>Access control file not found.<br><br>Are you still online?");	
}

print ("</TABLE>");

&plibPrintEnd;



# Done with main program
#-----------------------------------------------------


sub DisplayShowName
{
$album = $_[0];
chomp($album);
$status = "0";


	$url = $baseUrl."/photos/".$album."/index.html";
	$jsopen = "../photos/".$album."/qlist.js";				  

	if( open(JSFILE,"$jsopen") )
	{
		@line = <JSFILE>;
		close (JSFILE);

		$slidecount="&#149";
		$title="QComet Slideshow";
		
		
		foreach $line (@line)
		{
			@caption = split(/\"/, $line);
			if ( $caption[0] =~ m/count/i ) 
			{    
				$slidecount = $caption[1];
			}
			if ( $caption[0] =~ m/title/i ) 
			{    
				$title = $caption[1];
			}
			if ( $caption[0] =~ m/topic/i ) 
			{    
				$myTopic = $caption[1];
			}
			if ( $caption[0] =~ m/status/i ) 
			{    
				$status = $caption[1];
			}

			
		}
		#Only display photos which have been checked to release.
		if ( ($status eq "1") || ($status eq "2") )
		{
			if( ($myTopic eq $topic) || ($topic eq "All") || ($topic eq "" ) )
			{
				$id = "id".$count;
				$isrc = $id.".src";
				$count++;
		
				print ("<TR bgColor='FloralWhite' class='buttonText12'>\n");
				print ("<TD align='left'>");
				print ("<A href=\"$url\" >$title</A></TD>\n");
			
				print ("<TD align='center'><A href=\"$url\" > $slidecount </A></TD>");
				print ("<TD align='left'><A href=\"$url\" > $myTopic </A></TD>");
				print ("</TR>\n");
			}
		}
	}
}


sub printListboxs()
{


print <<'end_of_listboxs';

<TABLE cellSpacing=0 cellPadding=0 width=520 align=center border=0>
  <TR>
	<!--   List By Subject -->
	<TD align=center colspan=3>
		<form action="http://www.qcomet.com/cgi-local/showqmenu.pl" method='post' name="FindShows"  > 
			<table bgcolor=#fffaf0 border='2' cellpadding="0" cellspacing="0"  width="138" bordercolordark='#000066' bordercolorlight='#99CCFF' bordercolor='#000066'>
			<tr ><td>
				<table width="135"  border="0" cellpadding="0" cellspacing="0">
				<tr><th colspan=3 align=center class='buttonText'>List by Topic</th></tr>
				<tr>
					<td colspan=2 align=left class='copyText'>
					<SELECT id=topics name=topics size=1 title=topics  >				
					<OPTION value='All'>All
					<OPTION value='Events'>Events
					<OPTION value='My Town'>My Town
					<OPTION value='Travel'>Travel
					<OPTION value='Disney'>Disney	
					<OPTION value='Nature'>Nature
					<OPTION value='Animals'>Animals
					<OPTION value='General'>Disney
					<OPTION value='Just for Fun'>Just for Fun
					<OPTION value='Kids'>Kids
					<OPTION value='Family'>Family
					<OPTION value='General'>General
					</SELECT>
				</td>
				<td align=right><INPUT type='submit'  value='List' id='submit' name='submit' >
				</td >
				</tr></table>
			</td></tr >
			</table >
		</form>
	</TD>
	<!--   End of List By Subject -->
      
</TR></TABLE>

end_of_listboxs

}