Update of mhonarc/MHonArc/lib
Modified Files:
mhamain.pl mhdb.pl mhindex.pl mhinit.pl mhopt.pl mhrcfile.pl
mhusage.pl
Log Message:
Added PRINTXCOMMENTS resource.
======================================================================
FILE: mhonarc/MHonArc/lib/mhamain.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhamain.pl?rev=2.88>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhamain.pl.diff?r1=2.87&r2=2.88&diff_format=h>
--- mhamain.pl 8 Jul 2005 05:27:52 -0000 2.87
+++ mhamain.pl 8 Jul 2005 06:34:03 -0000 2.88
@@ -1150,23 +1150,29 @@
# Output comments -- more informative, but can be used for
# error recovering.
- print $msghandle
- "<!-- ", commentize("MHonArc v$VERSION"), " -->\n",
- "<!--X-Subject: ", commentize($Subject{$index}), " -->\n",
- "<!--X-From-R13: ", commentize(mrot13($From{$index})), " -->\n",
- "<!--X-Date: ", commentize($Date{$index}), " -->\n",
- "<!--X-Message-Id: ", commentize($Index2MsgId{$index}), " -->\n",
- "<!--X-Content-Type: ", commentize($ContentType{$index}), " -->\n";
- #ContentType
+ print $msghandle "<!-- ", commentize("MHonArc v$VERSION"), " -->\n";
+ if ($PrintXComments) {
+ print $msghandle
+ "<!--X-Subject: ",
+ commentize($Subject{$index}), " -->\n",
+ "<!--X-From-R13: ",
+ commentize(mrot13($From{$index})), " -->\n",
+ "<!--X-Date: ",
+ commentize($Date{$index}), " -->\n",
+ "<!--X-Message-Id: ",
+ commentize($Index2MsgId{$index}), " -->\n",
+ "<!--X-Content-Type: ",
+ commentize($ContentType{$index}), " -->\n";
- if (defined($Refs{$index})) {
- foreach (@{$Refs{$index}}) {
- print $msghandle
- "<!--X-Reference: ", commentize($_), " -->\n";
- #Reference-Id
+ if (defined($Refs{$index})) {
+ foreach (@{$Refs{$index}}) {
+ print $msghandle
+ "<!--X-Reference: ", commentize($_), " -->\n";
+ #Reference-Id
+ }
}
- }
- if (defined($Derived{$index})) {
- foreach (@{$Derived{$index}}) {
- print $msghandle "<!--X-Derived: ", commentize($_), " -->\n";
+ if (defined($Derived{$index})) {
+ foreach (@{$Derived{$index}}) {
+ print $msghandle "<!--X-Derived: ", commentize($_), " -->\n";
+ }
}
}
======================================================================
FILE: mhonarc/MHonArc/lib/mhdb.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhdb.pl?rev=2.39>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhdb.pl.diff?r1=2.38&r2=2.39&diff_format=h>
--- mhdb.pl 2 Jun 2005 05:50:27 -0000 2.38
+++ mhdb.pl 8 Jul 2005 06:34:03 -0000 2.39
@@ -75,4 +75,5 @@
print_var($db,'NumOfPages', \$NumOfPages);
print_var($db,'NumOfPrintedPages',\$NumOfPrintedPages);
+print_var($db,'PrintXComments',\$PrintXComments);
print_var($db,'SaveRsrcs', \$SaveRsrcs);
======================================================================
FILE: mhonarc/MHonArc/lib/mhindex.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhindex.pl?rev=1.13>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhindex.pl.diff?r1=1.12&r2=1.13&diff_format=h>
--- mhindex.pl 15 Dec 2004 20:33:39 -0000 1.12
+++ mhindex.pl 8 Jul 2005 06:34:03 -0000 1.13
@@ -236,5 +236,5 @@
"<address>\n",
"Mail converted by ",
- qq|<a href="$DOCURL">MHonArc</a> $VERSION\n|,
+ qq|<a href="$DOCURL">MHonArc</a>\n|,
"</address>\n";
}
======================================================================
FILE: mhonarc/MHonArc/lib/mhinit.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhinit.pl?rev=2.54>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhinit.pl.diff?r1=2.53&r2=2.54&diff_format=h>
--- mhinit.pl 8 Jul 2005 02:04:06 -0000 2.53
+++ mhinit.pl 8 Jul 2005 06:34:03 -0000 2.54
@@ -389,4 +389,6 @@
$IconURLPrefix = defined($ENV{'M2H_ICONURLPREFIX'}) ?
$ENV{'M2H_ICONURLPREFIX'} : '';
+$PrintXComments = defined($ENV{'M2H_PRINTXCOMMENTS'}) ?
+ $ENV{'M2H_PRINTXCOMMENTS'} : 1;
if ($UNIX) {
======================================================================
FILE: mhonarc/MHonArc/lib/mhopt.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhopt.pl?rev=2.63>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhopt.pl.diff?r1=2.62&r2=2.63&diff_format=h>
--- mhopt.pl 7 Jul 2005 05:32:20 -0000 2.62
+++ mhopt.pl 8 Jul 2005 06:34:03 -0000 2.63
@@ -138,4 +138,6 @@
'noposixstrftime',
# Use own implementation for time format process
+ 'noprintxcomments',
+ # Do not print X- comments
'noreverse', # List messages in normal order
'nosaveresources',
@@ -164,4 +166,6 @@
'posixstrftime',
# Use POSIX strftime()
+ 'printxcomments',
+ # Print X- comments
'quiet', # No status messages while running
'rcfile=s@', # Resource file for mhonarc
@@ -601,4 +605,7 @@
$KeepOnRmm = 1 if $opt{'keeponrmm'};
$KeepOnRmm = 0 if $opt{'nokeeponrmm'};
+
+ $PrintXComments = 1 if $opt{'printxcomments'};
+ $PrintXComments = 0 if $opt{'noprintxcomments'};
$CheckNoArchive = 1 if $opt{'checknoarchive'};
======================================================================
FILE: mhonarc/MHonArc/lib/mhrcfile.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhrcfile.pl?rev=2.46>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhrcfile.pl.diff?r1=2.45&r2=2.46&diff_format=h>
--- mhrcfile.pl 6 Jun 2005 15:47:00 -0000 2.45
+++ mhrcfile.pl 8 Jul 2005 06:34:04 -0000 2.46
@@ -888,4 +888,12 @@
last FMTSW;
}
+ if ($elem eq 'printxcomments') { # Print info X- comments
+ $PrintXComments = 1;
+ last FMTSW;
+ }
+ if ($elem eq 'noprintxcomments') { # Don't print info X- comments
+ $PrintXComments = 0;
+ last FMTSW;
+ }
if ($elem eq 'refsbegin' ||
$elem eq 'refsbeg') { # Explicit ref links begin
======================================================================
FILE: mhonarc/MHonArc/lib/mhusage.pl
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mhonarc/MHonArc/lib/mhusage.pl?rev=2.27>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mhonarc/MHonArc/lib/mhusage.pl.diff?r1=2.26&r2=2.27&diff_format=h>
--- mhusage.pl 15 Dec 2004 20:33:40 -0000 2.26
+++ mhusage.pl 8 Jul 2005 06:34:04 -0000 2.27
@@ -157,4 +157,5 @@
-noposixstrftime : Do not use POSIX::strftime() to process time
format (the default)
+ -noprintxcomments : Do not print <!--X-...--> comments
-noreconvert : Do not reconvert existing messages (the default)
-noreverse : List messages in normal order (the default)
@@ -177,4 +178,5 @@
-perlinc <list> : List of paths to search for MIME filters
-posixstrftime : Use POSIX::strftime() to process time formats
+ -printxcomments : Print <!--X-...--> comments (the default)
-quiet : Suppress status messages during execution
-rcfile <file> : Resource file for MHonArc
---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-COMMITS