>I've been experiencing some trouble with the WWW service shutting down
>without notice requiring a reboot and, while I figure out what's causing
>this problem, I would like to code something simple that would detect when
>the server stops delivering pages and immediately initiate a restart.
I've never tried to shutdown Windows from Perl, so it may not be what
you want best, but...
It is rare case when you must re-boot Windows machine.
Are you using IIS, ASP, oo4o (Oracle Obeject for OLE)?
I experienced the situation "I" must re-boot Windows,
when keyboard cann't be used, only can push power button.
But after
I revised ISAPI filter written by C++, no re-boot requited.
IIS is not so good, frequently goes down, but I can do with
only re-start IIS, like
C:> KILL.EXE inetinfo.exe
C:> NET START W3SVC
My script watching IIS checks, (usually every 1 minutes)
if NT service "WWW" running,
if specified URL is alive,
if no erorr log written in NT event log by ASP,
and if one of them hit, it will execute KILL & NET_START command.
It can also check virtual memory size of inetinfo.exe but it is
not so importtant 'cause in such a time we get manny ASP error log
in event log.
--
[EMAIL PROTECTED]
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
