Update of /cvsroot/mhonarc/mhonarc/MHonArc/contrib
In directory subversions:/tmp/cvs-serv836
Modified Files:
mhastart.pl
Log Message:
removed the -rcfile option from the 'updatearchive' routine.
Index: mhastart.pl
===================================================================
RCS file: /cvsroot/mhonarc/mhonarc/MHonArc/contrib/mhastart.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** mhastart.pl 30 Nov 2002 00:03:02 -0000 1.3
--- mhastart.pl 6 Feb 2003 01:40:33 -0000 1.4
***************
*** 230,234 ****
=head1 AUTHOR
! Copyright © 2002 Gunnar Hjalmarsson
This script is free software and is provided "as is" without express or
--- 230,235 ----
=head1 AUTHOR
! Copyright © 2002-2003 Gunnar Hjalmarsson
! http://www.gunnar.cc/cgi-bin/contact.pl
This script is free software and is provided "as is" without express or
***************
*** 494,498 ****
flock (FILE, 2);
print FILE @$latestmsg;
- flock (FILE, 8);
close (FILE);
--- 495,498 ----
***************
*** 500,504 ****
flock (FILE, 2);
for (@msgs) { print FILE @$_ }
- flock (FILE, 8);
close (FILE);
--- 500,503 ----
***************
*** 537,541 ****
flock (FILE, 2);
print FILE ($pop3 ? join ('', @$msgref) : $$msgref) . "\n\n";
- flock (FILE, 8);
close (FILE);
}
--- 536,539 ----
***************
*** 543,547 ****
sub updatearchive {
@ARGV = (@_, '-outdir', $archive);
! push (@ARGV, '-rcfile', $mrc, $mbox) unless $in{'routine'} eq 'remove';
require 'mhamain.pl' or die "Couldn't require mhamain.pl\n$!";
mhonarc::initialize(); # skipped the 'mhonarc' program file in
--- 541,545 ----
sub updatearchive {
@ARGV = (@_, '-outdir', $archive);
! push (@ARGV, $mbox) unless $in{'routine'} eq 'remove';
require 'mhamain.pl' or die "Couldn't require mhamain.pl\n$!";
mhonarc::initialize(); # skipped the 'mhonarc' program file in
---------------------------------------------------------------------
To sign-off this list, send email to majordomo(_at_)mhonarc(_dot_)org with the
message text UNSUBSCRIBE MHONARC-DEV