Update of /cvsroot/mhonarc/mhonarc/MHonArc/lib
In directory subversions:/tmp/cvs-serv14972/lib
Modified Files:
mhdb.pl mhinit.pl mhopt.pl mhrcfile.pl mhrcvars.pl mhusage.pl
mhutil.pl
Log Message:
* Added ICONURLPREFEX resource and $ICONURLPREFIX$ resource variable.
Index: mhdb.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhdb.pl,v
retrieving revision 2.29
retrieving revision 2.30
diff -C2 -r2.29 -r2.30
*** mhdb.pl 2 Jan 2003 04:20:05 -0000 2.29
--- mhdb.pl 9 Jan 2003 23:42:28 -0000 2.30
***************
*** 162,165 ****
--- 162,166 ----
print_var($db,'GzipLinks', \$GzipLinks);
print_var($db,'HtmlExt', \$HtmlExt);
+ print_var($db,'IconURLPrefix', \$IconURLPrefix);
print_var($db,'IDXSIZE', \$IDXSIZE);
print_var($db,'KeepOnRmm', \$KeepOnRmm);
Index: mhinit.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhinit.pl,v
retrieving revision 2.44
retrieving revision 2.45
diff -C2 -r2.44 -r2.45
*** mhinit.pl 2 Jan 2003 23:04:56 -0000 2.44
--- mhinit.pl 9 Jan 2003 23:42:28 -0000 2.45
***************
*** 376,379 ****
--- 376,381 ----
$AddrModifyBodies = defined($ENV{'M2H_MODIFYBODYADDRESSES'}) ?
$ENV{'M2H_MODIFYBODYADDRESSES'} : undef;
+ $IconURLPrefix = defined($ENV{'M2H_ICONURLPREFIX'}) ?
+ $ENV{'M2H_ICONURLPREFIX'} : '';
if ($UNIX) {
Index: mhopt.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhopt.pl,v
retrieving revision 2.48
retrieving revision 2.49
diff -C2 -r2.48 -r2.49
*** mhopt.pl 2 Jan 2003 23:04:56 -0000 2.48
--- mhopt.pl 9 Jan 2003 23:42:28 -0000 2.49
***************
*** 77,80 ****
--- 77,82 ----
# (option no longer applicable)
'htmlext=s', # Extension for HTML files
+ 'iconurlprefix=s',
+ # Prefix for icon urls
'idxfname=s', # Filename of index page
'idxprefix=s', # Filename prefix for multi-page main index
***************
*** 498,501 ****
--- 500,504 ----
($opt{'varregex'} =~ /\S/);
$TSLICELEVELS = $opt{'tslicelevels'} if $opt{'tslicelevels'};
+ $IconURLPrefix = $opt{'iconurlprefix'} if $opt{'iconurlprefix'};
$IDXNAME = $opt{'idxfname'} || $IDXNAME || $ENV{'M2H_IDXFNAME'} ||
Index: mhrcfile.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhrcfile.pl,v
retrieving revision 2.32
retrieving revision 2.33
diff -C2 -r2.32 -r2.33
*** mhrcfile.pl 31 Dec 2002 20:01:37 -0000 2.32
--- mhrcfile.pl 9 Jan 2003 23:42:28 -0000 2.33
***************
*** 309,312 ****
--- 309,319 ----
last FMTSW;
}
+ if ($elem eq 'iconurlprefix') { # Prefix for ICON urls
+ if ($line = &get_elem_last_line($handle, $elem)) {
+ $line =~ s/\s+//g;
+ $IconURLPrefix = $line;
+ }
+ last FMTSW;
+ }
if ($elem eq 'idxfname') { # Index filename
if ($line = &get_elem_last_line($handle, $elem)) {
Index: mhrcvars.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhrcvars.pl,v
retrieving revision 2.22
retrieving revision 2.23
diff -C2 -r2.22 -r2.23
*** mhrcvars.pl 31 Dec 2002 05:03:30 -0000 2.22
--- mhrcvars.pl 9 Jan 2003 23:42:28 -0000 2.23
***************
*** 181,184 ****
--- 181,189 ----
last REPLACESW;
}
+ if ($var eq 'ICONURLPREFIX') { ## URL prefix to message icon
+ $isurl = 0;
+ $tmp = $IconURLPrefix;
+ last REPLACESW;
+ }
if ($var eq 'MSG') { ## Filename of message page
($lref, $key, $pos) = compute_msg_pos($index, $var, $arg);
Index: mhusage.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhusage.pl,v
retrieving revision 2.21
retrieving revision 2.22
diff -C2 -r2.21 -r2.22
*** mhusage.pl 2 Jan 2003 23:04:56 -0000 2.21
--- mhusage.pl 9 Jan 2003 23:42:28 -0000 2.22
***************
*** 98,101 ****
--- 98,103 ----
-htmlext <ext> : Filename extension for generated HTML files
(def: "html")
+ -iconurlprefix <url> : Prefix for icon URLs
+ (def: "")
-idxfname <name> : Name of index page
(def: "maillist.html")
Index: mhutil.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/lib/mhutil.pl,v
retrieving revision 2.26
retrieving revision 2.27
diff -C2 -r2.26 -r2.27
*** mhutil.pl 4 Jan 2003 03:01:56 -0000 2.26
--- mhutil.pl 9 Jan 2003 23:42:28 -0000 2.27
***************
*** 686,692 ****
}
if ($icon =~ s/\[(\d+)x(\d+)\]//) {
! return ($icon, $1, $2);
}
! ($icon, undef, undef);
}
--- 686,692 ----
}
if ($icon =~ s/\[(\d+)x(\d+)\]//) {
! return ($IconURLPrefix.$icon, $1, $2);
}
! ($IconURLPrefix.$icon, undef, undef);
}
---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV