sub handle()

in smime-signature-validator/handler.pl [18:40]

• 16 lines of code
• 3 McCabe index (conditional complexity)

sub handle {
    my ($payload, $context) = @_;
    my $s3_bucket = $payload->{bucket};
    my $s3_object_key = $payload->{key};
    
    # get the email message from the S3 bucket
    my $email = get_s3_object($s3_bucket, $s3_object_key);
    
    # get S/MIME results for this message
    my $smime_result = get_smime_result($email);
    
    if ( $ENV{SAVE_TO_BUCKET} and $ENV{SAVE_TO_BUCKET} =~ /true/i ) {
        if ( put_s3_object($s3_bucket, $s3_object_key.".smime.json", $smime_result) ) {
            warn "saved smime results to s3://$s3_bucket/$s3_object_key.smime.json\n";
        }
        else {
            warn "unable to save smime results to bucket\n";
        }
    }
    
    # return the results back to the function caller
    return $smime_result;
}