Win32::Daemon with 5.10.

[fenLisesi]

O, wise ones (humbled, as always, in your presence):

We are considering upgrading an application to 5.10, but we have not been able to get Win32::Daemon to work properly therewith.

After some tweaking, my colleague has been able to compile the code on CPAN, but it won't run. Dave Roth, the author of the module, doesn't seem to be responding to queries.

Win32::Daemon has been recommended here by some of the wisest monks. That leads me to believe that there are some users of the module in this here Monastery, some of whom may have tried to use it with 5.10. Has anyone else taken a shot at this? If not, I would like to pose it as a PerlMonks Challenge, please.

Suggestions for an alternative solution are welcome, too.

[BrowserUk]

If you'd rather or need to build this yourself, the follow patches and makefile allow that using AS1000 and MSVC v6.0

Patch (For application to the sourcecode from backpan)

Note: The download link from Win32::Daemon is broken. It's for a completely different package (Win32::Scheduler)??

diff -iwbur Win32-Daemon\daemon.cpp Win32-Daemon-510\daemon.cpp
--- Win32-Daemon\daemon.cpp    Sun Mar 19 14:14:52 2000
+++ Win32-Daemon-510\daemon.cpp    Tue Mar 25 00:42:14 2008
@@ -102,7 +102,7 @@
         croak( "Usage: " EXTENSION "::Constant( $Name, $Arg )\n" );
     }
     
-    pszName = (char*) SvPV( ST( 0 ), na );
+    pszName = (char*) SvPVX( ST( 0 ) );
 
     eResult = Constant( pszName, &pBuffer );
     switch( eResult )
@@ -287,7 +287,7 @@
         croak( "Usage: " EXTENSION "::DeleteService( $ServiceName )\n
+" );
     }
 
-    if( NULL != ( pszServiceName = SvPV( ST( 0 ), na ) ) )
+    if( NULL != ( pszServiceName = SvPVX( ST( 0 ) ) ) )
     {
         SC_HANDLE hSc = OpenSCManager( NULL, NULL, SC_MANAGER_ALL_ACC
+ESS );
         if( NULL != hSc )
@@ -332,7 +332,7 @@
 
     if( 2 == items )
     {
-        hService = SvIV( ST( 1 ) );
+        hService = (SERVICE_STATUS_HANDLE) SvIV( ST( 1 ) );
     }
 
     if( NULL != hService )
@@ -414,11 +414,11 @@
 
     if( items )
     {
-        pszWindowStation = SvPV( ST( 0 ), na );
+        pszWindowStation = SvPVX( ST( 0 ) );
     }
     if( 1 < items )
     {
-        pszDesktop = SvPV( ST( 0 ), na );
+        pszDesktop = SvPVX( ST( 0 ) );
     }
 
     // Free your mind...and the current console. :)
@@ -533,7 +533,7 @@
     newXS( EXTENSION "::Timeout",           XS_WIN32__Daemon_Timeout,
+ file );
     newXS( EXTENSION "::GetServiceHandle",  XS_WIN32__Daemon_GetServi
+ceHandle, file );
 
-    ST(0) = &sv_yes;
+    ST(0) = &PL_sv_yes;
     XSRETURN( retcode );
 
 }            
diff -iwbur Win32-Daemon\test\TEST.PL Win32-Daemon-510\test\TEST.PL
--- Win32-Daemon\test\TEST.PL    Tue Jan 25 08:26:56 2000
+++ Win32-Daemon-510\test\TEST.PL    Tue Mar 25 02:24:24 2008
@@ -1,4 +1,4 @@
-use Win32::Service::Daemon; 
+use Win32::Daemon;
 
 %Hash = (
     name    =>  'PerlTest',
@@ -8,7 +8,7 @@
     pwd     =>  '',
 );
 
-if( Win32::Service::Daemon::CreateService( \%Hash ) )
+if( Win32::Daemon::CreateService( \%Hash ) )
 {
     print "Successfully added.\n";
 }
diff -iwbur Win32-Daemon\Win32Perl.h Win32-Daemon-510\Win32Perl.h
--- Win32-Daemon\Win32Perl.h    Sun Dec 12 17:21:48 1999
+++ Win32-Daemon-510\Win32Perl.h    Tue Mar 25 00:45:20 2008
@@ -326,9 +326,10 @@
     inline LPTSTR HashGetPV( PERL_OBJECT_PROTO HV *pHv, LPTSTR pszKey
+Name )
     {
         SV *pSv = HashGetSV( PERL_OBJECT_ARGS pHv, pszKeyName );
+       
         if( NULL != pSv )
         {
-            return( SvPV( pSv, na ) );
+            return( SvPVX( pSv ) );
         }
         else
         {

makefile

# makefile for Win23::Daemon (perl v510) 
# Derived manually by BrowserUk

PERLLIB = c:\perl510\lib\CORE\perl510.lib
SYSTEMLIBS = c:\cl\lib\User32.Lib c:\cl\lib\AdvAPI32.Lib
INCLUDES = -I"c:\cl\include" -I"c:\perl510\lib\CORE"

.cpp.obj :
    cl -c $(INCLUDES) $<
    
Daemon.dll : Daemon.cpp CONSTANT.obj CWinStation.obj ServiceThread.obj
+ daemon.def 
    cl -MT -LD -DWIN32  $(INCLUDES) $** $(PERLLIB) $(SYSTEMLIBS) /link
+ /NODEFAULTLIB:libc

ServiceThread.obj : ServiceThread.cpp
    cl -c -EHsc $(INCLUDES) $?

You'll need to copy Daemon.PM and Daemon.dll into appropriate places manually. Someone else will have to work out how to get EU::MM to produce a suitable makefile.

[fenLisesi]

BrowserUk,

Thank you very much for this. We downloaded the backpan version from 2000-03-19, applied your patch, and it actually compiled with 5.10 and the tests ran successfully.

It turns out, however, that this version is way too old to help us, because our application uses callbacks, a feature that was apparently added to Win32::Daemon on 2001-02-24.

[BrowserUk]

Where is the source for the version you are using from?

[bingos]

There appears to be an updated version on Dave's FTP site with links for 5.10

[fenLisesi]

Thanks, bingos. That beta was apparently placed on the ftp site the day I posted my message. We couldn't get it to work very well, though. The callback subs never seem to get called.