Glx-Dock / Cairo-Dock

#!/usr/bin/perl

# This is the demo_perl applet for Cairo-Dock
#
#
# Copyright : (C) 2009 by ours_en_pluche
# E-mail : ours_en_pluche @ blablabla, ours_en_pluche ne connait pas les spams :) -> matttbe ;)
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# http://www.gnu.org/licenses/licenses.html#GPL

# definition des uses
use strict;
use warnings;
use Net::DBus;
use Net::DBus::Reactor;

my $dbus_name = "org.cairodock.CairoDock";
my $dbus_path = "/org/cairodock/CairoDock";
my $dbus_interface = "org.cairodock.CairoDock";
my $position_in_conf = "2";
my $description = "Description de l applet";
my $author = "auteur de l applet";
my $app_name = $ENV{'_'};
$app_name =~ /^\.\/(.*)$/;
$app_name = $1;
my $dir = $ENV{'PWD'};
my $app_folder = $dir;

sub register_the_applet {
    print "register\n";
    `dbus-send --session --dest=$dbus_name $dbus_path $dbus_interface.RegisterNewModule string:"$app_name" string:"$description" string:"$author" int32:$position_in_conf string:"$app_folder"`;
}
sub on_click {
    print "on clic\n";
}
sub on_middle_click {
    print "on clic middle\n";    
}
sub on_scroll {
    my $scroll = shift;
    if ($scroll) {
        print "up\n";
    } else {
        print "down\n";        
    }
    print "on scroll\n";    
}
sub on_drop_data {
    print "on drop data\n";    
}
sub on_init_module {
    print "on init\n";    
}
sub on_stop_module {
    print "on stop\n";    
}
sub on_reload_module {
    print "on reload\n";    
}
sub on_build_menu {
    print "on build\n";
}
sub on_menu_select {
    my $scroll = shift;
    print $scroll."\n";
    print "on menu\n";    
}
    
&register_the_applet;
    
my $bus = Net::DBus->session();

my $service = $bus->get_service($dbus_name);
my $object = $service->get_object($dbus_path."/".$app_name,
                 $dbus_interface.".applet");
$object->connect_to_signal("register_the_applet", \&register_the_applet);
$object->connect_to_signal("on_click",\&on_click);
$object->connect_to_signal("on_middle_click",\&on_middle_click);
$object->connect_to_signal("on_scroll",\&on_scroll);
$object->connect_to_signal("on_drop_data",\&on_drop_data);
$object->connect_to_signal("on_init_module",\&on_init_module);
$object->connect_to_signal("on_stop_module",\&on_stop_module);
$object->connect_to_signal("on_reload_module",\&on_reload_module);
$object->connect_to_signal("on_build_menu",\&on_build_menu);
$object->connect_to_signal("on_menu_select",\&on_menu_select);

my $reactor = Net::DBus::Reactor->main();

my $ticks = 1;
$reactor->add_timeout(1000, Net::DBus::Callback->new(method => sub {    if ($ticks++ <= 0) { $reactor->shutdown(); } }));

$reactor->run();