I decided that I should have a go at this LINQ thing, so as .NET 3.5 will be RTM at the end of the month I am using LINQ and .NET 3.5 in my new Locator project.
The Locator project is just a small application that will run on a users computer and tell a central server where they are. In Aggreko we have the problem that people are moving about a lot (everyone has a laptop) and when you are looking for someone you need to be able to find them.
The application sits and poles the IP address of the local computer, and when it get an internal IP (i.e. not localhost) it will send that IP to a Windows Communication Foundation service for identification. If it is an IP that represents an internal company IP it sends back the detected location to the client and stores it in a database. The client then updates the physicalDeliveryOfficeName property in Active Directory and notifies the user of their location.
The information updated into Active Directory will then be visible on SharePoint and in any presence display.
As you can see the SharePoint listing is considerably out of date. This is because of the Schedule associated with its import of profiles. it does not seam as if it can be done any more regularly than once a day
The LINQ comes to the forefront when I am updating the database from the service. LINQ made this incredibly easy, but produced some strange looking SQL.
1 ' Get single value. This will execute the SQL 2 Dim wai_Uip = (From val_uip In DataStore.WhereAmI_UserIPs _ 3 Join val_ipm In DataStore.WhereAmI_IPMasks _ 4 On val_uip.CurrentIP.Substring(0, val_uip.CurrentIP.LastIndexOf(".")) _ 5 Equals val_ipm.Data.Substring(0, val_ipm.Data.LastIndexOf(".")) _ 6 Join val_off In DataStore.WhereAmI_Offices _ 7 On val_ipm.OfficeID _ 8 Equals val_off.OfficeID _ 9 Where val_uip.UserID = user _ 10 Select val_off.Country, val_off.Name, val_ipm.Data).First
Which produces this crazy SQL:
1SELECT [t2].[Country], [t2].[Name], [t1].[Data] 2FROM [dbo].[WhereAmI_UserIP] AS [t0] 3INNER JOIN [dbo].[WhereAmI_IPMask] AS [t1] ON SUBSTRING([t0].[CurrentIP], @p0 + 1, 4 (CASE 5 WHEN (CONVERT(Int,DATALENGTH(@p1) / 2)) = 0 THEN (CONVERT(Int,DATALENGTH([t0].[CurrentIP]) / 2)) - 1 6 WHEN CHARINDEX(@p1, [t0].[CurrentIP]) = 0 THEN -1 7 ELSE 1 + ((CONVERT(Int,DATALENGTH([t0].[CurrentIP]) / 2)) - ((CONVERT(Int,DATALENGTH(@p1) / 2)) + CHARINDEX(REVERSE(@p1), REVERSE([t0].[CurrentIP])))) 8 END)) = SUBSTRING([t1].[Data], @p2 + 1, 9 (CASE 10 WHEN (CONVERT(Int,DATALENGTH(@p3) / 2)) = 0 THEN (CONVERT(Int,DATALENGTH([t1].[Data]) / 2)) - 1 11 WHEN CHARINDEX(@p3, [t1].[Data]) = 0 THEN -1 12 ELSE 1 + ((CONVERT(Int,DATALENGTH([t1].[Data]) / 2)) - ((CONVERT(Int,DATALENGTH(@p3) / 2)) + CHARINDEX(REVERSE(@p3), REVERSE([t1].[Data])))) 13 END)) 14INNER JOIN [dbo].[WhereAmI_Office] AS [t2] ON [t1].[OfficeID] = [t2].[OfficeID] 15WHERE [t0].[UserID] = @p4',N'@p0 int,@p1 nvarchar(1),@p2 int,@p3 nvarchar(1),@p4 nvarchar(20)
No related videos found.
If you've made it this far, it's worth connecting with our principal consultant and coach, Martin Hinshelwood, for a 30-minute 'ask me anything' call.
We partner with businesses across diverse industries, including finance, insurance, healthcare, pharmaceuticals, technology, engineering, transportation, hospitality, entertainment, legal, government, and military sectors.
CR2
Lockheed Martin
Slaughter and May
Schlumberger
Boxit Document Solutions
Big Data for Humans
Jack Links
Workday
Brandes Investment Partners L.P.
New Signature
Qualco
Bistech
Lean SA
SuperControl
Emerson Process Management
Xceptor - Process and Data Automation
Flowmaster (a Mentor Graphics Company)
Deliotte
Ghana Police Service
Nottingham County Council
Washington Department of Transport
Department of Work and Pensions (UK)
Washington Department of Enterprise Services
Royal Air Force
Healthgrades
Flowmaster (a Mentor Graphics Company)
Freadom
Qualco
Jack Links
ALS Life Sciences