home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 February / CHIPCD_2_2000.iso / software / shareware / watznew / icqstat.pst < prev    next >
Text File  |  1999-11-09  |  755b  |  23 lines
  1. #%UIN%|?|8275592|Enter ICQ UIN to monitor
  2. #%TITLE%|=|ICQ #%UIN% status
  3. #%MESSAGE%|=|Status: <B>%1</B>
  4. # --------------------------------------------------------
  5. # ICQ STATUS CHECK script by A.I.Studio / Igor Afanasyev
  6. # --------------------------------------------------------
  7.  
  8. require 'http.lib'; # WatzNew http routines library
  9.              
  10. # -----------------------------------------------------------
  11.  
  12. $UIN = '%UIN%'; # ICQ UIN number
  13.  
  14. # -----------------------------------------------------------
  15.  
  16. $c = &HttpGet('online.mirabilis.com',80,"/scripts/online.dll?icq=$UIN&txt",always);
  17.  
  18. die "ERR: Can't retrieve user status\n" if ($c != 0);
  19.  
  20. $HttpHeader = 'Not published' if ($HttpHeader eq 'NA');
  21.  
  22. print "MSG: ".$HttpHeader."\n";
  23.