use strict;
use Getopt::Long;
-use IO::Socket;
+use IO::Socket::INET6;
use constant {
MPD_MJR_MIN => 0,
$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'
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);
cmd("DestroyFunc MakeMenuMPDArt_$i");
cmd("AddToFunc MakeMenuMPDArt_$i
+ I DestroyMenu MenuMPDArt_$i
- + I -PipeRead \"exec $FVWM/mpdmenu.pl "
+ + I -PipeRead \"exec $FVWM/scripts/mpdmenu.pl "
."--menu MenuMPDArt_$i "
."--album ".shellify($key, 1)." "
."--artist ".shellify($artist, 1)."\"");
$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);
}
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;
cmd("DestroyFunc MakeMenuMPDTitle");
cmd("AddToFunc MakeMenuMPDTitle
+ I DestroyMenu MenuMPDTitle
- + I -PipeRead \"exec $FVWM/mpdmenu.pl "
+ + I -PipeRead \"exec $FVWM/scripts/mpdmenu.pl "
."--menu MenuMPDTitle "
."--title ".shellify($entry{Title}, 1)."\"");
cmd("DestroyFunc MakeMenuMPDAlbum");
cmd("AddToFunc MakeMenuMPDAlbum
+ I DestroyMenu MenuMPDAlbum
- + I -PipeRead \"exec $FVWM/mpdmenu.pl "
+ + I -PipeRead \"exec $FVWM/scripts/mpdmenu.pl "
."--menu MenuMPDAlbum "
."--album ".shellify($entry{Album}, 1)." "
."--artist ".shellify($entry{Artist}, 1)."\"");
cmd("DestroyFunc MakeMenuMPDArtist");
cmd("AddToFunc MakeMenuMPDArtist
+ I DestroyMenu MenuMPDArtist
- + I -PipeRead \"exec $FVWM/mpdmenu.pl "
+ + I -PipeRead \"exec $FVWM/scripts/mpdmenu.pl "
."--menu MenuMPDArtist "
."--artist ".shellify($entry{Artist}, 1)."\"");