Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Delete files every 5 sec. Register as Win Service

by esskar (Deacon)
on Feb 24, 2005 at 00:29 UTC ( #433914=note: print w/replies, xml ) Need Help??


in reply to Delete files every 5 sec. Register as Win Service

use strict; use Win32::Daemon; # Tell the OS to start processing the service... Win32::Daemon::StartService(); # Wait until the service manager is ready for us to continue... while(SERVICE_START_PENDING != Win32::Daemon::State()) { sleep(1); } # Now let the service manager know that we are running... Win32::Daemon::State( SERVICE_RUNNING ); # Okay, go ahead and process stuff... while(1) { # delete all *.tmp files at c:\temp unlink( glob( "c:\\temp\\*.tmp" ) ); last unless keep_alive(); sleep(5); # and wait last unless keep_alive(); } # Tell the OS that the service is terminating... Win32::Daemon::StopService(); sub keep_alive { my $msg = Wun32::Daemon::QueryLastMessage(); return ( $msg != SERVICE_STOP_PENDING and $msg != SERVICE_CONTROL_SHUTDOWN ); }
Update1:
look at Win32::Daemon to see how to install the service
Update2:
Added the $sunning and QueryLastMessage part
Update3:
replaced Update2 by sub keep_alive

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://433914]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2023-01-29 19:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?