example/lib/Service/LiveStreamingRecorder.pm lib/Kamaitachi/Service/Recorder.pm @@ -10,10 +10,18 @@ use Kamaitachi; my $kamaitachi = Kamaitachi->new; +# setup record output directory +use Service::LiveStreamingRecorder; + +use Path::Class qw/dir/; +my $dir = dir($FindBin::Bin, 'streams'); +$dir->mkpath unless -d $dir; + $kamaitachi->register_services( 'rpc/echo' => 'Service::Echo', 'rpc/chat' => 'Service::Chat', 'stream/live' => 'Service::LiveStreaming', + 'stream/rec' => Service::LiveStreamingRecorder->new( record_output_dir => $dir ), ); $kamaitachi->run; example/server.pl be0ff9e549a2ce04113c18e278c38a41bedb937f Daisuke Murase typester@cpan.org http://github.com/typester/kamaitachi/commit/6fb84da847ca512b1d37fbf44890c44e6e60c4f9 6fb84da847ca512b1d37fbf44890c44e6e60c4f9 2008-12-02T05:16:28-08:00 2008-12-02T05:16:28-08:00 added recorder service 6a05e752e322a008982f993c9ca431e876c01129 Daisuke Murase typester@cpan.org