View Codeset Badid to false
do shell script "echo |perl -n -e 'if(-f \"/skype.logs/last.skp.txt\") {unlink \"/skype.logs/last.skp.txt\";}'"
repeat until Badid is true

set Prog to do shell script "ps axj"
if Prog does not contain "Skype" then
set OnlStat to SkypeCall("Your_skype_login")
end if

tell application "Skype"
set result to send command "GET USER watchdog ONLINESTATUS" script name "getType"
set PrData to result
delay 2
do shell script "perl /skype.logs/skype.stat.cgi " & quoted form of PrData
end tell
--set Badid to true
delay 60
end repeat

on SkypeCall(login)
set AppleScript's text item delimiters to " "
tell application "Skype"
set foo to send command "GET USER " & login & " ONLINESTATUS" script name "MyScript"
set UserStatus to my GetPart(foo, 4, " ")
if UserStatus is "ONLINE" then
return true
end if
end tell
end SkypeCall

on GetPart(s, p, d)
set theList to every text item of s
return (item p of theList)
end GetPart

View Code$d = $ARGV[0];
#print "here - ";
if($d =~ m/STATUS/) {
$d =~ s/(ONLINESTATUS)( )(.*?)$/$&/si;$wr=$3;
print "$d ($wr)\n";
$d =~ s/USER( )(.*?)( )/$&/;$usr = $2;
if(-f "/skype.logs/last.$usr.skp.txt") {$last = `cat /skype.logs/last.$usr.skp.txt`;} else {$last='aaa';}
unless($last eq $wr) {
open(TXL,">/skype.logs/last.$usr.skp.txt");print TXL $wr;close(TXL);
$localtime = `date`;chop $localtime;$localtime =~ tr/ //s;
($wd,$mo,$da,$ti,$sh,$ye) = split(/\s/,$localtime);$ut=time;
open(TXT,">>/skype.logs/Skype.$usr.$mo.$ye.txt");
print TXT "$localtime\t$ut\t$usr\t$wr\n";
close(TXT);
} ## END IF DIFFERENT
}