» Добавление фотографии в профиль пользователя

lynx
И опять ручками ка Димн писал в файле добавлять?
А не проще ли как с аватарам сделать, есть с Pers_ - вставляем его, нету - но ничего не выводим?

WSergey


Цитата:

И опять ручками ка Димн писал в файле добавлять?

Без этого никак, как ни крути. Инфа про аватар пишется по дефолту потому с _перс чуть правим код, что пишется, и радуемся. А тут надо обязательно поле писать в профиль, откуда иначе конфа инфу брать бут?

lynx
так надо заставить писать скрипт в файл.
Или проерять на наличие файла. Т.е. по имени файла.
Да ну, просто тут замолчали все, это раздел спит, как минимум

WSergey


Цитата:

так надо заставить писать скрипт в файл.

Это очень просто:

$filetomake = "$ikondir" . "members/$memberfiletitle.cgi";
open(FILE, ">$filetomake");
flock(FILE, 2);
print FILE "$inmembername|$password|$membertitle|$membercode|$numberofposts|$emailaddress|$showemail|$ipaddress|$homepage|$aolname|$icqnumber|$location|$interests|$joineddate|$lastpostdate|$signature|$timedifference|$privateforums|$useravatar|$misc1|$misc2|$misc3|$fromwhat|";
close(FILE);

Только надо подумать. Поле заводить сразу при регистрации. А вот позволять в него писать не разу, а как с подписью - после стольки-то постов. То есть писать можно сразу, а отображать... Нет, не надо.
Так. Поле заводить сразу. А картинки пусть руками админу шлют, а админ их просто в поле пропишет. Как бы я бы так бы сделала. А то они нааплодят тут счас...

Муторное решение. Не годится!
Будем искать другое, а ты с урлом поможешь? соседний топик?

Заводим в папке members еще одну папку foto

Туда будем складывать файлы фоток. Имя файлу даем такое же, как ник мембера, точно такое же!

Например у мембера Vasya имя файла фотки должно быть Vasya.jpg

Теперь открываем на редактирование файл profile.cgi

Ищем там sub showprofile {

В этой подпрограмме ищем строку $output .= qq~

И перед ней добавляем этот код:


Код:
############## start foto hack
#
my $fotodir = "members/foto";
if (-e "$fotodir/$membername.jpg"){
$output .= qq~
<tr>
<td bgcolor=$miscbackone align=center><img src="$fotodir/$membername.jpg" border=0>
</td>
</tr>
~;
}
#
###########end foto hack

batva
а если у меня на одного пользвателя 2 фотки ? или фотки нет вообще ? тогда как ?

batva

Цитата:

my $fotodir = "members/foto";

Не коректное размещение фотографий! При обращение к картинке пишет 500 ошибку!
Скорее нужно размещение в папке WWW, подкоректируй! А то картинки из папки цги не выводятся!

Цитата:

my $fotodir = "members/foto";
if (-e "$fotodir/$membername.jpg"){

сделай так:

Цитата:

my $fotodir = "$imagesurl/foto";
if (-e "$fotodir/$membername.jpg"){

и фотки положи в не в cgi а www
ну остальное все также

Ausw
Нет не работает! Вообще нет ничего!
Если раньше просто не могла вывести картинку то теперь нет реакции вообще! Что то не так с путями скорее всего!
Хотя я пробывал подставлять физический путь к директории...не работает!

Код: my $fotodir = $imagesdir . ’foto’;
if (-e "$fotodir/$membername.jpg"){
$output .= qq~
<tr>
<td bgcolor=$miscbackone align=center><img src="$imagesurl/foto/$membername.jpg" border=0>
</td>
</tr>
~;
}

С большим пламенным приветом для batva от Alexander Ipp , его хаксдесь
Вот это работает!
Почему всё делается не проверив? Я целый день убил на возню... а решение так просто! Ведь всем же понятно что профи здесь не постят! Вы уже если решили помогать так помогайте до конца!
Удачи!


Добавлено
Ausw
А вы вместе с Alexander Ipp хак писали?
Ну уж очень попохоже! Прям как братья близницы...
Ссори за офф, но уж больно интересно стало.... мыслите одинаково, и в одно время...

CarHelp

Короче.

В самом конце подпрограммы шоупрофиль.
Меняем:

Код:
<tr>
<td bgcolor=$forumcolortwo valign=middle><div class="menu7">$ibtxt{’1826’}</div></td>
<td bgcolor=$forumcolortwo valign=middle><div class="menu8">$location</div></td></tr>
<tr>
<td bgcolor=$forumcolortwo valign=middle><div class="menu7">$ibtxt{’1827’}</div></td>
<td bgcolor=$forumcolortwo valign=middle><div class="menu8">$interests</div></td></tr>
<tr>
<td bgcolor=$forumcolortwo valign=middle><div class="menu7">Аватар</div></td>
<td bgcolor=$forumcolortwo valign=middle align=center>
$useravatar
</td>
</tr>
</table></td></tr></table>
~;

} # end showprofile

lynx
Сходи по ссылке от CarHelp На форум AlexanderIpp’a и посмотри как все просто делается.

В отличии от этого решения и тем более от ДимоновскоГо

lynx

Цитата:

Помидорами не кидаться

Всё нормально, просто поверь день просидел и только на вечер началось шевеление!
WSergey

Цитата:

В отличии от этого решения

Ну почему же, это тоже работающие решение!
Я например с помощи webdeveloper вот так переделали хак

Цитата:

############## start foto hack
#
my $fotodir = "../../www/foto";
if (-e "$fotodir/$membername.jpg"){
$output .= qq~
<tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center><img src="http://твой адрес.com/www/foto/$membername.jpg" border=0>
</td>
</tr>
~;
}
#
###########end foto hack

Ещё лешился глюков с таблицей при замене вот этого

Цитата:

<td colspan ="2" bgcolor=$forumcolortwo align=center>

на вот это

Цитата:

<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>

16:50 23-09-2001 начало темы.... 00:36 04-11-2002 нормальное решение вопроса! Это тоже нужно во внимание принимать! Если вопросы будут решатся с такой скоростью.... далеко уйдём?

Так. Все не так у меня. А то, если фотки нет, то ее потыается отобразить. Вот так надо:



Код:

############## start foto hack by batva

my $photodir = $imagesdir. ’/photo’;
if (-e "$photodir/$inmember.jpg"){
$output .= qq~
<tr>
<td colspan ="2" bgcolor=$forumcolortwo align=center><img src="$imagesurl/photo/$inmember.jpg" border=0></td>
</tr>
~;
}

###########end foto hack by batva

lynx
Посмотри хотябы на кол-во кода

WSergey

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

CarHelp

Цитата:

Почему всё делается не проверив? Я целый день убил на возню... а решение так просто! Ведь всем же понятно что профи здесь не постят! Вы уже если решили помогать так помогайте до конца!
Удачи!

К сожалению нет времени, чтобы тестить такие вещи, под рукой ни установленной конфы, ни апача. Да и что там тестить то? Такие вещи видно на глаз, что они работающие.
Главное в любом хаке это идея и алгоритм. Кстати, на многих серьезных буржуйских конфах код вообще не приводят, только ключевые моменты и алгоритм.

Что я и нарисовал, а путь к папке foto это уже мелочи, да я совсем забыл, что у вас в папке members лежит htaccess запрещающий доступ, но если ты не в состоянии заменить константу $fotodir = "members/foto"; на $fotodir = "что-то другое"; и решаешь эту проблему целый день, то для тебя у меня только один совет:-
Убери в сторону свою конфу, хаки итп, а возьми в руки книгу и потрать время на изучение работы апача и перла. Потом это время окупится с лихвой, подобные задачи будешь решать за минуту.

И не трать время на передачу мне приветов, и злорадстве, береги свое время.
Удачи.

lynx

Цитата:

А то, если фотки нет, то ее потыается отобразить.

Нет у меня работает и не пытается вывести фотку если её нет.
batva

Цитата:

Главное в любом хаке это идея и алгоритм.

Опять забываем о тех кому ни то что учить но и просто понять как и что работает! Ну не могу я в своём возврасте заставить себя учить перл и прочее! Так почему таким как я, желающим иметь борду, не помочь реальным примером, кодом или хаком?
Цитата:

Кстати, на многих серьезных буржуйских конфах

Так мы же к тебе пришли! У тебя же просим помощи! Да и код твоей борды не такой немного... И что это? Опять на двери показываете?

Цитата:

И не трать время на передачу мне приветов, и злорадстве, береги свое время.

А мне приятно когда мне передают приветы! Значит помнят... я же не виноват что он не может сам тебе его передать! Он попросил, я передал! А где ты увидел злорадство? Это крик души! Отчаяние скрорее... Ну а ссылки на хаки тут вроде не запрещали.
Ссори за офф, но коль уж затронули....
И ещё неужели нужно было доводить до состояния накала всю борду что бы админы и модеры, да и остальные специ этого раздела начали помогать людям?

CarHelp


Цитата:

Он попросил, я передал!

У Батвы есть мыло Всем известное Это для желающих приветы передать


Цитата:

неужели нужно было доводить до состояния накала всю борду

О, великий КарХелп - ты вся наша борда Других 50-ти тысяч юзера у нас нет А форум у нас только этот И админам больше заняться нечем, как ковырять твои скрипты

Несколькими постами выше я тебе что-то написала....