I wrote some code 6 years ago, to get around this issue, when they started charging money for Firedaemon.

I posted the code here last year.

Update:I have noticed that Win32::Daemon appears not to be available for current perl versions.

For this app, since performance for this code is not an issue, you can use the external "sc" (Service Controller) command.

Here is the (untested) revised sub, that allows you to comment-out use Win32::Daemon:

sub MakeService{
  my $ServiceName = shift or die "Service Name Not Specified\n";
  my $ServiceDir = shift;
  my $ServiceCommandLine = shift;
  my %ServiceStatus;

  # See if registered in SERVICES
  if (Win32::Service::GetStatus("", $ServiceName, \%ServiceStatus)){
     # Service Already Exists .. complain
     warn "**Service $ServiceName is Already defined as a SERVICE and 
+".
        $ServiceStatusCode{$ServiceStatus{CurrentState}}
        . ";  Please Remove this service before adding**\n";
     return 1;
  }

  #It may be in REGISTRY, but not registered as a service - check
  if (exists $Registry->{"LMachine/System/CurrentControlSet/Services/$
+ServiceName/"})
  {
     warn "**Service $ServiceName is Already defined in Registry ".
          ";  Please Remove this service before adding**\n";
     return 1;
  }


  my %ServiceInfo = (
        machine =>  '',
        name    =>  "MRTG$ServiceName",
        display =>  "MRTG $ServiceName",
        path    =>  '',
        user    =>  '',
        pwd     =>  '',
        description => "$ServiceName MRTG Service",
        parameters =>"%SystemRoot%\\system32\\srvany.exe",
    );
   # if( Win32::Daemon::CreateService( \%ServiceInfo ) )
   # {
   #     print "Successfully added Service $ServiceInfo{name}.\n";
   # }
   # else
   # {
   #     print "Failed to add service $ServiceInfo{name}: " . Win32::F
+ormatMessage( Win32::Daemon::GetLastError() ) . "\n";
   #     return 1;
   # }
  print "\t:$_" for qx|sc create $ServiceInfo{name} binpath=$ServiceIn
+fo{parameters} DisplayName="$ServiceInfo{description}"|;

 $Registry->{"LMachine/System/CurrentControlSet/Services/$ServiceName/
+Parameters"}= {
   "/Application"  => [$ServiceCommandLine ,"REG_SZ"],
   "/AppDirectory" => [$ServiceDir               ,"REG_SZ"],
     } or die "Can not create services Parameter entry\n";


  ## Need to actually START the new service ...
  print "Service $ServiceName Created. (Will AutoStart on reboot)\n";
  print "To start it NOW, use the command:\n  NET START MRTG$ServiceNa
+me\n";

}
#################################
sub DeleteThisService{
  my $ServiceName = shift or die "No service specified to DELETE\n";
  my $rslt = qx|sc delete $ServiceName|;
    #Win32::Daemon::DeleteService('', $ServiceName );

  print "Service $ServiceName DELETED = $rslt ***\n";
}
[download]

---

---

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.