MiServer is a free, open-source web server implemented in Dyalog APL. It enables the APL user to build sophisticated websites with little to no knowledge of the web technologies like HTML, JavaScript, etc. We hope that you will enjoy MiServer; join the forums🔗, and contribute via GitHub🔗.
-This website serves as guide to MiServer 3.0 – providing documentation, samples, and advice. At the same time, it showcases many of MiServer's capabilities. If you are just getting started with MiServer 3.0, go through the foundational documentation in the reading order of the right-hand tree.
-Explore the tabs for documentation, the broad selection of available controls, and the vast collection of sample pages and mini-apps. See the source of any page by clicking the MS3 logo in the top left corner and access other resources by clicking the Dyalog logo in the top right corner.
\ No newline at end of file +This website serves as guide to MiServer 3.0 – providing documentation, samples, and advice. At the same time, it showcases many of MiServer's capabilities. If you are just getting started with MiServer 3.0, look through the examples to get an idea of of the variety of web content that MiServer can generate.
+Explore the tabs for documentation, the broad selection of available controls, and the vast collection of sample pages and mini-apps. See the source of any page by clicking the MS3 logo in the top left corner and access other resources by clicking the Resources link in the top right corner.
\ No newline at end of file diff --git a/SampleMiSites/MS3/Examples/RESTful/mortgagews.mipage b/SampleMiSites/MS3/Examples/RESTful/mortgagews.mipage new file mode 100644 index 00000000..18b2bbcb --- /dev/null +++ b/SampleMiSites/MS3/Examples/RESTful/mortgagews.mipage @@ -0,0 +1,28 @@ +:Class mortgagews : RESTfulPage + +⍝ calculate payment + calcpmt←{0::'Error' ⋄ p r n←⍵÷1 1200 (÷12) ⋄ .01×⌈100×p×r÷1-(1+r)*-n} + +⍝ calculate principle + calcprin←{0::'Error' ⋄ r n m←⍵÷1200 (÷12) 1 ⋄ .01×⌈100×m÷r÷1-(1+r)*-n} + + ∇ r←Respond;mask + :Access Public + + r←⎕NS '' + r.msg←'Please provide either (prin rate term) or (rate term pmt)' + + :if 1=+/mask←⍬∘≡¨r.(prin rate term pmt)←⍬ Get 'prin rate term pmt' + + :if mask[1] ⍝ principle missing + r.(msg prin)←'' (calcprin r.(rate term pmt)) + + :elseif mask[4] ⍝ payment missing + r.(msg pmt)←'' (calcpmt r.(prin rate term)) + + :endif + :endif + + ∇ + +:EndClass diff --git a/SampleMiSites/MS3/Examples/Data/info.csv b/SampleMiSites/MS3/IndexData/info.csv similarity index 100% rename from SampleMiSites/MS3/Examples/Data/info.csv rename to SampleMiSites/MS3/IndexData/info.csv diff --git a/SampleMiSites/MS3/IndexData/intro.txt b/SampleMiSites/MS3/IndexData/intro.txt new file mode 100644 index 00000000..2a1a818e --- /dev/null +++ b/SampleMiSites/MS3/IndexData/intro.txt @@ -0,0 +1,3 @@ +MiServer is a free, open-source web server implemented in Dyalog APL. It enables the APL user to build sophisticated websites with little to no knowledge of the web technologies like HTML, JavaScript, etc. We hope that you will enjoy MiServer; join the forums🔗, and contribute via GitHub🔗.
+This website serves as guide to MiServer 3.0 – providing documentation, samples, and advice. At the same time, it showcases many of MiServer's capabilities. If you are just getting started with MiServer 3.0, look through the examples to get an idea of of the variety of web content that MiServer can generate.
+Explore the tabs for documentation, the broad selection of available controls, and the vast collection of sample pages and mini-apps. See the source of any page by clicking the MS3 logo in the top left corner and access other resources by clicking the Resources link in the top right corner.
\ No newline at end of file diff --git a/SampleMiSites/MS3/Examples/Data/reading.txt b/SampleMiSites/MS3/IndexData/reading.txt similarity index 100% rename from SampleMiSites/MS3/Examples/Data/reading.txt rename to SampleMiSites/MS3/IndexData/reading.txt diff --git a/SampleMiSites/MS3/Examples/Data/slideshow.txt b/SampleMiSites/MS3/IndexData/slideshow.txt similarity index 100% rename from SampleMiSites/MS3/Examples/Data/slideshow.txt rename to SampleMiSites/MS3/IndexData/slideshow.txt diff --git a/SampleMiSites/MS3/index.mipage b/SampleMiSites/MS3/index.mipage index e3178a87..19d134b1 100644 --- a/SampleMiSites/MS3/index.mipage +++ b/SampleMiSites/MS3/index.mipage @@ -13,7 +13,7 @@ ∇ - ∇ Compose;cols;tabs;rows + ∇ Compose;cols;tabs;rows;div :Access Public ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ @@ -22,9 +22,9 @@ ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ tabs.Titles,←'Introduction'Over'getting started/recommendations' cols←1 0⍴⍬ - cols,←'about'New _.div(Read'/Examples/Data/intro.txt') - cols,←'slideshow'New _.div(Shuffle Read'Examples/Data/slideshow.txt') - cols,←'reading'New _.List(ReadingTree Read'Examples/Data/reading.txt') + cols,←'about'New _.div(Read'IndexData/intro.txt') + cols,←'slideshow'New _.div(Shuffle Read'IndexData/slideshow.txt') + cols,←'reading'New _.List(ReadingTree Read'IndexData/reading.txt') tabs.Sections,←'intro'New _.Table cols ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ @@ -33,7 +33,9 @@ cols,←⊂(⊂'Task demonstrated'),C.tasks cols,←⊂(⊂'Type'),C.type cols,←⊂(⊂'Main controls used'Over'documentation links'),C.used - tabs.Sections,←'eg'New _.DataTable(⍉↑cols) + div←New _.div _.br (_.A 'Browse Examples Directory' '/Examples/') _.br + div.Add 'eg' New _.DataTable(⍉↑cols) + tabs.Sections,←div ⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝⍝ tabs.Titles,←'Controls'Over'list of all supported controls/links to samples using them' diff --git a/Utils/HTTPCommand.dyalog b/Utils/HTTPCommand.dyalog index 3f0bbe31..bde0555e 100644 --- a/Utils/HTTPCommand.dyalog +++ b/Utils/HTTPCommand.dyalog @@ -273,8 +273,8 @@ getchunklen←{¯1=len←¯1+⊃(NL⍷⍵)/⍳⍴⍵:¯1 ¯1 ⋄ chunklen←h2d len↑⍵ ⋄ (⍴⍵)