![activeperl 5.12.4 activeperl 5.12.4](http://www.putise.com/_/rsrc/1472782046494/performance/netowrk-bottleneck-mrtg/mrtg-perl-05.png)
add following registry entry (you may use apache_cgi.reg): Windows Registry Editor Version 5.00 -T" - restart apache - test perl via your fav. lines - if running as module correct path/filename LoadFile "C:/usr/bin/perl512.dll" LoadModule perl_module modules/mod_perl.so #PerlPostConfigRequire "C:/dev/xampp/apache/conf/extra/". # Order allow,deny Allow from all ScriptInterpreterSource Registry-Strict - edit your-xammp-apache-path\extra\httpd_nf - comment out "PerlPostConfigRequire"-line - if running as non-module comment out LoadFile. # It can be "All", "None", or any combination of the keywords: # Options FileInfo AuthConfig Limit # AllowOverride All # Controls who can get stuff from this server. # Options Indexes FollowSymLinks Includes ExecCGI # AllowOverride controls what directives may be placed in. # The Options directive is both complicated and important.
#ACTIVEPERL 5.12.4 INSTALL#
5.) to c:\usr - open a shell c:\usr\bin - add corresponding repo and install corresponding mod_perl.so (only needed to run as module) #ppm repo add UWinnipeg #ppm install mod_perl - if running as module copy new mod_perl.so to your-xampp-apache-path\modules - edit nf add "ScriptInterpreterSource Registry-Strict" # Possible values for the Options directive are "None", "All", # or any combination of: # Indexes Includes FollowSymLinks SymLinksifOwnerMatch ExecCGI MultiViews # Note that "MultiViews" must be named *explicitly* - "Options All" # doesn't give it to you.
![activeperl 5.12.4 activeperl 5.12.4](https://images.sftcdn.net/images/t_app-cover-s,f_auto/p/5666ffa8-96d5-11e6-b55f-00163ed833e7/2583049361/activeperl-ActivePerl_1.png)
![activeperl 5.12.4 activeperl 5.12.4](https://4.bp.blogspot.com/-ABJFhO9OYJE/TnSj2HokR8I/AAAAAAAAA3k/Kcqpy_8G5Zc/s1600/php8.jpg)
tested with xampp 1.7.4 - install activeperl (e.g.
![activeperl 5.12.4 activeperl 5.12.4](https://images.sftcdn.net/images/t_app-cover-m,f_auto/p/d707c0b8-9a61-11e6-981f-00163ec9f5fa/2768180147/perl2exe-screenshot.png)
Dim x As Integer x = InStr(sName, vbNullChar) If x > 0 Then Trim0 = Left$(sName, x - 1) Else Trim0 = sName End Function " & LPSTRtoBSTR(interf) & LPSTRtoBSTR(feats) ' ' TODO: open form w/ data ' End Sub ' ' open object in browser w/ webgis ' Public Sub openWebGIS(ByRef Id As Variant) Dim idList As String Dim layerInterface As String idList = CStr(Id) layerInterface = "LDA_obertaegigeDenkmale" Call WebGISConn_showFeaturesInIMS(idList, layerInterface) End Sub ' ' init DLL ' register access-callbackfunction ' Public Sub initWebGIS() Call WebGISConn_init(AddressOf WebGISConn_CallBack) End Sub ' ' convert C-null-terminated string from DLL to vba BSTR string ' Function LPSTRtoBSTR(ByVal lpsz As Long) As String ' Input: a valid LPSTR pointer lpsz ' Output: a sBSTR with the same character array Dim cChars As Long ' Get number of characters in lpsz cChars = lstrlenA(lpsz) ' Initialize string LPSTRtoBSTR = String$(cChars, 0) ' Copy string CopyMemory ByVal StrPtr(LPSTRtoBSTR), ByVal lpsz, cChars ' Convert to Unicode LPSTRtoBSTR = Trim0(StrConv(LPSTRtoBSTR, vbUnicode)) End Function Public Function Trim0(sName As String) As String ' Right trim string at first null.
#ACTIVEPERL 5.12.4 .DLL#
clicked on a button in firefox w/ webgis ' Public Sub WebGISConn_CallBack(ByVal interf As Long, ByVal feats As Long) Dim idList As String Dim layerInterface As String On Error Resume Next Debug.Print "dll is calling. People who want to call a callback-function/sub inside Access recommended reading: or more reading: my working sample: Option Compare Database Option Explicit Declare Sub WebGISConn_init Lib "P:\doswin\LDA\IPFLink\20110920\IPFLink.dll" Alias "IPFLink_init" (ByVal WebGISConn_CallBack As Long) Declare Sub WebGISConn_showFeaturesInIMS Lib "P:\doswin\LDA\IPFLink\20110920\IPFLink.dll" Alias "IPFLink_showFeatureIDStringWithInterfaceInIMS" (ByVal feats As String, ByVal interf As String) Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long) Declare Function lstrlenA Lib "kernel32" (ByVal lpString As Long) As Long ' ' testwrapper for easy call from "immediate window" ' Public Sub testWebGIS() Call initWebGIS Call openWebGIS(428300001) End Sub ' ' this SUB will be called from an external DLL ' e.g. People who don't want to pass an input-parameter to the DLL, which will be filled w/ the result in most other cases People w/ no control over the DLL-source, unable to change behavior of DLL