jbratu

## CS_RESOLVE_TABLE_HANDLE_TO_NAME.oibp
Function CS_RESOLVE_TABLE_HANDLE_TO_NAME(OpenTableHandle)
/*
Given the example:
	Open 'SYSLISTS' To OpenTableHandle Else Debug
	TableName = CS_RESOLVE_TABLE_HANDLE_TO_NAME(OpenTableHandle)
The Function will return the name of the table From the handle.
*/

If Unassigned(OpenTableHandle) Then Return ''

## CS_LIST_RDKVIEW_CHANGED.oibp
Function CS_LIST_RDKVIEW_CHANGED(RDKView)

*Name of the RDK to list in the current repository.
If Unassigned(RDKView) Or RDKView EQ '' Then RDKView = 'TEST_RDK'

$Insert Logical
Declare Subroutine Rlist, Set_Status, Run_Report, Msg
Declare Function Get_Status, Run_Report

Err = ''

## mailgun_check_bounce.oibp
Function mailgun_check_bounce(params)
/************************************************************************************************
* Name       :  MAILGUN_CHECK_BOUNCE
*
* Description:  Simple example problem to query the MailGun email server to check for if the
*               specified email address bounced and get the reason why.
*               Program demonstrates the use of WinHTTP COM Object and JSON values.
*
*               Example use only. Requires configuration of static variables for example.
*               Set CheckAddressBounced, APIKey, APIDomain before use.

## CS_DETACH_ATTACH_AND_DEFINE_DBT.oibp
Function CS_DETACH_ATTACH_AND_DEFINE_DBT(void)
/*
Use this routine To change the UNC prefix In the list of Tables
And re-save the DBT file.
*/

*Prefixes to change from and to. Format:
*\\OldServer\,\\NewServer\
ChangePrefixes = ""
ChangePrefixes<-1> = '\\192.168.222.2\,\\OBERLIN\'

## UpdateRevparamFilesFromUD.vbs
Set objShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

If WScript.Arguments.Count = 0 OR WScript.Arguments.Count > 2 Then
	'Wrong number of arguments. Show help and exit
	WScript.Echo "Update revparam files. Use the revparam file in the source folder and update all found in destination path"
	WScript.echo "Example: cscript.exe UpdateRevparamFilesFromUD.vbs ""C:\Revsoft\Universal Driver"" ""C:\Revsoft\OInsight94Eval"""
	WScript.quit
End If

## PARSE_CSV_ROW.oibp
Function PARSE_CSV_ROW(Row)
/*
Usage examples were row is:
80685,"56945","UNIQUE","PARCEL RETURN SERVICE","DC","PRIMARY",38.89,-77.03,0.17,-0.75,0.62,"NA","US","Parcel Return Service, DC","NA-US-DC-PARCEL RETURN SERVICE","false",,,,"no NWS data, "
80712,"02239","UNIQUE","COM/ENERGY SERVICES","MA","ACCEPTABLE",42.36,-71.10,0.23,-0.69,0.67,"NA","US","Com/energy Services, MA","NA-US-MA-COM/ENERGY SERVICES","true",,,,"Converted Decommisioned Zipcodes"
456,"Some ""Special"" field",another with no quotes
*/


$Insert Logical

## protect for next counter variable snippet.oibp
*Ensure the loop variable i isn't already in use from a parent loop
If Unassigned(i) Then Else If i NE '' Then debug
For i = 1 To ControlsCOunt
	*Loop processing here
Next ; i = '' ;* Reset i for another loop

## openinsight url encode snippet.oibp
Val = "Hello World"
ValEnc = ICONV(Val, "[URL_FORMAT]")

## CS_LAUNCH_FILE_SNIPPET.oibp
Function CS_LAUNCH_FILE_SNIPPET(void)

*Common to hold our control between runs so it isn't re-initialized on each call
common /wscript_launch_control/ wsLauncher, wsLauncherAssigned

If Assigned(wsLauncherAssigned) Else wsLauncherAssigned = ''

If wsLauncherAssigned Else
	*Control not initialized, do it now


## powershelldayofweek.oibp
Param1 = '10/07/2016' ;* Date to find the day of week name.

*The powershell command to run.
S = 'Write-Host (get-date "%%PARAM%%").DayOfWeek'

*Swap the parameter place holder with the date
Swap '%%PARAM%%' With Param1 In S

*Build the command to run
Cmd = "PowerShell.exe -c ": S
	Function CS_RESOLVE_TABLE_HANDLE_TO_NAME(OpenTableHandle)
	/*
	Given the example:
	Open 'SYSLISTS' To OpenTableHandle Else Debug
	TableName = CS_RESOLVE_TABLE_HANDLE_TO_NAME(OpenTableHandle)
	The Function will return the name of the table From the handle.
	*/

	If Unassigned(OpenTableHandle) Then Return ''
	Function CS_LIST_RDKVIEW_CHANGED(RDKView)

	*Name of the RDK to list in the current repository.
	If Unassigned(RDKView) Or RDKView EQ '' Then RDKView = 'TEST_RDK'

	$Insert Logical
	Declare Subroutine Rlist, Set_Status, Run_Report, Msg
	Declare Function Get_Status, Run_Report

	Err = ''
	Function mailgun_check_bounce(params)
	/************************************************************************************************
	* Name : MAILGUN_CHECK_BOUNCE
	*
	* Description: Simple example problem to query the MailGun email server to check for if the
	* specified email address bounced and get the reason why.
	* Program demonstrates the use of WinHTTP COM Object and JSON values.
	*
	* Example use only. Requires configuration of static variables for example.
	* Set CheckAddressBounced, APIKey, APIDomain before use.
	Function CS_DETACH_ATTACH_AND_DEFINE_DBT(void)
	/*
	Use this routine To change the UNC prefix In the list of Tables
	And re-save the DBT file.
	*/

	*Prefixes to change from and to. Format:
	*\\OldServer\,\\NewServer\
	ChangePrefixes = ""
	ChangePrefixes<-1> = '\\192.168.222.2\,\\OBERLIN\'
	Set objShell = CreateObject("Wscript.Shell")
	Set objFSO = CreateObject("Scripting.FileSystemObject")

	If WScript.Arguments.Count = 0 OR WScript.Arguments.Count > 2 Then
	'Wrong number of arguments. Show help and exit
	WScript.Echo "Update revparam files. Use the revparam file in the source folder and update all found in destination path"
	WScript.echo "Example: cscript.exe UpdateRevparamFilesFromUD.vbs ""C:\Revsoft\Universal Driver"" ""C:\Revsoft\OInsight94Eval"""
	WScript.quit
	End If
	Function PARSE_CSV_ROW(Row)
	/*
	Usage examples were row is:
	80685,"56945","UNIQUE","PARCEL RETURN SERVICE","DC","PRIMARY",38.89,-77.03,0.17,-0.75,0.62,"NA","US","Parcel Return Service, DC","NA-US-DC-PARCEL RETURN SERVICE","false",,,,"no NWS data, "
	80712,"02239","UNIQUE","COM/ENERGY SERVICES","MA","ACCEPTABLE",42.36,-71.10,0.23,-0.69,0.67,"NA","US","Com/energy Services, MA","NA-US-MA-COM/ENERGY SERVICES","true",,,,"Converted Decommisioned Zipcodes"
	456,"Some ""Special"" field",another with no quotes
	*/


	$Insert Logical
	*Ensure the loop variable i isn't already in use from a parent loop
	If Unassigned(i) Then Else If i NE '' Then debug
	For i = 1 To ControlsCOunt
	*Loop processing here
	Next ; i = '' ;* Reset i for another loop
	Function CS_LAUNCH_FILE_SNIPPET(void)

	*Common to hold our control between runs so it isn't re-initialized on each call
	common /wscript_launch_control/ wsLauncher, wsLauncherAssigned

	If Assigned(wsLauncherAssigned) Else wsLauncherAssigned = ''

	If wsLauncherAssigned Else
	*Control not initialized, do it now
	Param1 = '10/07/2016' ;* Date to find the day of week name.

	*The powershell command to run.
	S = 'Write-Host (get-date "%%PARAM%%").DayOfWeek'

	*Swap the parameter place holder with the date
	Swap '%%PARAM%%' With Param1 In S

	*Build the command to run
	Cmd = "PowerShell.exe -c ": S