Thunderbird Mailbox Checker V0.2.1 - perl script for checking for lost mails in Thunderbird

DO NOT COMPACT YOUR FOLDERS AS SUGGESTED IN THE MOZILLA FORUMS OR THOSE EMAILS WILL BE LOST FOREVER!!!!

Use at your own risk!!! I do not guarantee that all hidden emails in your Thunderbird will be detected, nor do I guarantee for anything else!!!

#!/usr/bin/perl
use strict;

if (@ARGV[0] eq "") {
   print "Usage: ./check.pl mailboxfilename\n";
   exit;
}

my $MAILBOX = @ARGV[0];

=cut
Thunderbird Mailbox Checker V0.2.1 (C) 2006 www.captain.at
This script checks if there are emails with equal Message-ID AND References
values in a mailbox file.
If so, this causes serious problems in Thunderbird 1.5.0.8:
https://bugzilla.mozilla.org/show_bug.cgi?id=360409

License: GPL
Use at your own risk!

Message-ID: <CRID_bd349d3405b04bc086c5f46f73b59de2@centercode.com>
References: <CRID_bd349d3405b04bc086c5f46f73b59de2@centercode.com>
=cut

open(MAILBOX, $MAILBOX) or die("Could not open mailbox file");
my $emailstarts = 0;
my %header = ();
my $headertest = '';
foreach my $line (<MAILBOX>) {
   # check for mail start or header end
   $headertest = $line;
   $headertest =~ s/(\r|\n)//g;
   if (substr($line, 0, 7) eq "From - ") {
      $emailstarts = 1;
   }
   if ( ($headertest eq "") && ($emailstarts == 1) ) {
      $emailstarts = 0;
      checkhash(%header);
      # reset header hash
      %header = ();
   }
   # check if one of the interesting mail header values match and
   #   if so, put into hash for later use
   if (substr($line, 0, 12) eq "Message-ID: ") {
      $header{messageid} = substr($line, 12, length($line));
   }
   if (substr($line, 0, 12) eq "References: ") {
      $header{references} = substr($line, 12, length($line));
   }
   if (substr($line, 0, 9) eq "Subject: ") {
      $header{subject} = substr($line, 9, length($line));
   }
   if (substr($line, 0, 6) eq "From: ") {
      $header{from} = substr($line, 6, length($line));
   }
   if (substr($line, 0, 6) eq "Date: ") {
      $header{date} = substr($line, 6, length($line));
   }

}
# check last mail in MBOX file
checkhash(%header);
close(MAILBOX);

sub checkhash {
   my %header = @_;
   # check if Message-ID AND References are equal
   if ( ($header{messageid} eq $header{references}) && 
       ($header{messageid} ne "") ) {
      $header{messageid} =~ s/(\r|\n)//g;
      $header{date} =~ s/(\r|\n)//g;
      $header{from} =~ s/(\r|\n)//g;
      $header{subject} =~ s/(\r|\n)//g;
      print "FATAL: Message-ID=References: ".$header{messageid}."\n";
      print "   Date: ".$header{date}."\n";
      print "   From: ".$header{from}."\n";
      print "   Subject: ".$header{subject}."\n";
   }
}