#
# say ( @ )  .. Utility routine to output to stderr on generation
#

<perl>
	sub say {
		local ( *TTY );
		open ( TTY, ">/dev/tty" );
		print TTY @_;
		close ( TTY );
	}
</perl>


#
# <A>
#
# extended a with attribute 'once': the link is only generated once per page and language - 
# all further invocations will be replaced with %body only.
#
<define-tag a endtag=required>
	<preserve href once />
	<set-var once=* />
	<set-var %attributes />
	<ifeq "<get-var once />" ""
		<group
			<perl>
			{
				my $body, $href, $lang, $key, $attr;
				
				<perl:assign $body>%body</perl:assign>
				<perl:assign $attr><attributes-remove once %attributes /></perl:assign>
				$href = '<get-var href />';
				$lang = '<lang:current />';
			
				$key = "$lang" . "-" . "$href";

				if ( $ONCELIST {$key} eq qq|$body| ) {
					<perl:print>$body</perl:print>
				}
				else {
					$ONCELIST {$key} = qq|$body|;

					<perl:print><a* $attr>$body</a*></perl:print>
				}	
			}
			</perl> 
		/> 
		<group <a* %attributes>%body</a*> /> 
	/>
	<restore href once />
</define-tag>


#
# <LEGO>
#
# LEGO(R)
#
<define-tag lego whitespace=delete>
  <span class="lego">LEGO<sup>&#174;</sup></span>
</define-tag>

#
# <EMAIL href="user@domain.de" [showref[=pattern]]>
#
#
<define-tag email whitespace=delete endtag=required>
	<preserve href showhref />
	<set-var %attributes />
	<perl>   
	{
		my $email        = '<get-var href />';
		my $do_show_href = '<var-exists showhref />';
		my $href_pattern = '<get-var showhref />';
		my $user, $domain, $body;

		<perl:assign $body>%body</perl:assign>

		( $user, $domain ) = ( $email =~ /^([^@]+)@([^@]+)$/ );

		$email = "$user--AT--$domain";

		if ( $do_show_href ) {
			if ( $href_pattern ne "" ) {
				$body =~ s/$href_pattern/$email/;
			}
			else {
				$body = $email;
			}
		}

		<perl:print><a href="mailto:$email" rel="email">$body</a></perl:print>	
	}
	</perl>
	<restore href showhref />
</define-tag>


#
# <IMGLIST name scale rel dir thumbdir>...</IMGLIST>
#
# Creates a row of clickable thumbnails with an optional comment
#
<define-tag imglist endtag=required>
	<preserve name scale rel dir thumbdir />
	<set-var %attributes />
	<defvar name "unknown-imglist" />
	<defvar scale "100%" />
	<defvar rel "external-image" />
	<perl>
	{
		#   The $name variable is used in other <imglist:*> tags and
		#   so is global
		$name = '<get-var name />';
		{
			#   initialise the data structure for this particular navbar
			#   and fill it with some already known information         
			my $CFG = {};                                      
			$IMGLIST{$name}  = $CFG;
	                                                                      
			$CFG->{NAME}     = $name;                                                                                                    
			$CFG->{SCALE}    = '<get-var scale />';
			$CFG->{REL}      = '<get-var rel />';
			$CFG->{DIR}      = '<get-var dir />';
			$CFG->{THUMBDIR} = '<get-var thumbdir />';		
			$CFG->{IMAGES}   = [];
		}
	}
	</perl>
	%body
	<restore name scale rel dir thumbdir />
</define-tag>


#
# <IMGLIST:IMG file thumbfile>comment</IMGLIST:IMG>
#
# Creates a thumbnail entry in an IMGLIST
#
<define-tag imglist:img endtag=required>
	<preserve file thumbfile thumbwidth thumbheight />
	<set-var %attributes />
	<perl>
	{
		my $tmp;
		<perl:assign $tmp>%body</perl:assign>
    
		my $IMG = {};   
		push ( @{$IMGLIST{$name}->{IMAGES}}, $IMG);
        
		$IMG->{FILE}         = '<get-var file />';
		$IMG->{THUMBFILE}    = '<get-var thumbfile />';
		$IMG->{THUMBWIDTH}   = '<get-var thumbwidth />';
		$IMG->{THUMBHEIGHT}  = '<get-var thumbheight />';
		$IMG->{LABEL}        = $tmp;
	}
	</perl>                                            
	<restore file thumbfile thumbwidth thumbheight />
</define-tag>

#
# <IMGLIST:RENDER name />
#
# Renders the given IMGLIST at the current position
#
<define-tag imglist:render whitespace=delete>
	<preserve name cols />
	<set-var %attributes />
	<defvar name "unknown-imglist" />
	<defvar cols 1 />

	<div class="imglist">
	<perl>
	{
		my $name = '<get-var name />';
		my $cols = '<get-var cols />';

		my $CFG = $IMGLIST{$name};
		my $scale = $CFG->{SCALE};
		my $realcols = $cols + $cols - 1;
		my $i = 0;
			
		<perl:print><table class="imglist-table" cellspacing=0 cellpadding=0 border=0></perl:print>

		foreach my $IMG (@{$CFG->{IMAGES}}) {
			my $small  = $IMG->{THUMBFILE};
			my $big    = $IMG->{FILE};
			my $lbl    = $IMG->{LABEL};
			my $width  = $IMG->{THUMBWIDTH};
			my $height = $IMG->{THUMBHEIGHT};
			my $firstinrow;
			my $lastinrow;
			my $sizetext = "";

			$small = "$CFG->{THUMBDIR}/$small" unless ( $small =~ m,^/, || $small =~ m,^http://, );
			$big   = "$CFG->{DIR}/$big"        unless ( $big   =~ m,^/, || $big   =~ m,^http://, );

			$firstinrow = 1 if (( $i % $cols ) == 0 );
			$lastinrow  = 1 if (( $i % $cols ) == ( $cols - 1 ));

			#say ( "COLS: $cols, current index: $i, index mod cols: ", $i % $cols, " --> fir: $firstinrow / lir: $lastinrow \n" );

			if ( $firstinrow ) { 
				<perl:print><tr class="imglist-row"></perl:print>
			}
			my $lbltag;
				
			if ( $lbl )	{	
				$lbltag = "<span class=\"imglist-label\">$lbl</span>";
			}
			# <a> and </a> have to be within on <perl:print> statement !!

			$sizetext = "width=\"$width\" height=\"$height\"" unless ( $width == 0 || $height == 0 );

			<perl:print><td class="imglist-cell" align="center"><a href="$big" rel="$CFG->{REL}"><img class="imglist-img" src=$small scale="$scale" $sizetext alt="$lbl" />$lbltag</a></td></perl:print>
			
			if ( $lastinrow ) { 
				<perl:print></tr></perl:print> 
			}

			$i++;
		}
		if (( $i % $cols ) != ( $cols - 1 )) {
			<perl:print></tr></perl:print>
		}

		<perl:print></table></perl:print>
	}
	</perl>
	</div>

	<restore name cols />
</define-tag>


#
# <IMGLIST:BS name user folder align target>...</IMGLIST:BS>
#
# Shortcut IMGLIST for BrickShelf folders
#
<define-tag imglist:bs endtag=required whitespace=delete>
	<preserve user folder align target />
	<set-var %attributes />
	<defvar name   "unknown-imglist" />
	<defvar target "_blank" />
	<defvar align  "center" />
	<defvar user   "sandman" />

	<imglist name="<get-var name />"
	         align="<get-var align />"
	         scale="100%"
	         target="<get-var target />"
	         dir="http://www.brickshelf.com/gallery/<get-var user />/<get-var folder />"
	         thumbdir="http://www.brickshelf.com/gallery/<get-var user />/<get-var folder />/thumb">%body</imglist>
         
	<restore user folder align target />
</define-tag>


#
# <IMGLIST:IMG:BS (basename of jpg) [comment] />
#
# Shortcut IMGLIST:IMG for BrickShelf folders
#
<define-tag imglist:img:bs whitespace=delete>
	<imglist:img file=%0.jpg thumbfile=%0.jpg_thumb.jpg thumbwidth=0 thumbheight=0>%1</imglist:img>
</define-tag>
                            

<define-tag subpages whitespace=delete endtag=required>
	<div class="subpages-list">
		<ul>%body</ul>
	</div>
</define-tag>


#
# <SUBPAGE href="link with *" img=picture.jpg>...text...</SUBPAGE>
#
# Easily create pictured links to subpages (for use on index.wml pages)
#
<define-tag subpage whitespace=delete endtag=required>
	<preserve href img title />
	<set-var %attributes />
	<li>
		<a href="<lang:star: <get-var href />.*.html />"><img class="subpage-img" src="<get-var img />" width="128" height="96" alt="<en: Picture of /><de: Bild von />" />
			<span class="subpage-title"><get-var title /><br /><span class="subpage-description">%body</span></span>
		</a>
	</li>
	<restore href img title />
</define-tag>


#
# <SUBPAGE:BS <basename of page> <bricklink folder> <bricklink picture without .jpg> >...text...</SUBPAGE>
#
# Easily create pictured links to subpages (for use on index.wml pages)
#
<define-tag subpage:bs whitespace=delete endtag=required>
	<subpage href="%0" img="http://www.brickshelf.com/gallery/sandman/%1/thumb/%2.jpg_thumb.jpg" title="%3">%body</subpage>
</define-tag>




#
# <PRODUCT [DATASHEET=<url>] [PICTURE=<url>]>name</PRODUCT>
#
# Easily create links to pictures/datasheets for products
#
<define-tag product whitespace=delete endtag=required>
	<preserve datasheet picture />
	<set-var %attributes />
	%body
	<if <get-var picture /> 
		&nbsp;<a href="<get-var picture />" rel="external"><img class="product-addimg" src="<get-var ROOT />images/prod_picture.gif" alt="picture" title="<de: Bild /><en: Picture />" /></a>
	/>
	<if <get-var datasheet />
		&nbsp;<a href="<get-var datasheet />" rel="external"><img class="product-addimg" src="<get-var ROOT />images/prod_datasheet.gif" alt="datasheet" title="<de: Datenblatt /><en: Datasheet />" /></a>
	/>
	<restore datasheet picture />
</define-tag>



#
# <INTERNAL href="link with *">...text...</INTERNAL>
#
# Link to an internal page, using the current language
#
<define-tag internal whitespace=delete endtag=required>
	<preserve href />
	<set-var %attributes />
	<a href="<lang:star: <get-var href />.*.html />">%body</a>
	<restore href />
</define-tag>