Schrift
Start · Board · Webprogrammierung mit Perl · Perl/CGI
[thread]10846[/thread]

Frage zu telnet (Seite 6)

Leser: 6


<< |< 1 ... 3 4 5 6 >| >> 55 Einträge, 6 Seiten
grey1987
 2007-11-23 15:14
#102922 #102922
User since
2007-11-21
83 Artikel
BenutzerIn
[default_avatar]
und in der log steht auch nicht, dass der da CONNECT hinsendet:

Code: (dl )
1
2
3
4
5
> 0x00000: 43 4c 49 45  4e 54 20 43  52 45 41 54  45 0d 0a     CLIENT CREATE..

< 0x00000: 41 43 4b 00                                         ACK.

< 0x00000: 45 54 49 4d  45 4f 55 54  00                        ETIMEOUT.
renee
 2007-11-23 15:37
#102928 #102928
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Ich kann hier leider nix testen...
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/
grey1987
 2007-11-23 15:40
#102929 #102929
User since
2007-11-21
83 Artikel
BenutzerIn
[default_avatar]
schade,
aber ich stell grad noch mal den code rein:
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
28
29
30
31
32
33
34
35
36
37

use strict;
use warnings;
use Net::Telnet;

my $telnet = new Net::Telnet (Timeout => 10, Errmode=>'return', Port=>1810, Prompt => '/[\$%#>] $/' );
my $fh = $telnet->dump_log( 'test.log' );

$telnet->open('PC110197');
$telnet->errmode( sub{ return @_ unless $_[0] =~ /eof/ } );

$telnet->cmd('CLIENT CREATE');
#$telnet->buffer_empty;
my $data = $telnet->buffer;
my ($message) = split /\0/, $$data;

if ($message eq "ACK")
{
  print "CLIENT CREATE BESTAETIGT!!!";
  $telnet->buffer_empty;
  $telnet->cmd("CONNECT");
  my $data2 = $telnet->buffer;
#  my ($message2) = split /\0/, $$data2;
  print $$data2;
#  if ($message2 eq "ACK")
#  {
#    print "CONNECT BESTAETIGT!!!";
#  }
#  else
#  {
#    print "CONNECT NICHT BESTAETIGT!!!";
#  }

}
else
{
  print "CLIENT CREATE NICHT BESTAETIGT!!!";
}

ich hab das alles jetzt so weit.
müsste es denn deiner meinung nach gehen?
hast du keine idee, wieso der das CONNECT nicht da hin sendet?
grey1987
 2007-11-23 16:15
#102932 #102932
User since
2007-11-21
83 Artikel
BenutzerIn
[default_avatar]
ok, ich geb mich vorerst geschlagen.

wie sieht das ganze denn mit SOCKET aus???

wär echt cool wenn du hier nen kleinen code zusammenbringen würdest renee.
grey1987
 2007-11-23 17:07
#102933 #102933
User since
2007-11-21
83 Artikel
BenutzerIn
[default_avatar]
Code (perl): (dl )
1
2
3
4
5

use IO::Socket;

$sock = IO::Socket::INET -> new 
(LocalHost =>'PC110197',
LocalPort =>1810,)

ist das schon mal richtig?
<< |< 1 ... 3 4 5 6 >| >> 55 Einträge, 6 Seiten



View all threads created 2007-11-21 12:13.