Opened by Dennis at 2004-08-06 12:26
User since
2003-08-04
7321 Artikel
ModeratorIn
2003-08-04
7321 Artikel
ModeratorIn
kann ich nicht bestätigen
Upload Test
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
use strict;
use CGI;
my $q = CGI->new();
my $filename = $q->param('upload');
print "Content-Type: text/html\n\n";
print qq~
<html>
<head></head>
<body>
[$filename]
<form action="upload.pl" method="POST" enctype="multipart/form-data">
<input type="file" name="upload" />
<input type="submit" />
</form>
</body>
</html>
~;
Upload Test