blob: 38517eb54fe125eca1060e67ac08bf079104ee3c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
use v6.d; use lib 'inst#local','file#lib'; use Config::TOML; use Vlc::Client; use Lirc::Client; use App::MediaControl; my $config = from-toml(file=>'config.toml'); my Vlc::Client $vlc .= new( password => $config<vlc><password>, base-uri => $config<vlc><base-uri>, ); my Lirc::Client $lirc .= new(); my App::MediaControl $app .= new( port => $config<server><port>, :$vlc, :$lirc, ); $app.start; say "listening"; react whenever signal(SIGINT) { $app.stop; exit; }
|