|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : vilfred 2:5020/400 03 May 2001 19:08:26
To : Andrey Titov
Subject : лови скрипт
--------------------------------------------------------------------------------
Andrey Titov <brandname@mtu-net.ru> пишет:
AT> Может кто подскажет, где найти скрипт, который
AT> позволяет посетителю сайта загрузить через
AT> браузер
AT> картинку на сервер.
у меня вот такой скрипт работает
скрипт(fup.pl):
--------------------------------------------------
#!/usr/bin/perl -w
$basedir = "/usr/home/my/public_html/site";
$donepage = "http://www.server.ru/~my/site";
use CGI;
$onnum = 1;
while ($onnum != 11) {
my $req = new CGI;
my $file = $req->param("FILE$onnum");
if ($file ne "") {
my $fileName = $file;
$fileName =~ s!^.*(\\|\/)!!;
$newmain = $fileName;
open (OUTFILE, ">$basedir/$fileName");
print "$basedir/$fileName<br>";
while (my $bytesread = read($file, my $buffer, 1024)) {
print OUTFILE $buffer;
}
close (OUTFILE);
}
$onnum++;
}
print "Content-type: text/html\n";
print "Location:$donepage\n\n";
--------------------------------------------------
хтмл к нему(fup.html):
--------------------------------------------------
<form method="POST" action="/cgi-bin/my/fup.pl" ENCTYPE="multipart/form-data">
File 1:<input type="file" name="FILE1">
<br>
File 2:<input type="file" name="FILE2">
<br>
File 3:<input type="file" name="FILE3">
<br>
File 4:<input type="file" name="FILE4">
<br>
File 5:<input type="file" name="FILE5">
<br>
File 6:<input type="file" name="FILE6">
<br>
File 7:<input type="file" name="FILE7">
<br>
File 8:<input type="file" name="FILE8">
<br>
File 9:<input type="file" name="FILE9">
<br>
<input type="submit" value="Upload!">
</form>
--------------------------------------------------
а вообще в местном факе или факе fido7.ru.cgi.perl есть неплохие скрипты на
эту
тему...
TEAM [Маньяки]
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
