home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 February
/
chip-cd_2000_02.zip
/
02
/
software
/
shareware
/
watznew
/
icqstat.pst
< prev
next >
Wrap
Text File
|
1999-11-09
|
755b
|
23 lines
#%UIN%|?|8275592|Enter ICQ UIN to monitor
#%TITLE%|=|ICQ #%UIN% status
#%MESSAGE%|=|Status: <B>%1</B>
# --------------------------------------------------------
# ICQ STATUS CHECK script by A.I.Studio / Igor Afanasyev
# --------------------------------------------------------
require 'http.lib'; # WatzNew http routines library
# -----------------------------------------------------------
$UIN = '%UIN%'; # ICQ UIN number
# -----------------------------------------------------------
$c = &HttpGet('online.mirabilis.com',80,"/scripts/online.dll?icq=$UIN&txt",always);
die "ERR: Can't retrieve user status\n" if ($c != 0);
$HttpHeader = 'Not published' if ($HttpHeader eq 'NA');
print "MSG: ".$HttpHeader."\n";