if($buffer =~ /^SENDMESSAGE$digest\|(.*?)$/){
                          my $what = $1;
                          my($room,$touser,$kind,$message,$fromuser)= split /\|/, $what;
                          my $myuser = $fromuser;
                          my $update_sock = getCurrentIdent($myuser);
                          if( SockExists($update_sock) ) {
                            $clients{$update_sock}->{lastsrvpost} = time;
                          }
                          if($touser eq "" && $room ne "" && $kind ne "PRVMESSAGE")    {  sendToSocket($message, { toroom => $room, kind => $kind, fromuser => $myuser  } );
                          }elsif($touser ne "" && $room eq "" && $kind ne "PRVMESSAGE" ) { sendToSocket($message,{ fromuser => $myuser, touser => $touser, kind => $kind } );
                          }elsif($touser eq "" && $room eq "" && $kind ne "PRVMESSAGE") { sendToSocket($message, {});
                          }
                          next;