reset table padding from updated cgilite style

[webpoll] / home.sh

diff --git a/home.sh b/home.sh
index bea9940e56af096080dff83507175b8eebe76463..b8f8192eccc26fccf14d4483d9317e64ef2d3a1f 100755 (executable)
--- a/home.sh
+++ b/home.sh
@@ -18,8 +18,9 @@ if [ "$REQUEST_METHOD" = POST ]; then
     *) REDIRECT "$_BASE/";;
   esac
 else
+  [ "$PATH_INFO" != / ] && printf 'Status: 404 Not Found\r\n'
   yield_page "Start a Poll" "home" <<-EOF
-       [form method=post
+       [main [form method=post
          [submit "start" "date" Start a new poll]
          $(if [ "$bookmarks" ]; then
            printf '[h2 Recent Polls][ul .recent'
@@ -30,6 +31,6 @@ else
            done
            printf ']'
          fi)
-       ]
+       ]]
        EOF
 fi