package RT::Condition::OnRiskThresholdMet;

use strict;
use warnings;
use base 'RT::Condition';

sub getRiskValue {
    my $cfname  = shift;
    my $cfvalue = shift;
    my $retval  = 1;

    my $cfs = RT::CustomField->new(RT->SystemUser);
    $cfs->Load($cfname);
    my $cfvs = $cfs->Values();

    $RT::Logger->info("Getting risk value for '$cfname/$cfvalue'");
    while ( my $valuerow = $cfvs->Next ) {
        if ($valuerow->Name eq $cfvalue && $cfvalue ne "") {
            $retval = int($valuerow->SortOrder);
            last;
        }
    }

    return $retval;
}

sub IsApplicable {
    my $self  = shift;
    my $txn   = $self->TransactionObj;
    my $type  = $txn->Type;
    my @risks = ('Risk Probability', 'Risk Severity');
    my @names = ('Risk Probability', 'Risk Severity', 'Reportable Event');
    my $risk  = 1;
    my $capaQueue = 22;

    if ( $self->TicketObj->Queue == $capaQueue ) {
        # Skip CAPA queue events
        return(undef);

    } elsif ( $type eq 'Create' ) {
        return(undef) unless $self->TicketObj->FirstCustomFieldValue('Reportable Event') eq 'No';

    } elsif ( $self->TicketObj->DependsOn and ( $type eq 'Create' or $type eq 'CustomField' ) ) {
        # Check if ticket already has a dependant CAPA ticket
        while ( my $dependant = $self->TicketObj->DependsOn->Next ) {
            my $depTicket = new RT::Ticket($RT::SystemUser);
            $depTicket->Load($dependant->LocalTarget);
            if( $depTicket->Subject =~ /CAPA Assessment/ ) {
                # $RT::Logger->info("CAPA Assessment ticket already created, aborting");
                return(undef);
            }
        }

    } elsif ( $type eq 'CustomField' ) {
        # This condition is set when any custom field is changed
        my $cf = RT::CustomField->new( $self->CurrentUser );
        $cf->Load( $txn->Field );

        # Bail out if the transaction didn't affect any of our target custom fields
        return(undef) unless $cf->Name eq 'Risk Probability' or
        $cf->Name eq 'Risk Severity'                         or
        $cf->Name eq 'Reportable Event';

        # $RT::Logger->info("txn: " . $cf->Name . ", " . $txn->OldValue . " -> " . $txn->NewValue);

        # Return true immediately if reportable event set to Yes
        return(1) if $cf->Name eq 'Reportable Event' and $txn->NewValue eq 'Yes';

    } else {
        $RT::Logger->info("Not a valid transaction type for this condition");
        return(undef);
    }

    $RT::Logger->info("Condition 'On Risk Threshold Met' triggered "
        ."for ticket #". $self->TicketObj->id
        ." transaction #". $txn->id
    );

    # Now iterate through our targets and calculate risk
    foreach my $riskname (@risks) {
        my $cfvalue = $self->TicketObj->FirstCustomFieldValue($riskname);
        my $riskval = 1;
        if(! $cfvalue || $cfvalue eq '') {
            # Check if risks are filled out, bail if one is empty
            $RT::Logger->info($riskname . " is empty");
            return(undef);
        } else {
            # Calc Risk
            $risk = $risk * getRiskValue($riskname, $cfvalue);
        }
    }

    $RT::Logger->info("Calculated risk is: " . $risk);
    if ($risk >= 3) {
        return(1);
    } else {
        return(undef);
    }

    return(undef);
}

1;