X-Git-Url: http://git.draconx.ca/gitweb/fvwmconf.git/blobdiff_plain/61a4f45722337bcd4ff40305963a9401b777f10d..f32812c246d791696b007798cb9e63fa3c695e9b:/scripts/mpdmenu.pl

diff --git a/scripts/mpdmenu.pl b/scripts/mpdmenu.pl
index 7a48c20..94ec8d5 100755
--- a/scripts/mpdmenu.pl
+++ b/scripts/mpdmenu.pl
@@ -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;