CGI Upload Hook noch nicht ganz verstanden (Perl/CGI)

[thread]14922[/thread]

CGI Upload Hook noch nicht ganz verstanden

Leser: 18

Articles: hide open all | hide show old branches

+8 replies
Gast Egga

2010-04-09 09:33
Hallo liebe Community,

ich hoffe mal wieder, dass ihr zu meiner Rettung schreitet, denn so langsam fang ich an zu verzweifeln mit der Upload-Hook des CGI-Moduls (Finde die Doku an der Stelle ein wenig spärlich).

Grundsätzlich habe ich es zum laufen bekommen und der Fortschrittsbalken wird korrekt angezeigt. Die Hook sieht ungefähr so aus:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

sub hook { my ($filename, undef, $bytes_read, $session_id) = @_; my $conf = IMP::Configuration->new('../../fipo.conf'); my $dbh = new IMP::DB::Wrapper; $dbh->dbConnect($conf); # schreiben des status in die datenbank... $dbh->dbClose; }
Allerdings passiert es bei manchen Usern, dass (interessanterweise fast immer bei Erreichen der 15MB-Grenze, hin und wieder aber auch später) keine Verbindung zur Datenbank mehr hergestellt werden kann (IMP::DB::Wrapper ist nur ein Wrapper, der DBI um einige nette Funktionen erweitert, aber "connect" und "close" einfach durchreicht).

Ich hätte ja gedacht, dass es an einer Begrenzung wie der POST_MAX-Variable liegt, aber es funktioniert ja manchmal: Je nachdem über welchen Proxy ich ins Internet gehe, bekomme ich diesen Fehler, oder eben nicht. Vielleicht kann mir jemand von euch erklären, wie diese beiden Dinge zusammen hängen könnten?

Vielen Dank im Voraus für jede Idee
Egga

PS:
Mir ist auch immer noch nicht klar, wie diese Hook dann ausgeführt wird. Sie meckert bei der Verwendung von globalen Variablen nicht, aber diese sind imer undef. Wenn er sie gar nicht kennen und strict Alarm schlagen würde, dass es die Var nicht gibt, könnte ich das verstehen. Aber so halb ist doch komisch...

Und folgendes habe ich noch nicht intensiv getestet, aber ich hatte mal versucht, beim Erstellen des CGI-Objekts als $data eine Referenz zu benutzen und diese dann später im Skript zu "füllen". War aber auch erfolglos - hatte den Eindruck, dass er die Parameter kopiert (die Werte, auf die die Referenz zeigt). Kann das sein?
Last edited: 2010-04-09 09:42:27 +0200 (CEST)
- +6 replies
- moritz
  
  2010-04-09 10:27
  
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  
  Guest Egga
  Allerdings passiert es bei manchen Usern, dass (interessanterweise fast immer bei Erreichen der 15MB-Grenze, hin und wieder aber auch später) keine Verbindung zur Datenbank mehr hergestellt werden kann
  
  Was ist denn die genaue Fehlermeldung?
  Perl 6 - Perls Zukunft
  - +5 replies
  - Gast Egga
    
    2010-04-09 10:56
    Standard:
    
    Code (perl): (dl )
    
    my $dbh = DBI->connect( $table, $user, $pass) || die "Database connection could not be established! Please contact the administrator.\n";
    - +4 replies
    - pq
      
      2010-04-09 11:00
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      na interessiert dich der grund denn gar nicht?
      ... or die "Couldn't connect: $DBI::errstr";
      
      DBI liefert einen grund, warum ein connect nicht geklappt hat. der steht in $DBI::errstr. lass dir den erstmal ausgeben.
      
      im übrigen frage ich mich, ob das mit dem upload hook so effizient ist, da wird für jeden chunk eine neue datenbank-connection aufgemacht. das kann dann schon ganz schön viel last erzeugen.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - moritz
        
        2010-04-09 11:10
        
        User since
        2007-05-11
        923 Artikel
        HausmeisterIn
        
        2010-04-09T09:00:27 pq
        na interessiert dich der grund denn gar nicht?
        ... or die "Couldn't connect: $DBI::errstr";
        
        DBI liefert einen grund, warum ein connect nicht geklappt hat. der steht in $DBI::errstr. lass dir den erstmal ausgeben.
        
        Oder gleich beim connect RaiseError => 1 mitgeben, dann stirbt DBI auch schoen brav automatisch, und man muss nicht mehr den Erfolg jeder einzelnen Methode abfragen. Und der Grund steht auch gleich in der Fehlermeldung.
        Perl 6 - Perls Zukunft
      - +2 replies
      - Gast Egga
        
        2010-04-09 11:50
        
        2010-04-09T09:00:27 pq
        na interessiert dich der grund denn gar nicht?
        
        Da kommt auch nur ein schnödes Can't connect to MySQL server on 'localhost' (10048)...
        
        Aber deine Anmerkung hat mich ein wenig grübeln lassen
        
        2010-04-09T09:00:27 pq
        da wird für jeden chunk eine neue datenbank-connection aufgemacht. das kann dann schon ganz schön viel last erzeugen.
        
        Ich habe mich schon gefragt, wieso in allen Beispielen, die ich gefunden habe, in eine Datei geschrieben wird. Hatte ich auch anfangs versucht, war mir aber zu heikel, weil das Lesen manchmal genau während des Schreibvorgangs statt gefunden hat.
        
        Dann wird mir auch klar, was das mit dem Proxy zu tun hat, weil der eine nämlich eine wesentlich schnellere Verbindung hat als der andere. OH MANN! Da seh ich die DB vor lauter Connections nicht...
        
        Werds mal mit nem File probieren. Vielen Dank pq - das war genau der Input, den ich gebraucht habe. Hier in der Firma sind schon alle genervt von meinem Problem...
        
        Fällt denn zu den anderen Fragen (globale Vars und Referenzen) noch jemandem was schlaues ein?
        Last edited: 2010-04-09 11:58:42 +0200 (CEST)
        
        Gast wer
        
        2010-04-09 12:26
        
        Sperre die Datei bei schreiben, dann kann erste gelesen werden wenn das schreibe beendet ist. Siehe "file locking"
        Last edited: 2010-04-09 12:31:28 +0200 (CEST)
- Gast Egga
  
  2010-04-09 16:05
  Aha! Ich dachte, dass die Hook nach dem ganzen Rest ausgeführt wird und nicht davor... Man muß also nur vor dem Instanzieren des CGI-Objekts seine Sachen setzen.
  
  Dann kann ich also doch den Fortschritt in der Datenbank speichern, solange ich die Verbindung vorher aufbaue. Oder spricht da aus eurer Sicht noch etwas dagegen?
  
  TestCode
  
  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
  
  #!perl use warnings; use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); use Data::Dumper; use File::Basename; my $global_array_ref = ['vorher']; my $cgi = CGI->new(\&hook, $global_array_ref, 0); push @$global_array_ref, 'nachher'; sub hook { my (undef, undef, undef, $array_ref) = @_; my $path = dirname($0) . '/cgi_hook_test.txt'; open (my $OUTFILE, '>', $path) || die qq(File not writable: "$path"!); print $OUTFILE "global array:\n" . Dumper($global_array_ref); print $OUTFILE "given array:\n" . Dumper($array_ref); close $OUTFILE; } print $cgi->header(); print $cgi->start_multipart_form(); print $cgi->filefield('uploaded_file'); print $cgi->submit('button', 'und ab'); print $cgi->end_form();
  
  Last edited: 2010-04-09 16:09:53 +0200 (CEST)

View all threads created 2010-04-09 09:33.