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
|
my $UPLOAD_DIR = "doc/";
my $UPLOAD_URL = "/toto/doc/";
my $doc = $query_cgi->param('doc');
my $result = upload($doc) if $doc ne "";
-------------------------------
sub upload {
my $doc = $_[0];
my @t = split /\\/,$doc;
my $doc_name = $t[$#t];
my($query, $file_name, $upload_dir) = @_;
my($size, $buff, $bytes_count);
$size = $bytes_count = 0;
if (! $doc) {
return "Le document n'existe pas !!!";
}
elsif (-e "$UPLOAD_DIR$doc_name") {
return "Le document existe déjà !!!";
}
else {
my ( @safedoc_name ) = ( $doc_name =~ /(\w+)/g );
my $safedoc_name = "@safedoc_name";
$safedoc_name =~ s/\s/\./g;
open(FILE,">$UPLOAD_DIR$safedoc_name") || print ("Error opening file $file_name for writing, error $!", 1);
binmode FILE;
while ($bytes_count = read($doc, $buff, 1024)) {
$size += $bytes_count;
print FILE $buff;
}
close(FILE);
return "La doc $UPLOAD_DIR$safedoc_name a été enregistré.";
}
} |
