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