dunno

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1945 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/CommandStubs.pl b/src/CommandStubs.pl
index d2d3ecf2fe267eb9c662d9ea176ff85e51f98746..65dc132edcfd77e5913c1ae9eb8e81318aac09e2 100644 (file)
--- a/src/CommandStubs.pl
+++ b/src/CommandStubs.pl
@@ -49,7 +49,7 @@ sub parseCmdHook {
 
     &shmFlush();
 
 
     &shmFlush();
 

-    if ( !defined %cmdhooks ) {
+    if ( !%cmdhooks ) {

         &WARN('%cmdhooks does not exist.');
         return 0;
     }
         &WARN('%cmdhooks does not exist.');
         return 0;
     }


@@ -679,7 +679,7 @@ sub verstats_flush {
 
     return unless ( scalar @vernicktodo );
 
 
     return unless ( scalar @vernicktodo );
 

-    $conn->schedule( 3, \&verstats_flush() );
+    $conn->schedule( 3, \&verstats_flush );

 }
 
 sub do_text_counters {
 }
 
 sub do_text_counters {

diff --git a/src/Modules/BZFlag.pl b/src/Modules/BZFlag.pl
index 73b156c22173fda0ab4a05c8fbd8492a58bcd2af..083173f0cb4f4552a382ee6e355410938482cf78 100644 (file)
--- a/src/Modules/BZFlag.pl
+++ b/src/Modules/BZFlag.pl
@@ -51,7 +51,7 @@ sub list {
     $ua->timeout(5);
 
     my $req =
     $ua->timeout(5);
 
     my $req =

-      HTTP::Request->new( 'GET', 'http://db.bzflag.org/db/?action=LIST' );
+      HTTP::Request->new( 'GET', 'http://my.bzflag.org/db/?action=LIST' );

     my $res = $ua->request($req);
     my %servers;
     my $totalServers = 0;
     my $res = $ua->request($req);
     my %servers;
     my $totalServers = 0;


@@ -60,13 +60,22 @@ sub list {
           split( " ", $line, 5 );
 
         # not "(A4)18" to handle old dumb perl
           split( " ", $line, 5 );
 
         # not "(A4)18" to handle old dumb perl

-        my (
-            $style,          $maxShots,     $shakeWins,    $shakeTimeout,
-            $maxPlayerScore, $maxTeamScore, $maxTime,      $maxPlayers,
-            $rogueSize,      $rogueMax,     $redSize,      $redMax,
-            $greenSize,      $greenMax,     $blueSize,     $blueMax,
-            $purpleSize,     $purpleMax,    $observerSize, $observerMax
-        ) = unpack( 'A4A4A4A4A4A4A4A2A2A2A2A2A2A2A2A2A2A2A2A2', $flags );
+       my ($style, $type, $maxShots, $shakeWins, $shakeTimeout, $maxPlayerScore, $maxTeamScore, $maxTime,
+           $maxPlayers, $rogueSize, $rogueMax, $redSize, $redMax, $greenSize, $greenMax,
+           $blueSize, $blueMax, $purpleSize, $purpleMax, $observerSize, $observerMax);
+       if (length($flags) == 54) {
+         ($style, $maxShots, $shakeWins, $shakeTimeout, $maxPlayerScore, $maxTeamScore, $maxTime,
+             $maxPlayers, $rogueSize, $rogueMax, $redSize, $redMax, $greenSize, $greenMax,
+             $blueSize, $blueMax, $purpleSize, $purpleMax, $observerSize, $observerMax) =
+             unpack("A4A4A4A4A4A4A4A2A2A2A2A2A2A2A2A2A2A2A2A2", $flags);
+       } elsif (length($flags) == 58) {
+         ($style, $type, $maxShots, $shakeWins, $shakeTimeout, $maxPlayerScore, $maxTeamScore, $maxTime,
+             $maxPlayers, $rogueSize, $rogueMax, $redSize, $redMax, $greenSize, $greenMax,
+             $blueSize, $blueMax, $purpleSize, $purpleMax, $observerSize, $observerMax) =
+             unpack("A4A4A4A4A4A4A4A4A2A2A2A2A2A2A2A2A2A2A2A2A2", $flags);
+       } else {
+         next;
+       }

         my $playerSize =
           hex($rogueSize) + hex($redSize) + hex($greenSize) + hex($blueSize) +
           hex($purpleSize) + hex($observerSize);
         my $playerSize =
           hex($rogueSize) + hex($redSize) + hex($greenSize) + hex($blueSize) +
           hex($purpleSize) + hex($observerSize);

diff --git a/src/Modules/DumpVars.pl b/src/Modules/DumpVars.pl
index 3ca982de4bcf6da59a7cc98203bf03d6533fd3cc..9b4ac4f4034f36f42416d4fa0c1f03bd31363fe7 100644 (file)
--- a/src/Modules/DumpVars.pl
+++ b/src/Modules/DumpVars.pl
@@ -33,7 +33,7 @@ sub DumpNames(\%$) {
 
         foreach $symname ( sort keys %$package ) {
             local *sym = $$package{$symname};
 
         foreach $symname ( sort keys %$package ) {
             local *sym = $$package{$symname};

-            next unless ( defined %sym );
+            next unless ( %sym );

             next unless ( $symname =~ /::/ );
             &dumpvarslog("   $symname");
             $countlines++;
             next unless ( $symname =~ /::/ );
             &dumpvarslog("   $symname");
             $countlines++;


@@ -67,7 +67,7 @@ sub DumpNames(\%$) {
     # Lists.
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};
     # Lists.
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};

-        next unless ( defined @sym );
+        next unless ( @sym );

 
         &dumpvarslog(
             "List '$packname' \@$symname (" . scalar( @{$symname} ) . ")" );
 
         &dumpvarslog(
             "List '$packname' \@$symname (" . scalar( @{$symname} ) . ")" );


@@ -87,7 +87,7 @@ sub DumpNames(\%$) {
     # Hashes.
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};
     # Hashes.
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};

-        next unless ( defined %sym );
+        next unless ( %sym );

         next if ( $symname =~ /::/ );
 
         &dumpvarslog("Hash '$packname' \%$symname");
         next if ( $symname =~ /::/ );
 
         &dumpvarslog("Hash '$packname' \%$symname");


@@ -109,7 +109,7 @@ sub DumpNames(\%$) {
 
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};
 
     foreach $symname ( sort keys %$package ) {
         local *sym = $$package{$symname};

-        next unless ( defined %sym );
+        next unless ( %sym );

         next unless ( $symname =~ /::/ );
         next if ( $symname eq 'main::' );
 
         next unless ( $symname =~ /::/ );
         next if ( $symname eq 'main::' );