home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 April
/
Chip_2000-04_cd.bin
/
zkuste
/
Tango
/
data1.cab
/
Tango_Demos_TCFs
/
DSNConfig.tcf
< prev
next >
Wrap
Extensible Markup Language
|
1999-09-21
|
18KB
|
456 lines
<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE TAF SYSTEM "tango.dtd" >
<TCF Version="0x02000002">
<Comments />
<!--Defined Classes-->
<Classes>
<ClassDef>
<Name>DSNConfig</Name>
<!--Class constructor-->
<On_Create>
<Implementation>
<ActionRef Ref="DSNConfig.On_Create.Comments" />
</Implementation>
</On_Create>
<!--Class destructor-->
<On_Destroy>
<Implementation />
</On_Destroy>
<!--Methods of this class-->
<Methods>
<MethodDef>
<Name>Add</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>DriverName</Name>
<Comments>Name of driver to connect to i.e. <![CDATA["Pervasive ODBC Engine Interface".]]></Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Array" Direction="In">
<Name>ConnectArray</Name>
<Comments>(n x 2) array: col 1 = Key; col 2 = Value; These pairs are database driver dependant.</Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="Out">
<Name>Status</Name>
<Comments>Returns as <![CDATA["DSN Created Successfully" or an error message.]]></Comments>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="DSNConfig.Add.Create_ConnectString" />
<ActionRef Ref="DSNConfig.Add.Add_DSN" />
</Implementation>
<Comments>TRUE</Comments>
</MethodDef>
<MethodDef>
<Name>List_All</Name>
<MethodParameterList>
<MethodParameterItem DataType="Array" Direction="Out">
<Name>All_DSNs</Name>
<Comments>Returns array consisting of DSNs and associated Driver</Comments>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="DSNConfig.List_All.List_All_DSNs" />
</Implementation>
<Comments>TRUE</Comments>
</MethodDef>
<MethodDef>
<Name>List_PVSW_DBN</Name>
<MethodParameterList>
<MethodParameterItem DataType="Array" Direction="Out">
<Name>PVSW_DBNs</Name>
<Comments>Array of Pervasive Named Databases</Comments>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="DSNConfig.List_PVSW_DBN.Retrieve_Named_Databases" />
</Implementation>
<Comments>TRUE</Comments>
</MethodDef>
<MethodDef>
<Name>Test</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>DSN</Name>
<Comments>Name of the DSN to be tested.</Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>User</Name>
<Comments>User Name (If necessary by database)</Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>Password</Name>
<Comments>Password To Connect (if necessary)</Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="Out">
<Name>Status</Name>
<Comments>Returns as <![CDATA["DSN Test Completed Successfully" or an error message.]]></Comments>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="DSNConfig.Test.Test_Connection_to_DSN" />
</Implementation>
<Comments>TRUE</Comments>
</MethodDef>
<MethodDef>
<Name>setEAPath</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>EAPath</Name>
<Comments>External Action Path include concluding <![CDATA['\' -denotes where the file "DSNConfig.exe" is located.]]></Comments>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="DSNConfig.setEAPath.Assign" />
</Implementation>
</MethodDef>
<MethodDef>
<Name>Delete</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>DriverName</Name>
<Comments>Name of driver to connect to i.e. <![CDATA["Pervasive ODBC Engine Interface".]]></Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>DSN</Name>
<Comments>DSN to be deleted.</Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="Out">
<Name>Status</Name>
<Comments>Returns as <![CDATA["DSN Deleted Successfully" or an error message.]]></Comments>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="DSNConfig.Delete.Create_ConnectString" />
<ActionRef Ref="DSNConfig.Delete.Delete_DSN" />
</Implementation>
<Comments>TRUE</Comments>
</MethodDef>
<MethodDef>
<Name>Update</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>DriverName</Name>
<Comments>Name of driver to connect to i.e. <![CDATA["Pervasive ODBC Engine Interface".]]></Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Array" Direction="In">
<Name>ConnectArray</Name>
<Comments>(n x 2) array: col 1 = Key; col 2 = Value; These pairs are database driver dependant.</Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="Out">
<Name>Status</Name>
<Comments>Returns as <![CDATA["DSN Updated Successfully" or an error message.]]></Comments>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="DSNConfig.Update.Create_ConnectString" />
<ActionRef Ref="DSNConfig.Update.Update_DSN" />
</Implementation>
<Comments>TRUE</Comments>
</MethodDef>
<MethodDef>
<Name>List_Supported</Name>
<MethodParameterList>
<MethodParameterItem DataType="Array" Direction="In">
<Name>Supported_Drivers</Name>
<Comments>Array consisting of the Drivers <![CDATA[
that are supported by the calling taf.]]></Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Array" Direction="Out">
<Name>Supported_DSNs</Name>
<Comments>Returns an array of Supported DSNs.</Comments>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="DSNConfig.List_Supported.Retrieve_All_DSNs" />
<ActionRef Ref="DSNConfig.List_Supported.Filter_Out_Supported_DSNs" />
<ActionRef Ref="DSNConfig.List_Supported.Output_Results" />
</Implementation>
<Comments>TRUE</Comments>
</MethodDef>
<MethodDef>
<Name>List_All_Drivers</Name>
<MethodParameterList>
<MethodParameterItem DataType="Array" Direction="Out">
<Name>Installed_Drivers</Name>
<Comments>Returns array of Drivers and Version</Comments>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="DSNConfig.List_All_Drivers.get_Drivers" />
</Implementation>
</MethodDef>
<MethodDef>
<Name>List_DSN_Info</Name>
<MethodParameterList>
<MethodParameterItem DataType="Text" Direction="In">
<Name>DSN</Name>
<Comments>DSN to attain Connect Array from.</Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>UID</Name>
<Comments>User ID to login to specified DSN. Not required.</Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>PWD</Name>
<Comments>Password to connect to DSN. Not required.</Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Text" Direction="In">
<Name>Driver</Name>
<Comments>Driver specific to DSN. Not required.</Comments>
</MethodParameterItem>
<MethodParameterItem DataType="Array" Direction="Out">
<Name>DSN_Info</Name>
<Comments>Array of Attributes and Values.</Comments>
</MethodParameterItem>
</MethodParameterList>
<Implementation>
<ActionRef Ref="DSNConfig.List_DSN_Info.Create_ConnectString" />
<ActionRef Ref="DSNConfig.List_DSN_Info.get_DSN_Info" />
</Implementation>
</MethodDef>
</Methods>
<!--Instance variables for this class-->
<Variables>
<VariableDef DataType="Text">
<Name>EAPath</Name>
</VariableDef>
</Variables>
</ClassDef>
</Classes>
<!--Program actions-->
<Actions>
<ResultAction ID="DSNConfig.On_Create.Comments" Sig="null">
<ResultsOutput Ref="DSNConfig.On_Create.Comments.Results" />
</ResultAction>
<AssignAction ID="DSNConfig.Add.Create_ConnectString" Sig="asgn">
<AssignItem>
<Name>ConnectString</Name>
<Value><![CDATA[<@ROWS ARRAY="method$ConnectArray"><@COl 1>=<@COL 2><@CHAR 1></@ROWS>]]></Value>
<Scope>Local</Scope>
</AssignItem>
</AssignAction>
<CommandLineAction ID="DSNConfig.Add.Add_DSN" Sig="aevt">
<Command><![CDATA[<@VAR instance$EAPath>DSNConfig.exe]]></Command>
<VariableList>
<VariableItem>
<Name>DriverName</Name>
<Value>@@method$DriverName</Value>
</VariableItem>
<VariableItem>
<Name>ConnectString</Name>
<Value>@@local$ConnectString</Value>
</VariableItem>
<VariableItem>
<Name>function</Name>
<Value>a</Value>
</VariableItem>
</VariableList>
<ResultsOutput Ref="DSNConfig.Add.Add_DSN.Results" />
</CommandLineAction>
<CommandLineAction ID="DSNConfig.List_All.List_All_DSNs" Sig="aevt">
<Command><![CDATA[<@VAR instance$EAPath>DSNConfig.exe]]></Command>
<VariableList>
<VariableItem>
<Name>function</Name>
<Value>l</Value>
</VariableItem>
</VariableList>
<ResultsOutput Ref="DSNConfig.List_All.List_All_DSNs.Results" />
</CommandLineAction>
<CommandLineAction ID="DSNConfig.List_PVSW_DBN.Retrieve_Named_Databases" Sig="aevt">
<Command><![CDATA[<@VAR instance$EAPath>DSNConfig.exe]]></Command>
<VariableList>
<VariableItem>
<Name>function</Name>
<Value>p</Value>
</VariableItem>
</VariableList>
<ResultsOutput Ref="DSNConfig.List_PVSW_DBN.Retrieve_Named_Databases.Results" />
</CommandLineAction>
<CommandLineAction ID="DSNConfig.Test.Test_Connection_to_DSN" Sig="aevt">
<Command><![CDATA[<@VAR instance$EAPath>DSNConfig.exe]]></Command>
<VariableList>
<VariableItem>
<Name>function</Name>
<Value>t</Value>
</VariableItem>
<VariableItem>
<Name>DSN</Name>
<Value>@@method$DSN</Value>
</VariableItem>
<VariableItem>
<Name>User</Name>
<Value>@@method$User</Value>
</VariableItem>
<VariableItem>
<Name>Password</Name>
<Value>@@method$Password</Value>
</VariableItem>
</VariableList>
<ResultsOutput Ref="DSNConfig.Test.Test_Connection_to_DSN.Results" />
</CommandLineAction>
<AssignAction ID="DSNConfig.setEAPath.Assign" Sig="asgn">
<AssignItem>
<Name>EAPath</Name>
<Value>@@method$EAPath</Value>
<Scope>Instance</Scope>
</AssignItem>
</AssignAction>
<AssignAction ID="DSNConfig.Delete.Create_ConnectString" Sig="asgn">
<AssignItem>
<Name>ConnectString</Name>
<Value>DSN=@@method$DSN<![CDATA[<@CHAR 1>]]></Value>
<Scope>Local</Scope>
</AssignItem>
</AssignAction>
<CommandLineAction ID="DSNConfig.Delete.Delete_DSN" Sig="aevt">
<Command><![CDATA[<@VAR instance$EAPath>DSNConfig.exe]]></Command>
<VariableList>
<VariableItem>
<Name>DriverName</Name>
<Value>@@method$DriverName</Value>
</VariableItem>
<VariableItem>
<Name>ConnectString</Name>
<Value>@@local$ConnectString</Value>
</VariableItem>
<VariableItem>
<Name>function</Name>
<Value>r</Value>
</VariableItem>
</VariableList>
<ResultsOutput Ref="DSNConfig.Delete.Delete_DSN.Results" />
</CommandLineAction>
<AssignAction ID="DSNConfig.Update.Create_ConnectString" Sig="asgn">
<AssignItem>
<Name>ConnectString</Name>
<Value><![CDATA[<@ROWS ARRAY="method$ConnectArray"><@COl 1>=<@COL 2><@CHAR 1></@ROWS>]]></Value>
<Scope>Local</Scope>
</AssignItem>
</AssignAction>
<CommandLineAction ID="DSNConfig.Update.Update_DSN" Sig="aevt">
<Command><![CDATA[<@VAR instance$EAPath>DSNConfig.exe]]></Command>
<VariableList>
<VariableItem>
<Name>DriverName</Name>
<Value>@@method$DriverName</Value>
</VariableItem>
<VariableItem>
<Name>ConnectString</Name>
<Value>@@local$ConnectString</Value>
</VariableItem>
<VariableItem>
<Name>function</Name>
<Value>u</Value>
</VariableItem>
</VariableList>
<ResultsOutput Ref="DSNConfig.Update.Update_DSN.Results" />
</CommandLineAction>
<CommandLineAction ID="DSNConfig.List_Supported.Retrieve_All_DSNs" Sig="aevt">
<Command><![CDATA[<@VAR instance$EAPath>DSNConfig.exe]]></Command>
<VariableList>
<VariableItem>
<Name>function</Name>
<Value>l</Value>
</VariableItem>
</VariableList>
<ResultsOutput Ref="DSNConfig.List_Supported.Retrieve_All_DSNs.Results" />
</CommandLineAction>
<ResultAction ID="DSNConfig.List_Supported.Filter_Out_Supported_DSNs" Sig="null">
<ResultsOutput Ref="DSNConfig.List_Supported.Filter_Out_Supported_DSNs.Results" />
</ResultAction>
<ResultAction ID="DSNConfig.List_Supported.Output_Results" Sig="null">
<ResultsOutput Ref="DSNConfig.List_Supported.Output_Results.Results" />
</ResultAction>
<CommandLineAction ID="DSNConfig.List_All_Drivers.get_Drivers" Sig="aevt">
<Command><![CDATA[<@VAR instance$EAPath>DSNConfig.exe]]></Command>
<VariableList>
<VariableItem>
<Name>function</Name>
<Value>d</Value>
</VariableItem>
</VariableList>
<ResultsOutput Ref="DSNConfig.List_All_Drivers.get_Drivers.Results" />
</CommandLineAction>
<AssignAction ID="DSNConfig.List_DSN_Info.Create_ConnectString" Sig="asgn">
<AssignItem>
<Name>ConnectString</Name>
<Value>DSN=@@method$DSN;<![CDATA[<@IF "LEN(@@method$UID)">UID=@@method$UID;</@IF><@IF "LEN(@@method$PWD)">PWD=@@method$PWD;</@IF><@IF "LEN(@@method$Driver)">Driver=@@method$Driver;</@IF>]]></Value>
<Scope>Local</Scope>
</AssignItem>
</AssignAction>
<CommandLineAction ID="DSNConfig.List_DSN_Info.get_DSN_Info" Sig="aevt">
<Command><![CDATA[<@VAR instance$EAPath>DSNConfig.exe]]></Command>
<VariableList>
<VariableItem>
<Name>function</Name>
<Value>x</Value>
</VariableItem>
<VariableItem>
<Name>ConnectString</Name>
<Value>@@local$ConnectString</Value>
</VariableItem>
</VariableList>
<ResultsOutput Ref="DSNConfig.List_DSN_Info.get_DSN_Info.Results" />
</CommandLineAction>
</Actions>
<!--Data sources-->
<DataSources />
<!--Output blocks-->
<Outputs>
<Output ID="DSNConfig.On_Create.Comments.Results" Type="HTML"><![CDATA[
<@COMMENT>
This Tango Class File delivers ODBC data source configuration capabilities
to Tango applications.
Matt Matoushek, Matt.Matoushek@pervasive.com
Developer Solutions, Pervasive Software
</@COMMENT>]]></Output>
<Output ID="DSNConfig.Add.Add_DSN.Results" Type="HTML"><![CDATA[<@ASSIGN method$Status "<@COL 1>">]]></Output>
<Output ID="DSNConfig.List_All.List_All_DSNs.Results" Type="HTML"><![CDATA[<@ASSIGN method$All_DSNs "<@ARRAY VALUE='<@COL 1>' CDELIM='|' RDELIM='<@CHAR 1>'>">]]></Output>
<Output ID="DSNConfig.List_PVSW_DBN.Retrieve_Named_Databases.Results" Type="HTML"><![CDATA[<@ASSIGN method$PVSW_DBNs "<@ARRAY VALUE='<@COL 1>' RDELIM='|'>">]]></Output>
<Output ID="DSNConfig.Test.Test_Connection_to_DSN.Results" Type="HTML"><![CDATA[<@ASSIGN method$Status "<@COL 1>">]]></Output>
<Output ID="DSNConfig.Delete.Delete_DSN.Results" Type="HTML"><![CDATA[<@ASSIGN method$Status "<@COL 1>">]]></Output>
<Output ID="DSNConfig.Update.Update_DSN.Results" Type="HTML"><![CDATA[<@ASSIGN method$Status "<@COL 1>">]]></Output>
<Output ID="DSNConfig.List_Supported.Retrieve_All_DSNs.Results" Type="HTML"><![CDATA[<@ASSIGN local$resultArray "<@ARRAY VALUE='<@COL 1>' CDELIM='|' RDELIM='<@CHAR 1>'>">]]></Output>
<Output ID="DSNConfig.List_Supported.Filter_Out_Supported_DSNs.Results" Type="HTML"><![CDATA[<@ROWS ARRAY=local$resultArray>
<@COMMENT>
If the Driver for a particular DSN is contained in the supported list,
Then Augment the list of Supported Drivers.
Will be put in an array to be passed back to calling taf.
</@COMMENT>
<@IF EXPR="@@method$Supported_Drivers contains @@local$resultArray[<@CURROW>,2]">
<@ASSIGN local$supportedString "<@VAR local$supportedString>@@local$resultArray[<@CURROW>,1]|@@local$resultArray[<@CURROW>,2]<@CHAR 1>">
</@IF>
</@ROWS>
<@COMMENT> Create Supported_DSNs Array </@COMMENT>
<@IFEMPTY @@local$supportedString>
<@ASSIGN method$Supported_DSNs "Error Requesting DSNs">
<@ELSE>
<@ASSIGN method$Supported_DSNs "<@ARRAY VALUE='@@local$supportedString' RDELIM='<@CHAR 1>' CDELIM='|'>">
</@IF>
]]></Output>
<Output ID="DSNConfig.List_Supported.Output_Results.Results" Type="HTML"><![CDATA[<@VAR method$Supported_DSNs ENCOING=NONE>
]]></Output>
<Output ID="DSNConfig.List_All_Drivers.get_Drivers.Results" Type="HTML"><![CDATA[<@ASSIGN method$Installed_Drivers "<@ARRAY VALUE='<@COL 1>' CDELIM='|' RDELIM='<@CHAR 1>'>">]]></Output>
<Output ID="DSNConfig.List_DSN_Info.get_DSN_Info.Results" Type="HTML"><![CDATA[<@ASSIGN method$DSN_Info "<@ARRAY VALUE='<@COL 1>' CDELIM='=' RDELIM=';'>">]]></Output>
</Outputs>
</TCF>