Xnom
Moderator | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Убираем многочисленные "Re:" в персональных сообщениях
Вам надоели многочисленные "Re:" в названиях ПМ-писем? Вот один из способов как это исправить
Все действия идут в messenger.cgi
после строк
Код:
$inmsgtitle = $query -> param('msgtitle');
$inmessage = $query -> param('message'); |
вставляем
Код:
$renum = $query -> param('renum');
$retitle = $query -> param('retitle'); |
в
Код:| elsif ($action eq "reply1") { |
строку
Код:| ($from, $readstate, $date, $messagetitle, $post) = split(/\|/,$msgtograb); |
меняем на
Код:| ($from, $readstate, $date, $messagetitle, $post, $renum) = split(/\|/,$msgtograb); |
ниже, после
Код:
$post =~ s/\<br\>/\n/g;
$post =~ s/\<p\>/\n\n/g; |
вставляем
Код:
чуть ниже, строки
Код:
<td bgcolor=$miscbackone valign=middle><input type=text name="touser" value="$from" size=40></a></td></tr>
<tr>
<td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc size=1><b>$ibtxt{'1107'}</b></font></td>
<td bgcolor=$miscbackone valign=middle><input type=text name="msgtitle" value="RE:$messagetitle" size=40 maxlength=80></td>
</tr>
<tr>
<td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc size=1><b>$ibtxt{'1108'}</b></td>
<td bgcolor=$miscbackone valign=middle><textarea cols=40 rows=6 name="message">\[quote\]$post\[/quote\]\n</textarea></td>
</tr> |
меняем на
Код:
<td bgcolor=$miscbackone valign=middle> <input type=text name="touser" value="$from" size=40></a></td></tr>
<tr>
<td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc size=1><b>$ibtxt{'1107'}</b></font></td>
<td bgcolor=$miscbackone valign=middle><input type="hidden" name="retitle" value="$messagetitle"><input type="hidden" name="renum" value="$renum"><font face="$font" color=$fontcolormisc size=1>Re[$renum1]:</font><input type=text name="msgtitle" value="$messagetitle" size=40 maxlength=80></td>
</tr>
<tr>
<td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc size=1><b>$ibtxt{'1108'}</b></td>
<td bgcolor=$miscbackone valign=middle> <textarea cols=40 rows=6 name="message">\[quote\]$post\[/quote\]\n</textarea></td>
</tr>
<td bgcolor=$miscbacktwo colspan=2><font face="$font" color=$fontcolormisc size=1><b>Внимание!</b> Если Вы измените тему письма, то это не будет считаться за ответ и "Re[...]" добавляться не будет!</td> |
далее, в
Код:| elsif ($action eq "send") { |
после строк
Код:
$memberfilename = $intouser;
$memberfilename =~ s/ /\_/g;
$currenttime = time; |
вставляем
Код:
if (($renum eq "")||($retitle ne $inmsgtitle)){$renum = "0";}
else{$renum++;} |
чуть ниже строку
Код:| print FILE "$membername|no|$currenttime|$inmsgtitle|$inmessage\n"; |
меняем на
Код:| print FILE "$membername|no|$currenttime|$inmsgtitle|$inmessage|$renum\n"; |
в
Код:| elsif ($action eq "inbox") { |
строку
Код:| ($from, $readstate, $date, $messagetitle, $message) = split(/\|/,$_); |
меняем на
Код:| ($from, $readstate, $date, $messagetitle, $message, $renum) = split(/\|/,$_); |
ниже, это
Код:| <a href="$thisprog?action=read&msg=$count">$messagetitle</a> |
меняем на
Код:
<a href="$thisprog?action=read&msg=$count">~;
if ($renum != 0){
$output .= qq~Re[$renum]:~;}
$output .= qq~$messagetitle</a> |
далее, в
Код:| elsif ($action eq "read") { |
строку
Код:| ($from, $readstate, $date, $messagetitle, $post) = split(/\|/,$msgtograb); |
меняем на
Код:| ($from, $readstate, $date, $messagetitle, $post, $renum) = split(/\|/,$msgtograb); |
чуть ниже, это
Код:| print FILE "$from|$ibtxt{'0130'}|$date|$messagetitle|$post"; |
меняем на
Код:| print FILE "$from|$ibtxt{'0130'}|$date|$messagetitle|$post|$renum"; |
еще ниже это
Код:| <b>$ibtxt{'1107'}: $messagetitle</b> |
меняем на
Код:
<b>$ibtxt{'1107'}: ~;
if ($renum != 0){
$output .= qq~Re[$renum]:~;}
$output .= qq~ $messagetitle</b> |
Вот, кажется и всё.
Тестируйте, господа |
Всего записей: 778 | Зарегистр. 09-10-2002 | Отправлено: 23:40 09-01-2003 | Исправлено: lynx, 23:42 25-06-2003 |
|
