Changeset 15409 for misc/runpugs

Timestamp:

03/02/07 17:37:07 (21 months ago)

Author:

andara

Message:

[runpugs] -cleaning up obsolete files

Location:

misc/runpugs

Files:

• bin/multi_client_model.pl (modified) (2 diffs)
• bin/termserv4.pl (modified) (1 diff)
• cgi-bin/runpugs2 (deleted)
• cgi-bin/runpugs3 (deleted)
• cgi-perl/test.pl (deleted)
• data/runpugs2.html (deleted)
• data/runpugs2s.html (deleted)
• data/runpugs3.html (deleted)
• data/runpugs_async.html (deleted)
• data/runpugs_async3.html (deleted)
• lib/Web/Terminal/Dispatcher.pm (modified) (2 diffs)
• lib/Web/Terminal/Dispatcher3.pm (deleted)
• lib/Web/Terminal/Server.pm (modified) (4 diffs)
• lib/startup.pl (modified) (1 diff)

misc/runpugs/bin/multi_client_model.pl

@@ -10 +10 @@
 use lib '../lib/';
 use Web::Terminal::Settings;
-use Web::Terminal::Dispatcher3;
-#$Web::Terminal::Settings::port=2058;
+use Web::Terminal::Dispatcher;
+$Web::Terminal::Settings::port=2059;
 my $v=0;
 my $hist=0; # don't display command history
@@ -131 +131 @@
 
 (my $reply,my $prompt,my $histref) =
-&Web::Terminal::Dispatcher3::send($id,$ip,$app,1,$cmd);
+&Web::Terminal::Dispatcher::send($id,$ip,$app,1,$cmd);
 if($Web::Terminal::Settings::test) {
 $reply=~s/^.*?called\ with\ //;

misc/runpugs/bin/termserv4.pl

@@ -10 +10 @@
 
 use lib '../lib/';
-use Web::Terminal::Server4;
+use Web::Terminal::Server;
 use  Web::Terminal::Settings;
-#$Web::Terminal::Settings::port=2058;
+$Web::Terminal::Settings::port=2059;
 $ENV{PUGS_SAFEMODE}=1;
 my $v=1-$Web::Terminal::Settings::daemon;
 print "Starting server\n" if $v;
-&Web::Terminal::Server4::run();
+&Web::Terminal::Server::run();
 

misc/runpugs/lib/Web/Terminal/Dispatcher.pm

@@ -1 @@
-package Web::Terminal::Dispatcher3;
+package Web::Terminal::Dispatcher;
 use vars qw( $VERSION );
-$VERSION = '0.3.0';
+$VERSION = '0.4.0';
 use strict;
 use utf8;
@@ -9 +9 @@
 # based on testmsg.pl from "Advanced Perl Programming"
 #
-use lib '.', '../..';    #�o keep EPIC happy
+use lib '.', '../..';    #to keep EPIC happy
 use Web::Terminal::Settings;
 use Web::Terminal::Msg;

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

@@ -1 @@
-package Web::Terminal::Server4;
+package Web::Terminal::Server;
 
 =pod
@@ -25 +25 @@
 use YAML::Syck;
 use Proc::Daemon;
-use lib '.','../..'; #�o keep EPIC happy
+use lib '.','../..'; #to keep EPIC happy
 use Web::Terminal::Settings;
 use Web::Terminal::Msg;
@@ -659 +659 @@
                          print "\tYes, initiating a create_session() call...\n" if $v;
                         $n_new_sessions[$app]--;
-                        use Web::Terminal::Dispatcher3;
+                        use Web::Terminal::Dispatcher;
                         ( my $ret, my $p, my $h ) =
-                          Web::Terminal::Dispatcher3::send( 0, '127.0.0.1', 1, 1,
+                          Web::Terminal::Dispatcher::send( 0, '127.0.0.1', 1, 1,
                                                                           'Web::Terminal::Server::Session.create' );
                         print "create_session() call returned $ret:",
@@ -678 +678 @@
 sub call_clean_up {
                 
-                        use Web::Terminal::Dispatcher3;
+                        use Web::Terminal::Dispatcher;
                         ( my $ret, my $p, my $h ) =
-                          Web::Terminal::Dispatcher3::send( 0, '127.0.0.1', 1, 1,
+                          Web::Terminal::Dispatcher::send( 0, '127.0.0.1', 1, 1,
                                                                           'Web::Terminal::Server::Sessions.clean-up' );
                         print "call_clean_up() call returned <$ret>:",

misc/runpugs/lib/startup.pl

@@ -13 +13 @@
 
 use Web::Terminal::Settings ( );
-#use Web::Terminal::Dispatcher ( );
-use Web::Terminal::Dispatcher3 ( );
+use Web::Terminal::Dispatcher ( );
 #use Web::Terminal::Msg ( );
 #use YAML::Syck ( );