: # 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; } :>// <: pAlbum_Name() :> | <:=helmStripMarkup(Image_Name()):> <: if (helmIsImageCaption()) { :>// <: } :>// <: Meta() :>// <:=helmStripMarkup(Image_Name()):> <: while (Parent_Albums_Left() > 0) { print " \n "; pParent_Album(); if (Parent_Albums_Left() > 1) { print " »"; } print "\n \n"; Next_Parent_Album() } :>// <: if ($#IMAGE_NAMES > 6 && $#IMAGE_NAMES - $THIS_IMAGE < 3) { $helmLower = $#IMAGE_NAMES - 6; } elsif ($#IMAGE_NAMES > 6 && $THIS_IMAGE > 3) { $helmLower = $THIS_IMAGE - 3; } else { $helmLower = 0; } $helmUpper = $helmLower + 6; if ($helmUpper > $#IMAGE_NAMES) { $helmUpper = $#IMAGE_NAMES; } # print "Size: " . $#IMAGE_NAMES . "\nCurrent: " . $THIS_IMAGE . "\nLower: " . $helmLower . "\nUpper: " . $helmUpper . "\n"; print ""; for ($helmCount = $helmLower; $helmCount <= $helmUpper; $helmCount++) { $IMAGE_CNT = $helmCount; if ($IMAGE_CNT == $THIS_IMAGE) { print " "; } else { print " "; } :> > alt=<:=helmStripMarkup(Image_Alt()):> title=<:=helmStripMarkup(Image_Alt()):> /> <: } :> > <: pImage_Src() :> <:=Image_Name():> <: if (helmIsImageCaption()) { :>// <: pImage_Caption() :> <: } :>// <: Credit() :> on <:=scalar localtime:> Newfloat theme 0.2 by Helmar Wieland