Changeset 8679 for lang/perl/Punc

Timestamp:

04/02/08 23:29:42 (8 months ago)

Author:

mizzy

Message:

lang/perl/Punc: puncmasterd 実装開始。自己署名証明書作成まで。

Location:

lang/perl/Punc/branches/ssl

Files:

• bin/punc (modified) (1 diff)
• bin/puncd (modified) (1 diff)
• bin/puncmasterd (added)
• etc (added)
• lib/Punc/Daemon.pm (added)
• lib/Punc/Master (added)
• lib/Punc/Master/Daemon.pm (added)
• lib/Punc/Slave/Daemon.pm (modified) (1 diff)

lang/perl/Punc/branches/ssl/bin/punc

@@ -3 +3 @@
 use strict;
 use warnings;
+use FindBin;
+use File::Spec;
+use lib File::Spec->catdir("$FindBin::Bin/..", 'lib');
 use Punc::Client;
 use JSON;

lang/perl/Punc/branches/ssl/bin/puncd

@@ -3 +3 @@
 use strict;
 use warnings;
+use FindBin;
+use File::Spec;
+use lib File::Spec->catdir("$FindBin::Bin/..", 'lib');
+use Punc::Slave::Daemon;
+use Getopt::Long;
 
-use Punc::Slave::Daemon;
+my $port = 7080;
 
-Punc::Slave::Daemon->start_daemon;
+GetOptions(
+    '--port=s' => $port,
+);
 
+my $daemon = Punc::Slave::Daemon->new({ port => $port });
+$daemon->run;
+
+
+

lang/perl/Punc/branches/ssl/lib/Punc/Slave/Daemon.pm

@@ -4 +4 @@
 use warnings;
 
-use HTTP::Daemon;
-use HTTP::Status;
-use JSON;
-use UNIVERSAL::require;
+use base qw( Punc::Daemon );
 
-sub start_daemon {
-    my $d = HTTP::Daemon->new( LocalPort => 7080, ReuseAddr => 1 ) || die;
-
-    print "Please contact me at: <URL:", $d->url, ">\n";
-    while ( my $c = $d->accept ) {
-        while ( my $r = $c->get_request ) {
-            my $module = $r->url->path;
-            $module =~ s!^/!!;
-            my $content = JSON::from_json($r->content);
-            my $result  = dispatch_request($module, $content->{method}, $content->{params});
-
-            my $json = to_json({
-                result => $result,
-                error  => undef,
-            });
-
-            my $response = HTTP::Response->new;
-            $response->content($json);
-            $c->send_response($response);
-        }
-        $c->close;
-        undef($c);
-    }
-}
-
-sub dispatch_request {
-    my ( $module, $method, $args ) = @_;
+sub handle_request {
+    my ( $self, $module, $method, $args ) = @_;
 
     $module = ucfirst $module;