TCP Port von AVM Fritzbox auslesen? (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]14827[/thread]

TCP Port von AVM Fritzbox auslesen?

Leser: 29

Articles: hide open all | hide show old branches

+4 replies
kami

2010-03-17 07:30
User since
2010-03-17
92 Artikel
BenutzerIn
Hi,

ich habe eine Fritzbox 7170 und die hat um die Anrufliste auszugeben einen offenen TCP-Port: 1012. Immer wenn ein Anruf gemacht wird oder ein Anruf eingeht, wird ein String über diesen TCP-Port ausgegeben. Die Zeilen sehen dann so aus:

Ausgehend:

08.03.10 20:37:35;RING ;0;017100000;3100000;SIP0;
08.03.10 20:37:40;DISCONNECT ;0;0;

09.03.10 07:40:09;RING;0;017100000;3100000;SIP0;
09.03.10 07:40:14;CONNECT;0;0;017100000;
09.03.10 07:40:25;DISCONNECT;0;6;

Eingehend:

09.03.10 07:41:05;CALL;0;0;3100000;017100000;SIP0;
09.03.10 07:41:22;DISCONNECT;0;0;

09.03.10 07:41:37;CALL;0;0;3100000;017100000;SIP0;
09.03.10 07:41:46;CONNECT;0;0;017100000;
09.03.10 07:41:54;DISCONNECT;0;7;

Ich möchte nun gerne auf meinem Server ein Skript laufen lassen, um diese Strings auszuwerten und im Endeffekt in eine Mysql-Datenbank zu speichern.

Dafür habe ich wie folgt angefangen :
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/bin/perl -w use IO::Socket; my (@anruf, $line, $i); $remote = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "192.168.2.1", PeerPort => "1012", ) or die "cannot connect to daytime port at localhost"; while ( <$remote> ) { $line = <$remote>; @anruf = split(/;/, $line); if ($anruf[1] =~/RING/) { print "Ankommend"; } else { print "no"; } }; close $remote;
Das Problem ist nun das er nichts entsprechend anzeigt und nichts ausgegeben wird, obwohl er ja entweder No oder Ankommend anzeigen müsste. Ich denke mal das Problem liegt irgendwo in der Schleife. Wie schreibe ich das richtig, das er die eingehende Zeile auswertet und if-Bedingungen ausführt.
Außerdem sollten folgende Strings nicht verloren gehen.

Gruß kami
Last edited: 2010-03-17 07:52:35 +0100 (CET)
- bianca
  
  2010-03-17 07:58
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  Hast Du mal versucht, vor dem Einlesen mittels while ( <$remote> ) den Zeilentrenner $/ zu verändern?
  Wenn Du die Ausgabe der Fritzbox in einem Hexeditor anschaust, welchen Zeilentrenner findest Du da?
  Unfug.
  
  Aber was mir aufgefallen ist:
  mit while ( <$remote> ) hast Du die Zeile eigentlich schon in $_. Ein $line = <$remote>; bringt dann keine Ergebnisse mehr.
  
  Schau Dir bitte mal das Beispiel auf
  Anrufmonitor an.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
  
  #!/usr/bin/perl -w use strict; use warnings; my $remote = <<__INPUT__; 08.03.10 20:37:35;RING ;0;017100000;3100000;SIP0; 08.03.10 20:37:40;DISCONNECT ;0;0; 09.03.10 07:40:09;RING;0;017100000;3100000;SIP0; 09.03.10 07:40:14;CONNECT;0;0;017100000; 09.03.10 07:40:25;DISCONNECT;0;6; 09.03.10 07:41:05;CALL;0;0;3100000;017100000;SIP0; 09.03.10 07:41:22;DISCONNECT;0;0; 09.03.10 07:41:37;CALL;0;0;3100000;017100000;SIP0; 09.03.10 07:41:46;CONNECT;0;0;017100000; 09.03.10 07:41:54;DISCONNECT;0;7; __INPUT__ foreach (split /\n/,$remote) { my @anruf = split (/;/,$_); print "$anruf[0] "; if ($anruf[1] =~/RING/) { print "Ankommend\n"; } else { print "no\n"; } }
  
  Last edited: 2010-03-17 08:17:14 +0100 (CET)
  10 print "Hallo"
  20 goto 10
- +2 replies
- Gast wer
  
  2010-03-17 09:51
  
  cosspost:
  
  http://www.ip-phone-forum.de/showthread.php?p=1507...
  - kami
    
    2010-03-18 18:27
    
    User since
    2010-03-17
    92 Artikel
    BenutzerIn
    
    Hallo Super genau danach habe ich gesucht der Anrufmonitor ist ja genau mein Ding. Vieln Dank.
    
    Gruß kami

View all threads created 2010-03-17 07:30.