Update of mharc/bin
Modified Files:
mh-month-pack
Log Message:
Changes made to protect against unintential modification of
MH context. This is done by setting MH_CONTEXT envariable
to /dev/null and explicitly specifying folder to each MH
command invoked.
======================================================================
FILE: mharc/bin/mh-month-pack
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/*checkout*/mharc/bin/mh-month-pack?rev=1.6>
<http://www.mhonarc.org/cgi-bin/viewcvs.cgi/mharc/bin/mh-month-pack.diff?r1=1.5&r2=1.6&diff_format=h>
--- mh-month-pack 11 Oct 2002 23:52:28 -0000 1.5
+++ mh-month-pack 4 Aug 2005 02:21:47 -0000 1.6
@@ -42,4 +42,6 @@
my $yearly = 0;
+$ENV{'MHCONTEXT'} = '/dev/null';
+
MAIN: {
# Grap command-line options
@@ -84,5 +86,5 @@
# Open read pipe to scan to get message number and date for each
# message.
- if (!open(SCAN, qq/scan +$folder -format '/.SCAN_FORMAT_STR.qq/'|/)) {
+ if (!open(SCAN, qq/scan '+$folder' -format '/.SCAN_FORMAT_STR.qq/'|/)) {
warn qq/Warning: Non-zero exit status from "scan": $?\n/;
next;
@@ -124,5 +126,5 @@
# Have packf actually append message to mailbox file.
- if (run_cmd("packf -mbox -file $outdir/$mbox $msg")) {
+ if (run_cmd("packf '+$folder' -mbox -file $outdir/$mbox $msg")) {
warn qq/Warning: Non-zero exit status from "packf": $?\n/;
next;
@@ -131,6 +133,6 @@
# Annotate message that it has been processed.
if (!$noanno) {
- if (run_cmd("anno -component x-mharc-packed -inplace -nodate ".
- "-text '1' $msg")) {
+ if (run_cmd("anno '+$folder' -component x-mharc-packed -inplace ".
+ "-nodate -text '1' $msg")) {
warn qq/Warning: Non-zero exit status from "anno": $?\n/;
next;
@@ -143,5 +145,5 @@
# Restore current folder
- run_cmd("folder +$curfolder");
+ run_cmd("folder '+$curfolder'");
} # End: MAIN
---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-COMMITS