#!/usr/bin/perl
use strict;
use warnings;

use Getopt::Std;

my $cimzett;
my $domain;
my $date;
my @data;
getopts ('m:d:s:');

use vars qw ($opt_m $opt_d $opt_s);
$date=$opt_d;
$domain=$opt_s;

sub csv {
	open(BEJOVO, ">>bejovo.csv");
	open(KIMENO, ">>kimeno.csv");
	while (my $in = @data) {
	my @mails = readlog($in);
	#CSV fejlec
#	print BEJOVO ";BEJOVO LEVELEK;\n";
#	print BEJOVO "Idopont;Felado;Cimzett\n";
#	print KIMENO ";KIMENO LEVELEK;\n";
#	print KIMENO "Idopont;Felado;Cimzett\n";
                     	#fajlba iras
                        if ( $mails[9] =~ /$domain/i ) {
                                print KIMENO "$mails[2];$mails[9];$mails[11]\n";
                        }
                        elsif ( $mails[9] =~ /@/ ) {
                                print BEJOVO "$mails[2];$mails[9];$mails[11]\n";
                        }
                        if ( $mails[8] =~ /$domain/i ) {
                                print KIMENO "$mails[2];$mails[8];$mails[10]\n";
                        }
                        elsif ( $mails[8] =~ /@/ ) {
                                print BEJOVO "$mails[2];$mails[8];$mails[10]\n";
						}

	#csv fajlok e-mail mellekletkent [cimzett]-nek
	#mpack program kell hozza!
#	system("mpack -s kimeno-`date -I` kimeno.csv $cimzett");
#	system("mpack -s bejovo-`date -I` bejovo.csv $cimzett");
#	system('rm bejovo.csv');
#	system('rm kimeno.csv');
	}
	close(KIMENO);
	close(BEJOVO);
}

sub readlog {
	my $line = $_[0];
	chomp($line);
	my @mails;
	my $key = "<";
	my $key2 = ">";
	#Naplofajlok beolvasasa
	    #amavis bejegyzesek kinyerese
	    if ( $line =~ /amavis/ ) {
                #szokozonkent szetvalasztas es tombbe illesztes
                @mails = split ('$line');
                #csak a kivalasztott napot vegye figyelembe
                if ( $mails[1] == $date ) {
                        #"><" karakterek levagasa
                        if ( $mails[9] =~ /@/ ) {
                                $mails[9] =~ s/$key//g;
                                $mails[9] =~ s/$key2//g;
                                $mails[11] =~ s/$key//g;
                                $mails[11] =~ s/$key2//g;
                        }
                        else {
                                $mails[8] =~ s/$key//g;
                                $mails[8] =~ s/$key2//g;
                                $mails[10] =~ s/$key//g;
                                $mails[10] =~ s/$key2//g;
                        }
                }
        }
	return @mails;
}

while (<>) { push @data, $_; }

if ( $opt_m eq "csv" ) { csv; }