## perltidy -olq  -csc -csci=10 -cscl="sub : BEGIN END" -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"
## perltidy -olq  -csc -otr -opr -ce -nibc -i=4 -pt=0   "-nsak=*"

##</code><code>##

		my ($NL,$SKIP) = ($STATIC{NL},$STATIC{SKIP});
		if ($STATIC{CHAR_NL} eq "NL"){ 
			$NL = "\n";
		}elsif($STATIC{CHAR_NL} eq "CR"){
			$NL = "\r";
		}elsif($STATIC{CHAR_NL} eq "CRLF"){
			$NL = "\r\l";
		}elsif($STATIC{CHAR_NL} eq "HEXNL"){ ##still needs testing
			$NL = "";
		}
		if ($STATIC{CMD_SKIP} eq "SPACE"){
			$SKIP = "\032";
		}elsif($STATIC{CMD_SKIP} eq "NL"){
			$SKIP = $NL;
		}else{
			$SKIP = "$STATIC{CMD_SKIP}$NL";
		}


##</code><code>##

		my( $NL, $SKIP ) = optionize_nl_skip( \%STATIC );


##</code><code>##

use strict;
use warnings;
use Test::More qw/ no_plan /;;
{
    my( $NL, $SKIP ) = optionize_nl_skip( { qw/ CHAR_NL NL CMD_SKIP SPACE / });
    is($NL,   "\n" );
    is($SKIP , "\33" ); ## Test::More printable bug
}


sub optionize_nl_skip{
	my( $static ) = @_;
	my ($NL,$SKIP) = ( $static->{NL}, $static->{SKIP} );
	if ($static->{CHAR_NL} eq "NL"){ 
		$NL = "\n";
	}elsif($static->{CHAR_NL} eq "CR"){
		$NL = "\r";
	}elsif($static->{CHAR_NL} eq "CRLF"){
		$NL = "\r\l";
	}elsif($static->{CHAR_NL} eq "HEXNL"){ ##still needs testing
		$NL = "";
	}
	if ($static->{CMD_SKIP} eq "SPACE"){
		$SKIP = "\032";
	}elsif($static->{CMD_SKIP} eq "NL"){
		$SKIP = $NL;
	}else{
		$SKIP = "$static->{CMD_SKIP}$NL";
	}
    return( $NL, $SKIP );
}


##</code><code>##

##  SUB SENDMAIL  ###  DOES: generates and sends e-mail to all recipients with attached csv report  ##################


##</code><code>##

$TEMP[0] =~ s/^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)://;


##</code><code>##

            {
				my( $commands, $matches ) ;
				( $_, $commands, $matches ) = sanitize_and_then_some_commands_matches(
					$_, \@METACHARS,\@TRANSLATIONS
				);
				$DATA{$IP}->{COMMANDS} = $commands;
				$DATA{$IP}->{MATCHES} = $matches;
			}

##</code><code>##

     $ALL_CAPS_HERE constants only (beware clashes with perl vars!)
    $Some_Caps_Here package-wide global/static
    $no_caps_here function scope my() or local() variables