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

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

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

seanbamforth

//Filters an array according to a passed parameter. 
//e.g. 
//move (FilterArray(aStringList,self,get_is_uppercase)) to aStringList

Function FilterArray Global Variant[] aVariant Integer hObj Integer iMsg Returns Variant[] 
    Variant[] aReturn 
    Integer iPos 
    Integer iCopied 
    Integer iMax 
    Boolean isOK 

seanbamforth

Webapp framework thoughts.

1. The {webproperty=True} compiler directive for properties makes the code look ugly. I'd much prefer a WebProperty command.
2. The Code for a page is too long. Add a couple of forms and some web labels and you're running at 50 lines of code when you should only really have 5 lines.
3. default Session and User Management needs the facility to enable/disable a flag.
4. Forward & Back Button.
5. There should be user management (reset password, etc) built into the default apps.
6. Trying to change a table (e.g. for weborders) doesn't tell you to stop the web app.
7. Where's my pre-processor step. Jeez.