package regras;

use 5.010000;
use strict;
use warnings;
use POSIX qw/strftime/;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(

) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(
        VerificarData
);

our $VERSION = '0.01';



sub VerificarData {

    my @mail = @_; #cada indice eh uma palavra

    # Posicionar indices para comparar as duas datas
    # @mail = dataDeEnvio_dataDeRecebimento
    # dataDeEnvio: "Date: ...."
    # dataDeRecebimento: "Date: ...."

    my $Data_email;
    my $Data_atual;
    my $indice = 0; # contador
    my $resultado;

    # loop para encontrar o inicio da data de recebimento
    foreach (@mail) {
        my $palavra = $_;

        if ($palavra eq "Date:") {
            $indice_dataEmail = $indice;
        }
        $indice++;
    }



    $Data_atual= strftime('%d-%m-%Y',localtime);
    #print $Data_atual;

## FORMATAR DATA PARA COMPARAR

    # loop para comparar as datas de envio e recebimento
    while ($mail[$indice_dataReceb]) {

        # Usando cmp:
        #  0 - strings iguais
        #  1 - primeira > segunda
        # -1 - primeira < segunda

        $resultado = ($mail[$indice_dataEnv] cmp $mail[$indice_dataReceb]);

        if ($resultado == -1) {
            return 0; # data de recebimento > data de envio: nao é spam
        }
        if ($resultado == 1) {
            return 1; # data de recebimento < data de envio: numero de ocorrencias = 1
        }
        $indice_dataEnv++;
        $indice_dataReceb++;
    }
    return 1; #se data de envio = data de recebimento, numero de ocorrencias = 1;
    return ($count);
}