Changeset 14885

Timestamp:

12/13/06 11:12:45 (2 years ago)

Author:

andara

Message:

[runpugs]
-Devel version now more responsive thanks to mod_perl.
It's my first mod_perl script, please test it at
http://feather.perl6.nl:8080/runpugs/
-Next release will preload Pugs to cut startup delay.

Location:

misc/runpugs

Files:

• README (modified) (3 diffs)
• TODO (modified) (1 diff)
• bin/termdispatcher2.pl (modified) (2 diffs)
• bin/termserv2.pl (modified) (2 diffs)
• cgi-bin/runpugs (modified) (8 diffs)
• cgi-bin/runpugs3 (modified) (3 diffs)
• cgi-perl (added)
• cgi-perl/runpugs (added)
• cgi-perl/test.pl (added)
• data/runpugs.html (modified) (5 diffs)
• data/runpugs2.html (modified) (2 diffs)
• data/runpugs_async.html (added)
• htdocs/runpugs/index.html (modified) (4 diffs)
• htdocs/runpugs/mp.html (added)
• lib/Web/Terminal/Dispatcher.pm (modified) (3 diffs)
• lib/Web/Terminal/Server.pm (modified) (12 diffs)
• lib/Web/Terminal/Server/Session.pm (modified) (10 diffs)
• lib/Web/Terminal/Settings.pm (modified) (3 diffs)
• lib/startup.pl (added)
• perl (added)
• perl/runpugs.pl (added)
• perl/test.pl (added)

misc/runpugs/README

@@ -1 +1 @@
 ==============================================================================
-2006/10/12      Release of version 0.1.0 of runpugs/WebTerminal
+2006/12/12      Release of version 0.2.0 of runpugs/WebTerminal
 ==============================================================================
 
 NAME
     runpugs: a web teminal for interactive pugs 
-    WebTerminal: library for building a web terminal for interactive shells
+    Web/Terminal: library for building a web terminal for interactive shells
 
 INSTALLATION
@@ -11 +11 @@
     (e.g. ~/apache on feather, or /var/www elsewhere)
     Rename html folder if required (e.g. htdocs -> html or public_html)
-    * To run, simply point your browser at it. To avoid a wait, you might start
-    * the terminal server script (bin/termserv.pl) manually. If you don't, the cgi script will take care of it, but it takes a bit longer.
+    * Start the terminal server script (bin/termserv2.pl) 
+    * To run, simply point your browser to /cgi-bin/runpugs (stable CGI
+     version) or just /runpugs/ (unstable version with asynchronous
+     JavaScript interface, running under mod_perl)
 
 DESCRIPTION
     runpugs has two main components: 
     -a cgi script (cgi-bin/runpugs) which uses an html template
-    (data/runpugs.html). The latter calls the runpugs.cc stylesheet from
+    (data/runpugs.html). The latter calls the runpugs.css stylesheet from
     htdocs/runpugs.css
-    -a server (bin/termserv.pl) which handles the interactive pugs sessions and communicates with
+    -a server (bin/termserv2.pl) which handles the interactive pugs sessions and communicates with
     the cgi script. The pugs sessions stay alive for some time (currently 10') if
     left inactive.
 
-   The underlying library, WebTerminal, can in principle be used for any
-   interactive shell, not just pugs. But I'll have to do some refactoring and
-   cleaning-up first. Then we can have Python :-)
-   See the (currently non-exisiting) POD for more info.
+    The unstable version has some AJAX-like goodness and runs under mod_perl.
+    The entrypoint is /htdocs/runpugs/index.html, which calls /perl/runpugs.pl
+
+   The underlying library, Web/Terminal, can in principle be used for any
+   interactive shell, not just pugs. So we could have runpython :-)
+   See the POD for more info.
 
 AUTHOR
@@ -40 +44 @@
 ==============================================================================
 
-CHANGES IN VERSION 0.1.0
-    none (initial version)
+CHANGES IN VERSION 0.2.0
+    -Web/Terminal replaces the original WebTerminal modules. This
+    implementation is much more generic and configurable.
+    -The user interface is much improved, esp. in the unstable version.
 
 ==============================================================================

misc/runpugs/TODO

@@ -1 @@
-runpugs version 0.1.0 TODO:
+runpugs version 0.2.0 TODO:
 
-2006/10/12
+2006/12/06
 * Unicode: hack Net::Telnet so it handles Unicode
-* Refactor to make more generic
-    -prompt handling should be in cgi-bin/runpugs, not in Dispatcher.pm
-    -Various configuration variables should be in a Config.pm module, 
-     and be overriden from the scripts.
-    -let Dispatcher::send() return reply and prompt separately
-* add POD
+* Improve POD
 * Add proper copyright & licensing info, in particular to Msg.pm
-* use async JavaScript for front-end? cfr. tryruby.hobix.com
+* Put more functionality in JS (clear, timeout, history)
+* Use true AJAX for front-end (prototype.js)
+* Convert to Perl: this is a nice long-term goal. 
+    Perl 5 Modules to be ported:
+    - IO::Pty (xs based)
+    - Proc::Daemon
+    - A stripped-down Net::Telnet, purely to manage communication via IO::Pty
+    - YAML::Syck (xs based)
+    - The Perl 6 equivalents of POSIX, Errno, IO::Select, Carp
+   Of course we can use the Perl 5 implementations for the time being.
+* Test mod_perl; tailor code for mod_perl?   

misc/runpugs/bin/termdispatcher2.pl

@@ -8 +8 @@
 use Web::Terminal::Settings;
 use Web::Terminal::Dispatcher;
-$Web::Terminal::Settings::port=2058;
+#$Web::Terminal::Settings::port=2058;
 
 
@@ -21 +21 @@
 my $ip="127.0.0.1";
 (my $reply,my $prompt,my $histref) =
-&Web::Terminal::Dispatcher::send($id,$ip,0,0,$cmd);
+&Web::Terminal::Dispatcher::send($id,$ip,0,1,$cmd);
 print $reply;
 print "\nHistory\n";

misc/runpugs/bin/termserv2.pl

@@ -1 +1 @@
 #!/usr/bin/perl
+use strict;
+use warnings;
 BEGIN {
 $ENV{PERLIO}= ":utf8";
@@ -10 +12 @@
 use Web::Terminal::Server;
 use  Web::Terminal::Settings;
-$Web::Terminal::Settings::port=2058;
+#$Web::Terminal::Settings::port=2058;
 $ENV{PUGS_SAFEMODE}=1;
+my $v=1-$Web::Terminal::Settings::daemon;
+print "Starting server\n" if $v;
 &Web::Terminal::Server::run();
 

misc/runpugs/cgi-bin/runpugs

@@ -21 +21 @@
 use utf8;
 use lib '../lib/';
-#use WebTerminal::Settings;
-use WebTerminal::Dispatcher;
-
+use Web::Terminal::Settings;
+use Web::Terminal::Dispatcher;
+#$Web::Terminal::Settings::port=2058;
 #push (@INC, "$wwwpath$htmlpath$project");
 
@@ -30 +30 @@
 if ($MAX_SIZE_UPLOAD) { $CGI::POST_MAX=1024 * $MAX_SIZE_UPLOAD; }
 use CGI::Carp qw(fatalsToBrowser);
-
-CGI::nph();   # Treat script as a non-parsed-header script
+use HTML::Entities;
+
+#CGI::nph();   # Treat script as a non-parsed-header script
 $ENV{PATH} = ""; # no PATH should be needed
 $ENV{SAFE_MODE}=1;
@@ -38 +39 @@
 
 my $sessionid=$query->param("sessionid");
-my $motd="";
+
+my $motd='';
 if (not $sessionid) {
 my $nid=crypt(rand(),'WV');
@@ -45 +47 @@
 my $now=time()-1159056000; # 36 year, 275 days offset
 $sessionid=$nid.$now;
-
 $motd='
-<p class="warning">Please test the <em>development version</em> of <tt>runpugs</tt>: try the <a
-href="http://feather.perl6.nl:8080/runpugs/">interactive session</a>
-with <em>command history</em> or <a
-href="http://feather.perl6.nl:8080/cgi-bin/runpugs2?ia=0">run a full Perl 6 script</a>.</p>
+<p class="warning">Please test the <em><a
+href="http://feather.perl6.nl:8080/runpugs/">development version</a></em> of
+<tt>runpugs</tt>, now with AJAX and mod_perl.</p> 
 ';
+#or <a
+#href="http://feather.perl6.nl:8080/cgi-bin/runpugs2?ia=0">run a full Perl 6
+#script</a>.</p>
+#';
+
 }
 
@@ -68 +73 @@
 #$ip='127.'.int(rand(100)).'.'.int(rand(100)).'.'.int(rand(100));
 #}
+    my $prompt=$Web::Terminal::Settings::prompt;
+    my $allinone=1;
 ######### MAIN SITEMANAGER PROGRAM ###################
 
 if ( $query->param()) {      # an action has been chosen
-    my $cmd=$query->param("cmd");
+
+    my $cmd='';
+    if ($allinone==1) {
+    $cmd=$query->param("cmd");    
+    my @cmdlines=split("\n",$cmd);
+        for my $cmdline (reverse @cmdlines) {
+            $cmdline=~/^\s*$/ && next;
+            $cmdline=~/$Web::Terminal::Settings::prompt_pattern/
+            && do {
+                $cmd=$cmdline;
+                $cmd=~s/$Web::Terminal::Settings::prompt_pattern//;
+                chomp $cmd;
+                last;
+        };
+        }
+    } else {
+    $cmd=$query->param("cmdline");
+    }
     my $action =  $query->param("action")||'runpugs';
     if ($action =~ /^(\w+)$/) {
@@ -101 +125 @@
     my $sessionid=shift;
     my $ip=shift;
-    my $reply='pugs> ';
-    my $testing=$query->param('testing')||1;
     my $dev=$query->param('reldev')||0;
     $dev=$dev*1;
-    if (not $testing) {
-    $reply = "Sorry, runpugs is not available at the moment.";
-    } else {
-    $cmd=~s/^.+?pugs([\>\.])/pugs$1/s;
-    #NO UNICODE!
-#    $cmd=tr/\0-\x{10ffff}/\0-\xff_/;
-    if ($cmd=~/clear/) {
-        $cmd='';
-    } elsif ($cmd!~/^\p{IsASCII}*$/) {
-        $cmd='';
-        $reply = "Sorry, Unicode is not yet supported.\npugs> ";
-    } else {
-    if ($cmd=~/>\s+(\:*help)\b/) {
-        $cmd=~s/$1/:h/;
-    } elsif ($cmd=~/>\s+(\:*(quit|bye))\b/) {
-        $cmd=~s/$1/:q/;
-    } 
-    $reply = &WebTerminal::Dispatcher::send($sessionid,$ip,$dev,$cmd);
-    $reply="\n".$reply;
-    }
-    }
-    #$reply.="\n$ip\n$sessionid\n";
     my $devc='';
     my $relc='checked';
@@ -132 +132 @@
         $devc='checked';
         $relc='';
-    }
+        }
+    my $ia=$query->param('ia');
+    if (not defined $ia) {$ia=1}
+    my $interactive=$ia*1;
     my $html='';
-    open(HTML,"<../data/runpugs.html");
+    if ($interactive==1) {
+    my $clear=0;
+    my $nprompt=$query->param('prompt')||$prompt;
+    my $preply='';    
+    if($allinone==0 and $query->param('output')) {
+        $preply=$query->param('output');
+    } elsif ($allinone==1 and $query->param('cmd')) {
+    $preply=$query->param('cmd');
+    }
+    my $reply=$Web::Terminal::Settings::prompt;
+    my @history=();
+    my $prevcmd='';
+    my $testing=0;
+    if ($testing==1) {
+        $reply = "Sorry, runpugs is not available at the moment.";
+    } else {
+        if(not $query->param('history') or ($query->param('history') eq '')) {
+#            $cmd=~s/^.+?${Web::Terminal::Settings::prompt_pattern}/$1/s;
+        } else {
+#            $cmd=$Web::Terminal::Settings::prompt;
+#            $cmd.=$query->param('history');
+            $cmd=$query->param('history');
+        }
+        if ($cmd=~/clear/) {
+        $clear=1;
+            $cmd='';
+            $preply='';
+        } elsif ($cmd!~/^\p{IsASCII}*$/) { #NO UNICODE!
+            $cmd='';
+            $reply = "Sorry, Unicode is not yet supported.\n".$Web::Terminal::Settings::prompt;
+        } else {
+            if ($cmd=~/>\s+(\:*help)\b/) {
+                $cmd=~s/$1/:h/;
+            } elsif ($cmd=~/>\s+(\:*(quit|bye))\b/) {
+                $cmd=~s/$1/:q/;
+            } 
+            ($reply, $nprompt, my $histref) = &Web::Terminal::Dispatcher::send($sessionid,$ip,$dev,$interactive,$cmd);
+            if (defined $histref) {
+                @history=@{$histref};
+                $prevcmd=$history[-1];
+            }
+            #$cmd=$prompt.$history[-1];
+            $prompt=$nprompt;
+            #$reply="\n".$reply.$prompt;
+        }
+    }
+    my $npromptw=HTML::Entities::encode_entities($nprompt);
+    my $replyw="$preply$prompt$prevcmd\n$reply";
+    if($allinone==1){
+    $replyw="$preply\n$reply";
+    }
+    if($clear==1) {
+        $replyw='';
+    }
+   my $nrows=scalar split("\n",$replyw); 
+#    $nrows++;
+     ($replyw=~/^\s*$/) && ($nrows=1);
+    if ($nrows>20) {$nrows=20;}
+    my $historylist="\n";
+    for my $entry (@history) {
+        my $entryw=HTML::Entities::encode_entities($entry);
+        $historylist.='<option value="'.$entryw.'">'.$entryw.'</option>'."\n";
+    }
+    if ($allinone==1) {
+        $replyw.=$nprompt;
+    }
+    open(HTML,"<../data/runpugs2.html");
     while(<HTML>) {
-    s/_TESTING_/$testing/;
+        /_HIST_/ && do {
+            $html.=$historylist;
+            next;
+        };
+        /_SKIPT_/ && ($allinone==1) && next;
+        /_SKIPC_/ && ($allinone==0) && next;
     /_MOTD_/ && do {
-    $html.=$motd;
-    next;
-    };
-    s/_DEV_/$devc/;
-    s/_REL_/$relc/;
-        /input.*name=\"sessionid\"/ && do {$html.='<input type="hidden" name="sessionid" value="'.$sessionid.'">'."\n";next };
-        /(pugs\&gt\;\&nbsp\;)/ && do {$html.=$cmd.$reply;next};
-
-        /([^\`\\]+$)/ && do {$html.=$1};
-
-      }
+        $html.=$motd;
+            next;
+                };
+        s/_DEV_/$devc/;
+        s/_REL_/$relc/;
+        /input.*name=\"sessionid\"/ && do {
+            $html.='<input type="hidden" name="sessionid" value="'.$sessionid.'">'."\n";
+            next; 
+            };
+        s/_PROMPTW_/$npromptw/;
+=not_now        
+        /_PREPLYW_/ && do {
+#            $html.=$preplyw;
+            next;
+        };
+        /_CMDW_/ && do {
+#            chomp $html;
+#            $html.=$prevcmdw."\n\n";
+            next;
+        };
+        /_BSKIP_/ && do {
+#        ($replyw=~/^\s*$/) && ($html.='<!--');
+        next;
+        };
+        /_ESKIP_/ && do {
+#        ($replyw=~/^\s*$/) && ($html.='-->');
+        next;
+        };
+=cut
+        (/_REPLYW_/ && ($allinone==0))||
+        (/_ALL_/ && ($allinone==1))
+        and do {
+            chomp $html;
+            $html.=$replyw;
+            next;
+        };
+        /_NPROMPTW_/ && ($allinone==0) && do {
+            chomp $html;
+            $html.=$npromptw;
+            next;
+        };
+        s/_NROWS_/$nrows/;
+        /([^\`\\]+$)/ && do {$html.=$1};
+    }
         close HTML;
+
+    } else { #not-interactive
+    my $script=$query->param('script')||'';
+            (my $reply,my $nprompt, my $histref) =
+            &Web::Terminal::Dispatcher::send($sessionid,$ip,$dev,$interactive,$script);
+   my $nrows=scalar split("\n",$reply); 
+#    $nrows++;
+     ($reply=~/^\s*$/) && ($nrows=1);
+    if ($nrows>20) {$nrows=20;}
+    open(HTML,"<../data/runpugs2s.html");
+    while(<HTML>) {
+        s/_DEV_/$devc/;
+        s/_REL_/$relc/;
+        s/_NROWS_/$nrows/;
+        /_REPLYW_/ && do {
+            chomp $html;
+            $html.=$reply;
+            next;
+        };
+        /_SCRIPT_/ && do {
+            chomp $html;
+            $html.=$script;
+            next;
+        };
+        /([^\`\\]+$)/ && do {$html.=$1};
+    }
+    close HTML;
+    }
         &printhttpheader();
         print $html;
@@ -157 +292 @@
 ################### PRINTHTTPHEADER #######################
 sub printhttpheader {
-#   my $cookie;
      unless ($headerprinted) {
-
-#     if ($sessionid) {
-#         $cookie = $query->cookie( -name    => 'sessionid',
-#                           -"value" => $sessionid,
-#                           -path    => '/' );
-#       }
-
-$headerprinted=1;
-
-#        if ($sessionid) {
-#         print $query->header(-pragma=>'no-cache',
-#                      -cookie=>$cookie,
-#                      -charset=>$lang_charset,
-#                            );
-#       } else {
+        $headerprinted=1;
          print $query->header(-pragma=>'no-cache',
                       -charset=>$lang_charset,
                               );
-#       }
    }
    }

misc/runpugs/cgi-bin/runpugs3

@@ -23 +23 @@
 use Web::Terminal::Settings;
 use Web::Terminal::Dispatcher;
-$Web::Terminal::Settings::port=2058;
+#$Web::Terminal::Settings::port=2058;
 #push (@INC, "$wwwpath$htmlpath$project");
 
@@ -32 +32 @@
 use HTML::Entities;
 
-CGI::nph();   # Treat script as a non-parsed-header script
+#CGI::nph();   # Treat script as a non-parsed-header script
 $ENV{PATH} = ""; # no PATH should be needed
 $ENV{SAFE_MODE}=1;
@@ -204 +204 @@
             next; 
             };
+            s/_PROMPTW_/$npromptw/;
         /_ALL_/ && ($allinone==1)
         and do {

misc/runpugs/data/runpugs.html

@@ -7 +7 @@
 <link rel="stylesheet" type="text/css" href="/runpugs.css">
 <script language="JavaScript">
+var nchars=0;
+function getnchars() {
+return document.terminal.cmd.value.length
+}
 
+function getcursorpos() {
+        var obj=document.terminal.cmd;
+        if(document.selection) {
+        obj.focus();                    
+                var rng=document.selection.createRange();                       
+        rng.moveStart('character',-nchars);
+                return rng.text.length;
+        } else if(obj.selectionStart>=0) { // FireFox
+        var start = obj.selectionStart;
+        var end   = obj.selectionEnd;
+                if (start<=end) {
+                        return start;
+                } else {
+                        return end;
+           }
+        }
+}
+
+function catchbackspace(myfield,e)
+{
+var keycode;
+if (window.event) {keycode = window.event.keyCode;
+}
+else if (e) {
+keycode = e.which;
+}
+else return true;
+
+if (keycode == 13)
+{
+document.terminal.submit(); 
+return false;
+}
+if (keycode==38) {
+return false;
+}
+if ((keycode==8)||(keycode==37)||(keycode==46)) {
+    if ((getnchars()>nchars) && (getcursorpos() > nchars)) {
+        return true;
+    } else {
+        return false;
+    }
+} else {
+    return true;
+}
+}
+
+//  onkeypress="return catchbackspace(this,event)" onkeydown="return catchbackspace(this,event)"
 function submitenter(myfield,e)
 {
@@ -19 +71 @@
 return false;
 }
+else {
+if (keycode == 8) {
+if (getnchars()>nchars) {
+return true;
+} else {
+return false;
+}
+} else {
+return true;
+}
+}
+}
+
+function select_enter()
+{
+/* _SKIPC_
+document.terminal.cmdline.value=document.terminal.hist.options[document.terminal.hist.selectedIndex].value;
+document.terminal.hist.selectedIndex=0;
+document.terminal.cmdline.focus();
+_SKIPC_ */
+/* _SKIPT_
+document.terminal.cmd.value+=document.terminal.hist.options[document.terminal.hist.selectedIndex].value;
+document.terminal.hist.selectedIndex=0;
+document.terminal.cmd.focus();
+document.terminal.cmd.scrollTop =document.terminal.cmd.scrollHeight; 
+_SKIPT_ */
+}
+
+function select_enter_OFF(myfield,e)
+{
+var keycode;
+if (window.event) keycode = window.event.keyCode;
+else if (e) keycode = e.which;
+else return true;
+if (keycode == 13)
+{
+document.terminal.cmdline.value=document.terminal.hist.options[document.terminal.hist.selectedIndex].value;
+return false;
+}
 else
 return true;
@@ -27 +118 @@
 <div id="mainwindow">
 <h1>Run Perl 6 now -- in your browser!</h1>
-
-<form id="term" name="terminal" action="/cgi-bin/runpugs" method="POST">                  
-<input type="hidden" name="testing" value="_TESTING_">
+<form id="term" name="terminal" action="/cgi-perl/runpugs" method="POST">                  
+<input type="hidden" name="prompt" value="_PROMPTW_">
 <input type="hidden" name="sessionid" value="">
+<input type="hidden"    name="ia" value="1">
 <input type="hidden"    name="action" value="runpugs">
-<h2>Interactive Pugs Session</h2>
-<!-- _MOTD_ -->
 <input type="radio" id="rel" value="0" name="reldev" _REL_ ><label
 for="rel">Release version</label>&nbsp;&nbsp;
@@ -39 +128 @@
 for="dev">Development version</label>
 <div id="termwindow">
-<textarea id="cmd" name="cmd" rows="23" cols="80" wrap="virtual" onKeyPress="return submitenter(this,event)">
-pugs&gt;&nbsp;
+<select name="history" id="hist" onChange="select_enter()">
+<option value="">--- Recent commands ---</option>
+_HIST_
+</select>
+<br>
+<!-- _SKIPT_
+<textarea id="cmd" name="cmd" rows="20" cols="80" wrap="virtual" onkeypress="return catchbackspace(this,event)" onkeydown="return catchbackspace(this,event)">
+_ALL_
 </textarea>
+_SKIPT_ -->
+<!--_SKIPC_
+<textarea readonly id="output" name="output" rows="_NROWS_" cols="80" wrap="virtual">
+_REPLYW_
+</textarea>
+<br>
+<label for="cmdline"><span class="prompt">
+_NPROMPTW_
+</span>
+<input type="text" size="74" id="cmdline" name="cmdline" value=""
+onKeyPress="return submitenter(this,event)">
+</label>
+_SKIPC_ --> 
 </div>
 <input id="enter" type="submit" value="Submit">&nbsp;&nbsp;&nbsp;
@@ -47 +155 @@
 <script language="JavaScript">
 document.terminal.enter.style.display='none';
-document.terminal.cmd.focus();
-document.terminal.cmd.scrollTop =document.terminal.cmd.scrollHeight;
+document.terminal.cmdline.focus() // _SKIPT_
+document.terminal.cmd.focus() // _SKIPC_
+document.terminal.output.scrollTop =document.terminal.output.scrollHeight; // _SKIPT_
+document.terminal.cmd.scrollTop =document.terminal.cmd.scrollHeight; // _SKIPC_
+//if (document.terminal.output.rows==1) {
+//document.terminal.output.style.height="2ex";
+//}
+nchars=document.terminal.cmd.value.length;
 </script>
-<p>This live web terminal runs the <a href="http://www.pugscode.org">Pugs</a> interpreter for <a
-href="http://dev.perl.org/perl 6/">Perl 6</a>. Please <a
+<p>This live web terminal runs the <a href="http://www.pugscode.org">pugs</a> interpreter for <a
+href="http://dev.perl.org/perl 6/">Perl&nbsp;6</a>. Please <a
 href="http://feather.perl6.nl/~andara/runpugs/">read the documentation</a>.
 </p>

misc/runpugs/data/runpugs2.html

@@ -125 +125 @@
 </p>
    -->                            
-<form id="term" name="terminal" action="/cgi-bin/runpugs2" method="POST">                  
+   <!-- _MOTD_ -->
+<form id="term" name="terminal" action="/cgi-bin/runpugs" method="POST">                  
 <input type="hidden" name="prompt" value="_PROMPTW_">
 <input type="hidden" name="sessionid" value="">
@@ -134 +135 @@
 <input type="radio" id="dev" value="1" name="reldev" _DEV_ ><label
 for="dev">Development version</label>
-<!--
-<br><br>
-<span class="tabon">Interactive Pugs Session</span>
-&nbsp;&nbsp;<a class="taboff" href="/cgi-bin/runpugs2?ia=0">Run a Perl 6 Script</a>
--->
 <div id="termwindow">
 <select name="history" id="hist" onChange="select_enter()">