| 4X_Pro
Руководитель Проекта
Настоящий Компьютерщик
Откуда: Москва
Всего сообщений: 2994
Рейтинг пользователя: 79
Дата регистрации на форуме:
29 сен. 2001
|
Профиль | Сообщить модератору | ИгнорироватьNEW! Сообщение отправлено: 3 сентября 2003 21:43
В messenger.cgi после (строка 114) <br> if ($action eq "new") {<br> <br> &getmember("$inmembername");<br> <br> if ($userregistered eq "no") { &messengererror("?????????&??? ?????? ????????????"); }<br> elsif ($inpassword ne $password) { &messengererror("?????????&???????? ??????."); }<br> elsif ($inmembername eq "") { &login("$thisprog?action=reply&touser=$intouser"); }<br> <br> $cleanname = $intouser;<br> $cleanname =~ s/\_/ /g;<br>добавляем <br> $memberfilename = $intouser;<br> $memberfilename =~ s/ /_/g;<p> if ($msgnumber) {<br> $filetoopen = "$ikondir". "messages/$memberfilename" . "_msg.cgi";<br> $filetoopen = &stripMETA($filetoopen);<br> open (FILE, "$filetoopen");<br> @inboxboxmessages = <FILE>;<br> close (FILE);<br> }<br> ($from, $readstate, $date, $msgtitle, $quotedtext) = split(/\|/,@inboxboxmessages[$inmsgnumber]);<br>$quotedtext =~ s/\n/\n>/g;<br>$quotedtext = ">".$quotedtext;<br>Затем ищем такое (строка 152): <br> <td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc size=1><b>????? ?????????</b></td><br> <td bgcolor=$miscbackone valign=middle><textarea cols=40 rows=6 name="message"></textarea></td><br>
и заменяем на <br> <td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc size=1><b>????? ?????????</b></td><br> <td bgcolor=$miscbackone valign=middle><textarea cols=40 rows=6 name="message">$quotedtext</textarea></td><br> Далее ищем (стр. 666): <br> $output .= qq~<br> <tr><br> <td bgcolor=$miscbacktwo align=center colspan=3><font face="$font" color=$fontcolormisc size=3><b>????? ??????????, $membername</b></td><br> </tr><br> <tr><br> <td bgcolor=$miscbackone valign=middle align=center colspan=3><a href="$thisprog?action=delete&where=inbox&msg=$inmsg">$deletepm</a> <a href="$thisprog?action=inbox">$inboxpm</a> <a href="$thisprog?action=outbox">$outboxpm</a> <a href="$thisprog?action=new">$newpm</a> <a href="$thisprog?action=new&touser=$cleanmember&msgtitle=$messagetitle">$replypm</a</td><br> </tr><br> ~;<br>
и заменяем на <br> $output .= qq~<br> <tr><br> <td bgcolor=$miscbacktwo align=center colspan=3><font face="$font" color=$fontcolormisc size=3><b>????? ??????????, $membername</b></td><br> </tr><br> <tr><br> <td bgcolor=$miscbackone valign=middle align=center colspan=3><a href="$thisprog?action=delete&where=inbox&msg=$inmsg">$deletepm</a> <a href="$thisprog?action=inbox">$inboxpm</a> <a href="$thisprog?action=outbox">$outboxpm</a> <a href="$thisprog?action=new">$newpm</a> <a href="$thisprog?action=new&touser=$cleanmember&msgnumber=$inmsg">$replypm</a</td><br> </tr><br> ~;<br> И, наконец, в начале того же файла исправляем: <br>$inmsgtitle = $query -> param('msgtitle');<br>$inmsgtitle = &cleaninput($inmsgtitle);<br>
на <br>$msgnumber = $query -> param('msgnumber');<br>$msgnumber = &cleaninput($msgnumber);
[/code]
(Примечание: эти две строчки идут не последовательно на самом деле).
По идее, этого должно быть достаточно для того, чтобы теперь при отвтете на письмо его текст вставлялся в новое со знаком > в начале (как в почтовом клиенте).
Если хотите переделать так, чтобы письмо все же отображалось отдельно, а не цитировалось, измените немного интерфейсную часть самостоятельно (текст письма находится в переменной $quotedtext).
---
Каждый человек всегда может найти, чем он может быть полезен окружающим. Проблема только в одном: слишком многие не хотят это искать.
| 
