ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Nurlan Mukhanov 2:5020/400 21 Apr 2002 03:27:35
To : Sergey Belov
Subject : Re: qq
--------------------------------------------------------------------------------
Приветствую тебя Sergey Belov
SB> 1 как залить какой-нибудь файл на сервер
SB> 2 с каким content-type надо отдавать картинку
<html>
<head>
<title>Upload window</title>
<body bgcolor="#DDDDDD">
<form method=post action="upload.cgi" enctype="multipart/form-data"
name=form1>
<input type=hidden name=command value="upload">
Сhose file
<br>
<input type="file" size="28" name="file"> <input type="submit"
value="Upload">
</form>
</body>
</html>
if ($com eq 'upload')
{
my $in=$cgi->param('file');
# file name fom param
my ($name) = $in =~ m#([^\\/:]+)$#;
open(OUT,">$pathfile$dir/$name") or print "<script>alert('$!');</SCRIPT>";
binmode(OUT);
while (<$in>) { print OUT $_ }
close(OUT);
}
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
Re: qq |
Nurlan Mukhanov |
21 Apr 2002 03:27:35 |
|
|
