Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Netzwerkprogrammierung und Netzwerke mit Perl
[thread]12912[/thread]

ftp oder ftps durch http Proxy

Leser: 3


<< >> 2 Einträge, 1 Seite
milanj
 2008-12-16 17:47
#117298 #117298
User since
2008-12-16
1 Artikel
BenutzerIn
[default_avatar]
Hi Zusammen,

Wir haben bei uns eine Monitoring Software die Perl Skripte einbinden kann.
Ich möchte gerne mit diesen die FTP Verbindung monitoren. Wir haben interne (no Firewall) und externe FTP Server (Firewall, nur durch HTTP Proxy erreichbar).

Die internen FTP Verbindungen habe ich folgendermassen gelöst:
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
30
31
32
33
34
35
36
#!/usr/bin/perl

use Net::FTP;

my $host="...";
my $user="...";
my $pass="...";

$ftp=Net::FTP->new($host,Timeout=>240) or $newerr=1;

  push @ERRORS, "Can't ftp to $host\n" if $newerr;

  myerr() if $newerr;

$ftp->login($user, $pass) or $newerr=1;

  push @ERRORS, "Can't login to $host\n" if $newerr;

  $ftp->quit if $newerr;

  myerr() if $newerr;

  print "UP:Connection up with $user to $host\n";

$ftp->quit;


sub myerr {

  print "DOWN:";

  print @ERRORS;

  exit 0;

}


dieses funktioniert wunderbar. Es soll nur der Verbindungsaufbau überwacht werden.

Net::FTP unterstützt ja keine HTTP Proxys...
wie könnte ich dies lösen?

Ich habe glaube mit folgenden modulen lässt sich sicher was machen, vielleicht kann mir ja da jemand weiter helfen:

- LWP::UserAgent;
- HTTP::Request::Common;

Gruss
Linuxer
 2008-12-16 17:56
#117299 #117299
User since
2006-01-27
3870 Artikel
HausmeisterIn

user image
Mit LWP::UserAgent sollte es auf jedem Fall machbar sein.

Zum Thema LWP::UserAgent als ftp-client:
Ohne es selbst gross gelesen zu haben, schau doch dort mal vorbei:
http://www.teialehrbuch.de/Kostenlose-Kurse/Perl-u...


# Zur Aktivierung eines Proxy würde ich in der Modul-Doku nachschauen:
http://search.cpan.org/search?query=LWP%3A%3AUserA...

edit:
- Beitrag ergänzt um Hinweis auf Modul-Doku
- Link zu spezifischer Modulversion ersetzt durch Link auf allgemeines Suchergebnis
- edit editiert
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
<< >> 2 Einträge, 1 Seite



View all threads created 2008-12-16 17:47.