mhonarc-commits
[Top] [All Lists]

CVS: mhonarc/MHonArc/lib mhdb.pl,2.29,2.30 mhinit.pl,2.44,2.45 mhopt.pl,2.4...

2003-01-09 16:42:51
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