use Audio::XMMSClient 0.03;
use Gtk2::Notify 0.05 -init,'xmms2-notifyd';
-use Getopt::Long;
-
use constant CONVERSION_SPECIFIERS => qw/bitrate date sample_format url id channels samplerate tracknr genre artist album title/;
##################################################
-my $format = '$artist - $title';
-
-GetOptions (
- "format=s" => \$format,
-);
-
+my $format;
my $xmms = Audio::XMMSClient->new('xmms2-notifyd');
my $notify = Gtk2::Notify->new('');
}
sub run {
+ $format = $_[0];
while (1) {
last if ($xmms->connect);
sleep 1
use warnings;
use App::XMMS2::Notifier;
+use Getopt::Long;
-App::XMMS2::Notifier->run
+my $format = '$artist - $title';
+GetOptions ("format=s" => \$format);
+App::XMMS2::Notifier::run($format)
__END__