#//////////////////////////////////////////////////////////////////////////////
#//
#//  Create.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 a script that registers a Perl script as 
# a Win32 Serice.

use Win32::Daemon; 

my $Script = shift @ARGV || "Callback.pl";
my $ServiceName = shift @ARGV || "PerlTest";

%Hash = (
    name    =>  $ServiceName,
    display =>  'Perl: Test of Win32::Daemon ($ServiceName)',
    path    =>  "\"$^X\" \"" . Win32::GetLongPathName( scalar Win32::GetFullPathName( ".\\$Script" ) ) . "\"",
    user    =>  '',
    password =>  '',
);

if( Win32::Daemon::CreateService( \%Hash ) )
{
    print "Successfully added.\n";
}
else
{
    print "Failed to add service: " . GetError() . "\n";
}



print "finished.\n";

sub DumpError
{
    print GetError(), "\n";
}

sub GetError
{
    return( Win32::FormatMessage( Win32::Daemon::GetLastError() ) );
}