Please, can someone chime in and tell if something has to change in the skype module, or if the perl script has to be modified?

-giovanni

On Mon, Feb 4, 2013 at 2:50 PM, Anton Vojlenko <stargray@bigmir.net> wrote:

I can't solve this problem alone.

In fs_cli i can see DEBUG messages:
freeswitch@internal> skypopen sk1 GET USERSTATUS
Using interface: globals.SKYPOPEN_INTERFACES[1].name=|||sk1|||

2013-02-04 15:31:44.565590 [DEBUG] skypopen_protocol.c:1732    [|] [DEBUG_SKYPE  1732 ][sk1            ][IDLE,IDLE] SENDING: |||GET USERSTATUS||||
2013-02-04 15:31:44.565590 [DEBUG] skypopen_protocol.c:207     [|] [DEBUG_SKYPE  207  ][sk1            ][IDLE,IDLE] READING: |||USERSTATUS ONLINE|||

But when i execute perl script i can't see them:
#perl /home/checker.pl
Using interface: globals.SKYPOPEN_INTERFACES[1].name=|||sk1|||

#cat /home/checker.pl

#!/usr/bin/perl
use strict;
use warnings;
require ESL;
#ESL::eslSetLogLevel(7);

my $host = "127.0.0.1";
my $port = "8021";
my $pass = "ClueCon";

my $con  = new ESL::ESLconnection($host, $port, $pass);

$con->api("console loglevel 9");
$con->api("fsctl loglevel 9");

my $status = $con->api("skypopen sk1 GET USERSTATUS")->getBody();
print "$status";
$con->disconnect()



2013/1/23 Anton Vojlenko <stargray@bigmir.net>
Giovanni, I can see Skype API answers only when i using fs_cli. With perl script I can't see them.


2013/1/22 Giovanni Maruzzelli <gmaruzz@gmail.com>
On Tue, Jan 22, 2013 at 12:51 PM, Anton Vojlenko <stargray@bigmir.net> wrote:
> Hello,
>
> I want to check user status from the Skype client instance, but I can't see
> Skype API answers from it. How to fix this?

Have you tried to give:

"fsctl loglevel 9" in addition to "console loglevel 9" ?



> Script example:
>
> #!/usr/bin/perl
> use strict;
> use warnings;
> require ESL;
>
> my $host = "localhost";
> my $port = "8021";
> my $pass = "somepass";
> my $con  = new ESL::ESLconnection($host, $port, $pass);
>
> $con->api("console loglevel 9");
> my $status = $con->api("skypopen sk1 GET USERSTATUS")->getBody();
> print $status;
> $con->disconnect();
>

--
Sincerely,

Giovanni Maruzzelli
Cell : +39-347-2665618

_________________________________________________________________________
Professional FreeSWITCH Consulting Services:
consulting@freeswitch.org
http://www.freeswitchsolutions.com

FreeSWITCH-powered IP PBX: The CudaTel Communication Server
http://www.cudatel.com

Official FreeSWITCH Sites
http://www.freeswitch.org
http://wiki.freeswitch.org
http://www.cluecon.com

FreeSWITCH-users mailing list
FreeSWITCH-users@lists.freeswitch.org
http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
UNSUBSCRIBE:http://lists.freeswitch.org/mailman/options/freeswitch-users
http://www.freeswitch.org



_________________________________________________________________________
Professional FreeSWITCH Consulting Services:
consulting@freeswitch.org
http://www.freeswitchsolutions.com

FreeSWITCH-powered IP PBX: The CudaTel Communication Server
http://www.cudatel.com

Official FreeSWITCH Sites
http://www.freeswitch.org
http://wiki.freeswitch.org
http://www.cluecon.com

FreeSWITCH-users mailing list
FreeSWITCH-users@lists.freeswitch.org
http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
UNSUBSCRIBE:http://lists.freeswitch.org/mailman/options/freeswitch-users
http://www.freeswitch.org




--
Sincerely,

Giovanni Maruzzelli
Cell : +39-347-2665618