Объединенный Открытый Проект

Вот я сделал что-то вроде хака (как всегда, без тестирования):
Найти <br>($from, $readstate, $date, $msgtitle, $quotedtext) = split(/\|/,@inboxboxmessages[$inmsgnumber]);<br>
и заменить везде (таких вхождений должно быть несколько, причем вместо $quotedtext также может быть $message) на <br>($from, $readstate, $date, $msgtitle, $quotedtext, $confirmation) = split(/\|/,@inboxboxmessages[$inmsgnumber]);<br>
Далее, в форму отправки сообщения после <br><form action="$thisprog" method=post><br><input type=hidden name="action" value="send"><br><tr><br><td bgcolor=$miscbacktwo colspan=2 align=center><font face="$font" color=$fontcolormisc size=2><b>Проверьте, что все поля заполнены.</b></td><br></tr><br><tr><br><td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc size=1>Кому</font></td><br><td bgcolor=$miscbackone valign=middle><input type=text name="touser" value="$cleanname" size=40></a></td></tr><br><tr><br><td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc size=1><b>Заголовок сообщения</b></font></td><br><td bgcolor=$miscbackone valign=middle><input type=text name="msgtitle" size=40 maxlength=80 value="$msgtitle"></td><br></tr><br><tr><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></tr><br>
добавить <br><tr><br><td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc size=1><b>Отправлять уведомление о прочтении на e-mail</b></td><br><td bgcolor=$miscbackone valign=middle><input type=checkbox name=confirmation value=yes></td><br></tr><br>
Далее, заменить строку <br>print FILE "$membername|no|$currenttime|$inmsgtitle|$inmessage\n";
на (это надо сделать несколько раз, причем вместо no может быть yes) <br>print FILE "$membername|no|$currenttime|$inmsgtitle|$inmessage|$inconfirmation\n";<br>
Следующая замена <br>($from, $readstate, $date, $messagetitle, $post,$) = split(/\|/,$msgtograb);      <br>        <br># Write back to as read<br>        <br>$count = 0;<br>        <br>open (FILE, ">$filetoopen");<br>flock (FILE, 2);<br>foreach $line (@inboxmessages) {<br>  chomp $line;<br>  if ($count eq $inmsg) {<br>    print FILE "$from|yes|$date|$messagetitle|$post";<br>  }<br>  else {<br>    print FILE "$line\n";<br>  }<br>  $count++;<br>}<br>close (FILE);<br>
на <br>($from, $readstate, $date, $messagetitle, $post,$confirmation) = split(/\|/,$msgtograb);      <br>      <br># Write back to as read<p>$count = 0;<p>if ($confirmation eq "yes" && $readstate eq "no") {<br>   $oldtimezone = $timezone;<br>   $oldmember = $membername;<br>   &getmember($from);<br>   $timeread = &longdate(time)." ".&shorttime(time);<br>   $message = "Ваше сообщение $messagetitle прочитано пользователем $oldmember в $timeread\n\n";<br>   &sendmail($adminemail_out,$adminemail_in,$emailaddress,$SMTP_SERVER,"Ваше личное сообщение прочитано",$message);<br>   $timezone = $oldtimezone;<br>   $membername = $oldmember;<br>}<br>        <br>open (FILE, ">$filetoopen");<br>flock (FILE, 2);<br>foreach $line (@inboxmessages) {<br>  chomp $line;<br>  if ($count eq $inmsg) {<br>     print FILE "$from|yes|$date|$messagetitle|$post|$confirmation";<br>  }<br>  else {<br>     print FILE "$line\n";<br>  }<br>  $count++;<br>}<br>close (FILE);<br>

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

Спасибо!