Esteemed colleagues,

In my usual rush I came here and added a bundle of info, previewed it and forgot to post it! I have done some more work and have the following to report which hopefully may enable some of the more experienced amongst the monastrians to be able to help me some more.

The link from virtualsue to the SkypeJournal material points to an extremely simplistic application where, as is noted, the Tk shrouds the Perl guts. And the Perl guts is almost inconsequential. 

use strict;
use warnings;

use Win32::OLE qw(in);
.
.
my objskype - Win32::OLE->new('SKYPEAPI.Access'. 'objSkype_');

$objSkype->SendMessage( $targethandle, $message );

[download]
Which simply sends a chat message to the specified target. The ActiveS COM wrapper ( http://www.khaoslabs.com/actives.php ) offer no more information. An email to the author elicited the response that he knew absolutely nothing about Perl. So I hacked away and finally started to get something back from the API. This rudimentary caode: 
#!/usr/bin/perl -w
use strict;
use warnings;

use Data::Dumper;
use Win32::OLE qw(in valof with);
my $objskype = Win32::OLE->new('SKYPEAPI.Access');
my $ex = $objskype->GetCallList();

foreach my $key ( keys( %$ex)) {
  print( $key, "\n");
}

foreach my $value (in $ex) {
  print "$value->{ID} : $value->{STATUS} : $value->{PSTN_NUMBER}\n";
}

[download]
Gets the following: 
skt.pl
Count
Item
1165 : 11 : +647723xxxx
1216 : 7 : +1416778xxxx

[download]
If I were to run code like this in a polling loop I could get the info I need, but with an overhead! Having got this far, can anyone tell me where to find information on handling EVENTS with Win32::OLE?

The documenation for the wrapper gives a list of events, but nothing more.

jdtoronto

In reply to Re: SKYPE incoming call monitor by jdtoronto
in thread SKYPE incoming call monitor by jdtoronto

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.