options: -geometry=170x114 <: # Newfloat theme version 0.2 for album # Copyright 2003 Helmar Wieland # License: GPLv2 or later sub helmIsImageCaption { if (($IMAGE_CAPTION_FILES[$IMAGE_CNT] && (-r $IMAGE_CAPTION_FILES[$IMAGE_CNT])) || $IMAGE_CAPTIONS[$IMAGE_CNT]) { return 1; } return 0; } sub helmImageCaption { if ($IMAGE_CAPTION_FILES[$IMAGE_CNT] && (-r $IMAGE_CAPTION_FILES[$IMAGE_CNT])) { my ($buffer) = ""; return 0 unless (open(FILE,"$IMAGE_CAPTION_FILES[$IMAGE_CNT]")); while() { $buffer .= $_; } close FILE; return $buffer; } elsif ($IMAGE_CAPTIONS[$IMAGE_CNT]) { return $IMAGE_CAPTIONS[$IMAGE_CNT]; } return 0; } sub helmStripMarkup { if (@_) { $_ = $_[0]; s/\<(.*?)>//gi; # this is kinda stupid return $_; } return 0; } sub helmMakeNonBsp { if (@_) { $_ = $_[0]; s/\s/ /g; # this is kinda stupid, too return $_; } return 0; } :>// <: pAlbum_Name() :> <: Meta() :>// <: if (!(Parent_Albums_Left() == 1)) { :>// .*<\/a>/$1/; print; :>" /> <: } :>// /> <: pAlbum_Name() :> <: while (Parent_Albums()) { print " \n "; pParent_Album(); if (Parent_Albums_Left() > 1) { print " »"; } print "\n \n"; Next_Parent_Album() } :> <: if (isHeader()) { :> <:pHeader():> <: } :>// <: if (Child_Albums()) { :>// <: while (Child_Albums()) { :> » ><:=helmMakeNonBsp(Child_Album_Name()):> <: Next_Child_Album(); } :> <: } :> <: if (Images()) { :>// <: while(Images()) { :>// > width='<:=Get_Opt('x'):>' height='<:=Get_Opt('y'):>' alt=<:=helmStripMarkup(Image_Alt()):>// <: if (helmIsImageCaption()) { print " title='" . helmStripMarkup(helmImageCaption()) . "'"; } :> /> <:=Image_Name():> <: Next_Image() :>// <: } :>// <: } :>// <: if (isFooter()) { :> <:pFooter():> <: } :> <: Credit() :> on <:=scalar localtime:> Newfloat theme 0.2 by Helmar Wieland