#!/usr/bin/perl -w
#
#  GALADMIN -- Gallery administrator  
#
#  Html generator and image converter
#  (c) 2002, 2003  Milos Kapoun, Pavel Ruzicka
#
my $Version="1.0.3";

# global variables 

my $indexname="index.html";
my $directoryname="source";
my $commentfile="comment.txt";
my $ThnWidth=128;
my $ThnHeight=96;
my $ImgWidth=800;
my $ImgHeight=600;

use vars qw( $opt_d $opt_r $opt_D $opt_p $opt_i $opt_h $opt_g $opt_f);
use Getopt::Std;
&getopts("d:rDpihgf");

my @Dir;	# field of Dirs
my $nDir=0;	# number of dirs
my $lDir=0;	# dir level

################################
# Print help                   #
################################

sub PrintHelp
{
print <<EOF

GALADMIN -- Gallery administrator, html generator and image converter.

Usage:

galadmin.pl <Arguments> <SourceDir>

Arguments:
            -d <dir>  - destination directory
            -D        - delete
            -g        - gallery html index generating
            -h        - this help
            -i        - images generating, skip existing
	    -f        - force, overwrite existing images (only with -i)
            -p        - html pages generating
            -r        - recursive, do all directories in <SourceDir>

Examples:

galadmin.pl -pi <SourceDir> -- convert image sizes and generate html pages
galadmin.pl -gr <SourceDir> -- generate recursive index of all galleries

EOF
;
}

################################
# scan directory               #
################################

sub rdir{
	
	my($adr)= @_;
	my(@soubory,$path,$soubor,$cnDir);
	if (not opendir(ADR,$adr)) {
		print "Can't open directory $adr.\n";
		return;
	}
	@soubory = readdir(ADR);
	closedir(ADR);	
	$cnDir = $nDir;
	$Dir[$cnDir]->{Dir}->{level} = $lDir;
	$Dir[$cnDir]->{Dir}->{jpg} = 0;
	$Dir[$cnDir]->{Dir}->{dir} = 0;
	$Dir[$cnDir]->{Dir}->{path} = $adr;
	
	foreach $soubor (sort @soubory) {
		if ($soubor =~ /^\./ ) {next;}
		$path=$adr ."/". $soubor;
		if (-d $path) {
			if (!defined($opt_r)) {next;}
			if ($soubor eq $directoryname) {next;}
			$nDir++;
			$lDir++;
			$Dir[$nDir]->{Dir}->{name} = $soubor;
			&rdir($path);

			if (($Dir[$cnDir+1]->{Dir}->{dir} == 1)||($Dir[$cnDir+1]->{Dir}->{jpg}==1)) {
				$Dir[$cnDir]->{Dir}->{dir} = 1;
			}
			$lDir--;
		}
		else {        
			if ($soubor =~ /\.[Jj][Pp][Gg]$/) {
				$Dir[$cnDir]->{Dir}->{jpg} = 1;
				$Dir[$cnDir]->{File}->{$soubor} = 1;
			}
		}
	}	
}

################################
# main program                 #
################################

my $SourceDir;
my $DestDir;

if ($opt_h) {
	PrintHelp();
	exit(0);
}

if (!defined($ARGV[0])) {
	PrintHelp();
	exit(0);
}

else {
	if (-d $ARGV[0]) {  
		$ARGV[0]=~s/\/$//;
		$SourceDir = $ARGV[0];
		print "Processing \"$SourceDir\" directory.\n";
	}
	else {
		print "File $ARGV[0] is not a directory.";
		exit(0);
	}
}

if ($opt_d) {
	$DestDir = $opt_d;
	print "Destination directory is: $DestDir.\n";
}
else {
	$DestDir = ".";
	print "Destination directory is same as source directory.\n";
}

print "Scanning directories for images:\n";

# $Dir - field of dir
$Dir[$nDir]->{Dir}->{name} = $SourceDir;
&rdir($SourceDir);

# print directory
foreach $i (0..$nDir)
{
	if ($Dir[$i]->{Dir}->{jpg}||$Dir[$i]->{Dir}->{dir})
	{
		print substr("                           ",0,($Dir[$i]->{Dir}->{level})*3)."`--$Dir[$i]->{Dir}->{name}\n";
		foreach $y (sort(keys(%{$Dir[$i]->{File}})))
		{
			print substr("                            ",0,($Dir[$i]->{Dir}->{level})*3)."   |--"."$y\n";
		}
	}
}

# option list

foreach $i (0..$nDir)
{


	if ($Dir[$i]->{Dir}->{jpg})
	{
		if (defined($opt_p)||defined($opt_i))
		{
			print "\nProcessing directory:$DestDir/$Dir[$i]->{Dir}->{path}\n";
		}
		# mk directory
		if (defined($opt_p)||defined($opt_i))
		{
			if (!(-e "$DestDir/$Dir[$i]->{Dir}->{path}/$directoryname"))
			{
				if(system("mkdir $DestDir/$Dir[$i]->{Dir}->{path}/$directoryname"))
				{
					print "Directory $DestDir/$Dir[$i]->{Dir}->{path}/$directoryname created.\n";
				}
			}
			else
			{
				print "Directory $DestDir/$Dir[$i]->{Dir}->{path}/$directoryname already exists.\n";
			}
		}

		if(defined($opt_p))
		{
			%line = ();
                	# read comment file
			if  (open(IC,"<$Dir[$i]->{Dir}->{path}/$commentfile"))
			{
				%Comment = ();
            			while ($line = <IC>)
				{
					chomp($line);
					if ($line =~ /^"(.*)","(.*)"$/)
					{
						$Comment{$1}=$2;
					}
				}
				close (IC);
			}
			else
			{
				print "$Dir[$i]->{Dir}->{path}/$commentfile not found, generating...\n";
				%Comment = ();
				if (open(OC,">$Dir[$i]->{Dir}->{path}/$commentfile"))
				{
					print OC "\"gallery\",\"\"\n";

					foreach $y (sort(keys(%{$Dir[$i]->{File}})))
					{
						print OC "\"$y\",\"\"\n";
					}
				}
				close (OC);

			}

		}



		# open HTML list file
		$file = ">".$DestDir."/".$Dir[$i]->{Dir}->{path}."/".$indexname;
		# print "$file";
		#
		if (defined($opt_p))
		{
			open(OL,$file) or die "Can't open $file\n";
			if (exists($Comment{gallery})){$GalComm = " - $Comment{gallery}";}
			else {$GalComm = "";}
print OL <<EOF
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
	"http://www.w3.org/TR/2000/REC-xhtml1-20000126/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
<style type="text/css"><!--
body {
	background-color: #DDDDCC;
	color: black;
	font-family: Arial, Helvetica, sans-serif;
	font-size: small;
}
div.card {
	float: left;
	border: 1px black solid;
	text-align: center;
	margin: 1px;
	width: ${ThnWidth}px;
	background-color: #CCCCCC;
	color: black
}
img {
	border-style: solid;
	border-width: 0px 0px 1px
}
div.copyright {
	font-style: italic;
	text-align: right;
	clear: left;
}
--></style>
<title>$Dir[$i]->{Dir}->{path}</title>
</head>
<body>
<h2>Gallery: $Dir[$i]->{Dir}->{path}$GalComm</h2>
EOF
;
		}
		foreach $y (sort(keys(%{$Dir[$i]->{File}})))
		{

			# image converting
			if ($opt_i)
			{
				if (!((-e "$DestDir/$Dir[$i]->{Dir}->{path}/$directoryname/${ImgWidth}x${ImgHeight}_$y") && (-e "$DestDir/$Dir[$i]->{Dir}->{path}/$directoryname/thn_$y") && !(defined($opt_f)) ))
				{
					print "Converting image: $Dir[$i]->{Dir}->{path}/$y\n";
					# convert
					system("convert -geometry ${ImgWidth}x${ImgHeight}  -quality 80 $Dir[$i]->{Dir}->{path}/$y $DestDir/$Dir[$i]->{Dir}->{path}/$directoryname/${ImgWidth}x${ImgHeight}_$y >/dev/null 2>&1");
				# thumbnail
					system("convert -geometry ${ThnWidth}x${ThnHeight}  -quality 80 $Dir[$i]->{Dir}->{path}/$y $DestDir/$Dir[$i]->{Dir}->{path}/$directoryname/thn_$y >/dev/null 2>&1");
				}
				else
				{
					
					print "Image ${ImgWidth}x${ImgHeight}_$y and thn_$y  already exists skipping.\n";
				}
			}


			# img_html file
			$z = $y;
			$z =~ s/\.[Jj][Pp][Gg]//;
			if ($opt_p)
			{
				print "Generating html for image: $Dir[$i]->{Dir}->{path}/$y\n";

				if ((exists($Comment{$y}))&&($Comment{$y} ne "")){$PicComm = $Comment{$y};}
				else {$PicComm = "$z";}

				print OL "<div class=\"card\">\n<a href=\"$directoryname/img_$z.html\"><img src=\"$directoryname/thn_$y\" width=\"$ThnWidth\" height=\"$ThnHeight\" alt=\"$y\" /></a>\n",
				"<p>$PicComm</p>\n";
				print OL "</div>\n";

				open(OE,">$DestDir/$Dir[$i]->{Dir}->{path}/$directoryname/img_$z.html") or die "Can't write img_$z.html";
print OE <<EOF
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
	"http://www.w3.org/TR/2000/REC-xhtml1-20000126/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
<style type="text/css"><!--
body {
	background-color: #DDDDCC;
	color: black;
	font-family: Arial, Helvetica, sans-serif;
	font-size: small;
	text-align: center;
}
img {
	border: 1px solid black;
}
table {
	background-color: white;
	border-collapse: collapse;
	border: 1px solid black;
	border-spacing: 0px;
	margin-left: auto;
	margin-right: auto;
}
td {
	white-space: nowrap;
	border: 1px solid black;
	padding: 2px;
}
div.copyright {
	font-style: italic;
	text-align: right;
	clear: left;
}
--></style>
<title>$z</title>
</head>
<body>
<h2>$PicComm</h2>
<h3>$y <a href="../$y">Original size</a></h3>
<div>
<img src="${ImgWidth}x${ImgHeight}_$y" width="$ImgWidth" height="$ImgHeight" title="$PicComm" alt="$y" />
</div>
EOF
;
				if (open (IE,"exiftags $Dir[$i]->{Dir}->{path}/$y  |" ))
				{
					print OE "<table>\n";
					print OE "<tr><th colspan=\"2\">EXIF Tags:<\/th><\/tr>\n";
					while ($line = <IE>)
					{
						chomp($line);
						if ($line =~ /^(.*?):(.*)$/)
						{
							print OE "<tr><td>$1:</td><td>$2</td></tr>\n";
						}
					}
					print OE "<\/table>";
				close (IE);
				}
				else
				{
					print "Program exiftags not found.\n";
				}
				print OE "<div class=\"copyright\">\n";
				print OE "Generated by <a href=\"http:\/\/kapik.net\/sw\/galadmin\">galadmin.pl<\/a> $Version\n";
				print OE "<\/div>\n";
				print OE "<\/body>\n<\/html>\n";
				close (OE);
			}
		}


		if ($opt_p)
		{
			print OL "<div class=\"copyright\">\n";
			print OL "Generated by <a href=\"http:\/\/kapik.net\/sw\/galadmin\">galadmin.pl<\/a> $Version\n";
			print OL "<\/div>\n";
			print OL "<\/body>\n<\/html>\n";
			close (OL);
		}


        	if ($opt_D)
		{
			system("rm $DestDir/$Dir[$i]->{Dir}->{path}/$indexname");
			system("rm -r $DestDir/$Dir[$i]->{Dir}->{path}/$directoryname");
		}
	}
}

my $tree;
my $slevel;

if ($opt_g)
{
	$tree = "<ul>\n";
	$slevel = 0;
	foreach $i (0..$nDir)
	{

		if ($Dir[$i]->{Dir}->{jpg}||$Dir[$i]->{Dir}->{dir})
		{

		  while ($Dir[$i]->{Dir}->{level} < $slevel)
		  {
		  	$tree .= substr("\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t",0,$Dir[$i]->{Dir}->{level});
			$tree .= "</ul></li>\n";
			$slevel--;
		  }
		  while ($Dir[$i]->{Dir}->{level} > $slevel)
		  {

			$tree =~ s/<\/li>\n$/\n/;
		  	$tree .= substr("\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t",0,$slevel);
			$tree .= "<ul>\n";
			$slevel++;
		  }

		  $tree .= substr("\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t",0,$Dir[$i]->{Dir}->{level});
			if ($Dir[$i]->{Dir}->{jpg})
			{

				$GalComm = "";
				if  (open(IC,"<$Dir[$i]->{Dir}->{path}/$commentfile"))
				{
            				while ($line = <IC>)
					{
						chomp($line);
						if ($line =~ /^"(.*)","(.*)"$/)
						{
							$Comment{$1}=$2;

							if (exists($Comment{gallery}) && ($Comment{gallery} ne "")){$GalComm = " - $Comment{gallery}";}
							else {$GalComm = "";}
							last;

						}
					}
					close (IC);
				}

				$path = $Dir[$i]->{Dir}->{path};


				if ( -e "$path/$indexname")
				{
					$file = "/$indexname";
				}
				else
				{
					$file = "";
				}

				$path .= "$file";

				$path =~ s/^$SourceDir//;
				$path =~ s/^\///;
				$tree .= "<li><a href=\"$path\">$Dir[$i]->{Dir}->{name}$GalComm</a></li>\n";
			}
			else
			{
				$tree .= "<li>$Dir[$i]->{Dir}->{name}</li>\n";
			}


		}

	}

	while ($slevel > 0)
	{
		$tree .= "</ul></li>\n";
		$slevel-- ;
	}
	$tree .= "</ul>\n";
}

# index.html
if ($opt_g)
{
	print "Destination directory: $SourceDir\n";
	open(OI,">".$SourceDir."/".$indexname) or die "Can't open index file";
	print OI <<EOF
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
	"http://www.w3.org/TR/2000/REC-xhtml1-20000126/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
<style type="text/css"><!--
body {
	background-color: #DDDDCC;
	color: black;
	font-family: Arial, Helvetica, sans-serif;
	font-size: small;
}
div.copyright {
	font-style: italic;
	text-align: right;
}
--></style>
<title>Gallery INDEX</title>
</head>
<body>
<h2>Gallery INDEX</h2>
$tree
<div class="copyright">
Generated by <a href="http://kapik.net/sw/galadmin">galadmin.pl</a> $Version
</div>
</body>
</html>
EOF
;
	close (OI);
}

exit (0);