#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
# - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Benoetigte Dateien einbinden
# - - - - - - - - - - - - - - - - - - - - - - - - - - - #
require "daten/cards.pl";
require "conf.pl";


#######################################################################
#GET RAW DIRECTORIES FROM MAIN IMAGE DIRECTORY

opendir(DIRHANDLE1,"$imagedirectory") or die "couldn't open directory: $!";
	
	while ( defined ($filename1 = readdir(DIRHANDLE1)) ) {

	$rawdirectories[$count1] = "$filename1";
	$count1++;
	}
	
closedir(DIRHANDLE1);

#######################################################################
#CLEAN UP RAW DIRECTORIES - REMOVE "NON-DIRECTORIES"

foreach $url(@rawdirectories) {
	if ($url !~ /\./) {
	$cleandirectories[$count2] = "$url";
	$count2++;
	}
	}
	@cleandirectories = sort @cleandirectories;
	
#######################################################################
#EXTRACT IMAGES FROM EACH DIRECTORY

foreach $suckcleandir(@cleandirectories) {

	$tempdirectory = "$imagedirectory/$suckcleandir";

	opendir(DIRHANDLE2,"$tempdirectory") or die "couldn't open directory: $!";
	
	while ( defined ($filename2 = readdir(DIRHANDLE2)) ) {
		
		if ($filename2 =~ /.gif|.jpg/i) {
	
		$temparray[$count3] = "$filename2";

		$count3++;
		}
		}
		unshift @$suckcleandir, @temparray;
	closedir(DIRHANDLE2);
	$count3 = 0;
	@temparray = ();
}

# - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Startseite Postkarten
# - - - - - - - - - - - - - - - - - - - - - - - - - - - #

print "Content-type:text/html\n\n";
if ($ENV{'QUERY_STRING'} eq "") {

𝕜
&toptab;
&menue;


print "<center>";
print "<br><img src=\"$mediadirectory/buttons/logo.gif\" width=293 height=38 border=0 alt=\"Sende eine Postkarte\"><br><br>";
print "<font class=\"normaltext\"><b>Schritt 1: W&auml;hlen Sie eine Kategorie</b></font><br>";
print "<table border=0 width=400 cellspacing=6 cellpadding=0 align=center>";
print "<tr>";

	@sortedcats = sort @cleandirectories;
		foreach $cats(@sortedcats) {
		$randlength = @$cats;
		$randimg = @$cats[rand $randlength];
		print"<td width=125 valign=top align=center>";
		print "<a class=\"nl\" href=\"$cgiurl?$cats\">";
		print "<img src=\"$imageurl/$cats/$randimg\" height=100 width=100 border=0>";
		print "<br>";
		
		print "$cats";
		
		print "</a>";
		print "</td>";
		$maintablecount++;
		if ($maintablecount == 4) {
		print"</tr><tr>";
		$maintablecount =1;
		}
	}
print"</tr></table>";
print "<br>";
print "<hr class=\"line1\">";
print "<a class=\"nl\" href=../../html/postkarten.html>Zurück zur Homepage<\/a>";
print "<hr class=\"line1\">";

open (DAT, "<cards/counter.dat");
flock (DAT, 2);
$linie=<DAT>;
close DAT;

print "<font class=\"normaltext\">Es wurden schon <b>$linie</b> Karten versendet</font><br><br>";

&menue;
&fusstab;
&copyright;
print "</div>";
print "</BODY></html>";
}
	
# - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Anzeige der Bilder der Rubrik
# - - - - - - - - - - - - - - - - - - - - - - - - - - - #

elsif ($ENV{'QUERY_STRING'} ne "") {

&kopf;
&toptab;
&menue;

print"<br>";
print"<center>";
print"<table border=0 width=100% cellspacing=2 cellpadding=2>";
print"<tr>";
print"<td width=140 valign=top align=left class=\"menue\">";

	@sortedcats = sort @cleandirectories;
	$lengthsortcat = @sortedcats;
	print "<font class=\"normaltext\">W&auml;hlen Sie ihr Motiv aus den $lengthsortcat Kategorien.";
	print "<br><br>";
	
		foreach $cats(@sortedcats) {
		$randlength = @$cats;
		$randimg = @$cats[rand $randlength];
		print "<a class=\"nl\" href=\"$cgiurl?$cats\">";
		print "<img src=\"$imageurl/$cats/$randimg\" height=30 width=30 border=0>";
		print " $cats";
		print "</a>";
		print "<br><br>";
	}
	
	print "<a class=\"nl\" href=$cgidir/upload.pl>";
	print "<img src=$mediadirectory/buttons\/smupload.gif border=0>";
	print " Upload";
	print "</a></font>";
	
	$imglist = $ENV{'QUERY_STRING'};
	@sorted = @$imglist;
	$lengthimages = @sorted;
	
print"</td>";
print"<td align=center>";
print "<br><font class=\"normaltext\"><b>Schritt 2: Auswahl eines Motivs</b><br><br>";
print "W&auml;hlen Sie ein Bild von den $lengthimages vorhandenen.</font>";
print "<br><br>";
print"<table border=0 cellpadding=0 cellspacing=4 align=center>";
print"<tr>";
	


		
		foreach $imglist2(@sorted) {
		$imgname = $imglist2;
		$imgname =~ s/.gif|.jpg//i;
		print"<td width=130 valign=top align=center>";
		print "<a class=\"nl\"  href=\"$postcard2url?$imageurl_BIG/$ENV{'QUERY_STRING'}/$imglist2\">";
		print "<img src=\"$imageurl/$ENV{'QUERY_STRING'}/$imglist2\" height=80 width=80 border=0>";
		print "<br>";
		print "<font class=\"normaltext\">";
		print $imgname;
		print "</a>";
		print "</font>";
		$tablecount++;
		if ($tablecount == 4) {
		print"</tr><tr>";
		$tablecount =1;
		}
		print"</td>";
	} 


  
print "</tr>";  
print "</table>";
print "</td>";
print "</tr>";
print "</table>";
print "<br>";
print "<br>";
print "</center>";
&menue;
&fusstab;
&copyright;

print "</BODY></html>";

}