Comment on

I am humbly searching for an answer to a Win32::Daemon problem that has been filling my System Logs with errors. I created a service using the CPAN different callback routines framework. After super searching the monastery I found one thread that covered the topic, but did not provide a solution - "Win32::Daemon::State returns a 0 or 1" from 2009. I appreciate any wisdom that can be given in this matter.

use strict;
use Fcntl qw(:DEFAULT :flock);
use File::Copy;
use Net::FTP;
use Win32;
use Win32::Daemon;
use IniInstall;
use CopyFiles;
use ftpsend;

open (STDERR, ">>c:/error.err") or die "invisible error";
warn "$0 started ".localtime().$/;

my $ServicePath = 'c:\Foo\FooBar.exe';

  Win32::Daemon::RegisterCallbacks( {
        start       =>  \&Callback_Start,
        running     =>  \&Callback_Running,
        stop        =>  \&Callback_Stop,
        pause       =>  \&Callback_Pause,
        continue    =>  \&Callback_Continue,
    } );

my %CONTEXT = (
        last_state => SERVICE_STOPPED,
        start_time => time(),
    );

    # Start the service passing in a context
    Win32::Daemon::StartService( \%CONTEXT);

    sub Callback_Running
    {
       my ( $Event, $CONTEXT ) = @_;

        if( SERVICE_RUNNING == Win32::Daemon::State() )
        {

my @ltime=localtime;
$main::MINUTE = sprintf("%02d",$ltime[1]);
$main::HOUR = sprintf("%02d",$ltime[2]);
$main::DAY = sprintf("%02d",$ltime[3]);
$main::MONTH = sprintf("%02d",($ltime[4]+1));
$main::YEAR = sprintf("%02d",(($ltime[5])+1900));
my %HOURARR;
my $HHARR=$ltime[2];


foreach ("06","12","18") {
    $HOURARR{$_}=1;
};

if (( exists $HOURARR{$HHARR}) and ($main::MINUTE == 00)) {
    CopyFiles::transfer;
}

if (( $main::HOUR == 23 ) and ($main::MINUTE == 59)) {
    sleep (90);
    CopyFiles::transfer;
}

if (( $main::HOUR == $main::hh ) and ($main::MINUTE == $main::mm)) {
    ftpsend::send;
}#endif

        }
1;
    }

    sub Callback_Start
    {
        my ( $Event, $CONTEXT ) = @_;
        # Initialization code
        $CONTEXT->{last_state} = SERVICE_RUNNING;
        Win32::Daemon::State( SERVICE_RUNNING );
        IniInstall::Initiate;
    }

    sub Callback_Pause
    {
        my ( $Event, $CONTEXT ) = @_;
        $CONTEXT->{last_state} = SERVICE_PAUSED;
        Win32::Daemon::State( SERVICE_PAUSED );
    }

    sub Callback_Continue
    {
        my ( $Event, $CONTEXT ) = @_;
        $CONTEXT->{last_state} = SERVICE_RUNNING;
        Win32::Daemon::State( SERVICE_RUNNING );
        IniInstall::Initiate;
    }

    sub Callback_Stop
    {
        my ( $Event, $CONTEXT ) = @_;
        $CONTEXT->{last_state} = SERVICE_STOPPED;
        Win32::Daemon::State( SERVICE_STOPPED );

        # We need to notify the Daemon that we want to stop callbacks 
+and the service.
        Win32::Daemon::StopService();
    }

        # Check for any outstanding commands. Pass in a non zero value
        # and it resets the Last Message to SERVICE_CONTROL_NONE.
        if( SERVICE_CONTROL_NONE != ( my $Message = Win32::Daemon::Las
+tControlMessage(1) ) )
        {
          if( SERVICE_CONTROL_INTERROGATE == $Message )
          {
            Win32::Daemon::State(my $CONTEXT->{last_state} );
          }
        elsif( SERVICE_CONTROL_SHUTDOWN == $Message )
        {
          Win32::Daemon::State( SERVICE_STOP_PENDING, 25000 );
        }
        }

 
[download]

In reply to Win32::Daemon problems by Anonymous Monk

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

Outside of code tags, you may need to use entities for some characters:

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.

Comment on

The best material for plates (tableware) is: