Changeset 14891 for misc/runpugs

Show
Ignore:
Timestamp:
12/14/06 16:27:59 (2 years ago)
Author:
andara
Message:

[runpugs]
First sketch for preloading Pugs sessions.

Location:
misc/runpugs
Files:
4 added
3 modified

Legend:

Unmodified
Added
Removed

  • misc/runpugs/bin/termdispatcher2.pl

    r14885 r14891  
    2121my $ip="127.0.0.1"; 
    2222(my $reply,my $prompt,my $histref) = 
    23 &Web::Terminal::Dispatcher::send($id,$ip,0,1,$cmd); 
     23&Web::Terminal::Dispatcher::send($id,$ip,1,1,$cmd); 
    2424print $reply; 
    2525print "\nHistory\n"; 

  • misc/runpugs/lib/Web/Terminal/Server/Session.pm

    r14885 r14891  
    106106    $pugs->errmode(sub {kill 9,$obj->{'pid'}; }); 
    107107    #$pugs->errmode('die'); 
    108     print "readlines()\n" if $v; 
     108#    print "readlines()\n" if $v; 
    109109        while ($i<$Web::Terminal::Settings::nlines) { 
    110110    my $char=''; 
    … …  
    112112    my $j=0; 
    113113    while ($char ne "\n" and ($j<$Web::Terminal::Settings::nchars)) { 
    114     print "getting...\n" if $v; 
     114#    print "getting...\n" if $v; 
    115115    $char=$pugs->get(); 
    116     print "got $j>$char<\n" if $v; 
     116#    print "got $j>$char<\n" if $v; 
    117117    $j++; 
    118118    last if $char eq ''; 
    … …  
    241241        $pty = new IO::Pty 
    242242          or do { 
     243                die $!; 
    243244          return ( -1, 0 ); 
    244245      }; 
    245       #die $!; 
     246      # 
    246247    binmode $pty, ":utf8";  
    247248        ## Execute the program in another process. 
    … …  
    274275                ## Execute requested program. 
    275276                exec @cmd 
    276                   or  ($error=1);#die "problem executing $cmd[0]\n"; 
     277                        or die "problem executing $cmd[0]\n"; 
     278#                 or  ($error=1); 
    277279          } 
    278280        }    # end child process 

  • misc/runpugs/lib/Web/Terminal/Settings.pm

    r14885 r14891  
    2020quit_pattern 
    2121quit_message 
     22reset_command 
    2223filter 
    2324filter_pattern 
    … …  
    2526host 
    2627nsessions 
     28npreloaded_sessions 
    2729nsessions_ip 
    2830timeout_idle 
    … …  
    5355our @commands=( 
    5456'/usr/bin/nice /home/andara/pugs-rel/pugs -I/home/andara/pugs-rel/blib6/lib', 
    55 '/usr/bin/nice /usr/bin/pugs' 
     57'/usr/bin/pugs' #/usr/bin/nice  
    5658); 
    5759#Dev 
    … …  
    6567our $init_pattern='(\>\s+)'; 
    6668our $quit_command=':q'; 
     69our $reset_command=':r'; 
    6770our $server='termserv2.pl'; 
    6871 
    … …  
    7376our $tmp_path='/home/andara/apache/data/tmp/'; 
    7477our $log_path='/home/andara/apache/data/log/'; 
    75 our $daemon=1; 
     78our $daemon=0; 
    7679our $port=2057; 
    7780our $host='localhost'; 
    … …  
    7982our $nsessions=50; 
    8083our $nsessions_ip=10; 
     84our $npreloaded_sessions=3; 
    8185 
    8286our $timeout_idle=600; # was 600