#!/usr/bin/perl
use strict;

#Notification delay in ms
my $delay = 3000;

#Hash of card names that should not be used for output (only the key matter, any value will do)
my %vetoCardNames = ('HDA NVidia'=>1, 'AT2020USB+'=>1, 'Scarlett Solo USB'=>1, 'MG-XU'=>1);

my $notifyCmd = "notify-send -t $delay";

my $cardNumber = -1;
my $cardShortName = "";
my $cardLongName = "";
my $activeCard = -1;

my %cards = ();

sub logError{
    my $title = $_[0];
    my $error = $_[1];
    `$notifyCmd "$title" "$error"`;
    die("$title: $error\n");
}

sub showActiveCardPopup{
    my $message = "";
    foreach my $card (sort(keys(%cards))){
    my $name =$cards{$card};

    if ($card == $activeCard){
        $message .= "<b>$name</b>\n";
        print "Switched to: $name\n";
    }
    else {
        $message .= "$name\n";
    }
    }
    if ($message eq ""){
    $message = "No soundcards";
    }
    `$notifyCmd "Active Soundcard Changed" "$message"`;
}

sub processData {
    if (defined($vetoCardNames{$cardShortName})){ return; }
    $cards{$cardNumber} = "$cardShortName";
}

my @cardData = split(/\n/, `pactl list sinks`);
foreach my $line (@cardData){
    if ($line =~ /^Sink \#(\d+)/){
    my $number = $1;
    if ($cardNumber != -1){
        processData();
    }
    $cardNumber = $number;
    $cardShortName = "";
    $cardLongName = "";
    }
    elsif ($line =~ /alsa.card_name\s*=\s*"(.*)"/){
    $cardShortName = $1;
    }
    elsif ($line =~ /Description:\s*([^\n]+)/){
    $cardLongName = $1;
    }
    elsif ($line =~ /State:\s+RUNNING/){
    $activeCard = int($cardNumber);
    }
}
if ($cardNumber != -1){
    processData();
}

if (scalar(keys(%cards))==0){
    logError("No Soundcards Found", "Unable to find any soundcards!\n\nYou may have added them all to \%vetoCardNames");
}


if ($activeCard == -1){
     logError("Active Soundcard Not Found", "Unable to change active card as it could not be found.\n\n<b>Perhaps no applications are currently playing?</b>");
}

#Find new active card
my @cardList = sort(keys(%cards));
my $newCard = 0;
for (my $i = 0; $i<scalar(@cardList)-1; $i++) {
    if ($activeCard==$cardList[$i]){
    $newCard=$i+1;
    }
}
$newCard = int($cardList[$newCard]);

#Switch to new active card
my @appsData = split(/\n/, `pactl list short sink-inputs`);
foreach my $appLine (@appsData){
    if ($appLine =~ /^(\d+)/){
    my $id = int($1);
    `pactl move-sink-input $id $newCard`;
    }
}
`pactl set-default-sink $newCard`;
$activeCard = $newCard;

showActiveCardPopup();