Net::FTP kopieren mit Zeitstempel (gelöst) (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]15990[/thread]

Net::FTP kopieren mit Zeitstempel [gelöst]

Leser: 16

Articles: hide open all | hide show old branches

Teilbaum:
Ausweichmöglichkeit SSH (2 Artikel) 2011-02-22 13:34

+19 replies
bianca

2011-02-22 09:45

User since
2009-09-13
7016 Artikel
BenutzerIn

Guten Morgen!
Aktuell nutze ich Net::FTP und Net::FTP::File, um automatisierte FTP Vorgänge zu machen.
Was mir nicht gefällt ist, dass beim put Datum und Uhrzeit der Datei auf dem Server nicht mit kopiert werden. Kann ich auch nachvollziehen, ist ja kein echtes Copy sondern ein Upload.

Kennt jemand eine Möglichkeit, Datum und Uhrzeit einer Datei per FTP zu ändern bzw. beim Hochladen mit zu geben? Hab mal ein bisschen gesucht aber ich fürchte, dafür gibt es garkein FTP Kommando, sehe ich das richtig?

Danke
10 print "Hallo"
20 goto 10
- +3 replies
- bianca
  
  2011-02-22 09:52
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Zusatzfrage: Falls es nicht per FTP geht würde ich gern Datum und Zeit der lokalen Datei auf Windows ändern. Bei Win32::File habe ich dazu keine Möglichkeit gefunden.
  
  Gibt es ein Modul, dass das kann? Welches wäre das.
  
  Ich brauche nach dem FTP Put auf beiden Seiten gleiches Datum und Zeit, weil das für das Script das Kriterium ist, festzustellen, ob ein FTP Get oder Put zu machen ist, also welche neuer ist.
  
  Danke
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - Taulmarill
    
    2011-02-22 10:22
    
    User since
    2004-02-19
    1750 Artikel
    BenutzerIn
    
    2011-02-22T08:52:02 bianca
    Zusatzfrage: Falls es nicht per FTP geht würde ich gern Datum und Zeit der lokalen Datei auf Windows ändern. Bei Win32::File habe ich dazu keine Möglichkeit gefunden.
    
    Gibt es ein Modul, dass das kann? Welches wäre das.
    
    Dafür braucht man kein Modul, das geht einfach mit der Funktion utime
    $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - bianca
      
      2011-02-22 14:11
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Danke Dir, teste ich.
      10 print "Hallo"
      20 goto 10
- Gast rb999
  
  2011-02-22 10:55
  
  Subtree with 3 replies: Ausweichmöglichkeit SSH
  
  unter UNIX kann man mit "scp -p" den aktuellen Zeitstempel beibehalten.
  
  bei WINDOWS ??? mal unter ssh suchen.
  
  modedit Editiert von GwenDragon: Subthread SSH
  Last edited: 2011-02-22 13:34:41 +0100 (CET)
- +12 replies
- GwenDragon
  
  2011-02-22 12:55
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Was kann denn der FTP-Server? Auch benutzerspezifische Befehle?
  
  Erst auf dem Quellsystem die mtime auslesen
  dann auf dem Zielsystem mit
  SITE UTIME
  oder SITE MDTM
  oder SITE MFMT
  
  Aber das hängt vom Server ab, ob der das kann. :(
  Last edited: 2011-02-22 13:22:38 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - bianca
    
    2011-02-22 14:11
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Danke für die Hilfe.
    Ich glaube, ich mach es lokal mit utime (hatte nicht erwartet, dass das so einfach geht).
    Erscheint mir weniger fehleranfällig, weil es lokal stattfindet.
    10 print "Hallo"
    20 goto 10
  - +10 replies
  - bianca
    
    2011-02-22 16:00
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Ich würde es doch gern auf FTP machen, da die lokale Änderung ganz andere Probleme bringt.
    
    2011-02-22T11:55:57 GwenDragon
    SITE UTIME
    oder SITE MDTM
    oder SITE MFMT
    
    Wie ist die Syntax dieser Befehle?
    
    $ftp -> site ('UTIME ' . $timewert . ' test_utime.pl')
    Ist das korrekt?
    
    Edit: Es ist ein ProFTPD 1.3.2rc3 FTP Server, da werde ich mal weiter recherchieren.
    Last edited: 2011-02-22 16:50:05 +0100 (CET)
    10 print "Hallo"
    20 goto 10
    - +9 replies
    - bianca
      
      2011-02-22 17:22
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Schade. Laut http://www.proftpd.de/FTP-Befehle.38.0.html werden nur 3 SITE Kommandos unterstützt und diese sind nicht dabei.
      Muss ich was anderes finden.
      10 print "Hallo"
      20 goto 10
      - +8 replies
      - bianca
        
        2011-02-22 17:33
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Komisch, laut http://forums.proftpd.org/smf/index.php/topic,3862... gibt es wohl doch UTIME in einer Version.
        
        Weiß da jemand mehr zum ProFTPD?
        Ich frag mal den Betreiber des Servers.
        10 print "Hallo"
        20 goto 10
        
        +7 replies
        
        Taulmarill
        
        2011-02-22 17:42
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Sieht so aus, als ob die Funktion in dem Modul mod_site_misc versteckt wurde:
        http://www.proftpd.org/docs/contrib/mod_site_misc....
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        +6 replies
        
        bianca
        
        2011-02-22 18:42
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Ja, glaube ich auch.
        Und ich habe gerade mal im Totalcommander einen FTP Upload beobachtet und festgestellt, dass der einen SITE MDTM absetzt danach und das scheint zu klappen.
        Syntax ist allerdings nicht ein Unix Zeitwert sondern JJJJMMTTHHMMSS da muss man erstmal drauf kommen :)
        Ich teste weiter.
        10 print "Hallo"
        20 goto 10
        
        +5 replies
        
        bianca
        
        2011-02-22 19:30
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Hmmm, habe ein Problem.
        Das folgende Script lädt sich selbst auf den Server hoch und versucht dann den Zeitstempel zu ändern.
        Ich bekomme immer ein Response Code 5 zurück, weiß jemand was das bedeutet?
        Und der Zeitstempel wird leider nicht geändert.
        Hab es mit quot und site versucht.
        
        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
        
        #!/usr/bin/perl -w use strict; use warnings; use Date::Calc qw ( Localtime ); my %env = ( ftp_server => 'bitte einsetzen', ftp_user => 'bitte einsetzen', ftp_pass => 'bitte einsetzen', ); my $modul = 1; eval "use Net::FTP; 1;" or $modul = 0; if (!$modul) { die 'Modul >Net::FTP< kann nicht geladen werden!'; } eval "use Net::FTP::File; 1;" or $modul = 0; if (!$modul) { die 'Modul >Net::FTP::File< kann nicht geladen werden!'; } my $ftp = Net::FTP -> new ($env{ftp_server},Debug => 0,Timeout => 60,Passive => 1) or die 'Verbindungsaufbau zum FTP Server fehlgeschlagen'; $ftp -> login ($env{ftp_user},$env{ftp_pass}) or die 'Login zum FTP Server fehlgeschlagen'; my $akt_ftp_verz = $ftp -> cwd ('/tmpdevelop') or die 'Verzeichniswechsel mißlungen'; $ftp -> ascii or die 'Umschaltung in ASCII-Modus fehlgeschlagen'; $ftp -> put ($0) or die 'Upload fehlgeschlagen'; my $timewert = '20110101000000'; print "Stempel muesste sein: $timewert\n"; my $ret = $ftp -> quot ('MFMT ' . $timewert . ' test_utime.pl') or die 'Sonderbefehl fehlgeschlagen'; print "Return: >$ret<\n"; my $neu = $ftp -> mdtm ('test_utime.pl'); $neu = sprintf ("%04d%02d%02d%02d%02d%02d",(Localtime ($neu))[0..5]); print "Nachher : $neu => " . ($neu == $timewert ? 'RICHTIG' : 'FALSCH') . "\n"; $ftp -> quit;
        
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        bianca
        
        2011-02-23 15:15
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Würde das gern nochmal aufwärmen, brennt etwas auf den Nägeln.
        Weiß jemand, wie man korrekt ein MFMT Kommando mit Net::FTP absetzt?
        Dass der FTP Server das kann entnehme ich der Tatsache, dass die Windows Anwendung Totalcommander auf dem gleichen Server regelmäßig nach einem Upload ein MFMT absetzt, um eben Datum und Zeit zu korrigieren, zumindest laut dessen FTP Logfile.
        
        Habe es mit $ftp->quot('MFMT .....) und auch mit $ftp->site('MFMT ....) versucht.
        
        Soweit ich recherchiert habe ist der Aufbau MFMT WERT PFADDATEI
        Wobei ich bei Wert nicht sicher bin, ob im Format JJJJMMTTHHMMSS (so steht es im Totalcommander FTP Logfile) oder als Epochwert.
        
        Egal, welche Kombi ich versuche, Dateidatum und -zeit werden nicht geändert, es klappt nicht.
        
        Google antwortet mit den Stichworten FTP und MFMT auch leider nicht mit Perl Code Beispielen.
        
        Hat jemand einen Tipp für mich?
        
        Vielen Dank
        10 print "Hallo"
        20 goto 10
        
        gelöscht 2011-02-23 16:01
        
        +2 replies
        
        GwenDragon
        
        2011-02-23 16:07
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Klappt site UTIME nicht?
        
        Dann eben MFMT.
        quot ist laut Source nur ein Synonym für
        
        Code (perl): (dl )
        
        1 2
        
        $ftp->command(uc $cmd, @_); $ftp->response();
        
        Schau (login ausgersternt):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
        
        #!/usr/bin/perl use strict; use warnings; use Net::FTP; my $server = "ftp.********"; my $user = "******"; my $password = '****************'; my $ftp = Net::FTP->new( $server, Debug => 1 ) or die "Cannot connect to $server: $@"; $ftp->login( $user, $password ) or die "Cannot login ", $ftp->message; $ftp->cwd("/prv") or die "Cannot change working directory ", $ftp->message; $ftp->put("test.test") or die "get failed ", $ftp->message; $ftp->quot( "MFMT", "19990101010101", "test.test" ) or die "get failed ", $ftp->message; $ftp->quit;
        
        Geht bei mir laut Net::FTP-Debug:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        Net::FTP=GLOB(0x24eae30)<<< 220 ******* FTP server ready Net::FTP=GLOB(0x24eae30)>>> USER ************ Net::FTP=GLOB(0x24eae30)<<< 331 Password required for ******* Net::FTP=GLOB(0x24eae30)>>> PASS .... Net::FTP=GLOB(0x24eae30)<<< 230 User ******** logged in Net::FTP=GLOB(0x24eae30)>>> CWD /prv Net::FTP=GLOB(0x24eae30)<<< 250 CWD command successful Net::FTP=GLOB(0x24eae30)>>> PASV Net::FTP=GLOB(0x24eae30)<<< 227 Entering Passive Mode (********). Net::FTP=GLOB(0x24eae30)>>> STOR test.test Net::FTP=GLOB(0x24eae30)<<< 150 Opening BINARY mode data connection for test.test Net::FTP=GLOB(0x24eae30)<<< 226 Transfer complete Net::FTP=GLOB(0x24eae30)>>> MFMT 19990101010101 test.test Net::FTP=GLOB(0x24eae30)<<< 213 Modify=19990101010101; test.test Net::FTP=GLOB(0x24eae30)>>> QUIT Net::FTP=GLOB(0x24eae30)<<< 221 Goodbye.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        [root@***** prv]# stat test.test File: `test.test' Size: 0 Blocks: 0 IO Block: 4096 regular empty file Device: 2ah/42d Inode: 206152378 Links: 1 Access: (0644/-rw-r--r--) Uid: (****/*****) Gid: ( ****/ *****) Access: 1999-01-01 02:01:01.000000000 +0100 Modify: 1999-01-01 02:01:01.000000000 +0100 Change: 2011-02-23 15:58:02.000000000 +0100 [root@**** prv]#
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        bianca
        
        2011-02-23 16:25
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Super Geil!
        Danke Dir.
        
        Die Kommatrennung in der Syntax muss es gewesen sein.
        
        VIELEN DANK!!!!!
        10 print "Hallo"
        20 goto 10

View all threads created 2011-02-22 09:45.