#!/usr/bin/perl

$seconds = 8; #seconds before repeating.
@maildir = ("/home/greenfly/mail/greenfly.org/INBOX/new",
	    "/home/greenfly/mail/greenfly.org/consulting/new",
	    "/home/greenfly/mail/greenfly.org/nblug/new",
	    "/home/greenfly/mail/greenfly.org/norcalars/new",
	    "/home/greenfly/mail/greenfly.org/debian/new",
	    );

while(1)
{
   $mailcount = 0;
   $mutt = 0;
   $dir = "";
   @filelist = ();
   open MUTT, "pidof mutt |";
   $mutt = <MUTT>;
   close MUTT;
   chomp $mutt;
   foreach(@maildir)
   {
      opendir MAILDIR, "$_" or die "Can't open directory: $!";
      @filelist = grep !/^\.\.?$/, readdir MAILDIR;
      closedir MAILDIR;
      if(@filelist)
      {
	 /([^\/]+)\/new/;
	 $dir .= "$1 ";
      }
      $mailcount += @filelist + 0;
   }

   if($mailcount)
   {
      if($mutt ne "")
      {
	 system("apanelc led on");
	 $count++;
      }
      else
      {
	 system("apanelc led blink 100");
	 system("echo \"new mail in:\n$dir\" | osd_cat --shadow=2 --align=center --pos=bottom --color=green --delay=2 --font=lucidasanstypewriter-bold-24 --offset 40 &") if(($count % 3 == 0) && ($count < 9));
	 $count++;
      }
   }
   else
   {
      system("apanelc led off");
      $count = 0;
   }
   sleep $seconds;
}