VPF::редактирование через web-панель

DiverD

Дата 14.8.2006, 12:06 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 225
Регистрация: 14.9.2005
Где: Белорусь

Репутация: нет
Всего: 2

толька щас столкнулся впервые с web.
задача:
Есть поле в котором написано имя файла которое нужна отредоктировать и кнопка edit;
по нажатию кнопки должно открыться text area с содержимым файла и кнопкой save.
как мне все ето сделать?

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

nitr

Дата 14.8.2006, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

))
Ну а написание файл-менеджера... сам пиши smile

В моём скрипте всё просто сделано, это тебе типа "тычок" ;) предполагается, что файл в корне со скриптом...

Код


#!perl
use strict;
use CGI qw(Vars);

my %params = Vars;
if ($params{action} eq 'edit') {
    open my $flh, '<', './'.$params{file};
    local $/;
    my $content = <$flh>;
    close $flh;
    print "Content-type: text/html\n\n";
    print qq|<form enctype="multipart/form-data" method="POST" action="edit.cgi">
    <input type="hidden" name="action" value="save">
    <input type="hidden" name="file" value="$params{file}">
    <textarea name="content" rows="8">$content</textarea>
    <input type="submit" value="Save">
    </form>|;
} elsif ($params{action} eq 'save') {    
    print "Refresh: 2; URL=edit.cgi\n\n";
    print "Изменяю...";
    open my $flh, '>', './'.$params{file};
    print $flh $params{content};
    close $flh;
} else {
    print "Content-type: text/html\n\n";
    print qq|<form enctype="multipart/form-data" method="POST" action="edit.cgi">
    <input type="hidden" name="action" value="edit">
    <input type="text" name="file" value="file.ext">
    <input type="submit" value="Edit">
    </form>|;
}

Рабочий, но оптимизировать надо!

Добавлено @ 14:37
файлик file.ext

Код


TEXT
TEXT
TEXT
TEXT

--------------------

I love ArchLinux

DiverD

Дата 14.8.2006, 15:59 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 225
Регистрация: 14.9.2005
Где: Белорусь

Репутация: нет
Всего: 2

=)
thnx nitr

--------------------

[ FreeBSD & pERL p0WER eVERY dAY ]

nitr

Дата 15.8.2006, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 12
Всего: 84

ну а файл-менеджер... можешь посмотреть как это делали другие, примеры - веб-шеллы, написанные на перл. ;)

Это сообщение отредактировал(а) nitr - 15.8.2006, 15:21

--------------------

I love ArchLinux

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »