Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
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
$srv->listen;
# main loop
my $cv = AnyEvent->condvar;
# end if interrupt
$SIG{INT} = sub {
$cv->send;
};
$cv->recv;
Something went wrong with that request. Please try again.