Hello Monks

EDIT: Ok so I may have been misleading everyone. I have been able to install the script as a service but for some reason I get an error when running it as a service. What runs perfectly from a command line fails as a service with the below error:

Error 1053: The service did not respond to the start or control request in a timely fashion

I have been trying to wrap my head around using Win32::Daemon to have a perl script and/or pp converted executable of the same script run as a service and I can't seem to figure out how this is done. I have tried using the Windows "sc create..." command with the .exe file but that does not work so I am obviously missing the Win32::Daemon portion in the script

The script simply monitors a network stream and based on the output it will write to a file, see below

#!/usr/bin/perl

use strict;
use IO::Socket;
use POSIX;
use warnings;
use Config::Simple;
use Win32::Daemon;
    
sub logMonitor{ #subrouting to connect to the PBX log and monitor for 
+the Emergency calls
    my ($HOST, $PORT)= @_;    

    OUTER: if (my $sock = new IO::Socket::INET(PeerAddr => $HOST, Peer
+Port => $PORT,Proto => "tcp",)) {

         while (<$sock>) {
            s/^\0+//; # Remove leading null characters

            chomp ($_);
            my $data = substr($_, 1,17);
            my $event = substr ($data, 2,1);
            my $hr = substr ($data, 3,2);
            my $min = substr ($data,5,2);
            my $year = substr($data, 9,4);
            my $mon = substr($data, 13,2);
            my $day = substr ($data,15,2);
            #print "$hr:$min on $year-$mon-$day \n";

            if ($event eq "A") {
                my $agent = substr($_, 17,4);
#                print "\n Agent $agent logged in \n" ;
                my $output = "Agent $agent logged in at $hr:$min on ex
+t $year";
                filePrint($output);
                }

    }    
    else {            
        print "Failed to connect to $HOST on $PORT. Will retry in a mi
+nute.\n";
        sleep 60;
        goto OUTER;
        }
} #End of monitor subroutine

sub filePrint{    #write data to file with date and time stamp
    my ($DATA)= @_;    
    print "$DATA\n";
    my $dateStamp = strftime '%Y-%m-%d', localtime;
    my $file = "$dateStamp.log";
    my $timeStamp = strftime '%H:%M:%S', localtime;
    if (-f $file){
        open (my $fh,'>>', $file);
        print $fh "$timeStamp | $DATA\n";
        close $file;
    }
    else {
        open (my $fh,'>', $file);
        print $fh "$timeStamp | $DATA\n";
        close $file;
    }
}# End of filePrint routine

my $cfg = new Config::Simple();
$cfg->read('config.ini');
my $HOST = $cfg->param("pbx");
my $PORT = $cfg->param("port");

logMonitor($HOST, $PORT); #Open the log monitoring subroutine
[download]

Can anyone explain to me how to use Win32::Daemon with this script to create a service from it? Right now it will run as a command line tool

many thanks!

---

---

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

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, 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, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

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

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