##---------------------------------------------------------------------------##
## File:
## $Id: mhidxrc.pl,v 2.17 2004/03/15 21:07:18 ehood Exp $
## Author:
## Earl Hood mhonarc@mhonarc.org
## Description:
## MHonArc library defining values for various index resources
##---------------------------------------------------------------------------##
## MHonArc -- Internet mail-to-HTML converter
## Copyright (C) 1996-1999 Earl Hood, mhonarc@mhonarc.org
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
## 02111-1307, USA
##---------------------------------------------------------------------------##
package mhonarc;
sub mhidxrc_set_vars {
##-----------------##
## Index resources ##
##-----------------##
$IdxTypeStr = $NOSORT ? 'Message' :
$SUBSORT ? 'Subject' :
$AUTHSORT ? 'Author' :
'Date';
## MAIN index resources
## if ($MAIN) {
## Label for main index
unless ($IDXLABEL) {
$IDXLABEL = $IdxTypeStr . ' Index';
$IsDefault{'IDXLABEL'} = 1;
}
## Beginning of main index page
unless ($IDXPGBEG) {
$IDXPGBEG =<<'EndOfStr';
$IDXTITLE$
$IDXTITLE$
EndOfStr
$IsDefault{'IDXPGBEG'} = 1;
}
## End of main index page
unless ($IDXPGEND) {
$IDXPGEND = "\n\n";
$IsDefault{'IDXPGEND'} = 1;
}
## Beginning of main index list
unless ($LIBEG) {
$LIBEG = '';
$LIBEG .= "
\n" if $MAIN;
$THEAD .= '$PGLINK(TPREV)$$PGLINK(TNEXT)$' . "\n" if $MULTIIDX;
$THEAD .= "\n
\n";
$IsDefault{'THEAD'} = 1;
}
## Foot of thread index page (also contains list end markup)
unless ($TFOOT) {
$TFOOT = "
\n";
$IsDefault{'TFOOT'} = 1;
}
## Template for thread entry with no follow-ups
unless ($TSINGLETXT) {
$TSINGLETXT =<<'EndOfStr';
$SUBJECT$,
$FROMNAME$
EndOfStr
$IsDefault{'TSINGLETXT'} = 1;
}
## Template for thread entry that is the start of a thread
unless ($TTOPBEG) {
$TTOPBEG =<<'EndOfStr';
$SUBJECT$,
$FROMNAME$
EndOfStr
$IsDefault{'TTOPBEG'} = 1;
}
## Template for end of a thread
unless ($TTOPEND) {
$TTOPEND = "
\n";
$IsDefault{'TTOPEND'} = 1;
}
## Template for the start of a sub-thread
unless ($TSUBLISTBEG) {
$TSUBLISTBEG = "
\n";
$IsDefault{'TSUBLISTBEG'} = 1;
}
## Template for the end of a sub-thread
unless ($TSUBLISTEND) {
$TSUBLISTEND = "
\n";
$IsDefault{'TSUBLISTEND'} = 1;
}
## Template for the start and content of a regular thread entry
unless ($TLITXT) {
$TLITXT =<<'EndOfStr';
$SUBJECT$,
$FROMNAME$
EndOfStr
$IsDefault{'TLITXT'} = 1;
}
## Template for end of a regular thread entry
unless ($TLIEND) {
$TLIEND = "
\n";
$IsDefault{'TLIEND'} = 1;
}
## Template for the start of subject based section
unless ($TSUBJECTBEG) {
$TSUBJECTBEG = "
<Possible follow-ups>
\n";
$IsDefault{'TSUBJECTBEG'} = 1;
}
## Template for the end of subject based section
unless ($TSUBJECTEND) {
$TSUBJECTEND = " ";
$IsDefault{'TSUBJECTEND'} = 1;
}
## Template for start and content of missing message in thread
unless ($TLINONE) {
$TLINONE = "
Message not available";
$IsDefault{'TLINONE'} = 1;
}
## Template for end of missing message in thread
unless ($TLINONEEND) {
$TLINONEEND = "
\n";
$IsDefault{'TLINONEEND'} = 1;
}
## Template for opening an indent (for cross-page threads)
unless ($TINDENTBEG) {
$TINDENTBEG = "
\n";
$IsDefault{'TINDENTBEG'} = 1;
}
## Template for closing an indent (for cross-page threads)
unless ($TINDENTEND) {
$TINDENTEND = "
\n";
$IsDefault{'TINDENTEND'} = 1;
}
## Template for start of a continued thread (for cross-page threads)
unless ($TCONTBEG) {
$TCONTBEG = '
$SUBJECTNA$, ' .
"(continued)\n";
$IsDefault{'TCONTBEG'} = 1;
}
## Template for end of a continued thread (for cross-page threads)
unless ($TCONTEND) {
$TCONTEND = "
' . "\n\n";
$IsDefault{'SUBJECTHEADER'} = 1;
}
## Separator between message data head and message data body
unless ($HEADBODYSEP) {
$HEADBODYSEP = "\n";
$IsDefault{'HEADBODYSEP'} = 1;
}
## Separator between end of message data and rest of page
unless ($MSGBODYEND) {
$MSGBODYEND = "\n";
$IsDefault{'MSGBODYEND'} = 1;
}
##---------------------------------##
## Mail header formating resources ##
##---------------------------------##
$FIELDSBEG = "