Net::SFTP über ein Net::Proxy (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]15478[/thread]

Net::SFTP über ein Net::Proxy

Leser: 17

Articles: hide open all | hide show old branches

+10 replies
jetcki

2010-09-21 12:30
User since
2010-07-09
6 Artikel
BenutzerIn
Hallo Zusammen,

ich habe folgendes Szenario:
-> es müssen mehrere Dateien über ein Proxy via sftp übertragen werden. Da dabei auch einige anderen Sachen gemacht werden müssen, muss perl eingesetzt werden. Auch ein Shell-Skript muss ich hier leider verzichten.

Problem:
Sobald ich den Proxy im Perl-Skript starte (Zeile 9: $proxy->mainloop) bleibt das Skript an dieser Zeile stehen, und es wird keine Verbindung zu dem SFTP-Server hergestellt, da diese erst in darauf folgenden Zeilen gemacht wird.

Während dessen kann ich über eine andere Konsole auf den so geöffneten Proxy-Port zugreifen und die Dateien auf den Zielrechner kopieren.
Code: (dl )

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

my $proxy = Net::Proxy->new ( in => { type => 'tcp', port => '6789' }, out => { type => 'tcp', host => 'XXX.XXX.XXX.XXX', port => '22', proxy_host => 'YYY.YYY.YYY.YYY', proxy_port => '8080', }, }; $proxy->register(); $proxy_>meinloop(); # hier bleibt das Skript stehen my $sftp = Net::SFTP::Forgeign->new($host, %login_param); if($sftp->error) { die "keine verbindung\n"; } if (!defined($sftp)) { die "Probleme beim verbinden\n"; } else { print "alles ok, Verbindung hergestellt\n" if(defined($verbose)); }
Da ich mit Perl (noch) keine Erfahrung habe, fehlt mir auch eine Idee...

Vielleicht klappt es mit einem Fork, aber ich habe hier keine Ahnung, wie ich den Prozess starten, Daten übertragen und beenden soll...

Vielleicht so:
Code: (dl )

1 2 3 4 5 6 7 8 9 10

if(defined($kindpid = fork())) { die "kann fork nich ausführen\n"; } elsif ($kindpid == 9) { # starte den Kindprozeß $proxy->mainloop(); } else { # hier kann ich kopieren my $sftp = Net::SFTP::Forgeign->new($host, %login_param); [...] }
nun die Frage:
-> was mach ich hier falsch?
-> wie beende ich den Kindprozeß nach dem die Dateien kopiert wurden?
-> Gibt es andere Methode, wo z.B. dem SFTP-Modul mitgeteilt wird, dass es selbst einen Proxy benutzen soll?

Ich hoffe, dass Jemand mir helfen kann

Danke Jetcki
Last edited: 2010-09-21 13:17:31 +0200 (CEST)
- +9 replies
- nepos
  
  2010-09-21 13:15
  
  User since
  2005-08-17
  1420 Artikel
  BenutzerIn
  
  Dir ist bewusst, dass SFTP per SSH arbeitet? Da kannst du eigentlich keinen Proxy dazwischenschalten.
  - +8 replies
  - jetcki
    
    2010-09-21 13:27
    User since
    2010-07-09
    6 Artikel
    BenutzerIn
    
    Hallo nepos,
    
    warum sollte es nicht gehen. Bei ssh kann ich wohl einen Proxy verwenden z.B. mit dem Prameter:
    
    Code: (dl )
    
    -o ProxyCommand='/usr/bin/connect -5 -w -S XXX.XXX.XXX.XXX:8080 %h %p'
    
    Gruß, jetcki
    - +2 replies
    - nepos
      
      2010-09-21 13:34
      
      User since
      2005-08-17
      1420 Artikel
      BenutzerIn
      
      Stimmt, da hast du wieder recht. Habe grade mal die Doku überflogen und denke, das Problem ist, dass mainloo() nicht zurückkehrt.
      Der Ansatz mit fork() hört sich dann schon mal richtig an. Den Prozess, der den Proxy macht, wegforken und dann mit Net::SFTP auf den Proxy verbinden.
      Wenn du fertig bist, schickst du normal einfach ein SIGTERM an die PID des Proxy-Prozesses.
      
      Eventuell gehts aber auch ganz ohne das Modul. Wenn ich die Doku zu Net::SSH::Perl richtig lese (auf dem Net::SFTP aufbaut), dann kannst du da bei new() auch analog zur Kommandozeile das ProxyCommand mit reinbringen.
      Schau dir mal den Key ssh_args an. Der wird direkt an Net::SSH::Perl durchgereicht und dem kann man bei new() mittels options auch SSH-Optionen mitgeben.
      - jetcki
        
        2010-09-21 13:40
        
        User since
        2010-07-09
        6 Artikel
        BenutzerIn
        
        stimmt, das mit dem Parameter werde ich ausprobieren, würde in etwa so aussehen:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        my %login_param = ( user => 'USER', port => '6789', timeout => 60, more => [ -i => $rsa_file, -o => 'StrictHostKeyChecking no', -o => 'ProxyCommand='/usr/bin/connect -5 -w -S \ XXX.XXX.XXX.XXX:8080 %h %', ], );
        
        So bald ich es getestet habe, werde ich eine Rückmeldung liefern.
        
        Gruß Jetcki
        
        //modedit GwenDragon: Code-Tag repariert
        
        Last edited: 2010-09-21 14:08:12 +0200 (CEST)
    - +5 replies
    - GwenDragon
      
      2010-09-21 13:40
      
      User since
      2005-01-17
      14830 Artikel
      Admin1
      
      JA, SSH kann man tunneln.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +4 replies
      - nepos
        
        2010-09-21 13:48
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Ja, ich wollte nur ausschliessen, dass wieder mal jemand total in der falschen Ecke sucht, weil wieder mal SFTP und FTP mit TLS verwechselt wurden.
        
        Soll ja häufiger mal vorkommen ;)
        
        +3 replies
        
        GwenDragon
        
        2010-09-21 14:07
        
        User since
        2005-01-17
        14830 Artikel
        Admin1
        
        Das eine ist SFTP (Secure File Transfer Protocol), das andere FTPS (File Transfer Protocol over SSL).
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        nepos
        
        2010-09-21 14:30
        
        User since
        2005-08-17
        1420 Artikel
        BenutzerIn
        
        Eben, aber viele verwechseln das trotzdem ;)
        
        Aber egal, schauen wir mal, obs bei ihm nun funktioniert. Er will ja auch wirklich SFTP.
        
        jetcki
        
        2010-09-21 14:56
        
        User since
        2010-07-09
        6 Artikel
        BenutzerIn
        
        Leider kann ich es nicht mehr online testen, da die Verbindung zu dem Server abgebrochen wurde ... (Server steht in Österreich). Ich hoffe, dass ich morgen einen Zugang dorthin bekomme, und das mit dem Proxy testen kann.
        
        Vielen Dank für die Mithilfe. Sobald das Ergebnis steht, schreibe ich es hier rein - vielleicht hat Jemmand das gleich Problem.
        
        Gruß Jetcki

View all threads created 2010-09-21 12:30.