brucemcpherson

function cCustomMapping(options) {

    // customize one of these for specific behavior during map usage
    // the functions below must do at least as shown in this skeleton - add your own in addition.

    var self = this;
    var pOptions = options,
        pData, pMap, pParams, pDb;
    self.getOptions = function () {
        return pOptions;

brucemcpherson

Option Explicit
'v1.1
' register this computer for deaddrop
Public Sub registerDeadDrop()
    Dim ds As cDataSet, cc As cCell, fName As String, sf As String
    Set ds = New cDataSet

    With ds.populateData(wholeSheet(cGeoCodingParameters), , , True, cCustomCode)
        Set cc = .cell("local register", "code")
        If Not cc Is Nothing Then

brucemcpherson

<gistThat info="this is a manifest for gistThat VBA code distribution  - see ramblings.mcpher.com for details">
    <manifest description="cDataset and associated classes and modules" contact="[email protected]">
        <gists>
            <item1 gistid="3414216" version="" filename="cCell.cls" module="cCell" type="class" />
            <item2 gistid="3414216" version="" filename="cDataSet.cls" module="cDataSet" type="class" />
            <item3 gistid="3414216" version="" filename="cDataSets.cls" module="cDataSets" type="class" />
            <item4 gistid="3414216" version="" filename="cDataColumn.cls" module="cDataColumn" type="class" />
            <item5 gistid="3414216" version="" filename="cDataRow.cls" module="cDataRow" type="class" />
            <item6 gistid="3414216" version="" filename="cHeadingRow.cls" module="cHeadingRow" type="class" />
            <item7 gistid="3414346" version="" filename="" module="usefulStuff" type="module" />

brucemcpherson

'[email protected] :do not modify this line - see ramblings.mcpher.com for details: updated on 2/3/2014 6:52:09 PM : from manifest:8767201 gist https://gist.github.com/brucemcpherson/7943765/raw/cDeadDrop.cls
Option Explicit
' v1.2
Private pScriptDb As cScriptDbCom
Private pPackage As cJobject
Private Const deadDropKey = "xLiberationConversations"
Public Property Get willExpireAt() As Date
    willExpireAt = DateAdd("n", 24 * 60, Now())
End Property
Public Property Get key() As String

brucemcpherson

Option Explicit
Public Sub btcSetup()
    'destroy this workbook and make an empty one
    btcCreateWorkBook
    btcMakeDashboard
    
End Sub
Public Function btcMakeDashboard(Optional dashType As String = "ticker") As Boolean

    ' this creates an empty dashboard based on the latest ticker values

brucemcpherson

<?xml version="1.0" encoding="UTF-8"?>
<gistThat info="this is a manifest for gistThat VBA code distribution  - see ramblings.mcpher.com for details">
   <manifest description="cParseCom parse.com vba API- needs cdataset and cjobject" contact="[email protected]">
      <gists>
         <item1 gistid="6937529" version="" filename="usefulEncrypt.vba" module="usefulEncrypt" type="module" />
         <item4 gistid="3423912" version="" filename="cBrowser.cls" module="cBrowser" type="class" />
         <item5 gistid="7644016" version="" filename="parseCom.vba" module="parseCom" type="module" />
         <item2 gistid="7644016" version="" filename="cParseCom.cls" module="cParseCom" type="class" />
      </gists>

brucemcpherson

Option Explicit
' a VBA class for parse.com
' v1.2
Private pBrowser As cBrowser
Private pPackage As cJobject
Private pClass As String
Private pApplicationHeaders As cJobject
Private pSalt As String
Private pBatch As cJobject
Private pBatchPoint As String

brucemcpherson

<?xml version="1.0" encoding="UTF-8"?>
<gistThat info="this is a manifest for gistThat VBA code distribution  - see ramblings.mcpher.com for details">
   <manifest description="UAMeasure Protocol" contact="[email protected]">
      <gists>
         <item1 gistid="6937529" version="" filename="usefulEncrypt.vba" module="usefulEncrypt" type="module" />
         <item2 gistid="7453196" version="" filename="UAMeasure.vba" module="UAMeasure" type="module" />
         <item3 gistid="7453152" version="" filename="cUAMeasure.cls" module="cUAMeasure" type="class" />
         <item4 gistid="3423912" version="" filename="cBrowser.cls" module="cBrowser" type="class" />
         <item5 gistid="3414346" version="" filename="" module="usefulStuff" type="module" />
         <item6 gistid="5102369" version="" filename="cStringChunker.cls" module="cStringChunker" type="class" />

brucemcpherson

'[email protected] :do not modify this line - see ramblings.mcpher.com for details: updated on 3/4/2014 2:17:37 PM : from manifest:7471153 gist https://gist.github.com/brucemcpherson/7453196/raw/UAMeasure.vba
Option Explicit
Public Sub testua()
    With registerUA("developing_testua")
        ' do something
        sleep 5
        ' kill session
        .postAppKill
        If Not .browser.isOk Then
            Debug.Print .browser.status

brucemcpherson

'[email protected] :do not modify this line - see ramblings.mcpher.com for details: updated on 1/14/2014 10:38:24 AM : from manifest:7471153 gist https://gist.github.com/brucemcpherson/7453152/raw/cUAMeasure.cls
Option Explicit
'v2.2
Private pUACode As String
Private pBrowser As cBrowser
Private pID As String
Private pPostData As String
Private pUrl As String
Private pVersion As String
Private pOptOut As Boolean