thoughtcroft

[2014-05-27T23:44:24+00:00] INFO: Processing remote_file[/var/cache/repmgr/repmgr-bugfix-standby-follow-user.tar.gz] action create_if_missing (repmgr::source_install line 40)
[2014-05-27T23:44:24+00:00] DEBUG: touching /var/cache/repmgr/repmgr-bugfix-standby-follow-user.tar.gz to create it
[2014-05-27T23:44:24+00:00] INFO: remote_file[/var/cache/repmgr/repmgr-bugfix-standby-follow-user.tar.gz] created file /var/cache/repmgr/repmgr-bugfix-standby-follow-user.tar.gz
[2014-05-27T23:44:24+00:00] DEBUG: remote_file[/var/cache/repmgr/repmgr-bugfix-standby-follow-user.tar.gz] checking for changes
[2014-05-27T23:44:24+00:00] DEBUG: turning gzip compression off due to filename ending in gz
[2014-05-27T23:44:24+00:00] DEBUG: Cache control headers: {}
[2014-05-27T23:44:24+00:00] DEBUG: Chef::HTTP calling Chef::HTTP::Decompressor#handle_request
[2014-05-27T23:44:24+00:00] DEBUG: Chef::HTTP calling Chef::HTTP::CookieManager#handle_request
[2014-05-27T23:44:24+00:00] DEBUG: Chef::HTTP calling Chef::HTTP::ValidateContentLen

thoughtcroft

# vi:syntax=ruby
# Customise this file, documentation can be found here:
# https://github.com/KrauseFx/fastlane/tree/master/docs
# All available actions: https://github.com/KrauseFx/fastlane/blob/master/docs/Actions.md
# can also be listed using the `fastlane actions` command

fastlane_version "1.13.1"

default_platform :ios

thoughtcroft

Public Enum ControlNameFormat
   cnfcShortPropertyName
   cnfcLongHierarchicalName
End Enum

Public Function GetSubFormControlName( _
   ByRef frm As Form, _
   Optional ByVal NameFormat As ControlNameFormat = _
      cnfcShortPropertyName) As String

thoughtcroft

Public Enum TextEditMode
   temcInvalid = 0
   temcLockedTrue = 2 ^ 0
   temcLockedFalse = 2 ^ 1
   temcEnabledTrue = 2 ^ 2
   temcEnabledFalse = 2 ^ 3
   temcEnterWithEdit = temcLockedFalse + temcEnabledTrue
   temcEnterNoEdit = temcLockedTrue + temcEnabledTrue
   temcNoEnterNormal = temcLockedTrue + temcEnabledFalse
   temcNoEnterDimmed = temcLockedFalse + temcEnabledFalse

thoughtcroft

Private rps As ReportPrintStatus

Private Sub Report_Close()
   If rps.Printed Then
      ' Do something
    End If
End Sub

Private Sub Report_Open(Cancel As Integer)
   ' Sink the reports events so we can determine if it was printed or not

thoughtcroft

Public Sub CopyExcelData( _
       ByRef wkbSource As Object, _
       ByRef wkbTarget As Object, _
       Optional ByVal blnCopyEmptyCells As Boolean = True)

    '*** Change to remove control chars as it crashes Excel 97 ***'

    ' Copy all data entry cells from one workbook
    ' to the other assuming that a data entry cell
    ' is:

thoughtcroft

Dim MyNewMailHandler As clsNewMailHandler

Private Sub Application_Quit()
   Set MyNewMailHandler = Nothing
End Sub

Private Sub Application_Startup()
   Set MyNewMailHandler = New clsNewMailHandler
End Sub

thoughtcroft

' Note: VBA6 is a conditional compiler constant that indicates
' the version of VBA and in this module we use enumerated types if
' supported otherwise we use plain old public constants

#If CBool(VBA6) Then
' Enumerate methods for selecting mode of character removal
Public Enum StripCharsMode
    scmcRemoveAlphas = 2 ^ 0
    scmcRemoveControl = 2 ^ 1
    scmcRemoveNumerics = 2 ^ 2

thoughtcroft

' Class for defining an application state which can be
' saved and restored using the AppStateMgr class

' Developed by Warren Bain on 16/11/2006
' Copyright (c) Thought Croft Pty Ltd
' http:\\www.thoughtcroft.com
' All rights reserved.

Option Explicit

thoughtcroft

Public Function GeneratePassword( _
       ByVal intLength As Integer) As String

    ' Generates a random string of digits of the requested length

    ' In:
    '   intLength - number of digits to be returned (max 9)
    ' Out:
    '   Return Value - a random string of digits
    ' Example: