Здравствуйте. Хочу сделать сайт, на который можно было бы закачивать свои фотографии. Как, например, на всяких сайтах знакомств. Я представляю, что эта тема уже не раз поднималась, но я что то не нашел в нете ответ на этот вопрос (может конечно не там искал)
Если не трудно ответте пожалуйста еще раз.

Еще нужно, что бы картинка закачивалась бы не с тем именем, с которым она есть у юзера на компе, а с новым, другим именем. Можно только картинки *.jpg

И можно ли менять их размеры или хотя бы проконтролировать их. Например, я хочу, что бы на сайте все картинки были бы не более определенного разрешения, не плохо было бы, что большие принудительно и автоматически пропорционально уменьшплись но максимально дозволенного разрешения. И, конечно, что бы весили не более определенного иначе не качались бы.

И я дума, что такая система, как закачка файлов на сепвер должна состоять из двух частей HTML с кнопочкой Найти файл и сам скрипт. Как методами HTML выводить такое окошко для выбора файла на компе. Или это делается как то по другому?

С хтмлом всё просто: <input type=file>, а вот как на перле принимать файл - не помню, подозреваю что при помощи модуля cgi должно всё делаться просто

rcdimon
А чем уже стандартный FTP не устраивает. Сайт ведь твой?
В FAQ по PHP здесь на форуме закачка файлов разжована, поищи. Думаю, что в Perl принцип такой - же.

Так мне же не свои фотки качать, а пользователям свои. Я делаю сайт знакомств.

как то так все делают

Код

#!/usr/bin/perl -w use strict; use CGI qw/:standard/; &printForm; &insertImage if (param()); sub insertImage { my $downpath = "tmp/"; my $in=param('picture'); my ($name) = $in =~ m#([^\\/:]+)$#; open(OUT,">$downpath$name"); binmode(OUT); while (<$in>) { print OUT $_; } close(OUT); print "Upload file: $name"; } sub printForm { print "Content-Type: text/html\n\n"; print "<form method=\"post\" enctype=\"multipart/form-data\" action=\"test1.cgi\">"; print "<input type=\"file\" name=\"picture\">"; print "<input type=\"submit\" name=\"Submit\" value=\"Submit\">"; print "</form>"; }

Цитата

И можно ли менять их размеры или хотя бы проконтролировать их. Например, я хочу, что бы на сайте все картинки были бы не более определенного разрешения, не плохо было бы, что большие принудительно и автоматически пропорционально уменьшплись но максимально дозволенного разрешения.

Для контроля можно использовать

Image::Size

Для ресайза

Image::Thumbnail
и/или
Image::Magick

Цитата

И, конечно, что бы весили не более определенного иначе не качались бы.

Средствами CGI врят ли. Так как картина на клиенте, а перл на сервере. Для этого надо копать в сторону JS и механизма закачки сервером...

Спасибо, сейчас буду проверять