Allow use from CDN

Author: graham-trott

iwsy/resources/ecs/blocks.txt

@@ -36,11 +36,33 @@
     variable N
     variable M
     variable NBlocks
+    variable Args
+    variable Protocol
+    variable Domain
+    variable Resources
+    variable Properties
+    variable CDN
 
+    json parse url the location as Args
+    put property `protocol` of Args into Protocol
+    put property `domain` of Args into Domain
+
+	rest get Properties from Protocol cat Domain cat `/easycoder-properties.json`
+    if Properties is not empty
+    begin
+    	put property `resources` of Properties into Resources
+    end
+    if Resources is empty
+    begin
+    	put `resources` into Resources
+    	put `https://easycoder.github.io/iwsy/resources` into CDN
+    end
+    else put Protocol cat Domain cat `/` cat Resources into CDN
+
     put -1 into SelectedBlock
 
-    rest get PropertyNames from `/resources/json/propertyNames.json`
-    rest get PropertyDefaults from `/resources/json/propertyDefaults.json`
+    rest get PropertyNames from CDN cat `/json/propertyNames.json`
+    rest get PropertyDefaults from CDN cat `/json/propertyDefaults.json`
 
     on message go to Start
     set ready
@@ -275,4 +297,4 @@ SaveSelectedBlock:
     set property `action` of Message to `refresh`
     set property `source` of Message to `blocks`
     send Message to parent
-	return
+	return

iwsy/resources/ecs/fileman.txt

@@ -35,11 +35,28 @@
     variable UserRecord
     variable Email
     variable Password
+    variable AdminPassword
     variable CurrentPath
     variable FilePath
     variable Path
     variable N
     variable Even
+    variable Args
+    variable Protocol
+    variable Domain
+    variable Properties
+    variable UserPath
+    variable Resources
+    variable Message
+    variable Post
+
+    json parse url the location as Args
+    put property `protocol` of Args into Protocol
+    put property `domain` of Args into Domain
+	rest get Properties from Protocol cat Domain cat `/easycoder-properties.json`
+   	put property `path` of Properties into UserPath
+    put property `resources` of Properties into Resources
+    if Resources is empty put `resources` into Resources
 
     if portrait
     begin
@@ -122,23 +139,50 @@
 Show:
     set style `display` of Container to `block`
 
-	get UserRecord from storage as `.user`
-    put property `email` of UserRecord into Email
-    get Password from storage as `user.password`
-    put property `home` of UserRecord into Home
-    put Home cat `/` cat property `id` of UserRecord cat `/images` into Home
-    put `users/` cat Home into Home
+	if UserPath
+    begin
+    	put UserPath cat `/images` into Home
+    end
+    else
+    begin
+        get UserRecord from storage as `.user`
+        put property `email` of UserRecord into Email
+        get Password from storage as `user.password`
+        put property `home` of UserRecord into Home
+        put Home cat `/` cat property `id` of UserRecord cat `/images` into Home
+        put `users/` cat Home into Home
+    end
     get CurrentPath from storage as `.filepath`
     if CurrentPath is empty put Home into CurrentPath
+    get AdminPassword from storage as `.password`
 
 !	Build the list
 Browser:
     put CurrentPath into storage as `.filepath`
-    rest get Content from `ulist/` cat Email cat `/` cat Password cat `/` cat CurrentPath cat `?v=` cat now
-    or begin
-        alert `Failed to list files.`
-        put empty into storage as `.filepath`
-        go to Show
+    if UserPath
+    begin
+        if AdminPassword is empty
+        begin
+            set Message to object
+            set property `Action` of Message to `password`
+            send Message to parent
+            stop
+        end
+        rest get Content from `list/` cat AdminPassword cat `/` cat CurrentPath cat `?v=` cat now
+        or begin
+            alert `Failed to list files.`
+            put empty into storage as `.filepath`
+            stop
+        end
+    end
+    else
+    begin
+        rest get Content from `ulist/` cat Email cat `/` cat Password cat `/` cat CurrentPath cat `?v=` cat now
+        or begin
+            alert `Failed to list files.`
+            put empty into storage as `.filepath`
+            stop
+        end
     end
     put CurrentPath into Path
     set the content of Location to `Current path: ` cat Path
@@ -199,7 +243,9 @@ Browser:
         if FileCount is 0
         begin
             put Path into CurrentPath
-            rest post to `udelete/` cat Email cat `/` cat Password cat `/` cat CurrentPath or
+            if UserPath put `delete/` cat AdminPassword cat `/` cat CurrentPath into Post
+            else put `udelete/` cat Email cat `/` cat Password cat `/` cat CurrentPath into Post
+            rest post to Post or
             begin
                 alert `Failed to delete a file.`
                 stop
@@ -240,12 +286,14 @@ SelectFile:
         set the text of URL to `resources/` cat FilePath
         on click DeleteButton
         begin
-          rest post to `udelete/` cat Email cat `/` cat Password cat `/` cat FilePath or
-          begin
-              alert `Failed to delete the image.`
-              stop
-          end
-          go to CloseMedia
+            if UserPath put `delete/` cat AdminPassword cat `/` cat FilePath into Post
+            else put `udelete/` cat Email cat `/` cat Password cat `/` cat FilePath into Post
+            rest post to Post or
+            begin
+                alert `Failed to delete the image.`
+                stop
+            end
+            go to CloseMedia
         end
     end
     stop
@@ -267,12 +315,13 @@ Upload:
     else
     begin
         put CurrentPath into Path
-        put `upload/` cat Email cat `/` cat Password cat `/` cat Path into Path
+        if UserPath put `upload/` cat AdminPassword cat `/` cat Path into Path
+        else put `uupload/` cat Password cat `/` cat Email cat `/` cat Password cat `/` cat Path into Path
         upload UploadFile to Path with UploadProgress and UploadStatus
         goto Browser
     end
     stop
 
 Exit:
     set style `display` of Container to `none`
-    stop
+    stop

iwsy/resources/ecs/help.txt

@@ -22,6 +22,28 @@
     variable Item
     variable Len
     variable N
+    variable Args
+    variable Protocol
+    variable Domain
+    variable Resources
+    variable Properties
+    variable CDN
+
+    json parse url the location as Args
+    put property `protocol` of Args into Protocol
+    put property `domain` of Args into Domain
+
+	rest get Properties from Protocol cat Domain cat `/easycoder-properties.json`
+    if Properties is not empty
+    begin
+    	put property `resources` of Properties into Resources
+    end
+    if Resources is empty
+    begin
+    	put `resources` into Resources
+    	put `https://easycoder.github.io/iwsy/resources` into CDN
+    end
+    else put Protocol cat Domain cat `/` cat Resources into CDN
 
     if portrait
     begin
@@ -59,7 +81,7 @@ GetPage:
 	put 0 into ImageCount
 	put 0 into LinkCount
     iwsy remove styles
-    rest get Content from `/resources/help/` cat Page cat `.md?v=` cat now
+    rest get Content from CDN cat `/help/` cat Page cat `.md?v=` cat now
     or begin
     	put empty into Page
         go to GetPage
@@ -101,7 +123,7 @@ GetPage:
 !	Decorate is called for every occurrence of ~...~ in the topic data
 Decorate:
     put the payload of DecoratorCallback into Payload
-    if Payload is `iwsy` put `<img src="resources/icon/iwsy.png?v=` cat now cat `" `
+    if Payload is `iwsy` put `<img src="` cat CDN cat `/icon/iwsy.png?v=` cat now cat `" `
     	cat `style="height:0.8em;position:relative;top:0.1em" />` into Payload
     else if Payload is `clear` put `<div style="height:1px;clear:both"></div>` into Payload
     else
@@ -185,4 +207,4 @@ ProcessEmbed:
 
 Exit:
     set style `display` of Container to `none`
-    stop
+    stop