# -*- 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 "