err.no Git - dotfiles/blob - imageindexrc

   1 # -*- perl -*-
   2 #
   3
   4 $do_dirs = 0;
   5 $do_slide = 1;
   6 $do_detail = 0;
   7 $do_emoticons = 0;
   8 $details_linkto = 'slide';
   9 $default_columns = 4;
  10 $detailshrink = 1;
  11 $default_titletext = "";
  12
  13 $framedateformat = "%F";
  14 $frametimeformat = "%R";
  15 $indexdateformat = "%F";
  16 $indextimeformat = "%R";
  17 $slidedateformat = "%F";
  18 $slidetimeformat = "%R";
  19 $detaildateformat = "%F";
  20 $detailtimeformat = "%R";
  21 $emptycell = "";
  22 undef $framelinktext;
  23
  24 undef &page_footer;
  25 undef &page_header;
  26
  27 sub tfheen_page_header {
  28     my $this = shift(@_);
  29     my $linkto = shift(@_);
  30     my $numlink = 0;
  31     my $verstring;
  32
  33     select(INDEX);
  34     print qq[<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01//EN
  35              "http://www.w3.org/TR/html401/strict.dtd">
  36              <HTML>
  37              <HEAD>
  38              ];
  39     $verstring = &versionstring();
  40     print qq[<META NAME="GENERATOR" CONTENT="imageindex $verstring">];
  41
  42     if (defined ($write_meta_tag{$titlemetatag})) {
  43         print qq[<META NAME="$titlemetatag" CONTENT="$current_titletext">\n];
  44     }
  45     if (defined ($write_meta_tag{$columnsmetatag})) {
  46         print qq[<META NAME="$columnsmetatag" CONTENT="$current_columns">\n];
  47     }
  48     if (defined ($write_meta_tag{$thumbxmetatag})) {
  49         print qq[<META NAME="$thumbxmetatag" CONTENT="$current_thumbnail_x">\n];
  50     }
  51     if (defined ($write_meta_tag{$thumbymetatag})) {
  52         print qq[<META NAME="$thumbymetatag" CONTENT="$current_thumbnail_y">\n];
  53     }
  54     if (defined ($write_meta_tag{$reversemetatag})) {
  55         print qq[<META NAME="$reversemetatag" CONTENT="$current_reverse">\n];
  56     }
  57     if (defined($firstdate)) {
  58         print qq[<META NAME="$begindatemetatag" CONTENT="$firstdate">\n];
  59     }
  60     if (defined($lastdate)) {
  61         print qq[<META NAME="$enddatemetatag" CONTENT="$lastdate">\n];
  62     }
  63     if (!defined ($opt_includeall) && defined (@opt_exclude) && scalar (@opt_exclude)) {
  64         my $tmp = join (',', @opt_exclude);
  65         my $etmp;
  66
  67         # We need to "encode" this string in the HTML so that raw filenames
  68         # (that people should not try to access) are not exposed to the
  69         # outside world.
  70         #
  71         printf qq[<META NAME="$excludemetatag" CONTENT="%s">\n],
  72              encodestring($tmp);
  73     }
  74     printf qq[<META NAME="$numimagesmetatag" CONTENT="%d">\n], $::image_counter;
  75
  76     if (defined (@opt_skipmont) && scalar (@opt_skipmont)) {
  77          printf qq[<META NAME="$skipmetatag" CONTENT="%s">\n],
  78                 join(',', @opt_skipmont);
  79     }
  80     print qq[<TITLE>$current_titletext</TITLE>\n];
  81     if (defined $existingstylefile) {
  82          print qq[<LINK TYPE="text/css" REL="stylesheet"
  83                   HREF="$existingstylefile">\n];
  84     } else {
  85          print qq[<LINK TYPE="text/css" REL="stylesheet" HREF="$stylefile">\n];
  86     }
  87
  88     print "</HEAD>\n";
  89     print "<BODY>\n";
  90
  91     # Break out of frames
  92     print qq[<SCRIPT TYPE="text/javascript">
  93              if (parent.frames.length > 0) {
  94                   parent.location.href = self.document.location
  95                   }
  96              </SCRIPT>\n];;
  97
  98     print qq[<H1 CLASS="title">$current_titletext</H1>\n];
  99
 100     print "<H3>";
 101
 102     # On all these links, check to see if the variable is also defined. If
 103     # not (done in a .imageindexrc file perhaps) then skip the link
 104     if ((-e "$destdir/../$indexfile") and
 105         ($do_dirs == 1) and defined($updirtext)) {
 106         print qq[<A HREF="../$indexfile">$updirtext</A>];
 107         $numlink++;
 108     }
 109
 110     if (($do_slide == 1) and ($slide_counter > 1) and
 111         defined($framelinktext)) {
 112          print "&nbsp;&nbsp;|&nbsp;&nbsp;" if ($numlink != 0);
 113         print qq[<A HREF="$slide_dir/$framefile">$framelinktext</A>];
 114         $numlink++;
 115     }
 116
 117     if (($do_detail == 1) and ($this eq 'index') and
 118         defined($detaillinktext)) {
 119         print "&nbsp;&nbsp;|&nbsp;&nbsp;" if ($numlink != 0);
 120         print qq[<A HREF="$detailfile">$detaillinktext</A>];
 121         $numlink++;
 122     }
 123
 124     if (($this eq 'detail') and defined($indexlinktext)) {
 125         print "&nbsp;&nbsp;|&nbsp;&nbsp;" if ($numlink != 0);
 126         print qq[<A HREF="$indexfile">$indexlinktext</A>];
 127         $numlink++;
 128     }
 129
 130     print "\n<BR>\n" if ($numlink != 0);
 131
 132     print "</H3>\n";
 133
 134     if (defined($firstdate) and defined($lastdate)) {
 135
 136         my $tmp1 = &format_date($firstdate, $this, 'dayonly');
 137         my $tmp2 = &format_date($lastdate, $this, 'dayonly');
 138
 139         if ($tmp1 ne $tmp2) {
 140             if ($current_reverse == 0) {
 141                 print qq[<H2 CLASS="daterange">$tmp1 - $tmp2</H2>\n];
 142             } else {
 143                 print qq[<H2 CLASS="daterange">$tmp2 - $tmp1</H2>\n];
 144             }
 145         } else {
 146             print qq[<H2 CLASS="daterange">$tmp1</H2>\n];
 147         }
 148     }
 149
 150     print qq[<TABLE WIDTH="100%" CLASS="index">\n];
 151
 152     select(STDOUT);
 153
 154 }
 155
 156
 157 sub tfheen_page_footer {
 158
 159     my $time = localtime(time);
 160
 161     select(INDEX);
 162
 163     print "</TABLE>\n";
 164     print "</BODY>\n</HTML>\n";
 165
 166     select(STDOUT);
 167 }
 168 *page_footer = \&tfheen_page_footer;
 169 *page_header = \&tfheen_page_header;
 170
 171 1;