Socket, Rcon-Kontroll geht nicht!: Ich brauche Hilfe ;) (Allgemeines zu Perl)

Gast Gast

2006-08-16 22:20

Hallo liebe Perl-Community,

Hier ist erstmal mein code:

Code: (dl )

## Including
use IO::Socket::INET;

## Scriptoptions
$| = 1; # disable output buffering

## Config
%config = (
        SERVER        =>      "193.192.58.21",
    PORT        =>      27000,
        PASSWORD   =>      "cordon",
    VERSION      =>          "v0.1a",
);

## Baue Socketverbindung auf

$Sock = IO::Socket::INET->new(
        Proto           => "udp",
        PeerAddr        => $config{"SERVER"},
        PeerPort        => $config{"PORT"},
) or die("Konnte keine Verbindung zum Server aufbaun.");

$line= $Sock->send("\xff\xff\xff\xffchallenge rcon\n");

if ($line =~ /challenge +rcon +(\d+)/)
{
    $command="changelevel de_dust2";
        $msg = "\xFF\xFF\xFF\xFFrcon $1 \"$config('PASSWORD')\" $command\0\n";
        $line = $Sock->send($msg);
}

Das Problem ist es Passiert nix obwohl ich das mir ganz gut zusammengewurschtelt habe. So machen es die anderen auch ~ bis auf die SocketVerbindung, aber an der wirds ja wohl nit liegen.

So mien Problem ist aktuell es passiert das :

Quote
srv17f16-41:/home/phantom # perl -W PGRconBot.pl
srv17f16-41:/home/phantom #

Ich weiß echt nicht was ich aktuell flasch machen :/

Wär lieb wenn mir jemand helfen könnte.

Mfg Fuchs

renee

2006-08-16 22:31

User since
2003-08-04
14371 Artikel
ModeratorIn

Du solltest Wiki:

[tt]use strict[/tt] verwenden. Dann wäre Dir ein Fehler gemeldet worden.

Zumindest ein Fehler ist mir auf die Schnelle aufgefallen:

Aus

Code: (dl )

$config('PASSWORD')

solltest Du

Code: (dl )

$config{PASSWORD}

machen.

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

MisterL

2006-08-16 23:32

User since
2006-07-05
334 Artikel
BenutzerIn
[default_avatar]

Da will doch nicht etwa jemand auf einen Counterstrike Server zugreifen ? Immerhin erweckt 'de_dust2' diesen Eindruck.
Geht das mit Bordmitteln nicht etwas einfacher ?

mfg MisterL

“Perl is the only language that looks the same before and after RSA encryption.”

Crian

2006-08-17 15:55

User since
2003-08-04
5870 Artikel
ModeratorIn

[quote=renee,16.08.2006, 20:31]Aus

Code: (dl )

$config('PASSWORD')

solltest Du

Code: (dl )

$config{PASSWORD}

machen.[/quote]
Warum? Zwar sinbd Barewords an der Stelle erlaubt, aber schöner ist es immerhin doch mit Anführungszeichen drum herum.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

renee

2006-08-17 16:55

User since
2003-08-04
14371 Artikel
ModeratorIn

Es geht um die Klammern!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

GwenDragon

2006-08-17 17:05

User since
2005-01-17
14748 Artikel
Admin1

Mit

Code: (dl )

$config('PASSWORD')

kannst du NICHT auf den Hash zugreifen.
Das muss $config{'PASSWORD'} sein.

Dass dir das Perl nicht angemeckert hat!?
Du verwendest wohl weder use strict; noch use warnings; oder?\n\n

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

Crian

2006-08-17 17:31

User since
2003-08-04
5870 Artikel
ModeratorIn

[quote=renee,17.08.2006, 14:55]Es geht um die Klammern![/quote]
Ah schau an - ok :-D

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite