#!/usr/bin/perl -w
#
# Christian Birchinger <joker@netswarm.net>
# Simple mailcheck hack with "fetchmail -c"-alike output

use strict;
use Net::Domain qw(hostfqdn);

my $host = hostfqdn();
my $username = getpwuid($>);

my $mailbox="/var/spool/mail/$username";

open(MAILBOX, $mailbox) or die "Can't open mailbox: $mailbox";

my $line;
my $mailcount;
my $mailreadcount;
my $header;

while ($line = <MAILBOX>) {
  if ( "$line" =~ /^From / ) {
    ++$mailcount;
    $header=1;
  } elsif ( "$line" =~ /^$/ ) {
    $header=0;
  } elsif ( "$line" =~ /^Status: / && $header == 1 ) {
    ++$mailreadcount;
  }
}

print "$mailcount messages ($mailreadcount seen) for $username at $host.\n";