From 2a96bd554a7f9892a11e0d355f19dae766bf9182 Mon Sep 17 00:00:00 2001
From: Danny Robinson <dannyrobinson@gmx.com>
Date: Thu, 6 Oct 2022 19:50:34 +0100
Subject: [PATCH] Update deprecated APIs in demo code

---
 tool/net/demo/printpayload.lua |  2 +-
 tool/net/demo/redbean-form.lua |  2 +-
 tool/net/demo/redbean.lua      | 10 +++++-----
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/tool/net/demo/printpayload.lua b/tool/net/demo/printpayload.lua
index ae842138f..329e65e86 100644
--- a/tool/net/demo/printpayload.lua
+++ b/tool/net/demo/printpayload.lua
@@ -6,7 +6,7 @@ local function main()
    end
    SetStatus(200)
    SetHeader("Content-Type", GetHeader("Content-Type") or "text/plain")
-   Write(GetPayload())
+   Write(GetBody())
 end
 
 main()
diff --git a/tool/net/demo/redbean-form.lua b/tool/net/demo/redbean-form.lua
index 527c72081..40a6cc4a9 100644
--- a/tool/net/demo/redbean-form.lua
+++ b/tool/net/demo/redbean-form.lua
@@ -57,7 +57,7 @@ local function main()
 
    Write('<dt>Payload\r\n')
    Write('<dd><p>')
-   Write(EscapeHtml(VisualizeControlCodes(GetPayload())))
+   Write(EscapeHtml(VisualizeControlCodes(GetBody())))
    Write('\r\n')
 
    Write('</dl>\r\n')
diff --git a/tool/net/demo/redbean.lua b/tool/net/demo/redbean.lua
index 202db0d89..05f1d2956 100644
--- a/tool/net/demo/redbean.lua
+++ b/tool/net/demo/redbean.lua
@@ -72,11 +72,11 @@ local function main()
    -- redbean command line arguments
    -- these come *after* the c getopt server arguments
    Write('<h3>command line arguments</h3>\r\n')
-   if #argv > 0 then
+   if #arg > 0 then
       Write('<ul>\r\n')
-      for i = 1,#argv do
+      for i = 1,#arg do
          Write('<li>')
-         Write(EscapeHtml(VisualizeControlCodes(argv[i])))
+         Write(EscapeHtml(VisualizeControlCodes(arg[i])))
          Write('\r\n')
       end
       Write('</ul>\r\n')
@@ -333,9 +333,9 @@ local function main()
          Write('Size: ')
          Write(tostring(GetAssetSize(paths[i])))
          Write('<br>\r\n')
-         if GetComment(paths[i]) then
+         if GetAssetComment(paths[i]) then
             Write('Comment: ')
-            Write(EscapeHtml(VisualizeControlCodes(GetComment(paths[i]))))
+            Write(EscapeHtml(VisualizeControlCodes(GetAssetComment(paths[i]))))
             Write('<br>\r\n')
          end
          Write('\r\n')