#!/usr/bin/perl
# Filename:	simmer_theme
# Author:	David Ljung Madison <DaveSource.com>
# See License:	http://MarginalHacks.com/License
# Version:	1.16
# Description:	Builds a theme based on:
# 1)  A group of icons following the same names of Dave Simmer's basic themes
# 2)  A Font and CREDIT file
#
# Documentation:  Ha!
#
use strict;
use Cwd 'abs_path';

my $PROGNAME = $0;

my $THEME_DIRECTORY = "/Themes";

my $CONVERT	= "convert";

my ($HEADER,$ALBUM,$IMAGE);

# Image size
sub get_size {
  my ($img) = @_;

  return (0,0) unless (-f $img);

  print STDERR "get_size() run: $CONVERT -verbose $img /dev/null\n" if ($MAIN::DEBUG);
  open(SIZE,"$CONVERT -verbose \Q$img\E /dev/null 2>&1 |") ||
    die("[$PROGNAME] Couldn't run convert!  [$CONVERT]\n");
  while(<SIZE>) {
    print STDERR "get_size(): $_" if ($MAIN::DEBUG);
    if(/\s(\d+)x(\d+)(\s|\+)/) {
      close(SIZE);
      return ($1,$2);
    }
  }
  print STDERR "[$PROGNAME] Can't get [$img] size from 'convert -verbose' output\n";
  die("\n");
}

my @SET;
my @OPTIONS;
my $CORNERS;
sub get_img {
  my ($path,$img,$use_x,$use_y) = @_;

  my ($x,$y) = get_size("$path/$img");
  return (0,0) unless $x && $y;

  $use_x = $use_x || $x;
  $use_y = $use_y || $y;

  my $arr = $img;
  $arr =~ s|\.[^\.]+$||;

  push(@SET, "  \@$arr =	(\"$img\", $use_x, $use_y);\n");
  return ($x,$y);
}

sub fix_names {
  my ($path) = @_;

  sub my_rename {
    my ($path,$old,$new) = @_;
    rename("$path/$old","$path/$new") if (-f "$path/$old" && !-f "$path/$new");
  }

  # Icons
  my_rename($path,"alb_bak.gif","Back.gif");
  my_rename($path,"nav.gif",    "Back.gif");
  my_rename($path,"alb_mor.gif","More.gif");
  my_rename($path,"alb_nam.gif","Icon.gif");
  my_rename($path,"ico.gif",    "Icon.gif");
  my_rename($path,"alb_nex.gif","Next.gif");
  my_rename($path,"alb_prv.gif","Prev.gif");

  # Bar
  my_rename($path,"bar_lef.gif","Bar_L.gif");
  my_rename($path,"bar_mid.gif","Bar_M.gif");
  my_rename($path,"bar_rig.gif","Bar_R.gif");

  # Thumbnail borders
  my_rename($path,"th_top.gif","ThBord_T.gif");
  my_rename($path,"th_tlf.gif","ThBord_TL.gif");
  my_rename($path,"th_trt.gif","ThBord_TR.gif");
  my_rename($path,"th_bot.gif","ThBord_B.gif");
  my_rename($path,"th_blf.gif","ThBord_BL.gif");
  my_rename($path,"th_brt.gif","ThBord_BR.gif");
  my_rename($path,"th_lef.gif","ThBord_L.gif");
  my_rename($path,"th_ltp.gif","ThBord_LT.gif");
  my_rename($path,"th_lbt.gif","ThBord_LB.gif");
  my_rename($path,"th_rig.gif","ThBord_R.gif");
  my_rename($path,"th_rtp.gif","ThBord_RT.gif");
  my_rename($path,"th_rbt.gif","ThBord_RB.gif");

  my_rename($path,"nul.gif","Null.gif");
  my_rename($path,"spacer.gif","Null.gif");
  print "Warning: Missing Null.gif\n" unless (-f "$path/Null.gif");
}

sub get_settings {
  my ($path) = @_;

  my $name = abs_path($path);
  $name =~ s|.*/||;

  push(@SET, "  # Path setting - this is the path to the images\n");
  push(@SET, "  \$PATH = Theme_URL();\n");
  push(@SET, "\n");


  if (open(FONT,"<$path/Font")) {
    while (<FONT>) {
      (/^\s*(#c)?\s*(\/\/)?\s*options?:\s*(\S.*)/i) ?
        push(@OPTIONS, $_) :
        push(@SET, $_);
    }
    close FONT;
    push(@SET, "\n");
  } else {
    print "Warning: Missing $path/Font\n";
  }

  push(@SET, "  # Icons/graphics\n");
  my ($blah,$bar_H) = get_img($path,"Bar_L.gif");
  get_img($path,"Bar_M.gif",'"90%"');
  get_img($path,"Bar_R.gif");
  get_img($path,"Icon.gif");
  get_img($path,"Back.gif");
  get_img($path,"Next.gif");
  get_img($path,"Prev.gif");
  get_img($path,"More.gif");
  #get_img($path,"Null.gif");

  push(@SET, "\n");
  push(@SET, "  # Thumbnail border\n");
  push(@SET, "  \$X = Image_Page() ? Image_Width() : Get_Opt('x');\n");
  push(@SET, "  \$Y = Image_Page() ? Image_Height() : Get_Opt('y');\n");

  my ($ltx,$lty) = get_img($path,"ThBord_LT.gif");
  my ($rtx,$rty) = get_img($path,"ThBord_RT.gif");
  my ($lbx,$lby) = get_img($path,"ThBord_LB.gif");
  my ($rbx,$rby) = get_img($path,"ThBord_RB.gif");

  my ($lx,$ly) = get_img($path,"ThBord_L.gif",undef,"\$Y-$lty-$lby");
  my ($rx,$ry) = get_img($path,"ThBord_R.gif",undef,"\$Y-$rty-$rby");

  my ($tlx,$tly) = get_img($path,"ThBord_TL.gif");
  my ($trx,$try) = get_img($path,"ThBord_TR.gif");
  my ($blx,$bly) = get_img($path,"ThBord_BL.gif");
  my ($brx,$bry) = get_img($path,"ThBord_BR.gif");
  get_img($path,"ThBord_T.gif","\$X+$lx+$rx-$tlx-$trx");
  get_img($path,"ThBord_B.gif","\$X+$lx+$rx-$blx-$brx");

  $CORNERS = $tlx ? 1 : 0;
}

sub can_simmer {
  # Auto generated by http://MarginalHacks.com/Hacks/album/simmer_theme
  my ($path) = @_;
  unless (-f "$path/album.th") {
    return 1 if -f "$path/th_top.gif";
    return 1 if -f "$path/ThBord_T.gif";
    return 0;
  }
  open(CHECK,"<$path/album.th") || return 0;
  my $simmered = grep(/Auto generated by .*simmer_theme/, <CHECK>) ? 1 : 0;
  close(CHECK);
  $simmered;
}

sub album {
  my ($path) = @_;

  open(OUT,">$path/album.th") || die("Couldn't write $path/album.th");

  print OUT @OPTIONS;
  print OUT $HEADER;
  print OUT @SET;
  print OUT $ALBUM;

  close OUT;
}

sub image {
  my ($path) = @_;

  open(OUT,">$path/image.th") || die("Couldn't write $path/image.th");

  print OUT "#c// options: -image_sizes\n" if ($CORNERS);
  print OUT $HEADER;
  print OUT @SET;
  print OUT $IMAGE;

  close OUT;
}

sub main {
  my @themes = grep(-d $_, @ARGV);
  die("No theme args?") unless @themes;
  foreach my $path ( @themes ) {
    print "Theme: $path";
    unless (can_simmer($path)) {
      print "  [album.th is not a simmer_theme - skipping]\n";
      next;
    }
    print "\n";
    fix_names($path);
    get_settings($path);
    album($path);
    image($path);
    undef @SET;
    $CORNERS = 0;
  }
}

$HEADER = <<'END_OF_HEADER';
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
#c// ###################################################################
#c// Album Theme by David Ljung Madison based on
#c// generic SimmerTheme by Dave Simmer of DaveWeb.com
#c// -- Auto generated by http://MarginalHacks.com/Hacks/album/simmer_theme
#c// ###################################################################
#c//
<:
  # Image arrays are: name, width, height
  sub img_src { print "<img src='$PATH/$_[0]' width='$_[1]' height='$_[2]' $_[3] alt='$_[4]' border='0'>" if ($_[1]); }

END_OF_HEADER

$ALBUM = <<'END_OF_ALBUM';
:>//
#c//
#c// ###################################################################
#c// Everything beyond here is the same for the generic DaveWeb theme..
#c// ###################################################################
<:
  # Shorthand for column info specified by -columns
  $Cols = Get_Opt('columns');
  $Col_Perc = int(100/$Cols)."%";
:>//
<html>
	<head>
		<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
		<: Meta() :>
		<title>Album: <: pAlbum_Name() :></title>
	</head>

	<body <:=$BODY:>>
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
			<tr>
				<td colspan="<:=($Cols-1):>" height="10"><:img_src("Null.gif",11,10):></td>
			</tr>
			<tr>
				<td colspan="<:=($Cols-1):>">
					<:img_src(@Icon,"align='middle'"):>
					<br>
					<font <:=$TITLE_FONT:>>
					&nbsp;&nbsp;&nbsp;&nbsp;<: pJoin_Parent_Albums(":"); :>
					</font></td>
				<td valign='top' width="25%">
					<div align="right">
						<:
							$back=Back();
							if ($back && $back ne "''") {
								print "<a href=$back>";
								@Back ? img_src(@Back,"align='middle'") : print "<h2>Back</h2>";
								print "</a>\n";
							}
						:>
					</div>
				</td>
			</tr>
<: if (isHeader()) { _:>
			<tr>
				<td colspan="<:=$Cols:>">
					<br>
					<center>
						<:pHeader():>
					</center>
				</td>
			</tr>
<: } _:>
			<tr>
				<td colspan="<:=$Cols:>" height="<:=$bar_H:>">
					<div align="center">
						<nobr><:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:></nobr>
					</div>
				</td>
			</tr>
			<tr>
				<td colspan="<:=$Cols:>"><:img_src("Null.gif",20,10):></td>
			</tr>

#c// Are there more albums below this one?
<:  if (Child_Albums()) { _:>
			<tr>
				<td colspan="<:=$Cols:>">

	<table width='100%' align='center' cellspacing='3'>
		<tr>
<:    if (@More) { :>
			<td height='50' align='center' width='<:=$Col_Perc:>' valign='top'>
				<:img_src(@More):>
			</td>
<:    } else { :>
			<td height='50' align='center' width='<:=$Col_Perc:>' valign='top'>
				<h2>More albums:</h2>
			</td>
<:    } :>
#c//
#c// Loop on all the albums
<:    while (Child_Albums()) { _:>
			<td height='50' align='center' width='<:=$Col_Perc:>' valign='top'>
				<font <:=$TITLE_FONT:>><: pChild_Album() :></font>
			</td>
<:
        Next_Child_Album();
        # Start a new row after we use up $Cols
        if (!(Child_Album_Cnt() % $Cols) && Child_Albums_Left()) { _:>
		</tr><tr>
<:      }
      }	# End child album loop
:>

		</tr>
	</table>

				</td>
			</tr>

#c// Bar after child albums
			<tr>
				<td colspan="<:=$Cols:>" height="<:=$bar_H:>">
					<div align="center">
						<nobr><:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:></nobr>
					</div>
				</td>
			</tr>

#c//
#c// End if albums
<:  } :>

#c//
#c// The images
<: if (Images()) { _:>//
			<tr>
<: while (Images()) { _:>//
				<td align='center' valign='top' width='<:=$Col_Perc:>'>
<: if (@ThBord_LB) { _:>
#c// The thumbnail is a complicated table for handling all the corners...
					<table border='0' cellpadding='0' cellspacing='0'>
						<tr>
							<td colspan='3'><:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):></td>
						</tr> <tr>
							<td><:img_src(@ThBord_LT):></td>
							<td rowspan='3'><a href=<:=Image_URL():>><img src=<:=Image_Thumb():> alt=<:=Image_Alt():> width='<:=Get_Opt('x'):>' height="<:=Get_Opt('y'):>" border="0"></a></td>
							<td><:img_src(@ThBord_RT):></td>
						</tr> <tr>
							<td><:img_src(@ThBord_L):></td>
							<td><:img_src(@ThBord_R):></td>
						</tr> <tr>
							<td><:img_src(@ThBord_LB):></td>
							<td><:img_src(@ThBord_RB):></td>
						</tr> <tr>
							<td colspan='3'><:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):></td>
						</tr>
					</table>
<: } else { _:>
					<nobr><:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):></nobr><br />
					<nobr><:img_src(@ThBord_L):><a href=<:=Image_URL():>><:pImage_Thumb_Src():></a><:img_src(@ThBord_R):></nobr><br />
					<nobr><:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):></nobr><br />
<: } _:>

					<font <:=$MAIN_FONT:>>
					<a href=<:=Image_URL():>>
					<:=Image_Name():></a>
						<br>
						<font size=-2>
						<:pImage_Caption():>
						</font>
					</font>
				</td>

<:     if (!(Image_Cnt() % $Cols) && Images_Left()) { _:>//
#c//
#c// Start a new row
			</tr>
			<tr>
				<td height="20" colspan="<:=$Cols:>"><:img_src("Null.gif",20,20):></td>
			</tr>
			<tr>
<:     } :>
#c//
#c// End image loop
<:
      Next_Image();
    }
:>//

			</tr>
			<tr>
				<td height="20" colspan="<:=$Cols:>"><:img_src("Null.gif",20,20):></td>
			</tr>

			<tr>
				<td colspan="<:=$Cols:>" height="<:=$bar_H:>">
					<div align="center">
						<nobr><:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:></nobr>
					</div>
				</td>
			</tr>

<:}:>//

<: if (isFooter()) { _:>
			<tr>
				<td colspan="<:=$Cols:>">
					<br>
					<center>
						<:pFooter():>
					</center>
				</td>
			</tr>

			<tr>
				<td colspan="<:=$Cols:>" height="<:=$bar_H:>">
					<div align="center">
						<nobr><:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:></nobr>
					</div>
				</td>
			</tr>
<: } _:>

			<tr>
				<td colspan="<:=$Cols:>">
					<div align="center">
						<font <:=$CREDIT_FONT:>><: Credit() :> on <:=scalar localtime:></font></div>
				</td>
			</tr>
		</table>
		<p></p>
	</body>

</html>
END_OF_ALBUM


$IMAGE = <<'END_OF_IMAGE';
:>//
#c//
#c// Everything beyond here is the same for the generic DaveWeb image theme..
<html>
	<head>
		<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
		<: Meta() :>
		<title>Image: <:=Image_Name() :></title>
	</head>

	<body <:=$BODY:>>
		<:img_src("Null.gif",1,10):>
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
			<tr valign='top'>
				<td>
					<:img_src(@Icon,"align='middle'"):>
					<br>
					<font <:=$TITLE_FONT:>>
					&nbsp;&nbsp;&nbsp;&nbsp;<: pJoin_Parent_Albums(":"); :>
					</font></td>
				<td>
					<div align="right">
						<a href=<:=Back():>><:@Back ? img_src(@Back) : print "<h2>Back</h2>"; :></font></a></div>
				</td>
			</tr>
			<tr>
				<td colspan="2" height="<:=$bar_H:>">
					<div align="center">
						<nobr><:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:></nobr>
					</div>
				</td>
			</tr>
		</table>
		<br />
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
#c//
#c// Prev/caption/next
#c//
			<tr valign='top'>
				<td width="25%">
<: Set_Image_Prev() :>//	PREV
					<font <:=$MAIN_FONT:>>
					<div align="left">
					<a href=<:=Image_Page_URL():>><:img_src(@Prev,"align='top'");  print "(prev)" unless @Prev; :><:=Image_Name():></a>
					</div>
					</font>
				</td>

				<td width="50%">
<: Set_Image_This() :>//	CAPTION

					<div align="center">
						<font <:=$TITLE_FONT:>>
						<a href=<:=Image_URL():>>
						<:=Image_Name():></a></font>

						<br />
						<font <:=$MAIN_FONT:>>
						<:pImage_Caption():></font>
					</div>
				</td>

				<td width="25%">
<: Set_Image_Next() :>//	NEXT
					<font <:=$MAIN_FONT:>>
					<div align="right">
					<a href=<:=Image_Page_URL():>><:=Image_Name():><:img_src(@Next,"align='top'");  print "(next)" unless @Next; :></a>
					</div>
					</font>
				</td>
			</tr>
		</table>

		<table border="0" cellpadding="0" cellspacing="0" width="100%">

<: Set_Image_This() :>//

#c//
#c// The image
#c//
			<tr>
				<td colspan="3" valign="top" width="100%">
					<div align="center"><br />

#c// All corners
<: if (@ThBord_LB) { _:>
						<table border='0' cellpadding='0' cellspacing='0'>
							<tr>
								<td colspan='3'><:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):></td>
							</tr> <tr>
								<td><:img_src(@ThBord_LT):></td>
								<td rowspan='3'><a href=<:=Image_URL():>><:pImage_Src():></a></td>
								<td><:img_src(@ThBord_RT):></td>
							</tr> <tr>
								<td><:img_src(@ThBord_L):></td>
								<td><:img_src(@ThBord_R):></td>
							</tr> <tr>
								<td><:img_src(@ThBord_LB):></td>
								<td><:img_src(@ThBord_RB):></td>
							</tr> <tr>
								<td colspan='3'><:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):></td>
							</tr>
						</table>

#c// Two corners
<: } elsif (@ThBord_TL) { _:>
						<nobr><:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):></nobr><br />
						<nobr><:img_src(@ThBord_L):><a href=<:=Image_URL():>><:pImage_Src():></a><:img_src(@ThBord_R):></nobr><br />
						<nobr><:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):></nobr><br />

#c// No corners
<: } else { _:>
						<a href=<:=Image_URL():>><:pImage_Src():></a><br />
<: } _:>
					</div>
				</td>
			</tr>

			<tr>
				<td height="20"><:img_src("Null.gif",20,20):></td>
			</tr>

			<tr>
				<td height="<:=$bar_H:>">
					<div align="center">
						<nobr><:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:></nobr>
					</div>
				</td>
			</tr>
			<tr>
				<td>
					<div align="center">
						<font <:=$CREDIT_FONT:>><: Credit() :> on <:=scalar localtime:></font></div>
				</td>
			</tr>
			<tr>
				<td></td>
			</tr>
		</table>
		<p></p>
	</body>

</html>
END_OF_IMAGE
main();