Adds Icinga Agent object list wrapper implementation

Fixes #44

Author: LordHepipud

lib/core/icingaagent/finders/Find-IcingaAgentObjects.psm1

@@ -0,0 +1,40 @@
+function Find-IcingaAgentObjects()
+{
+    param(
+        $Find    = @(),
+        $OutFile = $null
+    );
+
+    if ($Find.Length -eq 0) {
+        throw 'Please specify content you want to look for';
+    }
+
+    [array]$ObjectList = (Get-IcingaAgentObjectList).Split("`r`n");
+    [int]$lineIndex    = 0;
+    [array]$Result     = @();
+
+    foreach ($line in $ObjectList) {
+        if ([string]::IsNullOrEmpty($line)) {
+            continue;
+        }
+
+        foreach ($entry in $Find) {
+            if ($line -like $entry) {
+                [string]$ResultLine = [string]::Format(
+                    'Line #{0} => "{1}"',
+                    $lineIndex,
+                    $line
+                );
+                $Result += $ResultLine;
+            }
+        }
+
+        $lineIndex += 1;
+    }
+
+    if ([string]::IsNullOrEmpty($OutFile)) {
+        Write-Output $Result;
+    } else {
+        Set-Content -Path $OutFile -Value $Result;
+    }
+}

lib/core/icingaagent/getters/Get-IcingaAgentObjectList.psm1

@@ -0,0 +1,7 @@
+function Get-IcingaAgentObjectList()
+{
+    $Binary     = Get-IcingaAgentBinary;
+    $ObjectList = Start-IcingaProcess -Executable $Binary -Arguments 'object list';
+
+    return $ObjectList.Message;
+}

lib/core/icingaagent/writers/Write-IcingaAgentObjectList.psm1

@@ -0,0 +1,14 @@
+function Write-IcingaAgentObjectList()
+{
+    param(
+        [string]$Path
+    );
+
+    if ([string]::IsNullOrEmpty($Path)) {
+        throw 'Please specify a path to write the Icinga objects to';
+    }
+
+    $ObjectList = Get-IcingaAgentObjectList;
+
+    Set-Content -Path $Path -Value $ObjectList;
+}