Discussion :

[YanK]

Bonjour,

J'aimerais savoir si il est possible avec un script PERL de savoir où en est le téléchargement des fichiers (côté serveur) lors d'un envoie de fichiers (côté client)?

Merci d'avance pour votre aide.

[YanK]

Quelqu'un aurait testé upload_hook?
Chez moi la fonction n'a pas l'air d'être appelée.

You can set up a callback that will be called whenever a file upload is being read during the form processing. This is much like the UPLOAD_HOOK facility available in Apache::Request, with the exception that the first argument to the callback is an Apache::Upload object, here it's the remote filename.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 $q = CGI->new();
 $q->upload_hook(\&hook,$data);
 
 sub hook
 {
        my ($filename, $buffer, $bytes_read, $data) = @_;
        print  "Read $bytes_read bytes of $filename\n";         
 }

If using the function-oriented interface, call the CGI::upload_hook() method before calling param() or any other CGI functions:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  CGI::upload_hook(\&hook,$data);