/usr/share/gmusicbrowser/gmusicbrowser_dbus.pm is in gmusicbrowser 1.1.15~ds0-0ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 | # Copyright (C) 2005-2009 Quentin Sculo <squentin@free.fr>
#
# This file is part of Gmusicbrowser.
# Gmusicbrowser is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 3, as
# published by the Free Software Foundation
use strict;
use warnings;
package GMB::DBus::Object;
use base 'Net::DBus::Object';
use Net::DBus::Exporter 'org.gmusicbrowser';
sub new
{ my ($class,$service) = @_;
my $self = $class->SUPER::new($service, '/org/gmusicbrowser');
bless $self, $class;
Glib::Idle->add(
sub { ::Watch($self,CurSong => \&SongFieldsChanged);
::Watch($self,CurSongID =>\&SongChanged);
::Watch($self,PlayingSong =>\&PlayingSongChanged);
#::Watch($self,Save => \&GMB::DBus::Quit);
0;
});
return $self;
}
dbus_method('RunCommand', ['string'], [],{no_return=>1});
sub RunCommand
{ my ($self,$cmd) = @_;
warn "Received DBus command : '$cmd'\n";
::run_command(undef,$cmd);
}
dbus_method('CurrentSong', [], [['dict', 'string', 'string']]);
sub CurrentSong
{ my $self=$_[0];
return {} unless defined $::SongID;
my %h;
$h{$_}=Songs::Get($::SongID,$_) for Songs::PropertyFields(), qw/uri album_picture/;
#warn "$_:$h{$_}\n" for sort keys %h;
return \%h;
}
dbus_method('CurrentSongFields', [['array', 'string']], [['array', 'string']]);
sub CurrentSongFields
{ my ($self,$fields)=@_;
return [] unless defined $::SongID;
my @ret= Songs::Get($::SongID,@$fields);
return \@ret;
}
dbus_method('GetPosition', [], ['double']);
sub GetPosition
{ my $self=$_[0];
return $::PlayTime || 0;
}
dbus_method('Playing', [], ['bool']);
sub Playing
{ return $::TogPlay ? 1 : 0;
}
dbus_method('Set', [['struct', 'string', 'string', 'string']], ['bool']);
sub Set
{ my ($self,$array)=@_;
Songs::SetTagValue(@$array); #return false on error, true if ok
}
dbus_method('Get', [['struct', 'string', 'string']], ['string']);
sub Get
{ my ($self,$array)=@_;
Songs::GetTagValue(@$array);
}
dbus_method('GetLibrary', [], [['array', 'uint32']]);
sub GetLibrary
{ $::Library;
}
dbus_method('GetAlbumCover', ['uint32'], ['string']);
sub GetAlbumCover
{ my ($self,$ID)=@_;
my $file=Songs::Get($ID,'album_picture');
return $file;
}
#slow, not a good idea
dbus_method('GetAlbumCoverData', ['uint32'], [['array', 'byte']]);
sub GetAlbumCoverData
{ my ($self,$ID)=@_;
my $file=GetAlbumCover($self,$ID);
return undef unless $file && -r $file;
my $data;
if ($file=~m/\.(?:mp3|flac)$/i)
{ $data=ReadTag::PixFromMusicFile($file);
}
else
{ open my$fh,'<',$file; binmode $fh;
read $fh,$data, (stat $file)[7];
close $fh;
}
return [map ord,split //, $data];
}
dbus_method(CopyFields => [['array', 'string']], ['bool']);
#copy fields from one song to another
#1st arg : filename of ID of source, 2nd arg filename or ID of dest, both must be in the library,
#following args are list of fields, example : added, lastplay, playcount, lastskip, skipcount, rating, label
sub CopyFields
{ my ($self,$array)=@_;
#my ($file1,$file2,@fields)=@$array;
Songs::CopyFields(@$array); #returns true on error
}
dbus_signal(SongFieldsChanged => ['uint32']);
sub SongFieldsChanged
{ $_[0]->emit_signal(SongFieldsChanged => $::SongID||0);
}
dbus_signal(SongChanged => ['uint32']);
sub SongChanged
{ $_[0]->emit_signal(SongChanged => $::SongID||0);
}
dbus_signal(PlayingSongChanged => ['uint32']);
sub PlayingSongChanged
{ $_[0]->emit_signal(PlayingSongChanged => $::SongID||0);
}
package GMB::DBus;
use Net::DBus;
use Net::DBus::Service;
my $not_glib_dbus;
our $bus;
eval { require Net::DBus::GLib; $bus=Net::DBus::GLib->session; };
unless ($bus)
{ #warn "Net::DBus::GLib not found (not very important)\n";
$not_glib_dbus=1;
$bus= Net::DBus->session;
}
Glib::Idle->add(\&init); #initialize once the main gmb init is finished
sub init
{ #my $bus = Net::DBus->session;
my $service= $bus->export_service($::DBus_id); # $::DBus_id is 'org.gmusicbrowser' by default
my $object = GMB::DBus::Object->new($service);
DBus_mainloop_hack() if $not_glib_dbus;
0; #called in an idle, return 0 to run only once
}
sub DBus_mainloop_hack
{ # use Net::DBus internals to connect it to the Glib mainloop, though unlikely, it may break with future version of Net::DBus
use Net::DBus::Reactor;
my $reactor=Net::DBus::Reactor->main;
for my $ref (['in','read'],['out','write'], ['err','exception'])
{ my ($type1,$type2)=@$ref;
for my $fd (keys %{$reactor->{fds}{$type2}})
{ #warn "$fd $type2";
Glib::IO->add_watch($fd,$type1,
sub{ my $cb=$reactor->{fds}{$type2}{$fd}{callback};
$cb->invoke if $cb;
$_->invoke for $reactor->_dispatch_hook;
1;
}) if $reactor->{fds}{$type2}{$fd}{enabled};
#Glib::IO->add_watch($fd,$type1,sub { Net::DBus::Reactor->main->step;Net::DBus::Reactor->main->step;1; }) if $reactor->{fds}{$type2}{$fd}{enabled};
}
}
# run the dbus mainloop once so that events already pending are processed
# needed if events already waiting when gmb is starting
my $timeout=$reactor->add_timeout(1, Net::DBus::Callback->new( method => sub {} ));
Net::DBus::Reactor->main->step;
$reactor->remove_timeout($timeout);
}
1;
|