telnet aus einem anderen telnet (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]17240[/thread]

telnet aus einem anderen telnet

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+14 replies
rasch

2012-03-15 14:26
User since
2009-03-18
15 Artikel
BenutzerIn
Hallo,

ich möchte fragen, ob es mit Perl möglich ist, aus einem Telnet ein anderes Telnet zu starten. Ich habe folgendes versucht:
Code: (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

#!/opt/ActivePerl-5.8/bin/perl -w use Net::Telnet::Cisco; use strict; my @dev=(); $dev[0]={'ip'=>"$ip", 'prompt1'=>'/R7204\.TB\>/', 'prompt2'=>'/R7204\.TB\#/', 'username'=>'etwas', 'password'=>'geheimes', 'enable'=>''}; my @pole=(); my $tel=new Net::Telnet::Cisco(Timeout=>10,Prompt=>$dev[0]->{prompt2},Host=>$dev[0]->{ip}); $tel->login(Name=>$dev[0]->{username},Password=>$dev[0]->{password}); $tel->prompt($dev[0]->{prompt2}); $tel->dump_log('logfile.log'); $tel->print("telnet $andereIP /vrf VOICE"); $tel->waitfor('/Username:/'); $tel->print($dev[0]->{username}); $tel->waitfor('/Password:/'); $tel->print($dev[0]->{password}); $tel->waitfor('/MACC\-MFC\#/'); @pole=$tel->cmd('sh running'); $tel->print('exit'); $tel->close; print "@pole\n";
Das ales endet mit einer Meldung:
Code: (dl )

command timed-out at line 24.
Die Datei logfile.log enthält irgendwelche hexadecimale Zeichen und von mir erwünschte laufende Konfiguration.
Ich weiss nicht, warum der skript nach 10 Sekunden ausläuft, ohne die Liste @pole zu füllen.
Danke sehr für eure Hilfe
rasch
- rasch
  
  2012-03-17 09:58
  
  User since
  2009-03-18
  15 Artikel
  BenutzerIn
  
  Hallo,
  
  die von mir oben gezeigte Metode, von einer Telnet Session eine andere zu starten, funktioniert. Ich habe das auf den anderen Unix Maschinen probiert und alles ist glatt gelaufen. Warum aber ich immer noch von Cisco Router timed-out bin, das weiss ich nicht.
  rasch
- +2 replies
- GwenDragon
  
  2012-03-17 10:18
  
  User since
  2005-01-17
  14811 Artikel
  Admin1
  
  1. Hast du mal versucht anstatt waitfor dann getline zu verwenden?
  2. Was zeigt denn das log wenn du dump_log verwendest?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - rasch
    
    2012-03-17 10:37
    User since
    2009-03-18
    15 Artikel
    BenutzerIn
    
    Hallo,
    
    danke für Antwort.
    1) Gerade habe ich das mit $tel->getline probiert, aber das Ergebnis war das gleiche wie oben also:
    
    Code: (dl )
    
    comannd timed-out at line
    
    2)Hier gebe ich ein Schnipsel aus der logfile.log Datei:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
    
    < 0x00000: 08 08 08 08 08 08 08 08 08 20 20 20 20 20 20 20 ......... < 0x00010: 20 08 08 08 08 08 08 08 08 08 61 6c 69 61 73 20 .........alias < 0x00020: 65 78 65 63 20 63 20 63 6f 6e 66 20 74 65 72 6d exec c conf term < 0x00030: 0d 0a 61 6c 69 61 73 20 65 78 65 63 20 73 20 73 ..alias exec s s < 0x00040: 68 20 72 75 6e 0d 0a 61 6c 69 61 73 20 65 78 65 h run..alias exe < 0x00050: 63 20 77 20 77 72 20 6d 65 0d 0a 61 6c 69 61 73 c w wr me..alias < 0x00060: 20 65 78 65 63 20 76 20 73 68 20 76 6f 69 63 65 exec v sh voice < 0x00070: 20 63 61 6c 6c 20 73 75 6d 6d 61 72 79 0d 0a 21 call summary..! < 0x00080: 0d 0a 6c 69 6e 65 20 63 6f 6e 20 30 0d 0a 20 6c ..line con 0.. l < 0x00090: 6f 67 67 69 6e 67 20 73 79 6e 63 68 72 6f 6e 6f ogging synchrono < 0x000a0: 75 73 0d 0a 6c 69 6e 65 20 61 75 78 20 30 0d 0a us..line aux 0.. < 0x000b0: 6c 69 6e 65 20 76 74 79 20 30 20 34 0d 0a 20 70 line vty 0 4.. p < 0x000c0: 61 73 73 77 6f 72 64 20 37 20 30 36 31 35 31 41 assword 7 06151A < 0x000d0: 33 31 34 39 35 43 35 42 0d 0a 20 6c 6f 67 69 6e 31495C5B.. login < 0x000e0: 20 6c 6f 63 61 6c 0d 0a 6c 69 6e 65 20 76 74 79 local..line vty < 0x000f0: 20 35 20 31 35 0d 0a 20 6c 6f 67 69 6e 20 6c 6f 5 15.. login lo < 0x00100: 63 61 6c 0d 0a 21 0d 0a 73 63 68 65 64 75 6c 65 cal..!..schedule < 0x00110: 72 20 61 6c 6c 6f 63 61 74 65 20 32 30 30 30 30 r allocate 20000 < 0x00120: 20 31 30 30 30 0d 0a 65 6e 64 0d 0a 0d 0a 4d 41 1000..end....MA < 0x00130: 43 43 2d 4d 46 43 23 CC-MFC#
    
    rasch
- +4 replies
- GwenDragon
  
  2012-03-17 11:28
  
  User since
  2005-01-17
  14811 Artikel
  Admin1
  
  Mit einem normalen telnet auf der Shell funktioniert alles?
  
  Warum musst du Net::Telnet::Cisco nehmen? Hat das einen bestimmten Grund? Ist ja zeimlich veraltet (Stand 2002) und könnte Bugs haben.
  
  Schon mal versucht, das Ganze mit Net::Telnet nachzubilden?
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - rasch
    
    2012-03-17 11:41
    
    User since
    2009-03-18
    15 Artikel
    BenutzerIn
    
    Ja, mit telnet in Shell funktioniert alles richtig. Das Net::Telnet::Cisco habe ich wegen der enable() funktion benutzt, um Zutritt ins Konfigurationmodus einfacher zu machen.
    Ich probiere das nun nur mit Hilfe des Telnet Moduls.
    Nochmals Danke.
    rasch
    - +2 replies
    - rasch
      
      2012-03-17 11:55
      
      User since
      2009-03-18
      15 Artikel
      BenutzerIn
      
      Auch nur mit Net::Telnet weist der Skript die gleiche Meldung auf.
      
      Code: (dl )
      
      command timed-out at line
      
      Ich verdächtige den Router, irgendwelchen Enter(\n), oder so etwas nicht zurückschickt. Wiederrum ist in der logfile.log der letzte IOS Prompt, also muss der Router das Richtige machen. Ich weiss wirklich nicht.
      rasch
      - GwenDragon
        
        2012-03-17 12:00
        
        User since
        2005-01-17
        14811 Artikel
        Admin1
        
        Ich weiß auch keinen weiteren Rat, weil ich Cisco-Router nicht intern kenne.
        Vielleicht kommt ja doch irgendein Sysadmin hier vorbei, der dir helfen kann.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +2 replies
- topeg
  
  2012-03-17 12:06
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  Es könnte sein, dass eine Terminalgröße gesetzt werden muss. Schau mal hier:Net::Telnet - virtuelle Terminalgröße angeben Möglicherweise hilft das weiter.
  - rasch
    
    2012-03-17 13:57
    
    User since
    2009-03-18
    15 Artikel
    BenutzerIn
    
    Danke für den Tip. Ich werde deinen Link durchlesen und probiere etwas mit meinem Problem zu machen.
    rasch
- +4 replies
- rosti
  
  2012-03-17 16:58
  
  User since
  2011-03-19
  3535 Artikel
  BenutzerIn
  
  Quote
  pole=$tel->cmd('sh running');
  
  Ausgeschrieben: show running_config
  
  Vermutlich timeout, weil pager gesetzt ist, schalte den mal aus. Das Kommando kennst Du hoffentlich, ich habs vergessen ;)
  
  Rosti
  
  PS/Edit, ungetestet:
  >config terminal
  >pager lines 0
  Last edited: 2012-03-17 17:02:20 +0100 (CET)
  - +3 replies
  - rasch
    
    2012-03-20 08:29
    
    User since
    2009-03-18
    15 Artikel
    BenutzerIn
    
    Hallo,
    
    danke für den Tip, aber es gibt leider in meinem IOS (c2900-universalk9-mz.SPA.150-1.M3) keine command wie pager. Ausserdem enthält die logfile.log Datei ganzen Auszug der laufenden Konfiguration.
    rasch
    - +2 replies
    - Dubu
      
      2012-03-20 21:34
      
      User since
      2003-08-04
      2145 Artikel
      ModeratorIn + EditorIn
      
      Vor dem Befehl "sh running" vielleicht ein "term length 0"?
      - rasch
        
        2012-03-24 07:49
        
        User since
        2009-03-18
        15 Artikel
        BenutzerIn
        
        Danke für deine Hilfsbereitschaft, "terminal length 0" funktioniert zwar in meinem IOS, aber es hat leider keine Auswirkung in meinem skript. Der endet immer mit der Meldung:
        
        Code: (dl )
        
        command timed-out at line
        
        rasch

View all threads created 2012-03-15 14:26.