Opened by volker.55211 at 2019-03-18 16:20
User since
2019-03-18
28 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2019-03-18
28 Artikel
BenutzerIn
Hallo an alle und der Gedanke, dass ich hier Hilfe bekomme
Test aktuell Net::FTP und habe das Problem dass bei get nur ein 226 Abort successful kommt.
Server ist erreichbar, file-Variable hat auch was drinstehen, Verzeichniswechsel klappt auch -> nur der get Befehl nicht.
Aufgabe des Scriptes:
Lagerverwaltungsanwendung. Artikel wird zur Lagerentnahme angescannt und wenn der Auftrag abgearbeitet ist wird das ganze Paket noch gewogen. Wenn also Anzahl, Artikel und Gewicht stimmen wird eine pdf erzeugt, welches den RMA Code der Sendung enthält. Dieses pdf soll per FTP auf den lokalen Rechner geschoben werden wo dann watchdirectory wartet und das kleine Label ausdruckt.
Win32::Printer geht nicht, da der Server ein Linux ist und mir fällt kein anderer Weg ein um ein pdf welches auf dem Server erstellt wird direkt auf einen lokalen Drucker zu bekommen.
So und was mach ich nu falsch?? achso und ein Hinweis, wie ich das lokale Zielverzeichnis wechsele wäre auch ganz gut. Man soll die Datei nach dem FTP ja auch wiederfinden.
Quellcode:
Last edited: 2019-03-18 16:42:10 +0100 (CET)
Test aktuell Net::FTP und habe das Problem dass bei get nur ein 226 Abort successful kommt.
Server ist erreichbar, file-Variable hat auch was drinstehen, Verzeichniswechsel klappt auch -> nur der get Befehl nicht.
Aufgabe des Scriptes:
Lagerverwaltungsanwendung. Artikel wird zur Lagerentnahme angescannt und wenn der Auftrag abgearbeitet ist wird das ganze Paket noch gewogen. Wenn also Anzahl, Artikel und Gewicht stimmen wird eine pdf erzeugt, welches den RMA Code der Sendung enthält. Dieses pdf soll per FTP auf den lokalen Rechner geschoben werden wo dann watchdirectory wartet und das kleine Label ausdruckt.
Win32::Printer geht nicht, da der Server ein Linux ist und mir fällt kein anderer Weg ein um ein pdf welches auf dem Server erstellt wird direkt auf einen lokalen Drucker zu bekommen.
So und was mach ich nu falsch?? achso und ein Hinweis, wie ich das lokale Zielverzeichnis wechsele wäre auch ganz gut. Man soll die Datei nach dem FTP ja auch wiederfinden.
Quellcode:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
my $host = "ftp.......";
my $user = "name";
my $password = "pwd";
my $file = "RMA".$FORM{'auftragnr'}.".pdf";
my $file2 = "test500.pdf";
$ftp = Net::FTP->new($host, Passive => 1, Debug => 1) or die "error connecting\n";
$ftp->login($user,$password);
$ftp->cwd("/etikett/") or die "Verzeichniswechsel fehlerhaft ", $ftp->message;
my @files=$ftp->ls();
#foreach (@files) {
#$ftp->ascii();
$ftp->get("$file") || die &ftpfehler;
$ftp->quit();
Last edited: 2019-03-18 16:42:10 +0100 (CET)