Glx-Dock / Cairo-Dock

#! /usr/bin/python

import dbus

bus = dbus.SessionBus()
proxy = bus.get_object('org.xchat.service', '/org/xchat/Remote')
remote = dbus.Interface(proxy, 'org.xchat.connection')
path = remote.Connect ("example.py",
         "Python example",
         "Example of a D-Bus client written in python",
         "1.0")
proxy = bus.get_object('org.xchat.service', path)
xchat = dbus.Interface(proxy, 'org.xchat.plugin')

channels = xchat.ListGet ("channels")
while xchat.ListNext (channels):
    name = xchat.ListStr (channels, "channel")
    print "------- " + name + " -------"
    xchat.SetContext (xchat.ListInt (channels, "context"))
    xchat.EmitPrint ("Channel Message", ["John", "Hi there", "@"])
    users = xchat.ListGet ("users")
    while xchat.ListNext (users):
        print "Nick: " + xchat.ListStr (users, "nick")
    xchat.ListFree (users)
xchat.ListFree (channels)

print xchat.Strip ("\00312Blue\003 \002Bold!\002", -1, 1|2)

#!/usr/bin/perl

use strict;
use warnings;
my %ourson;

$ourson{'exec'} = "amuled -e -f";
$ourson{'amule_version'} = ":: <pseudo> :: Version ( <version> ) ::";
$ourson{'amule_serveur'} = ":: <pseudo> :: Serveur : <etat> :: Serveur : <serveur> ( <ip> : <port> ) ::";
$ourson{'amule_kad'} = ":: <pseudo> :: Kad : <etat> ::";
$ourson{'amule_dl'} = ":: <pseudo> :: Download ( <tmp> / <max> Ko/s ) :: Total ( <tmp2> / <max2> Mo )::";
$ourson{'amule_ul'} = ":: <pseudo> :: Upload ( <tmp> / <max> Ko/s ) :: Total ( <tmp2> / <max2> Mo )::";
$ourson{'amule_systeme'} = ":: <pseudo> :: Cpu : <cpu>% :: Ram : <ram>% :: Pid : <pid> ::";
$ourson{'amule_partage'} = ":: <pseudo> :: Fichier : <fichier> :: Client : <client> ::";

open(FIC,$ENV{HOME}."/.aMule/amule.conf");
my @tmp = <FIC>;
close(FIC);
my ($max_dl,$max_ul);
foreach my $a (@tmp) {
    if ( $a =~ /^MaxDownload=(.*)$/ ) {
        $max_dl = $1;
    } elsif ( $a =~ /^MaxUpload=(.*)$/ ) {
        $max_ul = $1;
    }
}
open(FIC,$ENV{HOME}."/.aMule/amulesig.dat");
my @tmp2 = <FIC>;
close(FIC);
my ($serv_state,$serv_name,$serv_ip,$serv_port,$serv_ID,$kad_state,$dl_stat,$ul_stat,$client_stat,$file_share,$nick,$total_dl,$total_ul,$version,$ses_total_dl,$ses_total_ul,$start_stat) = (@tmp2);
$serv_state =~ s/\n//g;$serv_name =~ s/\n//g; $serv_ip =~ s/\n//g; $serv_port =~ s/\n//g; $serv_ID =~ s/\n//g;
if ( $serv_ID =~ /^0$/ ) { $serv_ID = "Deconnecté"; } elsif ( $serv_ID =~ /^H$/ ) { $serv_ID = "HighID"; } elsif ( $serv_ID =~ /^L$/ ) { $serv_ID = "LowID"; }
$kad_state =~ s/\n//g;
if ( $kad_state =~ /^0$/ ) { $kad_state = "Deconnecté";} elsif ( $kad_state =~ /^2$/ ) { $kad_state = "HighID"; } elsif ( $kad_state =~ /^1$/ ) { $kad_state = "LowID"; }
$dl_stat =~ s/\n//g; $ul_stat =~ s/\n//g; $client_stat =~ s/\n//g; $file_share =~ s/\n//g; $nick =~ s/\n//g; $total_dl =~ s/\n//g; $total_ul =~ s/\n//g; $version =~ s/\n//g;
$ses_total_dl =~ s/\n//g; $ses_total_ul =~ s/\n//g;
$ses_total_dl = int($ses_total_dl/1024000); $ses_total_ul = int($ses_total_ul/1024000);
$total_dl = int($total_dl/1024000); $total_ul = int($total_ul/1024000);
$start_stat =~ s/\n//g;$max_ul =~ s/\n//g; $max_dl =~ s/\n//g;    
my $tmp3 = `ps aux | grep "$ourson{'exec'}"`;
my ($amule_pid,$amule_cpu,$amule_mem);
foreach my $tmp4 (split(/\n/,$tmp3)) {
    if ( $tmp4 !~ /.*grep.*/ ) {
        my @tmp5 = split(/\s+/,$tmp4);
        ($amule_pid,$amule_cpu,$amule_mem) = ($tmp5[1],$tmp5[2],$tmp5[3]);
    }
}
my $tmp6 = $ourson{'amule_version'};
$tmp6 =~ s/<pseudo>/$nick/g; $tmp6 =~ s/<version>/$version/g;
my $tmp7 = $ourson{'amule_serveur'};
$tmp7 =~ s/<pseudo>/$nick/g; $tmp7 =~ s/<etat>/$serv_ID/g; $tmp7 =~ s/<serveur>/$serv_name/g; $tmp7 =~ s/<ip>/$serv_ip/g; $tmp7 =~ s/<port>/$serv_port/g;
my $tmp8 = $ourson{'amule_kad'};
$tmp8 =~ s/<pseudo>/$nick/g; $tmp8 =~ s/<etat>/$kad_state/g;
my $tmp9 = $ourson{'amule_dl'};
$tmp9 =~ s/<pseudo>/$nick/g; $tmp9 =~ s/<tmp>/$dl_stat/g; $tmp9 =~ s/<max>/$max_dl/g; $tmp9 =~ s/<tmp2>/$ses_total_dl/g; $tmp9 =~ s/<max2>/$total_dl/g;
my $tmp10 = $ourson{'amule_ul'};
$tmp10 =~ s/<pseudo>/$nick/g; $tmp10 =~ s/<tmp>/$ul_stat/g; $tmp10 =~ s/<max>/$max_ul/g; $tmp10 =~ s/<tmp2>/$ses_total_ul/g; $tmp10 =~ s/<max2>/$total_ul/g;
my $tmp11 = $ourson{'amule_systeme'};
$tmp11 =~ s/<pseudo>/$nick/g;$tmp11 =~ s/<cpu>/$amule_cpu/g;$tmp11 =~ s/<ram>/$amule_mem/g;$tmp11 =~ s/<pid>/$amule_pid/g;
my $tmp12 = $ourson{'amule_partage'};
$tmp12 =~ s/<pseudo>/$nick/g;$tmp12 =~ s/<fichier>/$file_share/g;$tmp12 =~ s/<client>/$client_stat/g;

my $msg = "[_aMule_]\n".$tmp6."\n".$tmp7."\n".$tmp8."\n".$tmp9."\n".$tmp10."\n".$tmp11."\n".$tmp12."\n";
`dbus-send --session --dest=org.cairodock.CairoDock /org/cairodock/CairoDock org.cairodock.CairoDock.ShowDialog string:"$msg" int32:15 string:none string:none string:none`;

1;