Changeset 14849 for misc/runpugs

Timestamp:

11/28/06 11:12:32 (2 years ago)

Author:

andara

Message:

[runpugs]
Proper closing of slave filehandles. Should stop running out of them.

Location:

misc/runpugs/lib/Web/Terminal

Files:

• Server.pm (modified) (1 diff)
• Server/Session.pm (modified) (1 diff)
• Settings.pm (modified) (1 diff)

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

@@ -209 +209 @@
 sub killterm {
     my $id=shift;
-    my $pid= $terminals{$id}->{pid};
+#    my $pid= $terminals{$id}->{pid};
     delete $terminals{$id};
-    if ($pid) {
-        kill 9,$pid;
-    }
+#    if ($pid) {
+#        kill 9,$pid;
+#    }
 }
 

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

@@ -83 +83 @@
 }
 
+sub DESTROY {
+    my $obj = shift;
+    $obj->{'pty'}->close();
+     $obj->{'pty'}->close_slave();
+      $obj->{'pugs'}->close();
+      if($obj->{'pid'}){
+          kill 9,$obj->{'pid'};
+      }
+}
+
 sub readlines {
         my $obj = shift;

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

@@ -80 +80 @@
 our $timeout_idle=600;
 our $timeout_call=10;
-our $check_interval=300;
+our $check_interval=60;
 our $nlines=250;
 our $nchars=250;