#////////////////////////////////////////////////////////////////////////////// #// #// AutoStart.pl #// Win32::Daemon Perl extension test script #// #// Copyright (c) 1998-2008 Dave Roth #// Courtesy of Roth Consulting #// http://www.roth.net/ #// #// This file may be copied or modified only under the terms of either #// the Artistic License or the GNU General Public License, which may #// be found in the Perl 5.0 source kit. #// #// 2008.03.24 :Date #// 20080324 :Version #////////////////////////////////////////////////////////////////////////////// # Demonstration of an AutoStart Service using the Win32::Daemon # Perl extension. This service will auto launch applications # when it starts. Effectively enabling Windows to auto start # applications at boot time, before a user ever logs on. use Win32::Daemon; Win32::Daemon::StartService(); my %List; my $SLEEP_TIMEOUT = 100; # This value is in milliseconds my $START_TIME = time(); my ( $DB_DIR, $DB_FILE_NAME ) = ( Win32::GetFullPathName( $0 ) =~ /^(.*)\\([^\\]*)$/ ); $DB_FILE_NAME =~ s/\..*?$/.log/; if( open( LOG, ">$DB_DIR\\$DB_FILE_NAME" ) ) { my $StartTime = localtime( $START_TIME ); $| = 1; print LOG << "EOT" # Service Starting # Script: $0 # PID: $$ # Date: $StartTime EOT } Log( "Starting service" ); Win32::Daemon::StartService(); Log( "Entering service loop" ); $LastState = SERVICE_STOPPED; while( SERVICE_STOPPED != ( $State = Win32::Daemon::State() ) ) { if( SERVICE_START_PENDING == $State ) { # Initialization code $LastState = SERVICE_RUNNING; # Win32::Daemon::State( [ state => SERVICE_RUNNING, error => NO_ERROR ] ); Win32::Daemon::State( SERVICE_RUNNING ); Log( "Service initialized. Setting state to Running." ); } elsif( SERVICE_PAUSE_PENDING == $State ) { $LastState = SERVICE_PAUSED; Win32::Daemon::State( SERVICE_PAUSED ); Log( "Pausing." ); next; } elsif( SERVICE_CONTINUE_PENDING == $State ) { $LastState = SERVICE_RUNNING; Win32::Daemon::State( SERVICE_RUNNING ); Log( "Resuming from paused state." ); next; } elsif( SERVICE_STOP_PENDING == $State ) { $LastState = SERVICE_STOPPED; Win32::Daemon::State( [ state => SERVICE_STOPPED, error => 1234 ] ); Log( "Stopping service." ); next; } else { # Take care of unhandled states by setting the State() # to whatever the last state was we set... Win32::Daemon::State( $LastState ); } Win32::Sleep( $SLEEP_TIMEOUT ); } print Win32::Daemon::StopService(); sub Log { my( $Message ) = @_; if( fileno( LOG ) ) { print LOG "[" . localtime() . "] $Message\n"; } }