Skype: focus main win and prepare it for typing in contact name

skype-search.pl

#!/usr/bin/perl

use strict;
use warnings;

use Net::DBus;


my $session = Net::DBus->session;
my $service = $session->get_service('com.Skype.API');
my $skype = $service->get_object('/com/Skype');
$skype->Invoke('NAME PerlMuteScript') eq 'OK' 
        or die 'Cannot connect to skype';
$skype->Invoke('PROTOCOL 5') eq 'PROTOCOL 5'
        or die 'Cannot agree protocol';


print $skype->Invoke('OPEN CONTACTS') . "\n";
# sometimes it fails to activate window from first time properly
system('sh', '-c', 'xdotool search Skype™ | sort | head -n1 | xargs -i xdotool windowactivate --sync {} key Escape');
system('sh', '-c', 'xdotool search Skype™ | sort | head -n1 | xargs -i xdotool windowactivate --sync {} key Escape');

exit 0;