[ViewVC] Diff of: cvs/Coro/myhttpd/httpd.pl

Comparing Coro/myhttpd/httpd.pl (file contents):
Revision 1.39 by root, Sun Sep 2 12:23:04 2001 UTC vs.
Revision 1.40 by root, Mon Sep 3 00:06:06 2001 UTC

          schedule;
       }
    }
 }
+sub listen_on {
+   my $listen = $_[0];
+   push @listen_sockets, $listen;
+   # the "main thread"
+   async {
+      slog 1, "accepting connections";
+      while () {
+         $connections->down;
+         push @newcons, [$listen->accept];
+         #slog 3, "accepted @$connections ".scalar(@pool);
+         if (@pool) {
+            (pop @pool)->ready;
+         } else {
+            async \&handler;
+         }
+      }
+   };
+}
 my $http_port = new Coro::Socket
         LocalAddr => $SERVER_HOST,
         LocalPort => $SERVER_PORT,
         ReuseAddr => 1,
         Listen => 50,
    or die "unable to start server";
-push @listen_sockets, $http_port;
+listen_on $http_port;
+my $http_port = new Coro::Socket
+        LocalAddr => $SERVER_HOST,
+        LocalPort => $SERVER_PORT2,
+        ReuseAddr => 1,
+        Listen => 50,
+   or die "unable to start server";
+listen_on $http_port;
 our $NOW;
 our $HTTP_NOW;
 Event->timer(interval => 1, hard => 1, cb => sub {
    $NOW = time;
    $HTTP_NOW = time2str $NOW;
 })->now;
-# the "main thread"
-async {
-   slog 1, "accepting connections";
-   while () {
-      $connections->down;
-      push @newcons, [$http_port->accept];
-      #slog 3, "accepted @$connections ".scalar(@pool);
-      if (@pool) {
-         (pop @pool)->ready;
-      } else {
-         async \&handler;
-      }
-   }
-};
 package conn;
 use Socket;
 use HTTP::Date;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines