# A crude Powershell script to set the clock to UTC on the Picomite
# because I never program in Powershell, that's why.
###########################################################################
# Don't look to closely, I'm a pretty lazy coder. Only rudimentory error
# handling...
#
# Pete Willard
# September 1, 2022
#
# Step one, Determine which COM ports are active and select one of them
# Step two, Determine if we are setting the RTC or local DATE$ TIME$ values
# Step Three, Connect to the selected port at 19200 baud and send strings
###########################################################################
Clear-Host
#
$head1 = "PicoMite: Set Time to UTC at 19200 baud"
$head2 = "======================================="
Write-Host -ForegroundColor Cyan $head1
Write-Host -ForegroundColor Cyan $head2
Write-Host

# Using get-pnpdevice to retrieve known "ports"
$portList = Get-PnpDevice -Class Ports -ea 0
# Make sure it's an array
$portlist = @($portlist)
# Create an array we can add values to with .ADD()
$comports = New-Object System.Collections.Generic.List[System.Object]

#Find all active serial ports in the list
if ($portList) {
 foreach ($device in $portList) {
   if ($device.Present) {
     # Display the active devices and show what they are named
     # since it helps identify which one you want to use
     Write-Host "--- Active Device: " $device.Name
     $FriendlyName = $device.Name.split("(")
     $ComPort = $friendlyName[1].split(")")
     $ComPort = $ComPort.Trim()
     # Push known active COM ports into an array
     $ComPorts.Add($ComPort)
   }
 }
}

# A menu to select a specific COM port by number
$selection = $null
Write-Host
Write-Host "Available COM Ports`r`n==================="

do
{
 Write-Host # empty line
 # List Choices
 for ($i = 0; $i -lt $ComPorts.count; $i++)
 {
   Write-Host -ForegroundColor Cyan "  $($i+1)." $ComPorts[$i]
 }
 Write-Host # empty line
 $ans = (Read-Host 'Please make a choice ') -as [int]

} while ((-not $ans) -or (0 -gt $ans) -or ($ComPorts.count -lt $ans))

# For clarity, not functionality
$selection = $ComPorts[$ans - 1]
$UseComPort = $selection

# How do we want to update time?
$heading = "Real Time Clock`r`n==============="
$query = "Do you use a real time clock?"
$choices = '&Yes','&No'

$decision = $host.UI.promptforchoice($heading,$query,$Choices,1)

if ($decision -eq 0) {
 Write-Host '- Setting the RTC time to UTC'

}
if ($decision -eq 1) {
 Write-Host '- Setting $TIME and $DATE to UTC'

}

# Finally, we setup the serial connection
$Myport = New-Object System.IO.Ports.SerialPort $UseComPort,19200,None,8,one
try {
 $Myport.Open()
 #
 $MyQuote = "$([char]34)"
 $ctrlz = "$([char]26)"
 # Wakeup the remote end
 if ($myPort.isOpen) {
   # Send a CTRL-Z to makesure we have a prompt
   $myPort.Writeline($ctrlz)
   Write-Host "- Serial Port open..."

   if ($Decision -eq 0) {
     Write-Host "- SET Real Time Clock"
     $utctime = Get-Date -AsUTC -Format "yyyy,MM,dd,HH,mm,ss" # For RTC
     $MyPort.Writeline("RTC SETTIME $utctime ")
     write-host "- Sending -- RTC SETTIME $utctime "

   }
   if ($Decision -eq 1) {
     Write-Host "- SET DATE And TIME STRINGS "
     $utcdate = Get-Date -AsUTC -Format "yyyy/MM/dd" # Date$
     $MyLine = "DATE$ = " + $MyQuote + $utcdate + $MyQuote
     $myport.Writeline($myline)
     Write-Host "-- Sending -- $myline"
     #
     Start-Sleep -Seconds 1 # wait a moment
     $utcloctime = Get-Date -AsUTC -Format "HH:mm:ss" # Time$
     $MyLine = "TIME$ = " + $MyQuote + $utcloctime + $MyQuote
     $myport.Writeline($myline)
     Write-Host "-- Sending -- $myline"
   }

 }
 else {
   Write-Host ("Sorry, Serial Port Access Failed")
 }
}
catch {
 { 1: Write-Host ("Sorry, Serial Port was not opened. Is it in use?") }
}

# Clean up and get out
$myPort.close()
Write-Host "`r`n- Serial Port Closed.`r`n- Work Completed."

'
 FOR n = 1 TO 16
   ON ERROR SKIP
   OPEN "com"+STR$(n)+":19200" AS #2
'print mm.errno
   IF MM.ERRNO  = 0 THEN
     PRINT "com"+STR$(n)+"  available."
     CLOSE #2
   ENDIF
 NEXT n

$ctrlc = "$([char]3)"