Форум dkLab и Denwer
Здесь общаются Web-разработчики.
Генеральный спонсор:
Хостинг «Джино»

WEBIN Upload (BlackCoder)
Author Message
BlackCoder
Guest





Карма: 388
   поощрить/наказать


PostPosted: Tue Jul 08, 2003 4:20 pm ()
   Post subject: WEBIN Upload
Reply with quote

Как можно закачать файл с помощью CGI::WebIn
Читал про .can_upload а что дальше?
Можно с примером
Back to top
Дмитрий Котеров
Администратор



Joined: 10 Mar 2003
Posts: 13665
Карма: 413
   поощрить/наказать


PostPosted: Fri Jul 18, 2003 11:59 pm (спустя 10 дней 7 часов 38 минут)
   Post subject:
Reply with quote

Code (perl): скопировать код в буфер обмена
# Для разрешения upload-а нужно в директорию со скриптом поместить файл с
# именем ".can_upload". В противном случае upload запрещаеся.
# Если же этот файл задан, то делается попытка прочитать из него параметры:
#   dir=имя_директории для закачки
#   maxsize=максимальный_размер закачиваемого файла
# В любом случае, по окончание работы скрипта закачанные файлы удаляются
# (если только они не были перемещены скриптом в другое место).
 
Например:
Code (any language): скопировать код в буфер обмена
dir=.
maxsize=1024000
Далее см. содержимое %IN.
Back to top
View user's profile Send private message Send e-mail
BlackCoder
Guest





Карма: 388
   поощрить/наказать


PostPosted: Sun Jul 20, 2003 10:01 am (спустя 1 день 10 часов 1 минуту)
   Post subject:
Reply with quote

Попробовал так
Code (any language): скопировать код в буфер обмена
my $filename = $IN{file_upload};
print($filename);
и вижу: HASH(0x1b6b260)
$IN{file_upload} не содержит имени закачиваемого файла или я что-то неправильно делаю.
Воспользоваться им как хэндлом чтоб читать из файла тоже не получается.
Back to top
Дмитрий Котеров
Администратор



Joined: 10 Mar 2003
Posts: 13665
Карма: 413
   поощрить/наказать


PostPosted: Mon Jul 21, 2003 3:45 pm (спустя 1 день 5 часов 44 минуты)
   Post subject:
Reply with quote

Code (perl): скопировать код в буфер обмена
use CGI::WebOut;
use CGI::WebIn;
use Data::Dumper;
print (www.perldoc.com/perl5.6/pod/func/print.html) "<pre>".Dumper(\%IN);
Back to top
View user's profile Send private message Send e-mail
Black Coder
Guest





Карма: 388
   поощрить/наказать


PostPosted: Wed Jul 23, 2003 10:57 am (спустя 1 день 19 часов 11 минут)
   Post subject:
Reply with quote

Наконец-то! Ура!
Сразу бы так, спасибо!
Back to top
Display posts from previous:   
Post new topic   This topic is locked: you cannot edit posts or make replies. All times are GMT + 3 Hours
Page 1 of 1    Email to a Friend.
You cannot post new topics in this forum. You cannot reply to topics in this forum. You cannot edit your posts in this forum. You cannot delete your posts in this forum. You cannot vote in polls in this forum. You cannot attach files in this forum. You cannot download files in this forum.
XML