--- a/branches/2.5.4/cgi-bin/yabb2/Sources/IPLookup.pm
+++ b/branches/2.5.4/cgi-bin/yabb2/Sources/IPLookup.pm
@@ -1,20 +1,21 @@
 ###############################################################################
 # IPLookup.pm                                                                 #
+# $Date: 2013-06-25 15:33:13 +0000 (Tue, 25 Jun 2013) $
 ###############################################################################
 # YaBB: Yet another Bulletin Board                                            #
 # Open-Source Community Software for Webmasters                               #
 # Version:        YaBB 2.5.4                                                  #
-# Packaged:       January 1, 2013                                             #
+# Packaged:       July 1, 2013                                                #
 # Distributed by: http://www.yabbforum.com                                    #
 # =========================================================================== #
-# Copyright (c) 2000-2012 YaBB (www.yabbforum.com) - All Rights Reserved.     #
+# Copyright (c) 2000-2013 YaBB (www.yabbforum.com) - All Rights Reserved.     #
 # Software by:  The YaBB Development Team                                     #
 #               with assistance from the YaBB community.                      #
 ###############################################################################
 use CGI::Carp qw(fatalsToBrowser);
 our $VERSION = '2.5.4';
 
-$iplookuppmver = 'YaBB 2.5.4 $Revision: 1014 $';
+$iplookuppmver = 'YaBB 2.5.4 $Revision: 1081 $';
 if ( $action eq 'detailedversion' ) { return 1; }
 
 if ( !$ipLookup || !$INFO{'ip'} || ( !$iamadmin && !$iamgmod && !$iamymod ) ) {
@@ -28,17 +29,19 @@
 
 sub IPLookup {
     $ip = $INFO{'ip'};
-    my $lookuplink = q{};    
-    fopen(IPLOOKUP, "<$vardir/iplookup.urls") || fatal_error('cannot_open',"$vardir/iplookup.urls", 1);
+    my $lookuplink = q{};
+    fopen( IPLOOKUP, "<$vardir/iplookup.urls" )
+      || fatal_error( 'cannot_open', "$vardir/iplookup.urls", 1 );
     @iplookup_urls = <IPLOOKUP>;
-    fclose(IPLOOKUP);   
-    
+    fclose(IPLOOKUP);
+
     foreach my $i (@iplookup_urls) {
-        my ($iplookup_name, $iplookup_url ) = split /\|/sm, $i;
+        my ( $iplookup_name, $iplookup_url ) = split /\|/sm, $i;
         $iplookup_name = Censor($iplookup_name);
         $iplookup_url =~ s/{ip}/$ip/gsm;
 
-        $lookuplink .= qq~<a href="http://$iplookup_url" target="_blank">$iplookup_name</a><br />~;
+        $lookuplink .=
+qq~<a href="http://$iplookup_url" target="_blank">$iplookup_name</a><br />~;
     }
 
     $yymain .= $my_ipdiv;