Update to perlbot from strawberryperl.com. add changes log. add version command

Author: genio

Changes

@@ -0,0 +1,24 @@
+Changes log for PSPerl
+
+0.1.0       2020-06-29
+  * Switch to https://strawberry.perl.bot/releases.json
+    - Gets us HTTPS, and it's faster than strawberryperl.com
+  * Add a -Version or -V command to show version information
+  * Begin some structure for creating a -Local or -Lib command
+    to deal with local::lib
+  * Get some tags/releases back-filled
+  * Added the Changes log
+
+0.0.2       2020-04-30
+  * Store the current version we're running in the environment
+  * Fix for non-English Windows installs (thanks xenu)
+  * Fix for error handling (thanks xenu)
+
+0.0.1       2020-03-18
+  * Initial Release:
+  * psperl -Available
+  * psperl -Init
+  * psperl -List
+  * psperl -Install
+  * psperl -Use
+  * psperl -Switch

psperl.ps1

@@ -4,6 +4,8 @@ param (
     [switch]$init = $false,
     [switch]$setup = $false,
     [switch]$list = $false,
+    [switch]$version = $false,
+    [switch]$v = $false,
     [string]$install = '',
     [string]$switch = '',
     [string]$use = '',
@@ -17,6 +19,7 @@ if ($PSVersionTable.PSVersion.Major -lt 5) {
 }
 $psperl_path = (Split-Path -parent $MyInvocation.MyCommand.Definition);
 $env:PSPERL_ROOT = $psperl_path;
+$env:PSPERL_VERSION = '0.1.0';
 
 # Import our classes
 . "$($psperl_path)\src\PSPerl.ps1";
@@ -116,6 +119,18 @@ elseif ($list) {
         Write-Host("    $($dir.Name)");
     }
 }
+elseif ($version -or $v) {
+    Write-Host("This is PSPerl v$($env:PSPERL_VERSION)");
+    Write-Host("");
+    Write-Host("Directories of note:")
+    Write-Host("$($env:PSPERL_ROOT)\_config");
+    Write-Host("$($env:PSPERL_ROOT)\_locals");
+    Write-Host("$($env:PSPERL_ROOT)\_perls");
+    Write-Host("$($env:PSPERL_ROOT)\_zips");
+    Write-Host("");
+    Write-Host("https://github.com/genio/psperl");
+    Write-Host("");
+}
 # To turn on Debugging, $global:DebugPreference = 'Continue'
 # To turn off Debugging, $global:DebugPreference = 'SilentlyContinue'
 

src/PSPerl.ps1

@@ -9,7 +9,7 @@ class PSPerl {
         if(![System.IO.Directory]::Exists($rootPath)) {
             throw "Invalid root path provided";
         }
-        $this.URL = 'http://strawberryperl.com/releases.json';
+        $this.URL = 'https://strawberry.perl.bot/releases.json';
         $this.rootPath = $rootPath;
         $this.profilePath = $profilePath;
         $this.LoadSettings();