Upload, et Progress Bar

**Balboulloude** · 26/09/2009, 15h46

Bonjour,

Je pense que je ne suis pas le premier à venir vers vous chercher de l'aide, mais je n'ai pourtant rien trouvé au cours de mes recherches.

Tout d'abord je ne connais pas vraiment Perl, mais j'ai d'assez bonne notion en PHP qui font que je comprends bien la syntaxe de Perl et la programmation en général.

J'ai récupérer un script d'upload en Perl j'ai réussi à le faire fonctionner, j'aurais voulu savoir comment connaitre le poids qui a été uploadé, et le poids qu'il reste à uploader afin de créer une progress Bar.

Voici mon script:

Code :

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

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
#!c:\Perl\bin\perl.exe
 
use strict;  
use CGI;  
use CGI::Carp qw ( fatalsToBrowser );  
use File::Basename;  
 
$CGI::POST_MAX = 1024 * 50000;  
my $safe_filename_characters = "a-zA-Z0-9_.-";  
my $upload_dir = "C:/Program Files/wamp/www/site/uploaded";  
 
my $query = new CGI;  
my $filename = $query->param("photo");  
 
if ( !$filename )  
{  
 print $query->header ( );  
 print "There was a problem uploading your photo (try a smaller file).";  
 exit;  
}  
 
my ( $name, $path, $extension ) = fileparse ( $filename, '\..*' );  
$filename = $name . $extension;  
$filename =~ tr/ /_/;  
$filename =~ s/[^$safe_filename_characters]//g;  
 
if ( $filename =~ /^([$safe_filename_characters]+)$/ )  
{  
 $filename = $1;  
}  
else  
{  
 die "Filename contains invalid characters";  
}  
my $upload_filehandle = $query->upload("photo");  
 
open ( UPLOADFILE, ">$upload_dir/$filename" ) or die "$!";  
binmode UPLOADFILE;  
 
while ( <$upload_filehandle> )  
{  
 print UPLOADFILE;  
}  
 
close UPLOADFILE;  
 
print $query->header ( );  
print '
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "DTD/xhtml1-strict.dtd">  
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">  
 <head>  
   <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />  
   <title>Thanks!</title>  
   <style type="text/css">  
     img {border: none;}  
   </style>  
 </head>  
 <body>  
   <p>Thanks for uploading your photo!</p>  
   <p>Your photo:</p>  
   <p><img src="../site/uploaded/'.$filename.'" alt="Photo" /></p>  
 </body>  
</html> '

Merci d'avance pour votre aide !

**Balboulloude** · 28/09/2009, 21h43

up ?

**Jedai** · 29/09/2009, 07h51

CGI te donne accès à ce genre de chose en sous-main, par exemple parmi les paramètres que tu peux passer à new(). Tu as des modules sur le CPAN qui te permettent de faire des progress bar, et par exemple CGI::ProgressBar contient un modèle qui exploite ceci pour représenter le progrès de l'upload.

--
Jedaï

**Balboulloude** · 01/10/2009, 18h47

Merci,

J'ai passé pas mal de temps à essayer d'installer ce module, pour finalement me dire que de toute façon ça ne marcherait pas sur mon hébergement qui est mutualisé, et qui ne me donne pas accès au dossier/perl/.

Ou alors j peux peut être utiliser ce module sans accéder à ce dossier ?

Aurais-tu une autre solution ? :]

en te remerciant !

**Jedai** · 01/10/2009, 20h18

Envoyé par Balboulloude

Ou alors j peux peut être utiliser ce module sans accéder à ce dossier ?

Tout à fait, tu peux installer localement sous ton répertoire cgi-bin (ou autre répertoire plus sûr). L'idéal étant de disposer d'un accès ssh à ton abonnement pour pouvoir utiliser le CPAN pour installer les modules (attention il te faudra le configurer pour faire des installations locales, par défaut il est configuré pour installer globalement et tu n'as pas les droits). Mais dans le cas de CGI::ProgressBar, tu peux même te contenter de faire un copier-coller de ProgressBar.pm dans le répertoire approprié.

(Dans ton script mets "use lib 'racineDeTesModulesLocaux';" avant de charger les modules que tu as installé localement)

--
Jedaï

**Balboulloude** · 01/10/2009, 20h57

Bonsoir,

Envoyé par Jedai

Mais dans le cas de CGI:

rogressBar, tu peux même te contenter de faire un copier-coller de ProgressBar.pm dans le répertoire approprié.

(Dans ton script mets "use lib 'racineDeTesModulesLocaux';" avant de charger les modules que tu as installé localement)

J'aimerai utiliser cette méthode, mon FTP se constitue ainsi :
www/
cgi-bin/

dois-je mettre ProgressBar.pm dans le dossier cgi-bin? ainsi que les fichiers test.pl et Makefile.pl ?
Que faire du fichier du fichier META.yml ?

Code :

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

use lib 'racineDeTesModulesLocaux';

'racineDeTesModulesLocaux'; = cgi-bin ?

Je suis désolé de poser autant de questions, mais c'est la première fois que je quitte le dossier /www/ alors je suis perdu, pour l'instant

Merci

Upload, et Progress Bar

Web Perl

Vue hybride

Discussions similaires

Partager

Partager