#!/usr/bin/perl

use warnings;
use strict;

use POSIX;
use Proc::ProcessTable;
use Tk;

our $top;
our $bAlive = 1;
our $sleep     = 5;
our $mail_size = 0;

$SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&signal_handler;
sub signal_handler { $bAlive = 0; }

main ();

sub main {
    setup ();

    while ( $bAlive ) {
        popup_and_fork () if not is_mail_size_zero ();
        sleep $sleep;
    }
}

sub setup {
    # Die if another copy is already running:
    #
    my $proc_table = new Proc::ProcessTable;
    my $nMailMen = grep { /$0/ } map { $_->{cmndline} } @{$proc_table-
+>table};
    die "$0 already running" if $nMailMen > 1;

    my $pid = fork ();
    exit if $pid;
    die "couldn't fork: $!" if not defined $pid;

    POSIX::setsid () or die "can't start new session: $!";

    $mail_size = get_mail_size ();
}

sub get_mailfile {
    chomp ( my $username = `whoami` );
    return "/var/mail/$username";
}

sub get_mail_size {
    return -s get_mailfile ();
}

sub is_mail_size_nonzero { 
    return 0 != get_mail_size ();
}

sub popup_and_fork {

    if ( my $pid = fork () ) { # parent
        waitpid ( $pid, 0 );
    }
    elsif ( defined $pid ) { # child
        my $mail_size = get_mail_size ();
        popup_box ();
        exit;
    }
    else {
        die "fork failure: $!";
    }
}

sub popup_box {
    $top = new MainWindow;

    $top->title ( 'Mailman' );

    $top->Button (
        -text    => "You've got mail\n" . get_summary (),
        -command => \&close_popup_box,
    )->pack ();

    $top->repeat ( $sleep * 1000, \&dismiss_if_needed );

    MainLoop;
}

sub get_summary {
    open ( my $fh, get_mailfile () ) or die "can't open mailfile";
    my @froms = grep { /^From:/ } <$fh>; 
    close $fh;
    return join "", @froms;
}

sub close_popup_box {
    $top->destroy;
}

sub dismiss_if_needed {
    close_popup_box () if is_mail_size_zero ();
}
[download]