Bug 24537: Tidy code

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

diff --git a/opac/ilsdi.pl b/opac/ilsdi.pl
index c9c01a9..e1215cf 100755 (executable)
--- a/opac/ilsdi.pl
+++ b/opac/ilsdi.pl
@@ -164,19 +164,19 @@ unless ( C4::Context->preference('ILS-DI') ) {
 }
 
 # If the remote address is not allowed, redirect to 403
-my @AuthorizedIPs = split(/,/, C4::Context->preference('ILS-DI:AuthorizedIPs'));
-if ( @AuthorizedIPs ){ # If no filter set, allow access to everybody
+my @AuthorizedIPs = split( /,/, C4::Context->preference('ILS-DI:AuthorizedIPs') );
+if (@AuthorizedIPs) {    # If no filter set, allow access to everybody
     my $authorized = 0;
-    foreach my $ip (@AuthorizedIPs){
+    foreach my $ip (@AuthorizedIPs) {
         my $netmask = Net::Netmask->new2($ip);
-        if ( $netmask && $netmask->match($ENV{'REMOTE_ADDR'}) ){
+        if ( $netmask && $netmask->match( $ENV{REMOTE_ADDR} ) ) {
             $authorized = 1;
             last;
         }
     }
-    unless ($authorized){
+    unless ($authorized) {
         $out->{'code'} = "NotAllowed";
-        $out->{'message'} = "Unauthorized IP address: ".$ENV{'REMOTE_ADDR'}.".";
+        $out->{'message'} = "Unauthorized IP address: $ENV{REMOTE_ADDR}.";
     }
 }