sub add_data {
        my ($q, $numberoflines, $addfile) = @_;

                # Assign intelligent defaults.
        my $month = $q->param('month') || 0;
        my $date  = $q->param('date') || 0;
        my $year  = $q->param('year') || 0;
        my $title = $q->param('title') || "";
        my $message = $q->param('message') || "";

        open(OUT, ">>$addfile") or die "Can't open $addfile\n";
        my $number  = $numberoflines;
        my $line = join '::', $number, $month, $date, $year, $title, $message;

        print OUT "$line\n";
        close OUT;
}