From: tfheen Date: Tue, 14 Jul 2009 17:03:53 +0000 (+0000) Subject: Add imageindexrc X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9b7b0f7ef9b6e12ea4ac7954bd08b2401678cb63;p=dotfiles Add imageindexrc git-svn-id: file:///svn/tfheen/trunk/dotfiles@1374 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf --- diff --git a/imageindexrc b/imageindexrc new file mode 100644 index 0000000..65cbbee --- /dev/null +++ b/imageindexrc @@ -0,0 +1,171 @@ +# -*- perl -*- +# + +$do_dirs = 0; +$do_slide = 1; +$do_detail = 0; +$do_emoticons = 0; +$details_linkto = 'slide'; +$default_columns = 4; +$detailshrink = 1; +$default_titletext = ""; + +$framedateformat = "%F"; +$frametimeformat = "%R"; +$indexdateformat = "%F"; +$indextimeformat = "%R"; +$slidedateformat = "%F"; +$slidetimeformat = "%R"; +$detaildateformat = "%F"; +$detailtimeformat = "%R"; +$emptycell = ""; +undef $framelinktext; + +undef &page_footer; +undef &page_header; + +sub tfheen_page_header { + my $this = shift(@_); + my $linkto = shift(@_); + my $numlink = 0; + my $verstring; + + select(INDEX); + print qq[ + + + ]; + $verstring = &versionstring(); + print qq[]; + + if (defined ($write_meta_tag{$titlemetatag})) { + print qq[\n]; + } + if (defined ($write_meta_tag{$columnsmetatag})) { + print qq[\n]; + } + if (defined ($write_meta_tag{$thumbxmetatag})) { + print qq[\n]; + } + if (defined ($write_meta_tag{$thumbymetatag})) { + print qq[\n]; + } + if (defined ($write_meta_tag{$reversemetatag})) { + print qq[\n]; + } + if (defined($firstdate)) { + print qq[\n]; + } + if (defined($lastdate)) { + print qq[\n]; + } + if (!defined ($opt_includeall) && defined (@opt_exclude) && scalar (@opt_exclude)) { + my $tmp = join (',', @opt_exclude); + my $etmp; + + # We need to "encode" this string in the HTML so that raw filenames + # (that people should not try to access) are not exposed to the + # outside world. + # + printf qq[\n], + encodestring($tmp); + } + printf qq[\n], $::image_counter; + + if (defined (@opt_skipmont) && scalar (@opt_skipmont)) { + printf qq[\n], + join(',', @opt_skipmont); + } + print qq[$current_titletext\n]; + if (defined $existingstylefile) { + print qq[\n]; + } else { + print qq[\n]; + } + + print "\n"; + print "\n"; + + # Break out of frames + print qq[\n];; + + print qq[

$current_titletext

\n]; + + print "

"; + + # On all these links, check to see if the variable is also defined. If + # not (done in a .imageindexrc file perhaps) then skip the link + if ((-e "$destdir/../$indexfile") and + ($do_dirs == 1) and defined($updirtext)) { + print qq[$updirtext]; + $numlink++; + } + + if (($do_slide == 1) and ($slide_counter > 1) and + defined($framelinktext)) { + print " | " if ($numlink != 0); + print qq[$framelinktext]; + $numlink++; + } + + if (($do_detail == 1) and ($this eq 'index') and + defined($detaillinktext)) { + print " | " if ($numlink != 0); + print qq[$detaillinktext]; + $numlink++; + } + + if (($this eq 'detail') and defined($indexlinktext)) { + print " | " if ($numlink != 0); + print qq[$indexlinktext]; + $numlink++; + } + + print "\n
\n" if ($numlink != 0); + + print "

\n"; + + if (defined($firstdate) and defined($lastdate)) { + + my $tmp1 = &format_date($firstdate, $this, 'dayonly'); + my $tmp2 = &format_date($lastdate, $this, 'dayonly'); + + if ($tmp1 ne $tmp2) { + if ($current_reverse == 0) { + print qq[

$tmp1 - $tmp2

\n]; + } else { + print qq[

$tmp2 - $tmp1

\n]; + } + } else { + print qq[

$tmp1

\n]; + } + } + + print qq[\n]; + + select(STDOUT); + +} + + +sub tfheen_page_footer { + + my $time = localtime(time); + + select(INDEX); + + print "

\n"; + print "\n\n"; + + select(STDOUT); +} +*page_footer = \&tfheen_page_footer; +*page_header = \&tfheen_page_header; + +1;