# Test-bearer
#
# Probe web page for bearer
#
# 20191203  Changes to allow PS Ver2 Mode 
param (
   $url = "https://graph.microsoft.com/v1.0/me",
   $method = "GET"
)

Write-Host "Test-Bearer: Start"
Write-Host "Test-Bearer: URL    $($url)"
Write-Host "Test-Bearer: Method $($method)"

$HeaderParams = @{ 'Authorization' = "Bearer" }
try {
   write-host "Test-Bearer: Start Request with Bearer Header"
   $result = Invoke-WebRequest -UseBasicParsing -Headers $HeaderParams -Uri $url  -Method $method
   write-host "Got not error. Bearer not working"
   $result =$null
}

catch {
   write-host "Catch: $($_.Exception.message)"
   $result=$_.Exception.Response
}
#$result
if ($result) {
   $linenumber = 0
   foreach ($header in $result.headers) {
      if ($header.key -eq 'WWW-Authenticate') {
         #write-host "WWW-Authenticate: $($header.value)"
         $linenumber = 1
         foreach ($line in $header.value.split(',')) {
            Write-host "Header: WWW-Authenticate:$($linenumber):$($line)"
            $linenumber++
         }
      }
      else {
         write-host "Header: $($header.key): $($header.value)"
      }
   }
   if ($linenumber -eq 0) {
      write-host "No www-authenticate header found"
   }
}
else {
   Write-Warning "No Result"
}