Changeset 14512 for misc/runpugs/bin

Timestamp:

10/24/06 18:30:58 (2 years ago)

Author:

andara

Message:

[runpugs]
-now runs latest release by default, latest devel as option
-runpugs2: devel version, now with non-interactive sessions (not live yet)

Location:

misc/runpugs/bin

Files:

• termdispatcher.pl (modified) (1 diff)
• termdispatcher2.pl (modified) (1 diff)

misc/runpugs/bin/termdispatcher.pl

@@ -15 +15 @@
 print "Sending msg $id: $cmd\n";
 my $ip="127.0.0.1";
-my $reply = &WebTerminal::Dispatcher::send($id,$ip,$prompt.$cmd);
+my $dev=1;
+my $reply = &WebTerminal::Dispatcher::send($id,$ip,$dev,$prompt.$cmd);
 print $reply;
 

misc/runpugs/bin/termdispatcher2.pl

@@ -12 +12 @@
 
 my $id=$ARGV[0]||-1;
-my $cmd=$ARGV[1] || 'my $a='.$id.';say "Hello, $a";';
+my $cmd=$ARGV[1] || 'print "hello\n";say "there";print 4';
+#my $cmd=$ARGV[1] || 'my $a='.$id.';'."\n".'say "Hello, $a";'."\n".'print 1;';
+#my $cmd=$ARGV[1] || 'my $a='.$id.';'.'say "Hello, $a";'.'print 1;';
 #my $cmd='my $a='.$id.';say "Hello, $a";';
 #my $prompt='pugs> ';
-my $prompt='Prelude> ';
+#my $prompt='Prelude> ';
 print "Sending msg $id: $cmd\n";
 my $ip="127.0.0.1";
-(my $reply,my $prompt,my $histref) = &Web::Terminal::Dispatcher::send($id,$ip,$prompt.$cmd);
+(my $reply,my $prompt,my $histref) =
+&Web::Terminal::Dispatcher::send($id,$ip,0,0,$cmd);
 print $reply;
 print "\nHistory\n";