"reorigin" accurev workspaces after hostname change

reorigin_accurev_wspaces.ps1

param(
	$oldHostname
)
$erroractionpreference = "Stop"

[xml]$wspaces = accurev show wspaces -fx
$myFQDN=(Get-WmiObject win32_computersystem).DNSHostName+"."+(Get-WmiObject win32_computersystem).Domain

function ReOriginWS($wsname, $wsstorage) {
	Write-Output "  pulling workspace '$wsname' to '$myFQDN'"
	Write-Output "  > workspace path is '$wsstorage'"
	accurev chws -w $wsname -l $wsstorage -m $myFQDN
}

Push-Location
try {
	$wspaces.AcResponse.Element | Foreach-Object {
		if (Test-Path $_.Storage) {
				if (($_.Host -eq $oldHostname) -And ($_.Host -ne $myFQDN)) {
					ReOriginWS $_.Name $_.Storage
				}
		}
	}
} finally {
	Pop-Location
}