rtsp-server.pl

#!/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(
);


$srv->add_source_update_callback(\&add_source_update_callback);

$srv->remove_source_update_callback(\&remove_source_update_callback);


# listen and accept incoming connections
$srv->listen;

# main loop
my $cv = AnyEvent->condvar;

# end if interrupt
$SIG{INT} = sub {
    $cv->send;
};

$cv->recv;

sub add_source_update_callback{
    my ($path) = @_;
    print("Add mount point " . $path . "\n");
    return;
}

sub remove_source_update_callback{
    my ($path) = @_;
    print("Remove mount point " . $path . "\n");
    return;
}