nice IDLE kick script...

[xT]

okay, i have code an IDLE kick script in Perl.
I need beta tester .
please try only with SA Staus.


code:

#!\C:\Perl\bin\perl.exe
#
#
use IO::Socket;

print "KICK_ALL_IDLERS_Script Version 1 by xT\n\n";
{
print "Your Server IP+TCPport(defaultport=51234) : ";
chomp ($ip = <STDIN>) ;
exit if $ip eq "q" ;
}

my $sock = IO::Socket::INET->new(qq($ip));

{
print "Your Server Port : ";
chomp ($in = <STDIN>) ;
exit if $in eq "q" ;
}
{
print "Your Login Account name : ";
chomp ($in = <STDIN>) ;
exit if $in eq "q" ;
}

{
print "Your Login Account Password : ";
chomp ($on = <STDIN>) ;
exit if $on eq "q" ;
}
{
print "please,choice your idle time : ";
chomp ($time = <STDIN>) ;
exit if $time eq "q" ;
}
{
print $sock qq(sel 8767\n);
print $sock qq(slogin $in $on\n);

print $sock qq(ki $time 1 does not idle please\n);
print $sock qq(ki $time 2 does not idle please\n);
print $sock qq(ki $time 3 does not idle please\n);
print $sock qq(ki $time 4 does not idle please\n);
print $sock qq(ki $time 5 does not idle please\n);

print $sock qq(ki $time 6 does not idle please\n);
print $sock qq(ki $time 7 does not idle please\n);
print $sock qq(ki $time 8 does not idle please\n);
}
{
print "\nWe did Ok , all idlers with $time minutes was kicked.....\n";
print "\n\nWhen you will Public messgae with idlers-kick,\nThen you musst press a arbitrary gropes\n";
print "When you doesnt will this you musst press q and enter\n";
}
chomp ($name = <STDIN>) ;
{
print $sock qq(msg @ OK , all Idlers with $time min idle time ,was kicked from Server\n);
print ".........\n";
chomp ($name = <STDIN>) ;
}

[Real-TTX]

Hello

I have write an Correction from ur Code ...
And i think you must use "use strict" and "use warnings" or "use diagnostics"
You have allways write "{" and "}" but why ?
Here is the Untested Correction of your code

#!/usr/bin/perl


#========================
##### Modules and Define Var..
#========================
use strict;
use warnings;
use IO::Socket;

my $ip;
my $answer;
my $answer_connect;
my $check;
my $SERVER_IP;
my $SERVER_PORT;
my $LOGIN_NAME;
my $LOGIN_PASS;
my $IDLE_TIME;
my $time;
my $name;

print "="x20;print "\n";
print "TeamSpeak KickIdler Script\n";
print "="x20;print "\n";
print "Your Server IP+TCPport(defaultport=51234) :";
chomp ($SERVER_IP = <STDIN>) ;
#========================
##### Verbindungs aufbau ...
#========================
my $sock = IO::Socket::INET->new(qq($SERVER_IP))or do { 
				print "ERROR : Cannot connect to ".$ip."\n";
				print "ERROR : Terminating Process ...\n";
				sleep 1; exit 0;
				};
	my $bool = recv($sock,$answer_connect,1000,0);

#========================
##### Eingaben .....
#========================
print "Your Server Port                          :";
	chomp ($SERVER_PORT = <STDIN>) ;

print "Your Login Account name                   :";
	chomp ($LOGIN_NAME = <STDIN>) ;

print "Your Login Account Password               :";
	chomp ($LOGIN_PASS = <STDIN>) ;

print "Please,choice your idle time              :";
	chomp ($IDLE_TIME = <STDIN>) ;
	if ($IDLE_TIME < "10") {
		print "ERROR : Idle Timme must moore then 10min\n";
		sleep 2; exit 0;
		}

#========================	
##### Connection und Login ...
#========================
print "="x20;print "\n";
print "Connect = OK\n" if ($answer_connect eq "[TS]\r\n");
print $sock "sel ".$SERVER_PORT."\n";
	$bool = recv($sock,$answer,1000,0);
		print "Select = OK\n" if ($answer eq "OK\r\n");

print $sock "slogin ".$LOGIN_NAME." ".$LOGIN_PASS."\n";
	$bool = recv($sock,$answer,1000,0);
		print "Login = OK\n" if ($answer eq "OK\r\n");
print "="x20;print "\n";

#========================
#### Kick idler ...
#========================
print "="x20;print "\n";

# Flags
my $flags = (1+2+4+8);
	print $sock "ki ".$IDLE_TIME." ".$flags." Dont idle !\n";
	my $bool = recv($sock,$answer,1000,0);
		print $answer;

print "="x20;print "\n";

print "We did Ok , all idlers with ".$IDLE_TIME." minutes was kicked.....\n";
print "If u wish to send a Public message choice yes else any key to not\n";

#========================
#### Server Message ...
#========================
chomp ($check = <STDIN>) ;
	if ($check eq "yes")
		{
		print $sock "msg @ OK , We think all idlers with ".$IDLE_TIME."min Kicked\n";
		my $bool = recv($sock,$answer,1000,0);
			print "Message was Send to Server" if ($answer eq "OK\r\n");
				print "\n\nPress Any Key ...\n";
}

#========================
#### End of Script and Logout
#========================
<STDIN>;
	print $sock "quit\n";
	print "GooD ByE ...";
	sleep 1;

mfg
RealTTX

PS:Sorry 4 my Bad English

=====
Ich habe noch was geändert mir ist aufgefallen das die Flags, bei dir xT 1-8 einfach .. dabei sind es einfach 4 Flags die man beliebig zusammen zählen kann ... 1 2 4 8 ....
Habe es ungetestet geändert ....
=====

[Rooty]

unglaublich du veröffentlichst ja zum teil deine scripte real

[Real-TTX]

Naja was heist zum teil
Ist ja ein ganzer ... es ist nicht meiner habe da nur eine kleinigkeit geändert bei mir wäre das ganz anders nicht einfach mit dem befehl "ki" ..

mfg
Real-TTX

[Rooty]

ok dann betone ich damit auf "alte" scripte.

der code ganz oben sieht ja geklaut aus.

[Brain]

der code ganz oben sieht ja geklaut aus.

Warum? Was veranlaßt dich zu dieser Annahme?

[xT]

der code ganz oben sieht ja geklaut aus.

Wie kannst du dir so eine Anschuldigung gegen mich erlauben ?
Meinst du ich Verstehe kein Deutsch ?
Hast du irgentwelche brauchbaren Beweise das das Script geklaut ist ?

Wenn Ja Poste sie bitte in das offizielle Forum !

mfg xT

[xT]

Danke für deine korrektur Real, habe nur leichte Probleme mit dem login.

Please,choice your idle time              :10
====================
Connect = OK
Select = OK
====================
====================
ERROR, not logged in
ERROR, not logged in
ERROR, not logged in
ERROR, not logged in
ERROR, not logged in
ERROR, not logged in
ERROR, not logged in
ERROR, not logged in
ERROR, not logged in
====================
We did Ok , all idlers with 10 minutes was kicked.....
If u wish to send a Public message choice yes else any key to not

[Real-TTX]

Hi,

Wie meinst du ? Es steht dein Fehler dort ? Error , not logged in ... oder ?
Und er hat dir auch nicht "Login = OK" geschrien oder ?

In der Zeile

print "Login = OK\n" if ($answer eq "OK\r\n");

Dass es nur geschrieben werden soll WENN die ANTWORT OK ist ...

Versuch mal es mit einer schleife .. die solange die zeilen liest bis ein OK kommt von der Playerlist. Und dann schnappst du dir die idletime .... und kickst bzw swichst du die entsprechenden leute ...

mfg
Real-TTX

[Rooty]

eine behauptung war das nicht nur eine vermutung, da dein programm gewissen ähnlichkeit hat mit einem mir bekannten. Und da noch fehler im programm sind ist das sehr verdächtig.

Vorallem da du in einem anderen Post Perl-Coder suchst.

Und, jetzt fertig keine weiteren worte mehr darüber script klau.

[xT]

Hi,

Wie meinst du ? Es steht dein Fehler dort ? Error , not logged in ... oder ?
Und er hat dir auch nicht "Login = OK" geschrien oder ?

In der Zeile

print "Login = OK\n" if ($answer eq "OK\r\n");

Dass es nur geschrieben werden soll WENN die ANTWORT OK ist ...

Versuch mal es mit einer schleife .. die solange die zeilen liest bis ein OK kommt von der Playerlist. Und dann schnappst du dir die idletime .... und kickst bzw swichst du die entsprechenden leute ...

mfg
Real-TTX

Ist mir auch klar, mein login stimmt aber.......komisch..

[xT]

Vorallem da du in einem anderen Post Perl-Coder suchst.

Und, jetzt fertig keine weiteren worte mehr darüber script klau.

erstens: ich suche perl coder weil ich schnelst möglich ein project zuende bekommen möchte.

zweitens: Ich sagte Poste wenn du beweise hast, und nicht wenn dir das script bekannt vorkommen sollte.
Laut info von ausenstehenden personen weiss ich auch das du keine ahnung von perl hast.
Darum bitte ich dich in der zukunft solche bemerkungen wie scriptklau zu unterlassen.

[Rooty]

error 403: Forbidden!

[Julian]

Geil, Battle!!!

Nächste Folge Celebrity Deathmatch: Rooty gegen XT

[...] Jetzt regt euch mal ab hier, is ja wie im Kindergarten...

[Rooty]

Findest du ? Ich denke die Kinder-Zeit geht bei manchen (Leuten) nicht wirklich zu ende.