if ($badwords) { 
@pairs = split(/\&/,$badwords); 
foreach (@pairs) { 
($bad, $good) = split(/=/,$_); 
$inpost =~ s/$bad/$good/ig; 
$intopictitle =~ s/$bad/$good/ig; 
$intopicdescription =~ s/$bad/$good/ig; 
} 
} 
my $file = "$ikondir" . "forum$inforum/$intopic.pl"; 
open (ENT, $file); 
#flock ENT, 1; 
$in = <ENT>; 
close (ENT); 
($topicid, $topictitle, $topicdescription, $threadstate, $threadposts ,$threadviews, $startedby, $startedpostdate, $lastposter, $lastpostdate, $sticky) = split(/\|/,$in); 
if ($threadstate eq "closed" or $threadstate eq 'moved') { &error("отправке сообщения&Эта тема закрыта, новые ответы не принимаются."); } 

####склейка сообщений от AlexanderIpp 
#кол-во минут 
           my $gl_num = 20; 
my $gl_time = time+($timezone*3600); 
my ($gl_membername, undef, $gl_postipaddress, undef, undef, $gl_postdate, undef) = split(/\|/, $allmessages[$#allmessages]); 
if ($gl_membername eq $inmembername && ($gl_time-$gl_postdate <= $gl_num*60) && (-e "members/$gl_membername.cgi" || $gl_postipaddress eq $ENV{REMOTE_ADDR})) { 
               my @tmp_last_mess = split(/\|/, $allmessages[$#allmessages]); 
                 chomp $tmp_last_mess[6]; 
                 $tmp_last_mess[6] .= qq~

[b]Добавление от ~.dateformat($currenttime+($timezone*3600)).qq~:[/b]
$inpost~; 
                 $allmessages[$#allmessages] = join ("|", @tmp_last_mess); 
     my $filetomake = stripMETA("forum$inforum/$intopic.thd"); 
     my $processed_data = undef; 
                 foreach (@allmessages) { 
           chomp; 
           $processed_data .= "$_\n"; 
           } 
open(FILE, ">$filetomake"); 
     #flock(FILE, 2); 
     print FILE $processed_data; 
     close(FILE); 
     undef $processed_data; 
                 } else { 

&whosonline("$inmembername| отправил сообщение в тему <a href=\"$threadprog?forum=$inforum&topic=$intopic\"><b>$topictitle</b></a> на форуме <a href=\"$forumsprog?forum=$inforum\"><b>$forumname</b></a>|none") if ($privateforum ne "yes"); 

} 

my $gl_num = 20;