#!/usr/bin/perl
# MLのHTML化をして、Namazuのインデックスを作成

@MLList = (
	   'NEWS', 
	   #'ThinkEng',
	   #'dailyOnePhrase', 
	   'gnome',
	   'Kanpou',
	   #'NetNews',
	   'OLD',
	   'mesa-ml', 
	   #'J-Wave',
	   #'HANDS',
	   'VaioDeUnix', 
	   'BizTech',
	   'vine-users' 
	  );
foreach(@MLList) {
  $cmd = "cd /home/junichi/work/web/Mail/$_;";
  #  $cmd .= "rm NMZ.*;";
  $cmd .= "mhonarc -rcfile ~/.mhonarc ~/imapMail/$_;";
  #  $cmd .= "mkdir -p /home/junichi/local/namazu/index/mail/$_;";
  $cmd .= "cd /home/junichi/local/namazu/index/mail/$_;";
  $cmd .= "mknmz ~/work/web/Mail/$_";
  #$cmd .= "ln -sf /home/junichi/local/namazu/index/index.html NMZ.head.ja";
  print "$cmd ...\n";
  system($cmd);
  print "done $_\n";
}