Update slurp/win_ping/win_stat to use Get-Attr.

windows/slurp.ps1

@@ -19,46 +19,28 @@
 
 $params = Parse-Args $args;
 
-$src = '';
-If ($params.src.GetType)
-{
-    $src = $params.src;
-}
-Else
-{
-    If ($params.path.GetType)
-    {
-        $src = $params.path;
-    }
-}
+$src = Get-Attr $params "src" (Get-Attr $params "path" $FALSE);
 If (-not $src)
 {
-    $result = New-Object psobject @{};
-    Fail-Json $result "missing required argument: src";
+    Fail-Json (New-Object psobject) "missing required argument: src";
 }
 
-If (Test-Path $src)
-{
-    If ((Get-Item $src).Directory) # Only files have the .Directory attribute.
+If (Test-Path -PathType Leaf $src)
 {
     $bytes = [System.IO.File]::ReadAllBytes($src);
     $content = [System.Convert]::ToBase64String($bytes);
-
     $result = New-Object psobject @{
         changed = $false
         encoding = "base64"
+        content = $content
     };
-        Set-Attr $result "content" $content;
     Exit-Json $result;
 }
-    Else
+ElseIf (Test-Path -PathType Container $src)
 {
-        $result = New-Object psobject @{};
-        Fail-Json $result ("is a directory: " + $src);
-    }
+    Fail-Json (New-Object psobject) ("is a directory: " + $src);
 }
 Else
 {
-    $result = New-Object psobject @{};
-    Fail-Json $result ("file not found: " + $src);
+    Fail-Json (New-Object psobject) ("file not found: " + $src);
 }

windows/win_ping.ps1

@@ -19,14 +19,11 @@
 
 $params = Parse-Args $args;
 
-$data = 'pong';
-If ($params.data.GetType)
-{
-   $data = $params.data;
-}
+$data = Get-Attr $params "data" "pong";
 
 $result = New-Object psobject @{
     changed = $false
     ping = $data
 };
+
 Exit-Json $result;

windows/win_stat.ps1

@@ -19,21 +19,13 @@
 
 $params = Parse-Args $args;
 
-$path = $FALSE;
-If ($params.path.GetType)
-{
-   $path = $params.path;
-}
+$path = Get-Attr $params "path" $FALSE;
 If ($path -eq $FALSE)
 {
     Fail-Json (New-Object psobject) "missing required argument: path";
 }
 
-$get_md5 = $TRUE;
-If ($params.get_md5.GetType)
-{
-    $get_md5 = $params.get_md5 | ConvertTo-Bool;
-}
+$get_md5 = Get-Attr $params "get_md5" $TRUE | ConvertTo-Bool;
 
 $result = New-Object psobject @{
     stat = New-Object psobject