Hello World,
This is related to my earlier posts called "a reboot script". Someone has
suggested simply killing the offending process and restarting it rather
than a full system reboot. I've modified the script to accommodate this
good suggestion.
I'm still having trouble, however, finding the proper syntax for the kill
and restart portion of the script.
My current script is....
# www_service_test.pl
use LWP::Simple;
$url = "http://www.musar.com/echo.html";
$content = get($url);
if ($content) {
Exit;
}
elsif (!$content) {
$notice = "www_service_test.txt";
`Blat $notice -s "WWW Service Notice" -f info\@musar.com -t info\@musar.com`;
# KILL inetinfo.exe;
# NET START W3SVC;
}
# End
The lines that have been commented out are where I am at a lost.
Thank you.
Tim
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
