From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 5 Feb 2011 15:34:12 +0000 (+0100)
Subject: http://forum.skype.com/index.php?showtopic=109715
X-Git-Url: http://git.rot13.org/?p=skype-conference-recorder.git;a=commitdiff_plain;h=3caa6f46f2f1a1f88e9aa47891ccab8ab2888b04

http://forum.skype.com/index.php?showtopic=109715
---

3caa6f46f2f1a1f88e9aa47891ccab8ab2888b04
diff --git a/SkypeAPI.pm b/SkypeAPI.pm
new file mode 100644
index 0000000..60aa306
--- /dev/null
+++ b/SkypeAPI.pm
@@ -0,0 +1,108 @@
+#!/usr/bin/perl -w
+
+# This is a very basic example on how to use the Skype API via DBus using perl.
+# Written by jlh at gmx dot ch.  I declare this to be public domain, use it for
+# whatever you like.
+
+# This requires the module Net::DBus to be installed.
+
+use strict;
+use warnings;
+
+package SkypeAPI; # -----------------------------------------------------------
+
+# We need two objects to communicate with Skype, one for the client -> Skype
+# direction, and one for Skype -> client direction.  This class (SkypeAPI)
+# inherits from Net::DBus::Object and represents the DBus /com/Skype/Client
+# object that Skype uses to notify us about events (by calling its Notify
+# method).  The other object, which is Skype's /com/Skype object, is held in
+# $self->{invoker}; we call its Invoke method to tell Skype our commands.
+
+# This class by itself only does the handshake with Skype and then merely
+# prints all notifications it receives to the terminal.  If you want to do
+# something useful, then you have to subclass this and override the Notify
+# method to do whatever you want.  We do this as an example with the Example
+# class further down.
+
+use base 'Net::DBus::Object';
+use Net::DBus;
+
+sub new {
+	my ($class, $name) = @_;
+
+	my $bus = Net::DBus->session;
+
+	# export a service and the object /com/Skype/Client, so Skype can
+	# invoke the 'Notify' method on it in order to communicate with us.
+	my $exp_service = $bus->export_service("com.Skype.API") or die;
+	my $self = $class->SUPER::new($exp_service, '/com/Skype/Client') or die;
+	bless $self, $class;
+
+	# get a handle to Skype's /com/Skype object, so we can invoke the
+	# 'Invoke' method on it to communicate with Skype.
+	my $service = $bus->get_service("com.Skype.API") or die;
+	$self->{invoker} = $service->get_object("/com/Skype") or die;
+
+	# setup is done, let's shake hands
+	my $r = $self->Invoke("NAME $name");
+	die "Handshake failed: $r" unless $r eq 'OK';
+	$r = $self->Invoke("PROTOCOL 5");
+	die "Handshake failed: $r" unless $r eq 'PROTOCOL 5';
+
+	return $self;
+}
+
+sub Notify {
+	# only print to terminal.  override this in a subclass for something
+	# more useful.
+	my ($self, $string) = @_;
+	print "-> $string\n";
+	# be careful with what you return here!  DBus will try to serialize it,
+	# returning it to skype.  you should explicitely return something
+	# simple to avoid to leak something unserializable, causing odd errors.
+	return 0;
+}
+
+sub Invoke {
+	# this doesn't print $string, so that subclasses can call it without
+	# that side effect.  subclass it yourself if you want it to do that.
+	my ($self, $string) = @_;
+	return $self->{invoker}->Invoke($string);
+}
+
+package Example; # ------------------------------------------------------------
+
+# This Example class inherits from SkypeAPI and does something very simple:
+# Whenever you go into away-mode, it will put you in not-available-mode
+# instead.  That's not very useful, but it's just an example.  This is where
+# you would implement your interesting stuff and/or write a nicer wrapper
+# around the whole Skype API.
+
+use base 'SkypeAPI';
+
+sub Notify {
+	my ($self, $string) = @_;
+
+	# call the parent's Notify method, so it still prints to the terminal.
+	$self->SUPER::Notify($string);
+
+	if ($string eq 'USERSTATUS AWAY') {
+		# away mode is no good!  let's be not available
+		$self->Invoke('SET USERSTATUS NA');
+	}
+	return 0;
+}
+
+package main; # ---------------------------------------------------------------
+
+use Net::DBus::Reactor;
+
+my $skype = Example->new('Example');
+
+# Run main event loop, the $skype instance has automatically been attached to
+# it (it's a singleton).  See the documentation for Net::DBus::Reactor to learn
+# how to attach more stuff to this loop, like file handles or timer events.
+my $reactor = Net::DBus::Reactor->main;
+$reactor->run;
+
+# end of file