1. 5.5:
:
http://skype-open-source.blogspot.com/2 … eased.html
2. - .
:
https://github.com/skypeopensource/skyp … le-logging
3. , , , vcard. .
4. .
5. whois.
:
:
http://nic.ru/whois/?query=IP
, , .
.
:
#!perl
$LOGFILE="debug-20120420-2257.log";
$SKYPENAME="skypetestuser1";
open(RD,$LOGFILE);
open(WR,">_ip_logger.txt");
while(){ chomp;
$line=$_;
if( ($line=~ /PresenceManager:/) and ($line=~ /noticing/) ){
$line=~ /-r(\d+.\d+.\d+.\d+)/;
$ip=$1;
print WR $line."\n";
print WR "IP: $ip\n";
if ($line=~ /$SKYPENAME/){
print $line."\n";
print "${SKYPENAME} IP: $ip\n";
};
};
};
close(RD);
close(WR);