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

#
my $TSSock = IO::Socket::INET->new(qq(88888888:ßßßß));
my $ci = 4;
for ($i=0; $i<19999; $i++ ){
print $TSSock qq(sel 8767\n)or die "Teamspeak-Port Closed";
print $TSSock qq(slogin superadmin *****\n)or die "ERROR !Check Login Name/Pass";
print $TSSock qq(mptc $ci $i\n);
print $TSSock qq(sppriv $i privilege_channelsticky 1\nquit);}




#########
Hier Fehlt noch einiges.
An dem unteren Teil hapert es noch.)
#########



if ( $cm eq "mptc" ) {
print $TSSock "dccl\n";
$x=1;
$z=0;
while (defined($line = <$TSSock>)) {
my($uid,$cid,$cname,$pid,$pname) = split( "\t", $line, 4);
if ($uid=="OK") {
if ($x==0) {
last;
}
$x--;
}
if (($nr1*60) -lt $idle) {
print $TSSock "kick ".$uid." $nr2\n";
$z++;
}
}
if ($x==0) {
print "\nOk , $z User moving....\n";
  }
}