#//////////////////////////////////////////////////////////////////////////////
#//
#//  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 $ServiceName = shift @ARGV || 'PerlTest';
if( Win32::Daemon::DeleteService( $ServiceName ) )
{
    print "Successfully removed.\n";
}
else
{
    print "Failed to remove service: " . GetError() . "\n";
}
print "finished.\n";

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

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