Select Code to Download

sub sendmail {
    my ($REPORT,$CONFIG,$RESULT) = @_;
...
    my $MAIL_TO = $CONFIG{MAIL_TO}[0];
    delete $CONFIG{MAIL_TO}[0];
    my @MAIL_CC = $CONFIG{MAIL_TO};

    my $MAIL_TO = shift @{ $CONFIG{ MAIL_TO } };

    my $MAIL_CC = $CONFIG{ MAIL_TO };

    if ($RESULT == 1){
...
...
+entication\n";}
        if ($RESULT == 2){ $CONFIG{MAIL_DATA} .= "Provided Username/pa
+ssword combination passed Auth
+entication, but tacacs profile doesn't allow privileged mode\n";}