Problem mit CGI-Upload-Relais (Perl/CGI)

[thread]16277[/thread]

Problem mit CGI-Upload-Relais

Tags: perl5 CGI Upload CGI-Upload-Relais Relais Ähnliche Threads

Leser: 20

Articles: hide open all | hide show old branches

+5 replies
TheMacTrader

2011-05-11 15:40

User since
2011-05-11
2 Artikel
BenutzerIn

Guten Tag,

ich habe folgendes Problem, ich versuche mit dem CGI-Upload-Relais Script von Christian Rotzoll Dateien beim Upload zu splitten, sodass ich das Datei Limit von PHP übergehen kann.

Zum Test habe ich die Dateien wie in der readme verteilt, Benutzerrechte & Co. angepasst. Als ich das erste mal eine Datei (.jpg) hochladen wollte funktionierte das soweit auch ganz gut, der Ordner "uploadrelaisdaten" und die .htaccess wurde angelegt und beschrieben.

Mein Problem ist jetzt, dass ich wenn ich eine Datei hochlade einmal $id.inf & eine $id.dat habe und kein .jpg Bild mehr, daher die Frage wie es funktioniert, dass die Datei nach dem Upload auch wieder zusammengesetzt wird, sodass ich wieder eine Bild Datei habe ...

Die Dateien & alles was man braucht findet man unter http://www.rotzoll.de/cgiuploadrelais/ .. auch "gibt" es dort Video Tutorials, die aber leider nicht mehr vorhanden sind. Die Dateien die man da runterladen kann sind identisch zu den Test Dateien, die ich verwendet habe.

Ich bedanke mich schon einmal für die Hilfe.
- +4 replies
- bianca
  
  2011-05-11 16:30
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  2011-05-11T13:40:58 TheMacTrader
  Mein Problem ist jetzt, dass ich wenn ich eine Datei hochlade einmal $id.inf & eine $id.dat habe und kein .jpg Bild mehr
  
  Hab mir das Script nicht angeschaut. Kann es sein, dass die .dat Datei einfach nur in .jpg umbenannt werden müsste? Vielleicht hast du auf dem Server ein Rechteproblem, was das automatische Umbenennen verhindert?
  10 print "Hallo"
  20 goto 10
  - +3 replies
  - TheMacTrader
    
    2011-05-11 16:33
    User since
    2011-05-11
    2 Artikel
    BenutzerIn
    
    Hallo, danke erstmal für die Antwort .. im Script selbst steht u.a folgendes:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
    
    binmode($filehandle); #Datei-Info speichern open(OUT, ">uploadrelaisdaten/$upload_id.inf") or die("kann nicht schreiben: $!"); print OUT time()."\n"; print OUT "$original_name\n"; close OUT; # Datei-Daten speichern open(OUT, ">uploadrelaisdaten/$upload_id.dat") or die("kann nicht schreiben: $!"); binmode(OUT); $bytecounter = 0; while ($zeile = <$filehandle>) { print OUT $zeile; $bytecounter += length($zeile); } close OUT; close $filehandle;
    
    und auch wenn ich die .dat Datei in eine .jpg ändere funktioniert es nicht :(
    - bianca
      
      2011-05-11 16:44
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2011-05-11T14:33:26 TheMacTrader
      und auch wenn ich die .dat Datei in eine .jpg ändere funktioniert es nicht :(
      
      Dann ist was anderes kaputt.
      Wie groß ist denn die .dat Datei und wie groß ist die Original .jpg Datei, die du mit dem Teil hochgeladen hast?
      10 print "Hallo"
      20 goto 10
    - rosti
      
      2011-05-11 17:09
      
      User since
      2011-03-19
      3505 Artikel
      BenutzerIn
      
      binmode $handle und "zeilenweise" Handle lesen passt nicht so recht zusammen.
      
      Ansonsten ist binmode $handle ok.
      
      Zum Upload: Sofern das Modul CGI verwendung findet, liefert die Methode param() ein Handle auf die hochgeladene Datei
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      use CGI; my $cgi = CGI->new; # erstelle CGI-Instanz my $handle = $cgi->param('name_input_type_file'); binmode $handle; # wie gesagt...
      
      Die Datei ist an dieser Stelle bereits auf dem Server, aber noch nicht da, wo wir sie haben wollen ;)
      
      Wir haben das $handle und lesen es aus mit read();
      
      Code (perl): (dl )
      
      1 2 3 4
      
      while(read($handle, my $buffer, 1024)){ print MY_HANDLE $buffer; # schreibe nun die eigene Datei } close $handle;
      
      Wobei: $handle ist tatsächlich ein HANDLE im Kontext mit der read()-Funktion.
      
      Im scalaren Kontext
      
      $dateiname = $handle; steht in $dateiname der Dateiname. Nutze File::Basename zum parsen $dateiname, manche Browser liefern fälschlicherweise den kompletten lokalen Pfad.
      
      Und wie schon Bianca schrieb: Die Schreibberechtigungen müssen vorhanden sein.

View all threads created 2011-05-11 15:40.