Changeset 14299
- Timestamp:
- 10/12/06 23:26:49 (2 years ago)
- svk:copy_cache_prev:
- 21165
- Location:
- misc/runpugs
- Files:
-
- 2 added
- 5 modified
-
.htaccess (added)
-
README (modified) (2 diffs)
-
TODO (modified) (1 diff)
-
data/runpugs.html (modified) (1 diff)
-
htdocs/index.html (added)
-
htdocs/runpugs.css (modified) (2 diffs)
-
lib/WebTerminal/Server.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
misc/runpugs/README
r14202 r14299 1 1 ============================================================================== 2 2006/10/1 0Release of version 0.1.0 of runpugs/WebTerminal2 2006/10/12 Release of version 0.1.0 of runpugs/WebTerminal 3 3 ============================================================================== 4 5 4 6 5 NAME … … 20 19 (data/runpugs.html). The latter calls the runpugs.cc stylesheet from 21 20 htdocs/runpugs.css 22 -a server which handles the interactive pugs sessions and communicates with23 the cgi script. The pugs sessions stay alive for some time (currently 30') if21 -a server (bin/termserv.pl) which handles the interactive pugs sessions and communicates with 22 the cgi script. The pugs sessions stay alive for some time (currently 10') if 24 23 left inactive. 25 24 -
misc/runpugs/TODO
r14202 r14299 1 runpugs TODO1 runpugs version 0.1.0 TODO: 2 2 3 2006/10/10 4 -add command history 5 -make scrollbar jump to end of textarea 6 -refactor to make more generic 7 -let send() return reply and prompt separately 8 -add POD 9 -use async JavaScript for front-end 3 2006/10/12 4 * Unicode: hack Net::Telnet so it handles Unicode 5 * Refactor to make more generic 6 -prompt handling should be in cgi-bin/runpugs, not in Dispatcher.pm 7 -Various configuration variables should be in a Config.pm module, 8 and be overriden from the scripts. 9 -let Dispatcher::send() return reply and prompt separately 10 * add POD 11 * Add proper copyright & licensing info, in particular to Msg.pm 12 * use async JavaScript for front-end? cfr. tryruby.hobix.com -
misc/runpugs/data/runpugs.html
r14266 r14299 22 22 return true; 23 23 } 24 25 24 </script> 26 27 25 </head> 28 26 <body> 29 <!--30 <body onLoad="closing=true" onUnload="if (closing){alert(42);31 window.open('feather.perl6.nl:8080/cgi-bin/runpugs?action=runpugs&sessionid='+document.terminal.sessionid.value+'&testing=1&cmd=pugs%3E%20%3Aq','newwin');}">32 -->33 27 <div id="mainwindow"> 34 28 <h1>Run Perl6 now -- in your browser!</h1> 35 <p class="warning">Thank you for trying runpugs, a web terminal for pugs.<br>36 * This is a test run, it might die unexpectedly!<br> 37 * pugs runs in safe mode<br> 38 * Unicode is not supported 29 <p>This live web terminal runs the latest developement snapshot of 30 the <a href="http://www.pugscode.org">pugs</a> interpreter for <a 31 href="http://dev.perl.org/perl6/">Perl6</a>. For more information, read <a 32 href="http://feather.perl6.nl/~andara/runpugs/">this</a>. 39 33 </p> 40 34 <form style="text-align: center" id="term" name="terminal" action="/cgi-bin/runpugs" method="POST"> -
misc/runpugs/htdocs/runpugs.css
r14266 r14299 1 BODY {width:100%;margin-left:10%;margin-right:10%; margin-top: 10px; font-family: Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: 1 2pt; line-height: normal; background-color:#FFFFFF;}1 BODY {width:100%;margin-left:10%;margin-right:10%; margin-top: 10px; font-family: Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: 11pt; line-height: normal; background-color:#FFFFFF;} 2 2 H1 {font-size: 24pt; 3 3 font-family: Georgia, Serif, Times; … … 9 9 H2 { font-weight: bold; font-size: 12pt} 10 10 LABEL {font-weight: bold; } 11 EM {font-weight: bold; 12 font-style: normal; 13 text-decoration:none;} 14 TT {color: #204a87; 15 font-weight: bold; 16 } 11 17 .copyright {font-size: 9pt} 12 18 .warning { -
misc/runpugs/lib/WebTerminal/Server.pm
r14271 r14299 76 76 ( my $id, my $ip, my $cmd ) = split( "\n", $msg, 3 ); 77 77 $cmd=pack("U0C*", unpack("C*",$cmd)); 78 print "$id($ip): ",$cmd,"\n";78 # print "$id($ip): ",$cmd,"\n"; 79 79 my $lines = &termhandler( $id, $ip, $cmd ); 80 80 $conn->send_now("$id\n$lines"); … … 93 93 my $port=shift; 94 94 $SIG{USR1}=\&timeout; 95 #Proc::Daemon::Init;95 Proc::Daemon::Init; 96 96 # fork/exec by the book: 97 97 use Errno qw(EAGAIN);
