[haver-commits] r602 - in trunk: dev-tools/vim-automod docs main/server/lib/Haver/Server

[haver]

Author: dylan
Date: 2005-01-22 23:31:56 -0500 (Sat, 22 Jan 2005)
New Revision: 602

Modified:
   trunk/dev-tools/vim-automod/template.pm
   trunk/docs/perl-boilerplate
   trunk/main/server/lib/Haver/Server/Listener.pm
Log:
more fixups to the vim-automod template and the boilerplate.


Modified: trunk/dev-tools/vim-automod/template.pm
===================================================================
--- trunk/dev-tools/vim-automod/template.pm     2005-01-23 04:24:40 UTC (rev 
601)
+++ trunk/dev-tools/vim-automod/template.pm     2005-01-23 04:31:56 UTC (rev 
602)
@@ -50,9 +50,14 @@
 
 This class implements the following methods:
 
+=head1 method1(Z<>)
+
+...
+
 =head1 BUGS
 
-Describe how to report bugs, and list any known bugs.
+None known. Bug reports are welcome. Please use our bug tracker at
+L<http://gna.org/bugs/?func=additem&group=haver>.
 
 =head1 AUTHOR
 

Modified: trunk/docs/perl-boilerplate
===================================================================
--- trunk/docs/perl-boilerplate 2005-01-23 04:24:40 UTC (rev 601)
+++ trunk/docs/perl-boilerplate 2005-01-23 04:31:56 UTC (rev 602)
@@ -23,4 +23,3 @@
 
 
 1;
-

Modified: trunk/main/server/lib/Haver/Server/Listener.pm
===================================================================
--- trunk/main/server/lib/Haver/Server/Listener.pm      2005-01-23 04:24:40 UTC 
(rev 601)
+++ trunk/main/server/lib/Haver/Server/Listener.pm      2005-01-23 04:31:56 UTC 
(rev 602)
@@ -29,6 +29,7 @@
 );
 
 use Haver::Preprocessor;
+use Haver::Server::Speaker;
 
 sub create {
        my $class = shift;
@@ -60,14 +61,6 @@
        $heap->{info}   = {};
        $heap->{kids}   = {};
        $kernel->alias_set('Listener');
-
-       my $ifaces = $heap->{interfaces};
-       return unless $ifaces;
-
-       foreach my $i (@$ifaces) {
-               $kernel->yield('listen', $i);
-       }
-       
 }
 
 sub _stop {
@@ -87,15 +80,16 @@
        }
 }
 
+# iface = {
+#    host   => string # to $bindto . ':' . $port or $port if $bindto is undef.
+#    bindto => domain_name  | IPv4_addr
+#    port   => service_name | port_number
+# }
+
 sub listen {
        my ($kernel, $heap, $iface) = @_[KERNEL, HEAP, ARG0, ARG1];
 
-       my $s = '';
-       if ($iface->{ssl}) {
-               $s = ' (ssl!)';
-       }
-               
-       $kernel->post('Logger', 'note', "Listening on port $iface->{port}.$s");
+       $kernel->post('Logger', 'note', "Listening on port $iface->{port}.");
 
        my $wheel = POE::Wheel::SocketFactory->new(
                BindPort     => $iface->{port},
@@ -107,21 +101,16 @@
        $heap->{info}{$wheel->ID}   = $iface;
 }
 
+sub unlisten {
+    my ($kernel, $heap, $iface
+}
 
-
 sub socket_birth {
     my ($kernel, $heap, $socket, $address, $port, $wid) =
        @_[KERNEL, HEAP, ARG0, ARG1, ARG2, ARG3];
        my $info = $heap->{info}{$wid};
-       my $wheel = $heap->{wheels}{$wid};
-
        
-       if ($info->{ssl}) {
-               # SSL is postponed until POE::Wrapper::SSL is written.
-               croak "SSL not available";
-       }
-
-       create Haver::Server::Avatar {
+       create Haver::Server::Speaker {
                sock    => $socket,
                address => Socket::inet_ntoa($address),
                port    => $port,