r5210 - in trunk/gnue-appserver: samples src

[johannes]

Author: johannes
Date: 2004-03-03 04:31:53 -0600 (Wed, 03 Mar 2004)
New Revision: 5210

Added:
   trunk/gnue-appserver/samples/gnue_useraccess.gfd
Modified:
   trunk/gnue-appserver/samples/sample.gfd
   trunk/gnue-appserver/src/geasAuthentication.py
Log:
gnue_useraccess now allows a keyword 'all' to permitt access to all classes.
Added a form for changing gnue_useraccess. Added a 'country-tab' to the
sample.gfd.


Added: trunk/gnue-appserver/samples/gnue_useraccess.gfd
===================================================================
--- trunk/gnue-appserver/samples/gnue_useraccess.gfd    2004-03-03 09:16:20 UTC 
(rev 5209)
+++ trunk/gnue-appserver/samples/gnue_useraccess.gfd    2004-03-03 10:31:53 UTC 
(rev 5210)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="iso8859-1"?>
+
+<!--  GNUe-Designer (0.5.2.99)
+      Saved on: 2004-03-03 10:57:25  -->
+
+<form title="GNUe Useraccess">
+  <options/>
+  <datasource name="dtsGnue_useraccess" connection="appserver"
+              table="gnue_useraccess"/>
+  <logic>
+    <block name="blkGnue_useraccess" datasource="dtsgnue_useraccess">
+      <field name="fldGnueAccesslist" field="gnue_accesslist" max_length="25"/>
+      <field name="fldGnuePassword" field="gnue_password" max_length="25"/>
+      <field name="fldGnueUsername" field="gnue_username" max_length="20"/>
+    </block>
+  </logic>
+  <layout xmlns:Char="GNUe:Layout:Char" Char:height="5" Char:width="72">
+    <page name="Page1">
+      <label name="lblGnue Username:" Char:height="1" Char:width="14"
+             Char:x="1" Char:y="1" text="Gnue Username:"/>
+      <entry name="entGnueUsername" Char:height="1" Char:width="20"
+             Char:x="18" Char:y="1" block="blkGnue_useraccess" 
field="fldGnueUsername"
+             label=""/>
+      <label name="lblGnue Password:" Char:height="1" Char:width="14"
+             Char:x="1" Char:y="2" text="Gnue Password:"/>
+      <entry name="entGnuePassword" Char:height="1" Char:width="20"
+             Char:x="18" Char:y="2" block="blkGnue_useraccess" 
field="fldGnuePassword"
+             label=""/>
+      <label name="lblGnue Accesslist:" Char:height="1" Char:width="16"
+             Char:x="1" Char:y="3" text="Gnue Accesslist:"/>
+      <entry name="entGnueAccesslist" Char:height="1" Char:width="52"
+             Char:x="18" Char:y="3" block="blkGnue_useraccess" 
field="fldGnueAccesslist"
+             label=""/>
+    </page>
+  </layout>
+</form>

Modified: trunk/gnue-appserver/samples/sample.gfd
===================================================================
--- trunk/gnue-appserver/samples/sample.gfd     2004-03-03 09:16:20 UTC (rev 
5209)
+++ trunk/gnue-appserver/samples/sample.gfd     2004-03-03 10:31:53 UTC (rev 
5210)
@@ -4,6 +4,7 @@
   <datasource name="dtsPerson" connection="appserver" table="address_person"/>
   <datasource name="dtsCountry" connection="appserver" table="address_country"
     cache="250"/>
+  <datasource name="dtsMCountry" connection="appserver" 
table="address_country"/>
   <trigger name="showRecord" type="NAMED"><![CDATA[
        retval = dtsPerson.call("address_show","")
        if retval!=None:
@@ -26,9 +27,14 @@
       <field name="inpLastMeeting" field="address_lastmeeting" 
typecast="date"/>
       <field name="inpHuman" field="address_human" max_length="1"/>
     </block>
+    <block name="blkCountry" datasource="dtsMCountry" rows="10">
+      <field name="inpCCode" field="address_code" max_length="2"/>
+      <field name="inpCName" field="address_name" max_length="35"/>
+    </block>
   </logic>
-  <layout xmlns:Char="GNUe:Layout:Char" Char:height="14" Char:width="50">
-    <page name="pgPerson">
+  <layout xmlns:Char="GNUe:Layout:Char" Char:height="14" Char:width="50"
+    tabbed="top">
+    <page name="pgPerson" caption="Person">
       <label name="lblName" Char:height="1" Char:width="5" Char:x="1"
              Char:y="1" text="Name:"/>
       <label name="lblStreet" Char:height="1" Char:width="7" Char:x="1"
@@ -82,5 +88,15 @@
         <trigger src="showRecord" name="Trigger1" type="ON-ACTION"/>
       </button>
     </page>
+    <page name="pgCountry" caption="Country">
+      <label name="lblCCode" Char:height="1" Char:width="4"
+             Char:x="1" Char:y="1" text="Code"/>
+      <entry name="entCCode" Char:height="1" Char:width="4" Char:x="1"
+             Char:y="2" block="blkCountry" field="inpCCode" label=""/>
+      <label name="lblCName" Char:height="1" Char:width="12"
+             Char:x="7" Char:y="1" text="Address Name"/>
+      <entry name="entCName" Char:height="1" Char:width="35" Char:x="7"
+             Char:y="2" block="blkCountry" field="inpCName" label=""/>
+    </page>
   </layout>
 </form>

Modified: trunk/gnue-appserver/src/geasAuthentication.py
===================================================================
--- trunk/gnue-appserver/src/geasAuthentication.py      2004-03-03 09:16:20 UTC 
(rev 5209)
+++ trunk/gnue-appserver/src/geasAuthentication.py      2004-03-03 10:31:53 UTC 
(rev 5210)
@@ -19,7 +19,7 @@
 # write to the Free Software Foundation, Inc., 59 Temple Place
 # - Suite 330, Boston, MA 02111-1307, USA.
 #
-# $Id: geasAuthentication.py,v 1.4 2003/09/01 18:01:45 reinhard Exp $
+# $Id$
 
 import string
 from gnue.common.apps import GDebug
@@ -119,7 +119,8 @@
   def hasAccess (self, session, user, classname):
     # this should be changed to check for the user again.
     # it will only be secure if the protocol supports session-management too.
-    if hasattr (session, "tablelist") and (classname in session.tablelist):
+    tables = session.tablelist
+    if hasattr (session, "tablelist") and ('all' in tables or classname in 
tables):
       return 1
     else:
       GDebug.printMesg (1, _("User '%s' has no access to class %s.") % (user, 
classname))