werc-1.5.0-tweaks

Tweaks for the werc website builder created by the mad architect Uriel
Log | Files | Refs | README

_debug.tpl (683B)

      1 % if(! ~ $#debug_shell 0) {
      2 <form method="POST" name="prompt">
      3 <input size="80" type="text" name="command" value="%($"post_arg_command%)">
      4 <input type="submit" Value="Run">
      5 </form>
      6 <script language="javascript"><!--
      7 document.prompt.command.focus()
      8 //--></script>
      9 
     10 %{
     11 fn evl {
     12     # Buffering is probably messing this up:
     13     #rc -c 'flag x +;{'^$post_arg_command'} |[2] awk ''{print ">> "$0}'''
     14     rc -c 'flag s +; flag x +;'^$post_arg_command
     15 }
     16     if(! ~ $#post_arg_command 0 && ! ~ $#post_arg_command '') {
     17         echo '<hr><pre>'
     18         evl | escape_html |[2] awk '{print "<b>"$0"</b>"}' 
     19         echo '</pre>'
     20     }
     21 %}
     22 % }
     23 
     24 <hr><pre>
     25 % env | escape_html
     26 </pre><hr>
     27 
     28 % umask
     29