Changeset 14885 for misc/runpugs/bin

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/bin

Files:

• termdispatcher2.pl (modified) (2 diffs)
• termserv2.pl (modified) (2 diffs)

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();