use strict;
use warnings;

use DateMunge;

my @messages = (
  qq{The lunatics have taken over the asylum\n},
  qq{Chickens have got into the server\n},
  qq{All your data is gone\n},
  qq{The disk drive just wants you to know it is fine\n},
  qq{Random message\n},
  qq{This message is intentionally blank\n});

my $start = 1150000000;

for (1 .. 29301)
{
    my $message = $messages[rand @messages];
    print dateStr(qq{%O.%T $message}, $start);
    unless ($_ % 23)
    {
        for (1 .. int(rand 10) + 10)
        {
            $message = $messages[rand @messages];
            print dateStr(qq{%O.%T $message}, $start);
        }
    }
    $start += int rand 50;
}