#!/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///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 ("
");
if($emailname)
{ print ("");
print ("");
print ("$emailname");
print (" |
");
}
print ("");
print ("Slide Show Title | ");
print ("Slides | ");
print (" Show Topic | ");
print ("
");
print ("");
print ("Click the Show Title below to view");
print (" |
");
# 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
Press the back button to return and try again.";
$validUser = 0;
$count=0;
$allcount=0;
if( open(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
$emailname");
#}
}
else
{ # Fatal error on site
&plibErrorMessage("Serious Error:
Access control file not found.
Are you still online?");
}
print ("
");
&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 = ;
close (JSFILE);
$slidecount="";
$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 ("\n");
print ("");
print ("$title | \n");
print (" $slidecount | ");
print (" $myTopic | ");
print ("
\n");
}
}
}
}
sub printListboxs()
{
print <<'end_of_listboxs';
end_of_listboxs
}