TeamSpeak Extra is an add-on written in Borland/CodeGear Delphi for the purpose of expanding the scope of features that TeamSpeak already has. It does that in a way that improves productivity and eliminates the needless hassle for frequent TeamSpeak users, and Administrators as well (such as myself) when public behavior needs to be moderated.

If anybody is interested, head on to ts.burex.net and grab a copy.

And as for CSS... Phew! It was a long way ahead! I'm glad it's over! For the first time CSS coder, the temptation to throw everything away and turn back to using plain old tables is very, very strong! And why wouldn't it be? Every WYSIWYG web design program let's you create tables in a jiffy, and organize them in any way you want, and with CSS, you have to ditch the GUI and work your way through <div>s and CSS properties. But, once you get past the first "position:absolute" line, you will see why this method of creating websites is really the most natural thing to do! You can position your DIV anywhere you want it to be! Tables are for data - that's it. They can't be moved properly and constrain your website to be nothing more than just plain flat, and once you start experiencing cross browser pains with tables (sure, they do exist for CSS, but in most cases, they are fairly resolvable) you will run back screaming. (trust me, the same table doesn't always look like it should in IE, Firefox or Opera, and there's nothing you can do about it)

Oh, and did I mention the feeling that most people get when they write something down in a PHP/HTML + CSS file and it works beautifully the way it should? Magical...

Well, there you have it... If I didn't make these switches, I'd be stuck with Cobol right now

Now, here's the perl code snippet that I coded today (I am not very familiar with perl, but the C like syntax made it easy to write), it will enable you to ban every bot that tries to flood your server:

ts2perlmod.pl

# update TeamSpeak2::TCPquery::Server object
$server->getServerinfo();

Add this below the above code:

# bureX-ANTISPAM-MOD: making life a bit more easier on TeamSpeak...
    my @cplayerlist;
    my @iplayerlist;
    my $i;
    my $j;
    my $kicked;
		foreach my $player (@playerlist)
		{ 

      if ($player->{loginname} eq "")
      {
         $i=0;
         for ($j=0;$j{"ip"})
           {
             $cplayerlist[$j] = $cplayerlist[$j]+1;
             $i++;
           }
         }

         if ($i==0)
         {
           push(@cplayerlist, 1);
           push(@iplayerlist, $player->{"ip"});
         }
         $i=0;
      }
    }

    $kicked = 0;
    for ($i=0;$i 3) #number of allowed players to connect from the same IP address
        {
          $server->sendMessage("Spam Attack detected from ".$iplayerlist[$i]);
          $server->sendMessage("Initiating retaliation sequence for ".$cplayerlist[$i]." bots...");

          	foreach my $player (@playerlist)
            {
                if ($player->{ip} eq $iplayerlist[$i])
                {
                  $player->banIp(240); #ban spammers for 240 minutes
                  $player->kick("Spam protection");
                  $kicked = 1;
                }
            }

          $server->sendMessage("Retaliation sequence executed.");
          $server->sendMessage("Done... Have a nice day!");
          $server->sendMessage("TS defence system - crafted by bureX");
        }
    }

    if ($kicked == 1) {sleep(10);} #Let the TS Server rest for 10 seconds before updating the new list

    delete @cplayerlist[0..scalar(@cplayerlist)];
    delete @iplayerlist[0..scalar(@iplayerlist)];