X-Git-Url: https://git.draconx.ca/gitweb/mpdhacks.git/blobdiff_plain/ff41638080573c4acb0657b2f5916dd212be5c51..fa6f5f1c2997f0b6e69c435285d19b5b2ec173ff:/mpdmenu.pl

diff --git a/mpdmenu.pl b/mpdmenu.pl
index 23569d5..94ec8d5 100755
--- a/mpdmenu.pl
+++ b/mpdmenu.pl
@@ -3,7 +3,7 @@
 use strict;
 
 use Getopt::Long;
-use IO::Socket;
+use IO::Socket::INET6;
 
 use constant {
 	MPD_MJR_MIN => 0,
@@ -46,7 +46,7 @@ $artist = decode_utf8($artist) if defined($artist);
 $title  = decode_utf8($title)  if defined($title);;
 
 # Connect to MPD.
-my $sock = new IO::Socket::INET(
+my $sock = new IO::Socket::INET6(
 	PeerAddr => $host,
 	PeerPort => $port,
 	Proto => 'tcp'
@@ -138,11 +138,11 @@ if (defined $album) {
 		my $key      = $_;
 		my $a_album  = sanitise($key);
 
-		open THUMB, "-|", "$FVWM/scripts/thumbnail.sh",
+		open THUMB, "-|", "$FVWM/scripts/thumbnail.zsh",
 		                         "--small", "--music", $albums{$key};
 		my $thumb = <THUMB>;
 		close THUMB;
-		die("Incompetent use of thumbnail.sh") if ($?);
+		die("Incompetent use of thumbnail.zsh") if ($?);
 
 		$thumb =~ s/\n//sg;
 		$thumb = "%$thumb%" if (-f $thumb);
@@ -234,11 +234,11 @@ if (defined $album) {
 		$t_artist = sanitise($t_artist);
 		$t_title  = sanitise($t_title);
 
-		open THUMB, "-|", "$FVWM/scripts/thumbnail.sh",
+		open THUMB, "-|", "$FVWM/scripts/thumbnail.zsh",
 		                         "--small", "--music", $t_file;
 		my $thumb = <THUMB>;
 		close(THUMB);
-		die("Incompetent use of thumbnail.sh") if ($?);
+		die("Incompetent use of thumbnail.zsh") if ($?);
 
 		$thumb =~ s/\n//sg;
 		$thumb = "%$thumb%" if (-f $thumb);
@@ -276,12 +276,12 @@ if (defined $album) {
 	}
 	die("Failed data query\n") unless (keys(%entry) > 0);
 
-	open THUMB, "-|", "$FVWM/scripts/thumbnail.sh",
+	open THUMB, "-|", "$FVWM/scripts/thumbnail.zsh",
 	                         "--image", "--music",  $entry{file};
 	my $thumb = <THUMB>;
 	my $scan  = <THUMB>;
 	close(THUMB);
-	die("Incompetent use of thumbnail.sh") if ($?);
+	die("Incompetent use of thumbnail.zsh") if ($?);
 
 	$thumb =~ s/\n//sg;
 	$scan  =~ s/\n//sg;