Skip to content
Find file
b3d3469 Jul 26, 2010
executable file 26 lines (18 sloc) 366 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use lib 'lib';
use AnyEvent;
use RTSP::Server;
# you may pass your own options in here or via command-line
my $srv = RTSP::Server->new_with_options(
# listen and accept incoming connections
# main loop
my $cv = AnyEvent->condvar;
# end if interrupt
$SIG{INT} = sub {
Something went wrong with that request. Please try again.