seanbamforth

//*****************************************************************************
//*** json.pkg                                                              ***
//***                                                                       ***
//*** Author: Sean Bamforth                                                 ***
//***         SELECT Computer Systems Ltd                                   ***
//***         April / May 2011                                              ***
//***                                                                       ***
//*** Purpose:                                                              ***
//***    JSON Client interface for talking to JSON / restful services.      ***
//***                                                                       ***

seanbamforth

Use Windows
Use cSelectMailer.pkg
Use emailAudit.pkg

//register a new SELECT emailer. This knows how to send emails. 
//But we also need to tell it how to audit those emails and read system flags.

Object oChilkatMailer is a cSELECTMailer
    //ghEmailObject is a global variable for your convenience. It's used as a bridge between 
    //global emailing functions and the emailing option.

seanbamforth

param (
    [string]$from = "selectcs-backup",
    [string]$to = $(get-location).ToString()
 )


#todo:if no parameters, then show instructions 
#todo:mirror option that deletes items that don't exist 
#todo:aws details need to be in the environment.

seanbamforth

param (
    [string]$from = $(get-location).ToString(),
    [string]$to = "selectcs-backup",
    [switch]$mirror 
 )

#$DebugPreference = "Continue"

#todo:if no parameters, then show instructions 
#todo:mirror option into own function 

seanbamforth

Struct tKeyValue
    String sKey 
    String sValue
End_Struct

Class cDictionary is a cObject 
    Procedure construct_object 
        Forward Send Construct_Object 
        Property tKeyValue[] pDictionary
    End_Procedure

seanbamforth

// Visual DataFlex COM proxy classes generated from C:\Windows\SysWOW64\scrrun.dll
Use FlexCom20.pkg


Define OLECompareMethod for Integer
    Define OLEBinaryCompare for 0
    Define OLETextCompare for 1
    Define OLEDatabaseCompare for 2

Define OLEIOMode for Integer

seanbamforth

Use cApplication.pkg


Procedure ReopenAll Integer hWorkspace 
    //first we need to reset the workspace. this can be different 
    //for clubwise because we do not use standard workspace objects. 
    //And we're still on 11. try it though.
    
    Set psDataPath of hWorkspace to "c:\new\data"
    Set psFileList of hWorkspace to "c:\new\data\filelist.cfg"

seanbamforth

#test.rb
#happy number checking

def nextPlace(testNum)
	testNum.to_s.each_char.inject(0) { |sum, c| sum + c.to_i**2 }
end 

def is_happy?(testNum) 
	a = b = testNum 
	while (a!=1) && (b!=1) do 

seanbamforth

Dim ad 
Dim sql_query 
Dim objFSO, objOutFile 
Dim intCount, i 

sql_query = "show databases"      


sConnect = "Driver={MariaDB ODBC 1.0 Driver};Server=localhost;Uid=root;pwd=password"

seanbamforth

SELECT 'ALTER TABLE [' + SYSOBJECTS.Name + ']' + ' ' + ' COLLATE Latin1_General_CI_AS '
    FROM SYSOBJECTS 
    WHERE SYSOBJECTS.TYPE = 'U'
    GO