TS2PerlMod GNU/GPL-Edition

ScP · #1 14-05-2005, 20:04

The TS2PerlMod is a small but powerful script written in Perl that can be used to automate time-consuming tasks. The latest version called - TS2PerlMod GNU/GPL-Edition - has been released with the full source code under the GNU General Public License. I decided to do a complete rewrite of the original code to improve speed, performance and security.

The entire installation process should not take longer than five minutes. Before proceeding, you must make sure that Perl is installed on your system. On Windows servers, you can to use a ready-to-install distribution such as ActivePerl. ActivePerl is also available for Linux. To determine whether you have a valid installation, simply type perl -v on your servers command-line.

Please visit the Planet TeamSpeak forums if you have any bugs to report or features to request.

Requirements
Please verify that your system meets the following requirements:

A distribution of Perl (>= 5.8.x recommended)
A TeamSpeak 2 server (>= 2.0.21.x recommended)
A working superadmin account

Features
This version of the TS2PerlMod includes many innovative features such as:

Extended Welcome Message
Sends a multi-line welcome message to every user connecting to your server. This message can contain special variables that will be replaced with the appropriate values. Here's an Example:

Input Example:
Welcome <PLAYER_NICKNAME>!
Your current Ping delay is about <PLAYER_PING> ms.

Output Example:
Welcome ScP!
Your current Ping delay is about 13 ms.

Illegal Nickname Detection
Scans nicknames for bad words. If any of the bad words are included within the users nickname, the user will be punished. For example, if you make the word butt illegal, the nickname Butthead will also be disallowed.

Illegal Channelname Detection
Scans channelnames for bad words. If any of the bad words are included within the channels name, all users in this channel will be punished. For example, if you make the word butt illegal, the channelname Butthead will also be disallowed.

Move Idlers to Channel
Moves idle users into a channel of your choice. The channel can be specified by a full or partial name.

Warn Idlers
Sends a message to an idle user when he/she reaches a pre-defined idletime.

Kick Idlers
Kicks idle players from the server. You can define if specific usergroups and/or channels should be harmed.

Anti Recording
Scans for recording users and unishes them with an action of your choice.

Anti Flood
Prevents flooding attempts on your server by banning the flooders IP address for 5 minutes.

Take Over Protection
Scans for unregistered users with serveradmin privileges (SA) and punishes them with an action of your choice.

Protected Users
Allows you to create a list of loginnames that are protected. These users will be ignored by the TS2PerlMod. This list is case sensitive, so scp won't match ScP.

Auto AFK
Moves users to a specific channel if their status is set to 'Away'. They'll be moved back into their old channel automatically when they're back. The channel can be specified by a full or partial name.

Advert Message
Sends an advertisement message to all users on the server at specified certain time interval. The time interval can be set in the scripts configuration file.

Stats Message
Sends an individual message to all users at certain time interval. The time can be set in the scripts configuration file. The message can contain special variables that will be replaced with the appropriate values. Here's an Example:

Input Example:
--- [ Statistics for Player <PLAYER_NICKNAME> ] ---
Ping Delay: <PLAYER_PING> ms.
Packet Loss: <PLAYER_PACKET_LOSS>
Logintime: <PLAYER_LOGINTIME>

Output Example:
--- [ Statistics for Player ScP ] ---
Ping Delay: 13 ms.
Packet Loss: 0.01%
Logintime: 0D 03:21:35

Sticky Channel
Binds a user to this channel when they are moved into it. The channel can be specified by a full or partial name.

Update Banlist
Reads the virtual servers banlist and converts permanent bans into timebans.

Auto Servertype
Automatically switches the type of your TeamSpeak 2 server from Clan to Public and vice versa if more or less than x users are connected.

Bug Detection
Automatically kicks a user if he's trying to exploit one of the well-known bugs in previous versions of the TeamSpeak 2 server.

Each feature can be activated or deactivated by using a configuration file.

Addons
An exclusive configuration utility - called Configurator - allows you to edit your configuration files through a comfortable GUI. This application is also released with the full source code under the GNU General Public License.

Downloads
TS2PerlMod GNU/GPL-Edition 0.9.19
TS2PerlMod Configurator 0.6 RC3

Cyrus · #2 14-05-2005, 21:02

Sieht nich schlecht aus, mich würde mal interessieren wie das Script vom Prinzip her funktioniert, also wie es abfängt wenn ein User z.B. den Away-Status drin hat, prüft er das in bestimmten Zeitabschnitten über TCP-Query oder funktioniert es ganz anders?

ScP · #3 14-05-2005, 21:09

Das Programm ruft in einem bestimmten Intervall, welches in der Konfigurationsdatei festgelegt werden kann, die Playerliste vom Server ab und arbeitet dann mit diesen Daten.

Rooty · #4 14-05-2005, 23:03

Quote:

Verfügbare Versionen
keine

Wieso das ?

Wirds du das Perl Interface zum download anbieten, wenn ja unter welcher Lizens ?
Oder dient der post hier als werbe zweck ?

ScP · #5 14-05-2005, 23:12

@Rooty:
Der Release-Termin ist für die nächste Woche festgelegt worden. Momentan dient unser Server als Testplattform.

Hab Geduld junger Padawan...

Rooty · #6 15-05-2005, 11:54

Ich frage ja nur unter welcher Lizens es dann gestellt wird weil ich schon lange auf der suche nach sowas in perl bin.
Und es mich interessiert wie ihr das anstellt.

ScP · #7 15-05-2005, 11:58

Uns kam bislang nicht in den Sinn, den Quellcode zu veröffentlichen. Es wird sowohl eine Windows- als auch eine Linux-Version geben.

Rooty · #8 15-05-2005, 12:06

Hi Scp
Die Frage ist doch warum denn nicht.
Den Quellcode klauen/verfälschen kommt mir nicht in den Sinn.
Mir fehlt nur ein wenig know-how in perl wie sowas aufgebaut ist.

Gruß Rooty

Michael · #9 15-05-2005, 12:11

Quote:

Uns kam bislang nicht in den Sinn, den Quellcode des Programms zu veröffentlichen.

Perl erzeugt doch keinen opaken Binärcode. Also wird es garnie zum Download freigegeben oder wie? Oder hast du wirklich vor das Programm zu kompilieren?

Ich würde mich sehr über ein unkompiliertes Script unter der GPL freuen (und da sind Rooty und ich warscheinlich nicht die einzigsten).

MfG,
Michael

Rooty · #10 15-05-2005, 12:17

Dem stimme ich zu.

Wenn es um hohe Zugriffsrechte wie Super-Server-Admin auf einem Server geht würde ich schon gerne wissen was dieses Script an Informationen senden. Und nicht meine Zugangsdaten des Super-Server-Admin, an dritte weitergegeben wird.

ScP · #11 15-05-2005, 13:42

@Michael:
Wie ich bereits sagte, wird die TS2PerlMod in einer Windows- und einer Linux-Version erscheinen. Das Programm wird also selbstverständlich kompiliert. Wir wollen damit eine schnelle und unkomplizierte Installation ermöglichen und außerdem vermeiden, dass die Administratoren zunächst einen Perl-Interpreter installieren müssen.

Neben der TS2PerlMod bearbeiten wir zurzeit noch andere Projekte. Mindestens eins davon wird deine Erwartungen in ein unkompiliertes Script erfüllen.

@Rooty:
Wie kommt es, dass bei anderer Software solche Zweifel nicht aufkommen? Niemand von uns hat es nötig, den SSA-Zugang eines fremden Servers zu stehlen. Aus dem Alter sind wir längst raus.

Michael · #12 15-05-2005, 13:50

Schade....

ScP · #13 15-05-2005, 13:53

Wieso "Schade..."?

Quote:

Originally Posted by ScP

Neben der TS2PerlMod bearbeiten wir zurzeit noch andere Projekte. Mindestens eins davon wird deine Erwartungen in ein unkompiliertes Script erfüllen.

Wer lesen kann ist klar im Vorteil.

Michael · #14 15-05-2005, 14:03

Ja? Ich kann lesen...
Ich finds ja toll das andere Projekte in unkompilieter Form in Planung sind, aber eben das Projekt nicht. Wenn ihr das Programm für den Endbenutzer unkompliziert werden lassen wollt, dann wäre es doch nicht schlecht zwei Versionen zum Download anzubieten (kompiliert/unkompiliert).

Mit dem Satz

Quote:

Wir wollen damit eine schnelle und unkomplizierte Installation ermöglichen und außerdem vermeiden, dass die Administratoren zunächst einen Perl-Interpreter installieren müssen.

hast du so wie es aussieht gelogen, sonst wäre man doch schon längst auf die Idee gekommen.

Also im Klartext wollt ihr einfach den Quelltext nicht veröffentlichen, oder?

MfG,
Michael

Cyrus · #15 15-05-2005, 21:53

Für die, die es ein bischen OpenSourceiger mögen hier mal ein ähnliches Script aus meiner Feder, leider bin ich kein Perlguru deswegen in PHP, aber man kann es genausogut unter Linux wie ein Konsolenscript ausführen mit Hilfe des PHP-CLI Interpreters oder durch direktes aufrufen des Interpreters unter Windows und Linux...
(Hilfe und Instruktionen stehen am Anfang der Datei)

For those of you who like it OpenSource, here is my version of a script. Unfortunately I'm not a perl guru therefore i have written it in PHP. But you also can use it like a shell script using the PHP-CLI interpreter or by directly calling the PHP-CLI interpreter in Windows or Linux (Help and Instructions are included)