--- /usr/local/bin/mlist2html	Thu Jan  3 22:18:22 2002
+++ /usr/pkg/bin/mlist2html	Tue Aug 13 14:20:11 2002
@@ -1,4 +1,4 @@
-#!/usr/local/bin/perl 
+#!/usr/pkg/bin/perl 
 #
 # 1998.07.18	include X-Sequence: header
 # 1998.04.23	version 0.06
@@ -56,6 +56,14 @@
 ##########################################
 	# default setting
 
+if ( -d $mlist_path ) { chdir $mlist_path }
+
+## open(TMP,">/tmp/log.$$");
+## $pwd = `pwd`;
+## print TMP "Current: $pwd\n";
+## print TMP "mlists_path: $mlists_path\n";
+## print TMP "mlist_path: $mlist_path\n";
+
 @monat=(dummy,January,February,March,April,May,June,July,August,September,October,November,December);
 
 foreach $i (0 .. $#monat) {
@@ -193,24 +201,27 @@
 	# now using MHonArc
 	# set args for MHonArc to $mharg
 
-$mhonarc = '/usr/local/bin/mhonarc';
-$mhlib	 = '/usr/local/lib/MHonArc';
+$mhonarc = '/usr/pkg/bin/mhonarc';
+$mhlib	 = '/usr/pkg/share/mhonarc';
 
 ## print STDERR "mhlib($mhlib)\n";
 ## print STDERR "mlist_name($mlist_name)\n";
 
-if (-e "$mhlib/$mlist_name\.rc") {
-	$mh_rc = "$mhlib/$mlist_name\.rc";
-	}
-	else	{
-		$mh_rc = "$mhlib/common.rc";
-	}
-
-$mharg = "-add -rcfile $mh_rc ";
+## if (-e "$mhlib/$mlist_name\.mrc") {
+## 	$mh_rc = "$mlist_name\.mrc";
+## 	}
+## 	else	{
+## 		$mh_rc = "common.mrc";
+## 	}
+
+## $mharg = "-add -rcfile $mh_rc ";
+## $mharg = "-add -rcfile ../.mhonarc.mrc";
+$mharg = "-add";
 $mharg = $mharg . " -title \'$mlist_name of $mname, $akt_year\'" ;
 $mharg = $mharg . " -ttitle \'$mlist_name(by thread) of $mname, $akt_year\'";
 $mharg = $mharg . " -outdir $mon_path";
 
+## print("cat /tmp/tmp_$$ | $mhonarc $mharg\n");
 system("cat /tmp/tmp_$$ | $mhonarc $mharg");