document.write('\
\ "); document.write('
  1. ## DekiWiki Module -note this is a v2 module, but I think you can dot-source in v1 if you remove the last line ;)
    2. \
  2. ####################################################################################################
    3. \
  3. ## The first of many script cmdlets for working with DekiWiki, based on their REST api sdk "Dream"
    4. \
  4. ## You need log4net.dll mindtouch.core.dll mindtouch.dream.dll and SgmlReaderDll.dll from the SDK
    5. \
  5. ## Download DREAM from http://sourceforge.net/project/showfiles.php?group_id=173074
    6. \
  6. ## Unpack it, and you can find these dlls in the "dist" folder.
    7. \
  7. ####################################################################################################
    8. \
  8. ## More details to come with the next version. Sorry, it\'s time for bed ;)
    9. \
  9. ## History:
    10. \
  10. ## v 1.0 Set-DekiCredential, Get-DekiContent, Set-DekiContent, New-DekiContent, Get-DekiFile
    11. \
  11. ##
    12. \
  12.  
    13. \
  13. [Reflection.Assembly]::LoadFile( "$PSScriptRoot\\mindtouch.dream.dll" )
    14. \
  14.  
    15. \
  15. $url = "http://powershell.wik.is" #
    16. \
  16. $api = "$url/@api/deki"
    17. \
  17. $plug = [MindTouch.Dream.Plug]::New($api);  
    18. \
  18. $cred = $null
    19. \
  19.  
    20. \
  20. function Set-DekiCredential {
    21. \
  21.    param($Credential=$(Get-Credential))
    22. \
  22.    $global:cred = $Credential
    23. \
  23. }
    24. \
  24.  
    25. \
  25. function Get-DekiCredential {
    26. \
  26.    if(!$global:cred) { Set-DekiCredential $(Get-Credential) }
    27. \
  27.    return $global:cred.GetNetworkCredential();
    28. \
  28. }
    29. \
  29.  
    30. \
  30.  
    31. \
  31. $DreamText = [MindTouch.Dream.MimeType]::TEXT
    32. \
  32. $DreamXml  = [MindTouch.Dream.MimeType]::XML
    33. \
  33. $DreamHtml  = [MindTouch.Dream.MimeType]::HTML
    34. \
  34. function Get-DekiContent {
    35. \
  35.    param( $pageName = "Test_Page" )
    36. \
  36.    $pageName = [System.Web.HttpUtility]::UrlEncode( [System.Web.HttpUtility]::UrlEncode( $pageName ) )
    37. \
  37.    
    38. \
  38.    $plug.At("pages", "=$pageName", "contents").With("mode", "view").Get().AsDocument().AsXmlNode
    39. \
  39. }
    40. \
  40.  
    41. \
  41. # Get-DekiFile will LIST all files if called with just a PageName
    42. \
  42. # Otherwise, fileName can be a single fileName, or wildcards
    43. \
  43. function Get-DekiFile {
    44. \
  44.    param( $pageName = "Test_Page", [string[]]$fileNames, $destinationFolder )
    45. \
  45.    $encodedPageName = Encode-Twice $pageName
    46. \
  46.    
    47. \
  47.    $files = $plug.At("pages", "=$encodedPageName", "files").Get().AsDocument().AsXmlNode.file
    48. \
  48.  
    49. \
  49.    if(!$fileNames) {
    50. \
  50.       return $files
    51. \
  51.    } else {  
    52. \
  52.       foreach($fileName in $fileNames) {
    53. \
  53.          foreach($file in $($files | where { $_.filename -like $fileName } )) {
    54. \
  54.             $encodedFileName = [System.Web.HttpUtility]::UrlEncode( [System.Web.HttpUtility]::UrlEncode( $($file.filename) ) )
    55. \
  55.             Write-Verbose "Fetching $($file.filename) from $pageName"
    56. \
  56.             # Note that you can resize, if it\'s a picture: .With("size", "bestfit").With("width", 100).With("height", 100).Get();  
    57. \
  57.             $message = $plug.At("pages", "=$encodedPageName", "files", "=$encodedFileName").Get()
    58. \
  58.             $fullName = $(Get-FileName $file.filename destinationFolder)
    59. \
  59.             &{
    60. \
  60.                $writer = new-object System.IO.FileStream $fullName, "Create"
    61. \
  61.                $bytes = $message.AsBytes()
    62. \
  62.                $writer.Write($bytes,0,$bytes.Length)
    63. \
  63.                trap {
    64. \
  64.                   $writer.Flush()
    65. \
  65.                   $writer.Close()
    66. \
  66.                }
    67. \
  67.                $writer.Flush()
    68. \
  68.                $writer.Close()
    69. \
  69.                
    70. \
  70.             }
    71. \
  71.             write-output (get-item $fullName)
    72. \
  72.          }
    73. \
  73.       }
    74. \
  74.    }
    75. \
  75. }
    76. \
  76.  
    77. \
  77. function Set-DekiContent {
    78. \
  78.    param( $pageName = "Test_Page", $content = (throw "You must specify page contents"), $section )
    79. \
  79.    $encodedPageName = Encode-Twice $pageName
    80. \
  80.    # you have to pre-authenticate ...
    81. \
  81.    $null = $plug.At("users", "authenticate").WithCredentials( $(Get-DekiCredential) ).Get()
    82. \
  82.  
    83. \
  83.    if( $content -is [System.Xml.XmlDocument]) {
    84. \
  84.       $msg = [MindTouch.Dream.DreamMessage]::Ok( $content )
    85. \
  85.    } else {
    86. \
  86.       $msg = [MindTouch.Dream.DreamMessage]::Ok( $DreamText, $content )
    87. \
  87.    }
    88. \
  88.    Write-Verbose "Updating $pageName at $(UtcNow "yyyyMMddhhmmss"): $($msg.ContentLength) bytes"
    89. \
  89.    Write-Verbose "$($msg.AsText())"
    90. \
  90.    $partway = $plug.At("pages", "=$encodedPageName", "contents").With("edittime",$(UtcNow "yyyyMMddhhmmss"))
    91. \
  91.    if($section) {
    92. \
  92.       $result = $partway.With("Section",0).Post( $msg )
    93. \
  93.    } else {
    94. \
  94.       $result = $partway.Post( $msg )
    95. \
  95.    }
    96. \
  96.    if($result.IsSuccessful) {
    97. \
  97.       return "$url/$pageName"
    98. \
  98.    } else {
    99. \
  99.       return $result.Response
    100. \
  100.    }
    101. \
  101.  
    102. \
  102.  
    103. \
  103.    trap [MindTouch.Dream.DreamResponseException] {
    104. \
  104.       Write-Error "TRAPPED DreamResponseException`n`n$($_.Exception.Response | Out-String)`n`n`n$($_.Exception.Response.Headers | Out-String)"
    105. \
  105.       break;
    106. \
  106.    }
    107. \
  107.    
    108. \
  108. }
    109. \
  109.  
    110. \
  110.  
    111. \
  111. function New-DekiContent {
    112. \
  112.    param( $pageName = "Test_Page", $content = (throw "You must specify page contents") )
    113. \
  113.    $encodedPageName = Encode-Twice $pageName
    114. \
  114.    # you have to pre-authenticate ...
    115. \
  115.    $null = $plug.At("users", "authenticate").WithCredentials( $(Get-DekiCredential) ).Get()
    116. \
  116.    
    117. \
  117.    if( $content -is [System.Xml.XmlDocument]) {
    118. \
  118.       $msg = [MindTouch.Dream.DreamMessage]::Ok( $content )
    119. \
  119.    } else {
    120. \
  120.       $msg = [MindTouch.Dream.DreamMessage]::Ok( $DreamText, $content )
    121. \
  121.    }
    122. \
  122.    Write-Verbose "Updating $pageName at $(UtcNow "yyyyMMddhhmmss"): $($msg.ContentLength) bytes"
    123. \
  123.    Write-Verbose "$($msg.AsText())"
    124. \
  124.    
    125. \
  125.    $result = $plug.At("pages", "=$encodedPageName", "contents").With("abort", "exists").With("edittime",$(UtcNow "yyyyMMddhhmmss")).Post( $msg )  
    126. \
  126.    trap [MindTouch.Dream.DreamResponseException] {
    127. \
  127.       Write-Error "TRAPPED DreamResponseException`n`n$($_.Exception.Response | Out-String)`n`n`n$($_.Exception.Response.Headers | Out-String)"
    128. \
  128.    }
    129. \
  129.    if($result.IsSuccessful) {
    130. \
  130.       return "$url/$pageName"
    131. \
  131.    } else {
    132. \
  132.       return $result.Response
    133. \
  133.    }
    134. \
  134. }
    135. \
  135.  
    136. \
  136. ## Utility Functions
    137. \
  137. function UtcNow {
    138. \
  138.    Param($Format="")
    139. \
  139.    [DateTime]::Now.ToUniversalTime().ToString($Format)
    140. \
  140. }
    141. \
  141. function Encode-Twice {
    142. \
  142.    param([string]$text)
    143. \
  143.    return [System.Web.HttpUtility]::UrlEncode( [System.Web.HttpUtility]::UrlEncode( $text ) )
    144. \
  144. }
    145. \
  145.  
    146. \
  146. function Get-FileName {
    147. \
  147.    param($fileName=$([IO.Path]::GetRandomFileName()), $path)
    148. \
  148.    
    149. \
  149.    $fileName = $fileName.trim("\\/""\'")
    150. \
  150.    if($path -and (Test-Path $path)){
    151. \
  151.       $fileName = Split-Path $fileName -leaf
    152. \
  152.       Join-Path $path $fileName
    153. \
  153.    } elseif((Split-Path $fileName) -and (Test-Path (Split-Path $fileName))) {
    154. \
  154.       return $fileName
    155. \
  155.    } else {
    156. \
  156.       Join-Path (Convert-Path (Get-Location -PSProvider "FileSystem")) (Split-Path $fileName -Leaf)
    157. \
  157.    }
    158. \
  158. }
    159. \
  159.  
    160. \
  160. Export-ModuleMember Set-DekiCredential, Get-DekiContent, Set-DekiContent, New-DekiContent, Get-DekiFile
    161. \
');document.write('
downloadThis Script brought to you by PoshCode\
\
\
');