options: -known_images options: -geometry 150x225 #c// ################################################## #c// The index frame #c// ################################################## <: # Path setting - this is the path to the images $PATH = Theme_URL(); :> Album: <: Path('album_name') :> <: Meta() :> <body> You will have the best experience with Frames! <br /> However, you can see the content of this album <a href='Thumbs.html'>here</a> <br /> or <br /> Look at the sub-albums <a href='Albums.html'>here</a> </body> <: # Write the Title.html and Thumbs.html my $album = Path('album_file'); my $path = $album; $path =~ s|[^/]+$||; $path = "." unless $path; sub PrintChildAlbum { my $obj = get_obj($CHILD_ALBUM_CNT,'dirs'); my $name = Name($obj); my $url = Get($obj,'URL','dir'); print "$name"; } sub ParentAlbum { my @PARENT_ALBUMS = @{Path('parent_albums')}; return "" unless Parent_Albums_Left() > 0; if ($PARENT_ALBUM_CNT == num('parent_albums')-1) { return "$PARENT_ALBUMS[$PARENT_ALBUM_CNT]" unless Image_Page(); return "$PARENT_ALBUMS[$PARENT_ALBUM_CNT]"; } my$str = " #c// #c// ################################################## #c// Albums.html #c// ################################################## <: open(STDOUT,">$path/Albums.html") || die("Theme can't write [$path/Albums.html]\n"); :> Album: <: pAlbum_Name() :> <: Meta() :> <: if (isHeader()) { _:>
<:pHeader():>
<: } _:> #c// Are there more albums below this one? <: if (Child_Albums()) { _:>
More albums:
#c// No child albums <: } else { _:>
No child albums
<: } :> <: if (isFooter()) { _:>
<:pFooter():>

<: } _:>
<: Credit() :> on <:=scalar localtime:> <: close STDOUT :> #c// ################################################## #c// Thumbs.html #c// ################################################## <: open(STDOUT,">$path/Thumbs.html") || die("Theme can't write [$path/Thumbs.html]\n"); :> Album: <:=pAlbum_Name():> <: Meta() :>
Path
<: while(Parent_Albums_Left() > 0) { print ParentAlbum(); Next_Parent_Album(); print "
\n"; } _:>
<: if (Child_Albums()) { _:>

Children

<: } _:> <: if (Images()) { _:>
Images
#c <: while(Images()) { _:> #c <:pImage():> #c
#c #c <:pImage_Caption():> #c #c
#c
<: while(Images()) { _:> <: $th=Image_Height(); $tw=Image_Width(); $tnwidth="120"; $scale=$tnwidth/$tw; if ($tw < $th){:> <:}else{:> <:}:>
{URL}{album_page}{image}:>>{URL}{album_page}{thumb}:>> #c<:pImage(0):>
<:Next_Image():> <: } _:> <: } _:> <: close STDOUT; :>