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'
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)."\"");
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)."\"");