Various

Author: graham-trott

iwsy/resources/ecs/fileman.txt

@@ -41,14 +41,10 @@
     variable Path
     variable N
     variable Even
-    variable Args
-    variable Domain
     variable IsHome
-    variable Item
     variable Post
 
     get IsHome from storage as `.ishome`
-    get CDN from storage as `.cdn`
 	get AdminPassword from storage as `.password`
 
     if portrait
@@ -132,7 +128,7 @@
 Show:
     set style `display` of Container to `block`
 
-	if IsHome
+	if IsHome is `true`
     begin
         get UserRecord from storage as `.user`
         put property `email` of UserRecord into Email
@@ -148,7 +144,7 @@ Show:
 !	Build the list
 Browser:
     put CurrentPath into storage as `.filepath`
-    if IsHome
+    if IsHome is `true`
     begin
         rest get Content from `ulist/` cat Email cat `/` cat Password cat `/` cat CurrentPath cat `?v=` cat now
         or begin
@@ -225,7 +221,7 @@ Browser:
         if FileCount is 0
         begin
             put Path into CurrentPath
-            if IsHome put `udelete/` cat Email cat `/` cat Password cat `/` cat CurrentPath into Post
+            if IsHome is `true` put `udelete/` cat Email cat `/` cat Password cat `/` cat CurrentPath into Post
             else put `delete/` cat AdminPassword cat `/` cat CurrentPath into Post
             rest post to Post or
             begin
@@ -268,7 +264,7 @@ SelectFile:
         set the text of URL to `resources/` cat FilePath
         on click DeleteButton
         begin
-            if IsHome put `udelete/` cat Email cat `/` cat Password cat `/` cat FilePath into Post
+            if IsHome is `true` put `udelete/` cat Email cat `/` cat Password cat `/` cat FilePath into Post
             else put `delete/` cat AdminPassword cat `/` cat FilePath into Post
             rest post to Post or
             begin
@@ -297,7 +293,7 @@ Upload:
     else
     begin
         put CurrentPath into Path
-        if IsHome put `uupload/` cat Email cat `/` cat Password cat `/` cat Path into Path
+        if IsHome is `true` put `uupload/` cat Email cat `/` cat Password cat `/` cat Path into Path
         else put `upload/` cat AdminPassword cat `/` cat Path into Path
         upload UploadFile to Path with UploadProgress and UploadStatus
         goto Browser

iwsy/resources/ecs/help.txt

@@ -129,7 +129,7 @@ Decorate:
 
 !	Process an image, including positioning and class information
 ProcessImage:
-	put the position of `:` in Data into N
+	put the position of `|` in Data into N
     if N is -1
     begin
         put `<img id="ec-image-` cat ImageCount cat `" src="` cat Data cat `?v=` cat now cat `" />` into Payload

iwsy/resources/ecs/iwsy.txt

@@ -99,20 +99,21 @@
 
     rest path `rest.php`
 
+    json parse url the location as Args
+    put property `protocol` of Args into Protocol
+    put property `domain` of Args into Domain
+
 !	Test if site is on a static host
     clear Static
-    rest get Item from `test`
+    rest get Item from Protocol cat Domain cat `/test`
     or begin
         print `Static website`
     	set Static
+        clear IsHome
     	put empty into CDN
+        go to Start
     end
-    put Static into storage as `.static`
-    if Static go to Start
 
-    json parse url the location as Args
-    put property `protocol` of Args into Protocol
-    put property `domain` of Args into Domain
     if Domain is `iwannashowyou.com` set IsHome else clear IsHome
     if IsHome put Protocol cat Domain into CDN
     else put `https://easycoder.github.io/iwsy` into CDN
@@ -123,6 +124,7 @@
     if Item is `true` clear IsHome
 
 Start:
+    put Static into storage as `.static`
 	put IsHome into storage as `.ishome`
 	put CDN into storage as `.cdn`
     put empty into CallStack