www.nsoft-s.com

function OnPrivateRequest(iCID, iUIN, iUINTo, iRole, iRoleReciever, iTask: integer): boolean;
var
  s,
  sCountry, sCity, sGeoIP,
  sIP,                            // remote user IP address
  sWEBSupportBrowserInfo,         // WEB-browser info
  sWEBSupportRefLink,             // reflink
  sWEBSupportsSysLanguage,        // browser locale language
  sWEBSupportsPlatformOS: string; // user's operation system
  iCIDTo: integer;
begin
  SetScriptTimeOut(10000);
  
    if (mGetRoleNameByID(iRole) = 'WEB guests') and mIsUINOnline(iUINTo) then begin
      sIP                     := mGetCIDAttribute(iCID, 'IP');
      sWEBSupportBrowserInfo  := mGetCIDAttribute(iCID, 'UserAgent');
      sWEBSupportRefLink      := mGetCIDAttribute(iCID, 'Reflink');
      sWEBSupportsSysLanguage := mGetCIDAttribute(iCID, 'Lang');
      sWEBSupportsPlatformOS  := mGetCIDAttribute(iCID, 'OS');
    
      s := '---------------' + CRLF + 
           '-=WEB Support=-' + CRLF + CRLF + 
           'IP: ' + sIP;
      
        if length(sWEBSupportBrowserInfo) > 0 then s := s + CRLF + 'Browser: ' + sWEBSupportBrowserInfo + CRLF;
        if length(sWEBSupportRefLink) > 0 then s := s + CRLF + 'Reflink: ' + sWEBSupportRefLink;
        if length(sWEBSupportsSysLanguage) > 0 then s := s + CRLF + 'System language: ' + sWEBSupportsSysLanguage;
        if length(sWEBSupportsPlatformOS) > 0 then s := s + CRLF + 'OS: ' + sWEBSupportsPlatformOS;
          
      sGeoIP   := GeoIPGetQuickInfo(sIP);
      sCountry := Fetch(sGeoIP, '|');
      sCity    := sGeoIP;
        
        if length(sCountry) > 0 then begin
          sGeoIP := sCountry;
            
            if length(sCity) > 0 then sGeoIP := sGeoIP + ', ' + sCity;
              
          s := s + CRLF + CRLF + sGeoIP;  
        end else sGeoIP := '';  
      
      mSendPrivateMessage(iUIN, iUINTo, s, 21);
  
      s := mGetCIDSByUINAndClientType(iUINTo, 'win32');
        
        while length(s) > 0 do begin
          iCIDTo := StrToInt(Fetch(s, ','));
          mSendCustomMsgToClientConsoleByCID(iCIDTo, 'WEB support session from UIN ' + inttostr(iUIN), 'newmsg', false, true, 78);
        end;  
    end;

  result := true;
end;

begin

end.