[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Action.pm,1.67,1.68

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8209/OpenInteract2

Modified Files:
	Action.pm 
Log Message:
add discoverable property information (management task to come...)


Index: Action.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Action.pm,v
retrieving revision 1.67
retrieving revision 1.68
diff -C2 -d -r1.67 -r1.68
*** Action.pm	13 Feb 2005 20:15:15 -0000	1.67
--- Action.pm	25 Feb 2005 00:02:22 -0000	1.68
***************
*** 4,8 ****
  
  use strict;
! use base qw( OpenInteract2::ParamContainer Class::Accessor::Fast Class::Observable Class::Factory Exporter );
  use Log::Log4perl            qw( get_logger );
  use OpenInteract2::Constants qw( :log :template );
--- 4,13 ----
  
  use strict;
! use base qw(
!     OpenInteract2::ParamContainer
!     Class::Accessor::Fast
!     Class::Observable
!     Class::Factory
! );
  use Log::Log4perl            qw( get_logger );
  use OpenInteract2::Constants qw( :log :template );
***************
*** 31,42 ****
  # See 'PROPERTIES' section below for other properties used.
  
! my %PROPS = map { $_ => 1 } qw(
!     controller content_generator package_name
!     action_type class method message_name
!     task task_default task_valid task_invalid
!     security_level security_required security
!     url_alt url_none
!     template_source
!     cache_param
  );
  
--- 36,58 ----
  # See 'PROPERTIES' section below for other properties used.
  
! my %PROPS = (
!     controller        => 'OI2::Controller object: assigned at each request',
!     content_generator => 'OI2::ContentGenerator object: assigned at each request',
!     package_name      => 'Name of package that contains this action',
!     action_type       => 'Parent action type; these are declared in the server configuration under "action_type"',
!     class             => 'Class associated with action',
!     method            => 'Method that always gets called for action no matter what task is assigned.',
!     message_name      => 'Key to use for messages deposited in request (default is action name)',
!     task              => 'Method to run when execute() called',
!     task_default      => 'Task to use if none specified in URL/invocation',
!     task_valid        => 'List of valid tasks available; if specified only these may be called',
!     task_invalid      => 'List of tasks which cannot be called (also, no task with a leading "_" may be called)',
!     security_level    => 'Security level found for this action + task invocation',
!     security_required => 'Security level required for this action + task invocation',
!     security          => 'Whether to use security (yes/no)',
!     url_alt           => 'Alternate URLs that can be used to lookup this action',
!     url_none          => 'Flag to indicate that this action cannot be looked up by URL (yes/no)',
!     template_source   => 'Template(s) to use to generate task content; can be specified per-task',
!     cache_param       => 'Parameters to use when caching contnent',
  );
  
***************
*** 849,852 ****
--- 865,877 ----
  }
  
+ sub property_info {
+     return (
+         %PROPS,
+         is_secure    => 'Whether this action has security (yes/no)',
+         name         => 'Unique name of this action',
+         cache_expire => 'Time content should be cached, per-task',
+     );
+ }
+ 
  # Clear out a property (since passing undef for a set won't work)
  
***************
*** 865,869 ****
      my $req = CTX->request;
      for ( @params ) {
!         $self->{params}{ $_ } = $req->param( $_ );
      }
  }
--- 890,894 ----
      my $req = CTX->request;
      for ( @params ) {
!         $self->param( $_, scalar $req->param( $_ ) );
      }
  }