●お題

図 0. スクリプトmaildirfrom.pl

#!/usr/bin/perl
use strict;
use Getopt::Long;

my($debug)=0;		# Debug flag
my($maildir_dir)="/Maildir/new";# Default checking Maildir directory
my($maildir);		# Full path of Maildir directory
my($sender_str);	# sender string
my($count)=-1;		# for mail number counting
my($use_date);		# for -use_date command line option
my($list);		# Print mail number
my(@print);		# The mail number lists to printing out to STDOUT

# Check commandline option.
GetOptions(
	   # Original from compatible options
	   "c" => sub {$count=0},	# Count only option
	   "s=s" => \$sender_str,	#
	   "f=s" => \$maildir,		#
	   # Below original options
	   "maildir_suffix=s" => \$maildir_dir,	# Maildir check directory
	   "list" => sub {$count=0;$list=1},	# Print mail number
	   "print=i" => \@print,		# Print out specified mail 
	   "debug" => \$debug,			# debug flag
	   "use_date" => \$use_date,		# Use date field as output date
	  ) or usage();

$count=0 if($#print>=0);

# Set Maildir directory.
if(!$maildir){
  if($#ARGV>=0) {
    $maildir=((getpwnam($ARGV[0]))[7])."/".$maildir_dir;
  } elsif (defined $ENV{MAIL}) {
    $maildir=$ENV{MAIL};
  } else {
    $maildir=((getpwuid($<))[7])."/".$maildir_dir;
  }
}
print "Maildir is $maildir.\n" if($debug);

# Let's go!!
opendir(MAILDIR,$maildir) or die "Can't open directory $maildir";
my(@dirent)=readdir(MAILDIR);
closedir(MAILDIR);
  
for(my($i)=0;$i<=$#dirent;$i++){
  my($fname)=$maildir."/".$dirent[$i];
  check_file($fname) if(-f $fname);
}
printf "There %s %d message%s in your incoming mailbox.\n"
  , ($count==1?"is":"are"), $count, ($count==1?"":"s") if($count>=0 && $#print<0);

# Check a file
sub check_file {
  my($file)=shift;
  my($header);		# Mail header strings
  my($sender);
  
  print "Filename: $file\n" if($debug);
  open(MAIL,$file) or die("Cannot open $file");
  my($date)=(stat(MAIL))[10];
  $date=localtime($date);
  while(<MAIL>){
    $header.=$_;
    my(@line) = split(/:/);
    last if(/^$/); # Escape loop at the end of mail header

    if($line[0] =~ /return-path/i) {
      $sender=$line[1];
      chomp($sender);
      $sender =~ s/\s*<(.*)>\s*/$1/;
    }
    if($use_date && $line[0] =~ /date/i) {
      $date = $line[1];
      chomp($date);
      $date=~ s/\s*(.*)\s*/$1/;
    }
  }
  if(!defined $sender_str || $sender =~ /$sender_str/i){
    $count++ if($count>=0);
    if($count<0){
      print "From $sender ".$date."\n";
    } elsif($#print>=0) {
      for(my($i)=0;$i<=$#print;$i++){
	if($i+1 == $count){
	  print $header;
	  while(<MAIL>){print $_;}
	}
      }
    } elsif($list) {
      print "$count:\t$sender ".$date."\n";
    }
  }
  close MAIL;
}

sub usage {
  print STDERR "usage: $0 [-c] [-f maildir] [-s sender] [-maildir_suffix maildir_sufix] [-use_date] [-list] [-print mail_num] [-debug] [user]\n";
  exit(1);
}