[Eas-dev-commit] ocmng/EAS/admin dbconsole.prg, NONE, 1.1 dbconsole.xfl, NONE, 1.1 dbconsole.xml, N

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Update of /cvsroot/eas-dev/ocmng/EAS/admin
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv6950/EAS/admin

Added Files:
	dbconsole.prg dbconsole.xfl dbconsole.xml 
Log Message:
Move all components to top level. Remove ocmng and xml2xmo sources. Add components:
- dbconsole
- form_menu, form_action and form_localization for menu generation
- update form component for generation menu

--- NEW FILE: dbconsole.prg ---
/*-------------------------------------------------------------------------*/
/*   E/AS Component (part of E/AS project)								   */
/*													                 	   */
/*   Copyright (C) 2006 by E/AS Software Foundation				 		   */
/*   Author: Andrey Cherepanov <sk...@ea...>						   */
/*   																	   */
/*   This program is free software; you can redistribute it and/or modify  */
/*   it under the terms of the GNU General Public License as               */
/*   published by the Free Software Foundation; either version 2 of the    */
/*   License, or (at your option) any later version.                       */
/*-------------------------------------------------------------------------*/

/*--------------------------------------------------------------------------/
/ 																		    /
/ Name:		Database console								   	        	/
/ System name:	dbconsole											        /
/ Description:	Database console   									        /
/ Version:	0.1															    /
/ Author: 	Andrey Cherepanov <sk...@ea...>						    /
/ 																		    /
/ Available commands:													    /
/   EXECUTE		Execute query										   	    /
/	<query>		database query											    /
/ 	GETDATABASES Show available database names							    /
/ 																		    /
/ 																		    /
/--------------------------------------------------------------------------*/

/** Component: dbconsole */

parameters cMethod, params

local cContent:=''
local oErr, i, err:='', m:='', res, a:={}
local componentName:='dbconsole' 

oErr := ErrorBlock({|e| break(e) })
begin sequence

  /*=========================================================================*/
  // EXECUTE()
  if lower(cMethod) == 'execute'
	eDebug(15, componentName + " args:", params)
	if assertParameters( params, { 'query:C' } )
		return NIL
	endif
  	m := lcomponent('sys.db', 'executeExt', 'db', iif('DB' $ params, params:db,''), 'query', params:query, 'format', .T.)
  	eDebug( 17, componentName + ".execute:", m )
  	return m
  
  /*=========================================================================*/
  // GETDATABASES()
  elseif lower(cMethod) == 'getdatabases'
  	res := lcomponent('sys.db', 'execute', 'query', 'show databases;')
  	for i in res
  		aadd( a, i[1] )
  	next
  	eDebug( 17, componentName + ".getDatabases:", a )
  	return a
  
  else
	eDebug(3, componentName + " has not method '"+cMethod+"'") 	
  endif
recover using oErr
	i := 1
	while ( !empty(ProcName(i)) )
		err += "Called from "+allTrim(ProcName(i)) + ;
			componentName + ":" + alltrim(str(ProcLine(i))) + chr(10)
		i++
	end

	eDebug(5, " internal error:", errorMessage(oErr))
	return NIL
end sequence

return NIL

--- NEW FILE: dbconsole.xfl ---
<?xml version="1.0" encoding="koi8-r" standalone="no" ?>  
<!-- dbconsole.xfl - Database console window --> 

<form>
	<head>
		<call widget=".db" method="setList">
			<param><call method="component">
				<param value="dbconsole" />
				<param value="getDatabases" />
			</call></param>
		</call>
	</head>
	<interface>
		<widget class="childWindow" name=".window" label="Database console">
			<widget class="editText" name=".output" />
			<widget class="hbox">
				<widget class="combobox" name=".db" />
				<widget class="edit" name=".command+" />
			</widget>
			<widget class="buttonBar">
				<widget class="button" name=".run" label="&amp;Execute" />
				<widget class="button" name=".clear" label="Cl&amp;ear" />
				<widget class="button" name=".close" label="&amp;Close" />
			</widget>		
		</widget>
	</interface>
	
	<style>
		<property widget=".output" name="readOnly" value="true" />
		<property widget=".output" name="font.family" value="courier" />
	</style>
	
	<actions>
		<rule>
			<event widget=".run" signal="clicked"/>
			<action>
				<call widget=".output" method="setValue">
					<param><call method="component">
						<param value="dbconsole" />
						<param value="execute" />
						<param value="query" />
						<param><call widget=".command" method="getValue" /></param>
						<param value="db" />
						<param><call widget=".db" method="getValue" /></param>
					</call></param>
				</call>
			</action>
		</rule>
		<rule>
			<event widget=".clear" signal="clicked"/>
			<action>
				<call widget=".command" method="setValue"><param value="" /></call>
			</action>
		</rule>
		<rule>
			<event widget=".close" signal="clicked"/>
			<action><call widget=".window" method="close"/></action>
		</rule>
	</actions>
	
	<locale lang="ru">
		<string id="Database console" value="ëÏÎÓÏÌØ ÂÁÚÙ ÄÁÎÎÙÈ" />
		<string id="&amp;Execute" value="&amp;÷ÙÐÏÌÎÉÔØ" />
		<string id="Cl&amp;ear" value="&amp;ïÞÉÓÔÉÔØ" />
		<string id="&amp;Close" value="&amp;úÁËÒÙÔØ" />
	</locale>
	
</form>
--- NEW FILE: dbconsole.xml ---
<?xml version="1.0" encoding="koi8-r" standalone="no" ?>  

<component>
	<name>dbconsole</name>
	<category>Core/Administration</category>
	<version>0.1</version> 
	<description>Database console</description>
	<license>GNU/GPL</license> 
	<created>2006-10-23</created> 
	<modified>2006-10-23</modified> 
	
	<requires>
		<dependence type="component">../forms/form_service.xml</dependence>
	</requires>
	
	<author>Skull</author>
	
	<data>
		<objects depository="ETC0101" class="mng_form">
			<object>
				<attr name="name">dbconsole.po</attr>
				<attr name="type">application/x-clip-plugin</attr>
				<attr name="description">Database console plugin</attr>
				<attr name="content">dbconsole.po</attr>
			</object>
			<object>
				<attr name="name">dbconsole.xfl</attr>
				<attr name="type">application/x-xfl</attr>
				<attr name="description">Database console window</attr>
				<attr name="content">dbconsole.xfl</attr>
			</object>
		</objects>
		<objects depository="ETC0101" class="mng_command">
			<object>
				<attr name="name">execute</attr>
				<attr name="component_name">dbconsole</attr>
				<attr name="form" refTo="ETC0101:mng_form">dbconsole.po</attr>
				<attr name="description"><![CDATA[Execute query.
					Arguments:
						query - String. CQL query.
					Returns:
						String with formatted result of query execution.]]>
				</attr>
			</object>
			<object>
				<attr name="name">getDatabases</attr>
				<attr name="component_name">dbconsole</attr>
				<attr name="form" refTo="ETC0101:mng_form">dbconsole.po</attr>
				<attr name="description"><![CDATA[Get list of available database names.
					Arguments:
						None.
					Returns:
						Array with available database names.]]>
				</attr>
			</object>
		</objects>
		<objects depository="ETC0101" class="form_menu">
			<object>
				<attr name="menu_node">dbconsole</attr>
				<attr name="menu_type">A</attr>
				<attr name="menu_parent">service</attr>
				<attr name="menu_order">10</attr>
			</object>
		</objects>
		<objects depository="ETC0101" class="form_action">
			<object>
				<attr name="name">dbconsole</attr>
				<attr name="menu_name">&Database console...</attr>
				<attr name="action"><![CDATA[
						<call method="openForm">
							<param value="dbconsole.xfl"/>
						</call>]]></attr>
			</object>
		</objects>
		<objects depository="ETC0101" class="form_localization">
			<object>
				<attr name="lang">ru</attr>
				<attr name="context">menu_name</attr>
				<attr name="msgid">&Database console...</attr>
				<attr name="msgstr">ëÏÎÓÏÌØ &ÂÁÚÙ ÄÁÎÎÙÈ...</attr>
			</object>
		</objects>
	</data>
	
	<locale lang="ru">
		<name>dbconsole</name>
		<description>ëÏÎÓÏÌØ ÂÁÚÙ ÄÁÎÎÙÈ</description>
  	</locale>

</component>

[Eas-dev-commit] ocmng/EAS/admin dbconsole.prg, NONE, 1.1 dbconsole.xfl, NONE, 1.1 dbconsole.xml, N

[Eas-dev-commit] ocmng/EAS/admin dbconsole.prg, NONE, 1.1 dbconsole.xfl, NONE, 1.1 dbconsole.xml, NONE, 1.1