Changeset 23377 for trunk/Nebulous/scripts/ptest.pl

Timestamp:

Mar 17, 2009, 4:53:25 PM (17 years ago)

Author:

jhoblitt

Message:

recovered from backup on panstarrs

File:

• trunk/Nebulous/scripts/ptest.pl (modified) (4 diffs)

trunk/Nebulous/scripts/ptest.pl

@@ -53 +53 @@
 
 while ($kids) {
-    foreach my $child ($s->can_read(0)) {
-        my $string = do { local $/; <$child>};
-        my @events = split(/\n/, $string) if $string;
-        print join("\n", @events), "\n" if scalar @events;
-    }
+#    foreach my $child ($s->can_read(0)) {
+#        my $string = do { local $/; <$child>};
+#        my @events = split(/\n/, $string) if $string;
+#        print join("\n", @events), "\n" if scalar @events;
+#    }
 }
 
@@ -64 +64 @@
     my ($sock, $id) = @_;
 
-#    unless ($print_stdout) {
-#        my $filename = hostname() . "." . $$ . ".txt";
-#        open my $fh, ">$filename" or die "can't open $filename: $!";
-#
-#        open STDOUT, ">&", $fh or die "can't reopen STDOUT: $!";
-#        autoflush STDOUT 1;
-#    }
+    unless ($print_stdout) {
+        my $filename = hostname() . "." . $$ . ".txt";
+        open my $fh, ">$filename" or die "can't open $filename: $!";
+
+        open STDOUT, ">&", $fh or die "can't reopen STDOUT: $!";
+        autoflush STDOUT 1;
+    }
 
 #    select $sock;
@@ -81 +81 @@
 #    proxy   => 'http://localhost:80/nebulous'
         proxy   => 'http://alala:80/nebulous',
-        sock    => $sock,
+#        sock    => \*STDOUT,
     );
 
@@ -123 +123 @@
 use base qw( Nebulous::Client );
 
-sub new
-{
-    my $class = shift;
-    my %p = @_;
-
-    my $sock = delete $p{sock};
-    my $self = $class->SUPER::new(%p);
-    $self->{sock} = $sock;
-
-    return $self;
-}
+#sub new
+#{
+#    my $class = shift;
+#    my %p = @_;
+#
+#    my $sock = delete $p{sock};
+#    my $self = $class->SUPER::new(%p);
+#    $self->{sock} = $sock;
+#
+#    return $self;
+#}
 
 BEGIN {