Автор Тема: Создание что-то типа аккаунта... (Прочитано 7861 раз)

Dimchik · « : 04 Декабря 2003, 02:41:15 »

Пожалуйста, помогите написать такой файл на PERLе, чтобы запрашивалось IMYA_KATALOGA, и после ввода имени и нажатия SUBMIT на сервере появлялся каталог с этим именем в папке C:/VAR/HOME/, и еще, чтобы одновременно с появлением папки IMYA_KATALOGA, в нее автоматически скопировалась группа файлов INDEX.HTML, ABOUT.HTM, INTRO.JPG, PHOTO.JPG, допустим из C:/VAR/HOME/SHABLON/.
т.е. мне нужно сделать такую системку создания аккаунтов с рабочего места администратора, чтобы на сервере появлялся сайт (http://HTTP://MY.SERVER.RU/WWW.IMYA_KATALOGA/), а в нем, как по шаблону, уже лежали несколько файлов, которые пользователь потом сможет отредактировать по своему усмотрению.

Еще хотелось бы проверку: если папка с именем IMYA_KATALOGA уже существует, предложить ввести другое имя, и так в цикле, пока не будет найдено свободное имя.

Очень надеюсь на участников этого форума.
Я новичок в программировании, и мне трудно с постановкой задачи, но возможно кто-то поймет и поможет. Заранее благодарен.

ondr · « **Ответ #1 :** 04 Декабря 2003, 10:46:50 »

Dimchik
Я вижу только один "способ" решения твоей задачи. Ты пробуешь что нибудь написать, мы помогаем, советуем, вместе решаем проблемы.
Если постараешься - мы вместе решим задачу, но делать все за тебя врядли найдутся желающие, т.к. для заказа скрипта здесь есть отдельный форум.

ondr · « **Ответ #2 :** 04 Декабря 2003, 11:17:22 »

В догонку:

Цитировать

C:/VAR/HOME/SHABLON/

Я сначала подумал, что это виндовс у тебя, но сейчас сомневаюсь. Дело в том, что ежели ты сидишь под *nix, то есть возможность создать "скелет" (каталог тут "/etc/skel", описание в инете), где всё, тобою запрошенное будет работать.

Dimchik · « **Ответ #3 :** 05 Декабря 2003, 04:58:05 »

У меня XLinux. Ладно, я все понял

Постараюсь че-нить накарябать сам, а если будет глючить, попрошу совета. thnx!

А что за скелет? (/etc/skel) где? Мона посмотреть?

Mog. · « **Ответ #4 :** 05 Декабря 2003, 07:49:04 »

Цитировать

Dimchik:
А что за скелет

Яндекс рулит, я проверял.
http://www.yandex.ru/yandsearch?text=/etc/skel

Dimchik · « **Ответ #5 :** 06 Декабря 2003, 04:04:03 »

мдя... я че-то первый раз такое вижу. Плохо быть чайником.

А если все же попробовать запрограммировать? Например, мне нужно создать каталог (пусть просто на C:/), с именем, как у введенной переменной LOGIN. Какую команду надо использовать в pl? Помогите plzzz...

Содержимое NEWSITE.HTM
<html>
<head>
<title></title>
</head>
<META content="text/html; charset=windows-1251" http-equiv=Content-Type>
<body>
<form method="POST" action="/cgi-bin/newsite.pl">
<input type="TEXT" NAME="LOGIN" VALUE="here_-_your_login" SIZE="54" MAXLENGTH="30">
<center>
<input type="RESET" VALUE="Очистить все поля">&nbsp<input type="SUBMIT" VALUE="Отправить данные">
</center>
</form>
</body>
</html>

Содержимое NEWSITE.PL
#!/usr/bin/perl
read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
  ($name, $value) = split(/=/, $pair);
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ s///g;
  $input{$name} = $value;
}

print "Content-Type: text/html\\n\\n";
print "Поздравляем, на диске создана папка с имнем $input{\'LOGIN\'}";
print "</body></html>\\n";

Phoinix · « **Ответ #6 :** 06 Декабря 2003, 11:29:34 »

$dir = "C:/".$input{\'LOGIN\'};
mkdir $dir, 0777;

И начинаем читать книжки... или учимся искать в них...

Dimchik · « **Ответ #7 :** 07 Декабря 2003, 02:30:07 »

Phoinix, СПАСИБО!!!
А мне можно будет еще спрашивать или всё, тему закроют?

[OFF]З.Ы. Какую книгу посоветуете купить? (назв./автор)[/OFF]

Dimchik · « **Ответ #8 :** 07 Декабря 2003, 14:42:44 »

И мне опять нужен маленький совет: напишите, пожалуйста, как скопировать файл "C:/IMAGES/GIRL.PNG" в "$dir"

Chs · « **Ответ #9 :** 07 Декабря 2003, 17:55:03 »

perldoc File::Copy

Dimchik · « **Ответ #10 :** 08 Декабря 2003, 05:21:50 »

Chs, это какой-то модуль? Если да, то я могу достать всеь дистрибутив, но как он называется (сам модульный файл для этого случая)?
И как записать функцию копирования для моего примера (Сообщение № 95738)?

[OFF]Простите, что задаю так много вопросов. Мне очень стыдно, но больше негде искать поддержки. It\'s a pity, у нас в политехе Перлу не учат

[/OFF]

Mog. · « **Ответ #11 :** 08 Декабря 2003, 08:52:25 »

Dimchik, почитай http://faq.webscript.ru/PerlFAQ

Dimchik · « **Ответ #12 :** 28 Декабря 2003, 19:40:55 »

Чтение фаQа пока не принесло ощутимых результатов...
Ошибка за ошибкой...
Люди, я уж ActivePerl поставил, и вот прошу только маленький кусочек, неужели никто не умеет???
Как скопировать файл "C:/IMAGES/GIRL.PNG" в "$dir" ?
Что нужно писать в заголовке use?
perldoc File::Copy - т.е. сначала файл потом путь потом команда или как???

Цитировать

надежда умирает последней

Dimchik · « **Ответ #13 :** 28 Декабря 2003, 21:58:31 »

#!/usr/bin/perl
use File::Copy;
my $sourcedir = "C:/1";
........

copy("$sourcedir","$dir");

можно ли таким образом скопировать все файлы из каталога C:/1/ в $dir?

Phoinix · « **Ответ #14 :** 29 Декабря 2003, 10:01:22 »

Dimchik
Может стоит один раз попробовать? Или религия не позволяет?

Новости:

Автор Тема: Создание что-то типа аккаунта... (Прочитано 7861 раз)