|
|
@@ -676,9 +676,9 @@ if ($verb eq "yes" || $usage =~ /u/ || $usage =~ /U/){
|
|
|
my $unindexedIp;
|
|
|
my %uniqFilt = (); # hash of unique filters
|
|
|
while (my ($srcnt_conn_op, $count) = each %{$notesa_conn_op}) {
|
|
|
- my ($srvRstCnt, $conn, $op) = split(",", $srcnt_conn_op);
|
|
|
- $unindexedIp = getIPfromConn($conn, $srvRstCnt);
|
|
|
- if ($usage =~ /u/) {
|
|
|
+ if ($verb eq "yes" || $usage =~ /u/) {
|
|
|
+ my ($srvRstCnt, $conn, $op) = split(",", $srcnt_conn_op);
|
|
|
+ my $unindexedIp = getIPfromConn($conn, $srvRstCnt);
|
|
|
print "\n Unindexed Search #".$notesCount." (notes=A)\n";
|
|
|
print " - Date/Time: $time_conn_op->{$srcnt_conn_op}\n";
|
|
|
print " - Connection Number: $conn\n";
|
|
|
@@ -694,7 +694,7 @@ if ($verb eq "yes" || $usage =~ /u/ || $usage =~ /U/){
|
|
|
}
|
|
|
}
|
|
|
if (exists($filter_conn_op->{$srcnt_conn_op}) && defined($filter_conn_op->{$srcnt_conn_op})) {
|
|
|
- if ($usage =~ /u/) {
|
|
|
+ if ($verb eq "yes" || $usage =~ /u/) {
|
|
|
print " - Search Filter: $filter_conn_op->{$srcnt_conn_op}\n";
|
|
|
}
|
|
|
$uniqFilt{$filter_conn_op->{$srcnt_conn_op}}++;
|
|
|
@@ -724,9 +724,9 @@ if ($verb eq "yes" || $usage =~ /u/ || $usage =~ /U/){
|
|
|
my $unindexedIp;
|
|
|
my %uniqFilt = (); # hash of unique filters
|
|
|
while (my ($srcnt_conn_op, $count) = each %{$notesu_conn_op}) {
|
|
|
- my ($srvRstCnt, $conn, $op) = split(",", $srcnt_conn_op);
|
|
|
- $unindexedIp = getIPfromConn($conn, $srvRstCnt);
|
|
|
- if ($usage =~ /u/) {
|
|
|
+ if ($verb eq "yes" || $usage =~ /u/) {
|
|
|
+ my ($srvRstCnt, $conn, $op) = split(",", $srcnt_conn_op);
|
|
|
+ $unindexedIp = getIPfromConn($conn, $srvRstCnt);
|
|
|
print "\n Unindexed Component #".$notesCount." (notes=U)\n";
|
|
|
print " - Date/Time: $time_conn_op->{$srcnt_conn_op}\n";
|
|
|
print " - Connection Number: $conn\n";
|
|
|
@@ -742,7 +742,7 @@ if ($verb eq "yes" || $usage =~ /u/ || $usage =~ /U/){
|
|
|
}
|
|
|
}
|
|
|
if (exists($filter_conn_op->{$srcnt_conn_op}) && defined($filter_conn_op->{$srcnt_conn_op})) {
|
|
|
- if ($usage =~ /u/) {
|
|
|
+ if ($verb eq "yes" || $usage =~ /u/) {
|
|
|
print " - Search Filter: $filter_conn_op->{$srcnt_conn_op}\n";
|
|
|
}
|
|
|
$uniqFilt{$filter_conn_op->{$srcnt_conn_op}}++;
|