initial commit

werc/tpl/_debug.tpl

@@ -0,0 +1,29 @@
+% if(! ~ $#debug_shell 0) {
+<form method="POST" name="prompt">
+<input size="80" type="text" name="command" value="%($"post_arg_command%)">
+<input type="submit" Value="Run">
+</form>
+<script language="javascript"><!--
+document.prompt.command.focus()
+//--></script>
+
+%{
+fn evl {
+    # Buffering is probably messing this up:
+    #rc -c 'flag x +;{'^$post_arg_command'} |[2] awk ''{print ">> "$0}'''
+    rc -c 'flag s +; flag x +;'^$post_arg_command
+}
+    if(! ~ $#post_arg_command 0 && ! ~ $#post_arg_command '') {
+        echo '<hr><pre>'
+        evl | escape_html |[2] awk '{print "<b>"$0"</b>"}' 
+        echo '</pre>'
+    }
+%}
+% }
+
+<hr><pre>
+% env | escape_html
+</pre><hr>
+
+% umask
+

werc/tpl/_users/login.tpl

@@ -0,0 +1,18 @@
+<h1>User login</h1>
+<br />
+% if(check_user) {
+    You are logged in as: <b>%($logged_user%)</b>
+% }
+% if not {
+%    if (~ $REQUEST_METHOD POST)
+%        echo '<div class="notify_errors">Login failed!</div>'
+<form method="POST" action="" style="text-align: right; float: left;">
+<fieldset class="log">
+    <label>User name: <input type="text" name="user_name" value="%($"post_arg_user_name%)"/></label><br>
+    <label>User password: <input type="password" name="user_password"></label><br>
+    <input name="s" type="submit" value="Login">
+</fieldset>
+</form>
+% }
+
+<br style="clear:left">

werc/tpl/sitemap.tpl

@@ -0,0 +1,67 @@
+<h1>Site map</h1>
+
+%{
+tmpfile=/tmp/werc_sitemap_$pid.txt
+tmpfilex=/tmp/werc_sitemapx_$pid.txt
+saveddf=$dirfilter
+
+MON2NUM='s/Jan/01/; s/Feb/02/; s/Mar/03/; s/Apr/04/; s/May/05/; s/Jun/06/; s/Jul/07/; s/Aug/08/; s/Sep/09/; s/Oct/10/; s/Nov/11/; s/Dec/12/;'
+
+fn get_mdate {
+    t=`{mtime $1}
+    t=`{date $t(1) | sed -e $MON2NUM -e 's/  ([0-9]) / 0\1 /g'} # Make sure day of the month is two digits.
+    echo $t(6)^'-'^$t(2)^'-'^$t(3)
+}
+
+fn listDir {
+    d=$1
+    dirfilter=$saveddf
+    if(test -f $d/_werc/config)
+        . $d/_werc/config
+
+    if(~ $#perm_redir_to 0) {
+        echo '<ul class="sitemap-list">'
+
+        for(i in `{ls -dF $d^*/ $d^*.md $d^*.html $d^*.txt >[2]/dev/null | sed $dirfilter}) {
+            desc=`{get_file_title $i}
+            u=`{echo $i|sed 's!'$sitedir'!!; '$dirclean's!/index$!/!; '}
+            if(! ~ $#desc 0 && ! ~ $desc '')
+                desc=' - '$"desc
+            n=`{echo /$u|sed 's/[\-_]/ /g; s,.*/([^/]+)/?$,\1,'}
+            echo '<li><a href="'$u'">'^$"n^'</a>' $"desc '</li>' 
+            echo $base_url^$u >> $tmpfile
+            echo '<url><loc>'$base_url^$u'</loc><lastmod>'^`{get_mdate $i}^'</lastmod></url>' >> $tmpfilex
+            if(test -d $i)
+                @{ listDir $i }
+        }
+        echo '</ul>'
+    }
+}
+
+
+fltr_cache listDir $sitedir/
+
+if(test -s $tmpfile) {
+    mv $tmpfile $sitedir/sitemap.txt &
+}
+if not if(test -f $tmpfile)
+    rm $tmpfile
+
+if(test -s $tmpfilex) {
+    {
+        echo '<?xml version="1.0" encoding="UTF-8"?>
+<urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">'
+
+        cat $tmpfilex
+        rm $tmpfilex &
+        echo '</urlset>'
+        # TODO Enable automaic search engine update notification.
+        #hget 'http://google.com/ping?sitemap='^`{url_encode $base_url'/sitemap.gz'} > /dev/null
+    
+    } | gzip > $sitedir/sitemap.gz &
+    #} > $sitedir/sitemap.xml &
+}
+if not if(test -f $tmpfilex)
+    rm $tmpfilex
+
+%}