+ if( eval { $address =~ /$item/i; } ) {
+ $Result = $item;
+ }
+ }
+
+ close( LIST );
+
+ return $Result;
+}
+
+sub nameIsInListExactly {
+ local( $listName ) = pop( @_ );
+ local( $address ) = pop( @_ );
+
+ local( $item );
+
+ $Result = 0;
+
+ open( LIST, "$MNG_ROOT/data/$listName" );
+
+ while( $item = <LIST> ) {
+
+ chop $item;
+
+ next if $item =~ /^ *$/;
+
+ if( "\L$address" eq "\L$item" ) {