kill running vlc if configured with one-instance by default (it does not use DVB options from new command line)

1 files changed, 5 insertions, 0 deletions

diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb
index 84d7f077e..eb5d4909c 100755
--- a/perl-install/standalone/drakdvb
+++ b/perl-install/standalone/drakdvb
@@ -127,6 +127,11 @@ sub launch_tv() {
     my $channel = get_selected_channel() or return;
     if (whereis_binary("vlc")) {
         my $info = get_channel_info($channel) or return;
+        my %vlc_config = read_gnomekderc("$ENV{HOME}/.config/vlc/vlcrc", "main");
+        if ($vlc_config{'one-instance'}) {
+            # changing dvb options does not work with --one-instance, kill running vlc
+            system("killall vlc");
+        }
         system("vlc dvb:// --dvb-frequency=$info->{frequency} --dvb-adapter=0 --dvb-bandwidth=$info->{bandwidth} --program=$info->{serviceid} &");
     } else {
         system('mplayer "dvb://' . $channel . '"&');