openinteract-commits — CVS updates for OpenInteract/SPOPS

[Openinteract-commits] CVS: OpenInteract2/pkg/base/OpenInteract2/App Base.pm,1.2,1.3

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/base/OpenInteract2/App
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18574/OpenInteract2/App

Modified Files:
	Base.pm 
Log Message:
OIN-190: add 'emailtester' action to ensure email settings (SMTP host, primarily) are correct


Index: Base.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base/OpenInteract2/App/Base.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Base.pm	10 Mar 2005 01:24:55 -0000	1.2
--- Base.pm	19 Oct 2005 03:03:00 -0000	1.3
***************
*** 63,67 ****
  out page', but this might change.
  
! Class: L<OpenInteract2::Action::Logout|OpenInteract2::Action::Logout>
  
  B<package>
--- 63,75 ----
  out page', but this might change.
  
! Class: L<OpenInteract2::Action::Logout>
! 
! B<emailtester>
! 
! Test your email settings by entering an address, subject and some
! content. This will send a message from both your addresses (admin and
! content) using your assigned SMTP server.
! 
! Class: L<OpenInteract2::Action::EmailTester>
  
  B<package>
***************
*** 70,78 ****
  into a package to display its details.
  
! Class: L<OpenInteract2::Action::Package|OpenInteract2::Action::Package>
! 
! =head1 RULESETS
! 
! No rulesets created by this package.
  
  =head1 AUTHORS
--- 78,82 ----
  into a package to display its details.
  
! Class: L<OpenInteract2::Action::Package>
  
  =head1 AUTHORS

[Openinteract-commits] CVS: OpenInteract2/pkg/base/template email_tester.tmpl,NONE,1.1

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/base/template
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18574/template

Added Files:
	email_tester.tmpl 
Log Message:
OIN-190: add 'emailtester' action to ensure email settings (SMTP host, primarily) are correct


--- NEW FILE: email_tester.tmpl ---
[%-
  title = MSG( 'email_tester.title' );
  OI.page_title( title );
-%]

[% PROCESS status_message %]

<div align="center">

[% PROCESS form_begin( ACTION = 'emailtester', TASK = 'send',
                       method = 'POST', name = 'mailer' ) -%]

<h2>[% title %]</h2>

[% INCLUDE table_bordered_begin %]
[%- count = 0; valign = 'top' -%]

[%- count = count + 1 -%]
[% INCLUDE label_form_text_row( label_key   = 'email_tester.address',
                                is_required = 'yes',
                                name        = 'address',
                                value       = address,
                                size        = 30 ) -%]

[%- count = count + 1 -%]
[% INCLUDE label_form_text_row( label_key   = 'email_tester.subject',
                                is_required = 'yes',
                                name        = 'subject',
                                value       = subject,
                                size        = 30 ); %]

[%- count = count + 1 -%]
[% INCLUDE label_form_textarea_row( label_key   = 'email_tester.message',
                                    is_required = 'yes',
                                    name        = 'message',
                                    value       = OI.html_encode( message ),
                                    rows = 8, cols = 60, wrap = 'virtual' ) -%]

[%- count = count + 1 -%]
[% INCLUDE form_submit_row( value_key = 'email_tester.send' ) %]

[% INCLUDE table_bordered_end %]

[% PROCESS form_end %]

</div>

[Openinteract-commits] CVS: OpenInteract2/pkg/base/msg base-messages-en.msg,1.2,1.3

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/base/msg
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18574/msg

Modified Files:
	base-messages-en.msg 
Log Message:
OIN-190: add 'emailtester' action to ensure email settings (SMTP host, primarily) are correct


Index: base-messages-en.msg
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base/msg/base-messages-en.msg,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** base-messages-en.msg	5 Dec 2004 08:51:18 -0000	1.2
--- base-messages-en.msg	19 Oct 2005 03:03:00 -0000	1.3
***************
*** 1,18 ****
! # English messages for the 'base' package
! logout.title = Logged Out
  logout.summary = You are now logged out. You can \
      <a href="[_1]">return to the system</a>.
! package_detail.page_title = Package Details
! package_detail.back_listing = <a href="[_1]">Back to listing</a>
! package_detail.title = Package Detail
! package_detail.label.package = Package: 
  package_detail.label.install_date = Installed: 
! package_detail.label.author = Author(s): 
! package_detail.label.website = Website: 
  package_detail.label.dependencies = Dependent on: 
! package_listing.page_title = Package Listing
! package_listing.title = Package Listing
  package_listing.summary = Listed below are all the packages installed to your \
      website. Details are available for each.
! package_listing.label.detail = Detail
! package_detail.error.no_package = Could not find package with name '[_1]'
\ No newline at end of file
--- 1,30 ----
! logout.title   = Logged Out
  logout.summary = You are now logged out. You can \
      <a href="[_1]">return to the system</a>.
! 
! package_detail.page_title         = Package Details
! package_detail.back_listing       = <a href="[_1]">Back to listing</a>
! package_detail.title              = Package Detail
! package_detail.label.package      = Package: 
  package_detail.label.install_date = Installed: 
! package_detail.label.author       = Author(s): 
! package_detail.label.website      = Website: 
  package_detail.label.dependencies = Dependent on: 
! package_listing.page_title        = Package Listing
! package_listing.title             = Package Listing
! package_listing.label.detail      = Detail
! package_detail.error.no_package   = Could not find package with name '[_1]'
  package_listing.summary = Listed below are all the packages installed to your \
      website. Details are available for each.
! 
! email_tester.title           = E-mail Tester
! email_tester.address         = Address
! email_tester.subject         = Subject
! email_tester.message         = Message
! email_tester.send            = Send
! email_tester.default_subject = Test message from OpenInteract2
! email_tester.default_message = This is a test message from OpenInteract2.
! email_tester.smtp_host       = Sent messages using SMTP host '[_1]'
! email_tester.send_ok         = Sent message to '[_1]' ok.
! email_tester.send_error      = Error sending message to '[_1]': [_2]
!  

[Openinteract-commits] CVS: OpenInteract2/pkg/base/OpenInteract2/Action EmailTester.pm,NONE,1.1

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/base/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18574/OpenInteract2/Action

Added Files:
	EmailTester.pm 
Log Message:
OIN-190: add 'emailtester' action to ensure email settings (SMTP host, primarily) are correct


--- NEW FILE: EmailTester.pm ---
package OpenInteract2::Action::EmailTester;

# $Id: EmailTester.pm,v 1.1 2005/10/19 03:03:00 lachoy Exp $

use strict;
use base qw( OpenInteract2::Action );
use OpenInteract2::Context qw( CTX );
use OpenInteract2::Util;

$OpenInteract2::Action::EmailTester::VERSION  = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);

sub show {
    my ( $self ) = @_;
    my %params = ();
    $params{address} = $self->param( 'address' );
    $params{subject} = $self->param( 'subject' )
                       || $self->_msg( 'email_tester.default_subject' );
    $params{message} = $self->param( 'message' )
                       || $self->_msg( 'email_tester.default_message' );
    return $self->generate_content( \%params );
}

sub send {
    my ( $self ) = @_;
    $self->param_from_request( 'address', 'subject', 'message' );
    my $mail_conf = CTX->lookup_mail_config;
    $self->add_status_key(
        'email_tester.smtp_host', $mail_conf->{smtp_host} );
    $self->_send_email( $mail_conf->{admin_email} );
    $self->_send_email( $mail_conf->{content_email} );
    return $self->execute({ task => 'show' });
}

sub _send_email {
    my ( $self, $origin_address ) = @_;
    eval {
        OpenInteract2::Util->send_email({
            to      => scalar $self->param( 'address' ),
            from    => $origin_address,
            subject => scalar $self->param( 'subject' ),
            message => scalar $self->param( 'message' ),
        });
    };
    if ( $@ ) {
        my $error = "$@";
        $self->add_status_key(
            'email_tester.send_error', $origin_address, $error );
    }
    else {
        $self->add_status_key(
            'email_tester.send_ok', $origin_address );
    }
}

1;

[Openinteract-commits] CVS: OpenInteract2/pkg/base/conf action.ini,1.4,1.5

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/base/conf
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18574/conf

Modified Files:
	action.ini 
Log Message:
OIN-190: add 'emailtester' action to ensure email settings (SMTP host, primarily) are correct


Index: action.ini
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base/conf/action.ini,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** action.ini	22 May 2004 01:48:16 -0000	1.4
--- action.ini	19 Oct 2005 03:03:00 -0000	1.5
***************
*** 13,18 ****
  listing      = READ
  
  [template_only]
  class    = OpenInteract2::Action::TemplateOnly
  task     = execute_template
! url_none = yes
\ No newline at end of file
--- 13,28 ----
  listing      = READ
  
+ [emailtester]
+ class           = OpenInteract2::Action::EmailTester
+ is_secure       = yes
+ task_default    = show
+ template_source = base::email_tester
+ 
+ [emailtester security]
+ DEFAULT         = WRITE
+ 
  [template_only]
  class    = OpenInteract2::Action::TemplateOnly
  task     = execute_template
! url_none = yes
! 

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Datasource DBI.pm,1.19,1.20

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

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

Modified Files:
	DBI.pm 
Log Message:
OIN-191: data are scrubbed before connect() gets it, so modify resolve_datasource_info() to capture the driver-specific parameters (that's what happens when you don't work with the code for a while...)

Index: DBI.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Datasource/DBI.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** DBI.pm	18 Oct 2005 01:43:00 -0000	1.19
--- DBI.pm	18 Oct 2005 21:21:30 -0000	1.20
***************
*** 19,22 ****
--- 19,26 ----
  my @CONNECT_ATTRIBUTES = qw( RootClass );
  
+ # Note that the \%ds_info has already been scrubbed by
+ # resolve_datasource_info() at server startup (see
+ # OI2::Setup::CheckDatasources)
+ 
  sub connect {
      my ( $class, $ds_name, $ds_info ) = @_;
***************
*** 31,38 ****
                      'Continuing...' );
      }
! 
!     my $full = $class->resolve_datasource_info( $ds_name, $ds_info );
! 
!     unless ( $full->{driver_name} ) {
          $log->error( "Required configuration key undefined ",
                       "'datasource.$ds_name.driver_name'" );
--- 35,40 ----
                      'Continuing...' );
      }
!     
!     unless ( $ds_info->{driver_name} ) {
          $log->error( "Required configuration key undefined ",
                       "'datasource.$ds_name.driver_name'" );
***************
*** 44,53 ****
      # it happens
  
!     my $dsn      = join( ':', 'DBI', $full->{driver_name}, $full->{dsn} );
!     my $username = $full->{username};
!     my $password = $full->{password};
  
!     my %connect_attr = map { $_ => $full->{ $_ } }
!                        grep { defined $full->{ $_ } }
                         @CONNECT_ATTRIBUTES;
      $connect_attr{RaiseError} = 0;
--- 46,55 ----
      # it happens
  
!     my $dsn      = join( ':', 'DBI', $ds_info->{driver_name}, $ds_info->{dsn} );
!     my $username = $ds_info->{username};
!     my $password = $ds_info->{password};
  
!     my %connect_attr = map { $_ => $ds_info->{ $_ } }
!                        grep { defined $ds_info->{ $_ } }
                         @CONNECT_ATTRIBUTES;
      $connect_attr{RaiseError} = 0;
***************
*** 55,59 ****
  
      if ( $log->is_debug ) {
!         my %dumpable = %{ $full };
          $dumpable{password} = '*' x length $password;
          $log->debug( "Trying to connect to DBI with: ",
--- 57,61 ----
  
      if ( $log->is_debug ) {
!         my %dumpable = %{ $ds_info };
          $dumpable{password} = '*' x length $password;
          $log->debug( "Trying to connect to DBI with: ",
***************
*** 78,94 ****
      $db->{ChopBlanks}  = 1;
      $db->{AutoCommit}  = 1;
!     $db->{LongReadLen} = $full->{long_read_len} || DEFAULT_READ_LEN;
!     $db->{LongTruncOk} = $full->{long_trunc_ok} || DEFAULT_TRUNC_OK;
  
!     my $lc_driver = lc $full->{driver_name};
!     foreach my $attrib ( keys %{ $full } ) {
!         next unless ( $attrib =~ /^$lc_driver/ );
!         $db->{ $attrib } = $full->{ $attrib };
          $log->is_debug &&
              $log->debug( "Assigning driver-specific attribute to db ",
!                          "handle: $attrib -> $full->{ $attrib }" );
      }
  
!     my $trace_level = $full->{trace_level} || '0';
      $db->trace( $trace_level );
  
--- 80,94 ----
      $db->{ChopBlanks}  = 1;
      $db->{AutoCommit}  = 1;
!     $db->{LongReadLen} = $ds_info->{long_read_len} || DEFAULT_READ_LEN;
!     $db->{LongTruncOk} = $ds_info->{long_trunc_ok} || DEFAULT_TRUNC_OK;
  
!     while ( my ( $attrib, $value ) = each %{ $ds_info->{driver_attributes} } ) {
!         $db->{ $attrib } = $value;
          $log->is_debug &&
              $log->debug( "Assigning driver-specific attribute to db ",
!                          "handle: $attrib -> $value" );
      }
  
!     my $trace_level = $ds_info->{trace_level} || '0';
      $db->trace( $trace_level );
  
***************
*** 126,129 ****
--- 126,130 ----
      my ( $self, $name, $ds_info ) = @_;
  
+     # TODO: keep this? it means we're not copying over handle attribs...
      # backwards compatibility - if 'spops' key exists just return as-is
      if ( $ds_info->{spops} ) {
***************
*** 148,151 ****
--- 149,160 ----
                                 ? 'ODBC' : $dbi_info->[1];
      }
+     my $lc_driver = lc $info{driver_name};
+     my %driver_attribs = ();
+     foreach my $attrib ( keys %{ $ds_info } ) {
+         if ( $attrib =~ /^$lc_driver/ ) {
+             $driver_attribs{ $attrib } = $ds_info->{ $attrib };
+         }
+     }
+     $info{driver_attributes} = \%driver_attribs;
      return \%info;
  }
***************
*** 221,225 ****
  The parameter C<\%datasource_info> defines how we connect to the
  database and is pulled from your 'datasource.$name' server
! configuration.
  
  =over 4
--- 230,237 ----
  The parameter C<\%datasource_info> defines how we connect to the
  database and is pulled from your 'datasource.$name' server
! configuration. But by the time this method gets the data it's already
! been scrubbed by the C<resolve_datasource_info()> method since that
! method is invoked at server startup by
! L<OpenInteract2::Setup::CheckDatasources>.
  
  =over 4
***************
*** 310,331 ****
  =back
  
- You may also define driver-specific parameters that get passed through
- to the database handle. A parameter is identified as driver-specific
- if it beginns with the driver name. So if we were using L<DBD::Pg> we
- might do:
- 
-  [datasource main]
-  type              = DBI
-  dbi_type          = Pg
-  dsn               = dbname=oi2
-  username          = oi2
-  password          = oi2
-  pg_server_prepare = 0
- 
- which is equivalent to:
- 
-  my $dbh = DBI->connect( ... );
-  $dbh->{pg_server_prepare} = 0;
- 
  Any errors encountered will throw an exception, usually of the
  L<OpenInteract2::Exception::Datasource> variety.
--- 322,325 ----
***************
*** 333,337 ****
  B<resolve_datasource_info( $name, \%datasource_info )>
  
! Internal method used to resolve some shortcuts we allow for
  usability. This will look at the 'dbi_type' and add keys to the
  datasource information:
--- 327,332 ----
  B<resolve_datasource_info( $name, \%datasource_info )>
  
! Internal method called by L<OpenInteract2::Setup::CheckDatasources> at
! server startup, used to resolve some shortcuts we allow for
  usability. This will look at the 'dbi_type' and add keys to the
  datasource information:
***************
*** 350,353 ****
--- 345,367 ----
  =back
  
+ You may also define driver-specific parameters that get passed through
+ to the C<connect()> method in the key 'driver_attributes'; eventually
+ these get assigned directly to the database handle just after it's
+ created. A parameter is identified as driver-specific if it begins
+ with the driver name. So if we were using L<DBD::Pg> we might do:
+ 
+  [datasource main]
+  type              = DBI
+  dbi_type          = Pg
+  dsn               = dbname=oi2
+  username          = oi2
+  password          = oi2
+  pg_server_prepare = 0
+ 
+ which, when you create a database handle, is equivalent to:
+ 
+  my $dbh = DBI->connect( ... );
+  $dbh->{pg_server_prepare} = 0;
+ 
  Returns a new hashref of information. For backwards compatibility, if
  we see the key C<spops> in C<\%datasource_info> we just return a new
***************
*** 356,360 ****
  =head1 SEE ALSO
  
! L<OpenInteract2::Exception::Datasource|OpenInteract2::Exception::Datasource>
  
  L<Apache::DBI|Apache::DBI>
--- 370,376 ----
  =head1 SEE ALSO
  
! L<OpenInteract2::Setup::CheckDatasources>
! 
! L<OpenInteract2::Exception::Datasource>
  
  L<Apache::DBI|Apache::DBI>

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Datasource DBI.pm,1.18,1.19

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

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

Modified Files:
	DBI.pm 
Log Message:
OIN-191: pass through database handle attributes specific to a driver


Index: DBI.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Datasource/DBI.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** DBI.pm	25 Mar 2005 05:40:02 -0000	1.18
--- DBI.pm	18 Oct 2005 01:43:00 -0000	1.19
***************
*** 81,84 ****
--- 81,93 ----
      $db->{LongTruncOk} = $full->{long_trunc_ok} || DEFAULT_TRUNC_OK;
  
+     my $lc_driver = lc $full->{driver_name};
+     foreach my $attrib ( keys %{ $full } ) {
+         next unless ( $attrib =~ /^$lc_driver/ );
+         $db->{ $attrib } = $full->{ $attrib };
+         $log->is_debug &&
+             $log->debug( "Assigning driver-specific attribute to db ",
+                          "handle: $attrib -> $full->{ $attrib }" );
+     }
+ 
      my $trace_level = $full->{trace_level} || '0';
      $db->trace( $trace_level );
***************
*** 162,166 ****
   
   # Define a handle 'win32' that uses Microsoft SQL Server and connects
!  # with ODBC
   
   [datasource win32]
--- 171,175 ----
   
   # Define a handle 'win32' that uses Microsoft SQL Server and connects
!  # with ODBC and a custom parameter for the ODBC driver
   
   [datasource win32]
***************
*** 171,174 ****
--- 180,184 ----
   username      = webuser
   password      = urkelnut
+  odbc_foo      = bar
   
   # Request the datasource 'main' from the context object (which in
***************
*** 244,249 ****
  B<dbi_type> ($)
  
! What database type are you using?  Available values are: 'MySQL',
! 'Pg', 'Sybase', 'ASAny', 'Oracle', 'SQLite' and 'MSSQL'.
  
  =item *
--- 254,259 ----
  B<dbi_type> ($)
  
! What database type are you using?  Available case-insensitive values
! are: 'MySQL', 'Pg', 'Sybase', 'ASAny', 'Oracle', 'SQLite' and 'MSSQL'.
  
  =item *
***************
*** 300,306 ****
  =back
  
  Any errors encountered will throw an exception, usually of the
! L<OpenInteract2::Exception::Datasource|OpenInteract2::Exception::Datasource>
! variety.
  
  B<resolve_datasource_info( $name, \%datasource_info )>
--- 310,333 ----
  =back
  
+ You may also define driver-specific parameters that get passed through
+ to the database handle. A parameter is identified as driver-specific
+ if it beginns with the driver name. So if we were using L<DBD::Pg> we
+ might do:
+ 
+  [datasource main]
+  type              = DBI
+  dbi_type          = Pg
+  dsn               = dbname=oi2
+  username          = oi2
+  password          = oi2
+  pg_server_prepare = 0
+ 
+ which is equivalent to:
+ 
+  my $dbh = DBI->connect( ... );
+  $dbh->{pg_server_prepare} = 0;
+ 
  Any errors encountered will throw an exception, usually of the
! L<OpenInteract2::Exception::Datasource> variety.
  
  B<resolve_datasource_info( $name, \%datasource_info )>

[Openinteract-commits] CVS: OpenInteract2/pkg/base_template package.ini,1.3,1.4 Changes,1.19,1.20

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_template
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23341

Modified Files:
	package.ini Changes 
Log Message:
fix typo when referencing message key


Index: package.ini
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_template/package.ini,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** package.ini	22 Sep 2005 04:08:07 -0000	1.3
--- package.ini	18 Oct 2005 01:34:10 -0000	1.4
***************
*** 1,5 ****
  [package]
  name          = base_template
! version       = 3.18
  author        = Chris Winters (ch...@cw...)
  url           = http://www.openinteract.org/
--- 1,5 ----
  [package]
  name          = base_template
! version       = 3.19
  author        = Chris Winters (ch...@cw...)
  url           = http://www.openinteract.org/

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_template/Changes,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Changes	22 Sep 2005 04:08:07 -0000	1.19
--- Changes	18 Oct 2005 01:34:10 -0000	1.20
***************
*** 1,4 ****
--- 1,8 ----
  Revision history for OpenInteract package base_template.
  
+ 3.19  Mon Oct 17 21:33:22 EDT 2005
+ 
+       Fix typo of incorrect error key when updating template.
+ 
  3.18  Thu Sep 22 00:05:27 EDT 2005
  

[Openinteract-commits] CVS: OpenInteract2/pkg/base_template/OpenInteract2/Action SiteTemplate.pm,1.15,1.16

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_template/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23341/OpenInteract2/Action

Modified Files:
	SiteTemplate.pm 
Log Message:
fix typo when referencing message key


Index: SiteTemplate.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_template/OpenInteract2/Action/SiteTemplate.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** SiteTemplate.pm	22 Sep 2005 04:08:07 -0000	1.15
--- SiteTemplate.pm	18 Oct 2005 01:34:10 -0000	1.16
***************
*** 143,147 ****
      eval { $template->save };
      if ( $@ ) {
!         $self->add_error_key( 'base_template.error.save', $@ );
          $self->param( template => $template );
          return $self->execute({ task => 'display_form' });
--- 143,147 ----
      eval { $template->save };
      if ( $@ ) {
!         $self->add_error_key( 'base_template.error.update', $@ );
          $self->param( template => $template );
          return $self->execute({ task => 'display_form' });

[Openinteract-commits] CVS: OpenInteract2 MANIFEST,1.124,1.125

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

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

Modified Files:
	MANIFEST 
Log Message:
add FAQ


Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/MANIFEST,v
retrieving revision 1.124
retrieving revision 1.125
diff -C2 -d -r1.124 -r1.125
*** MANIFEST	18 Mar 2005 05:24:48 -0000	1.124
--- MANIFEST	25 Sep 2005 15:20:05 -0000	1.125
***************
*** 149,152 ****
--- 149,153 ----
  lib/OpenInteract2/Manual/DataImport.pod
  lib/OpenInteract2/Manual/Datasource.pod
+ lib/OpenInteract2/Manual/FAQ.pod
  lib/OpenInteract2/Manual/Intro.pod
  lib/OpenInteract2/Manual/I18N.pod

[Openinteract-commits] CVS: OpenInteract2 VERSION,1.10,1.11

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

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

Modified Files:
	VERSION 
Log Message:
update version


Index: VERSION
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/VERSION,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** VERSION	25 Jan 2005 13:23:26 -0000	1.10
--- VERSION	25 Sep 2005 15:19:45 -0000	1.11
***************
*** 1 ****
! $VERSION = '1.99_06';
\ No newline at end of file
--- 1 ----
! $VERSION = '1.99_07';
\ No newline at end of file

[Openinteract-commits] CVS: OpenInteract2/pkg/news/OpenInteract2/Action News.pm,1.13,1.14

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/news/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5825/pkg/news/OpenInteract2/Action

Modified Files:
	News.pm 
Log Message:
don't fetch sections anymore


Index: News.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/news/OpenInteract2/Action/News.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** News.pm	2 Mar 2005 15:21:44 -0000	1.13
--- News.pm	25 Sep 2005 15:19:24 -0000	1.14
***************
*** 23,28 ****
  sub home {
      my ( $self ) = @_;
!     return $self->generate_content(
!                     { section_list => $self->_get_sections } );
  }
  
--- 23,27 ----
  sub home {
      my ( $self ) = @_;
!     return $self->generate_content();
  }
  
***************
*** 108,112 ****
                  : ' AND ( expires_on IS NULL OR expires_on > ? ) ';
      push @values, $now_string;
- 
      if ( my $section = $self->param( 'section' ) ) {
          $where .= ' AND ( section = ? )';
--- 107,110 ----

[Openinteract-commits] CVS: OpenInteract2/pkg/news/conf spops_news.ini,1.7,1.8

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/news/conf
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5775/pkg/news/conf

Modified Files:
	spops_news.ini 
Log Message:
cosmetic 


Index: spops_news.ini
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/news/conf/spops_news.ini,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** spops_news.ini	21 Sep 2005 03:38:25 -0000	1.7
--- spops_news.ini	25 Sep 2005 15:18:59 -0000	1.8
***************
*** 54,56 ****
  TASK_EDIT  = display_form
  URL_PARAMS = news_id
! date       = posted_on
\ No newline at end of file
--- 54,57 ----
  TASK_EDIT  = display_form
  URL_PARAMS = news_id
! date       = posted_on
! 

[Openinteract-commits] CVS: OpenInteract2/doc/Manual Changes.pod,1.73,1.74

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

Update of /cvsroot/openinteract/OpenInteract2/doc/Manual
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5724/doc/Manual

Modified Files:
	Changes.pod 
Log Message:
latest changes


Index: Changes.pod
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/doc/Manual/Changes.pod,v
retrieving revision 1.73
retrieving revision 1.74
diff -C2 -d -r1.73 -r1.74
*** Changes.pod	21 Sep 2005 11:58:57 -0000	1.73
--- Changes.pod	25 Sep 2005 15:18:28 -0000	1.74
***************
*** 121,124 ****
--- 121,136 ----
  =back
  
+ L<OpenInteract2::Config::Readonly>
+ 
+ =over 4
+ 
+ =item *
+ 
+ OIN-180: Fix bug, when 'readonly' config not found we'd return
+ arrayref instead of hashref, forcing OI2::Package copy html files
+ routine to abort.
+ 
+ =back
+ 
  L<OpenInteract2::Context>
  
***************
*** 186,189 ****
--- 198,213 ----
  =back
  
+ L<OpenInteract2::Package>
+ 
+ =over 4
+ 
+ =item *
+ 
+ OIN-172: when installing a package add pkg/foo-x.xx/conf/README
+ pointing to the actual config location (conf/foo) and delete the
+ package configuration files so there's no confusion.
+ 
+ =back
+ 
  L<OpenInteract2::Response::Apache>
  

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Context.pm,1.89,1.90

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

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

Modified Files:
	Context.pm 
Log Message:
OIN-161: remove unused methods


Index: Context.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Context.pm,v
retrieving revision 1.89
retrieving revision 1.90
diff -C2 -d -r1.89 -r1.90
*** Context.pm	4 Jul 2005 14:56:19 -0000	1.89
--- Context.pm	24 Sep 2005 19:30:29 -0000	1.90
***************
*** 788,795 ****
      my ( $self ) = @_;
      $self->set( $_, undef )  for ( @REQUEST_FIELDS );
- 
-     # TODO: These two methods Needed?
-     $self->clear_global_attributes;
-     $self->clear_exceptions;
  }
  
--- 788,791 ----

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Package.pm,1.60,1.61

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

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

Modified Files:
	Package.pm 
Log Message:
use clearer 'if x->is_readonly' instead of 'unless x->is_writeable'


Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Package.pm,v
retrieving revision 1.60
retrieving revision 1.61
diff -C2 -d -r1.60 -r1.61
*** Package.pm	23 Sep 2005 03:16:24 -0000	1.60
--- Package.pm	24 Sep 2005 19:20:58 -0000	1.61
***************
*** 856,860 ****
              my $dest_dir  = dirname( $dest_path );
              my $ro = OpenInteract2::Config::Readonly->new( $dest_dir );
!             unless ( $ro->is_writeable( $dest_file ) ) {
                  $log->is_info
                      && $log->info( "Skipping '$dest_path' because it's marked as readonly" );
--- 856,860 ----
              my $dest_dir  = dirname( $dest_path );
              my $ro = OpenInteract2::Config::Readonly->new( $dest_dir );
!             if ( $ro->is_readonly( $dest_file ) ) {
                  $log->is_info
                      && $log->info( "Skipping '$dest_path' because it's marked as readonly" );

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Config Readonly.pm,1.12,1.13

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

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

Modified Files:
	Readonly.pm 
Log Message:
OIN-180: fix bug where we returned wrong info when readonly file not found


Index: Readonly.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Config/Readonly.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Readonly.pm	17 Mar 2005 14:58:00 -0000	1.12
--- Readonly.pm	24 Sep 2005 19:20:11 -0000	1.13
***************
*** 37,40 ****
--- 37,44 ----
  }
  
+ sub is_readonly {
+     my ( $self, $filename ) = @_;
+     return ! $self->is_writeable( $filename );
+ }
  
  sub is_writeable {
***************
*** 57,67 ****
  
      # This means everything is writeable...
!     return [] unless ( -f $overwrite_check_file );
  
!     my ( @readonly );
      eval { open( NOWRITE, '<', $overwrite_check_file ) || die $! };
      if ( $@ ) {
          $log->error( "Cannot read readonly file '$overwrite_check_file': $@" );
!         return [];
      }
      while ( <NOWRITE> ) {
--- 61,71 ----
  
      # This means everything is writeable...
!     return {} unless ( -f $overwrite_check_file );
  
!     my %readonly = ();
      eval { open( NOWRITE, '<', $overwrite_check_file ) || die $! };
      if ( $@ ) {
          $log->error( "Cannot read readonly file '$overwrite_check_file': $@" );
!         return {};
      }
      while ( <NOWRITE> ) {
***************
*** 71,78 ****
          s/^\s+//;
          s/\s+$//;
!         push @readonly, $_;
      }
      close( NOWRITE );
!     return { map { $_ => 1 } @readonly };
  }
  
--- 75,82 ----
          s/^\s+//;
          s/\s+$//;
!         $readonly{ $_ } = 1;
      }
      close( NOWRITE );
!     return \%readonly;
  }
  
***************
*** 176,180 ****
   my $original_path = '/path/to/distribution/foo.html';
   my $can_write = OpenInteract2::Config::Readonly
!     ->new( $dir )
      ->is_writeable( $original_path );
   if ( $can_write ) {
--- 180,184 ----
   my $original_path = '/path/to/distribution/foo.html';
   my $can_write = OpenInteract2::Config::Readonly
!     ->new( dirname( $original_path ) )
      ->is_writeable( $original_path );
   if ( $can_write ) {
***************
*** 221,224 ****
--- 225,233 ----
  false if not.
  
+ B<is_readonly( $file )>
+ 
+ Returns: true if C<$file> is not writeable in the configured
+ directory, false if it is.
+ 
  B<get_all_writeable_files()>
  
***************
*** 233,313 ****
  Returns: full path to file written.
  
- B<is_writeable_file( \@readonly_filenames | $directory, $filename )>
- 
- Returns true if file C<$filename> is writeable in C<$directory> or if
- it is not found among C<\@readonly_filenames>. We do a C<basename()>
- against C<$filename> before doing the check.
- 
- Examples:
- 
-  # These all return true
-  OpenInteract2::Config::Readonly->is_writeable_file(
-                     [ 'index.html' ], 'foo.html' );
-  OpenInteract2::Config::Readonly->is_writeable_file(
-                     [ 'index.html' ], 'INDEX.HTML' );
-  OpenInteract2::Config::Readonly->is_writeable_file(
-                     [ 'index.html' ], '/path/to/index.htm' );
- 
-  # These all return false
-  OpenInteract2::Config::Readonly->is_writeable_file(
-                     [ 'index.html' ], 'index.html' );
-  OpenInteract2::Config::Readonly->is_writeable_file(
-                     [ 'index.html' ], '/path/to/my/index.html' );
- 
- 
- B<get_writeable_files( \@readonly_filenames | $directory, \@filenames )>
- 
- Returns an arrayref of all writeable files from C<\@filenames> as
- compared against the config in C<$directory> or the readonly filenames
- in C<\@readonly_filenames>. The filenames returned are whatever was
- stored in C<\@filenames> rather than the basename.
- 
- Examples:
- 
-  my $files = OpenInteract2::Config::Readonly->get_writeable_files(
-                     [ 'index.html' ], [ '/path/to/foo.html' ] );
-  # $files = [ '/path/to/foo.html' ]
-  
-  my $files = OpenInteract2::Config::Readonly->get_writeable_files(
-                     [ 'index.html' ], [ 'INDEX.HTML', '/path/to/README.txt' ] );
-  # $files = [ 'INDEX.HTML', '/path/to/README.txt' ]
-  
-  my $files = OpenInteract2::Config::Readonly->get_writeable_files(
-                     [ 'index.html' ], [ '/path/to/index.htm', '/path/to/index.html' ] );
-  # $files = [ '/path/to/index.htm' ]
- 
- B<read_config( $dir )>
- 
- Reads the file in C<$dir> for files not to overwrite. This method
- should never C<die> or throw an exception -- if there is an error
- reading the file or if the file does not exist, it simply returns an
- empty arrayref.
- 
- Returns: arrayref of filenames relative to C<$dir>.
- 
- B<write_config( $dir, \@files_to_write | \%write_info )>
- 
- Writes filenames to a file in C<$dir>. The C<\%write_info> parameters
- can be either an arrayref of filenames to write or a hashref with the
- following keys:
- 
- =over 4
- 
- =item *
- 
- B<file>: Arrayref of filenames to write
- 
- =item *
- 
- B<comment>: Message to write as a comment.
- 
- =back
- 
- No path information is written to the file, only the base filename.
- 
- Returns: full path to file written. If the file cannot be written, it
- will throw an exception. If there are no files passed in to write, it
- returns nothing.
- 
  =head1 BUGS
  
--- 242,245 ----

[Openinteract-commits] CVS: OpenInteract2/pkg/comments package.ini,1.5,1.6 Changes,1.22,1.23

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/comments
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17797

Modified Files:
	package.ini Changes 
Log Message:
meta


Index: package.ini
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/package.ini,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** package.ini	21 Sep 2005 03:37:05 -0000	1.5
--- package.ini	24 Sep 2005 14:03:44 -0000	1.6
***************
*** 1,5 ****
  [package]
  name          = comments
! version       = 1.24
  author        = Chris Winters <ch...@cw...>
  url           = http://www.cwinters.com/
--- 1,5 ----
  [package]
  name          = comments
! version       = 1.25
  author        = Chris Winters <ch...@cw...>
  url           = http://www.cwinters.com/

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/Changes,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Changes	21 Sep 2005 03:37:05 -0000	1.22
--- Changes	24 Sep 2005 14:03:44 -0000	1.23
***************
*** 1,4 ****
--- 1,9 ----
  Revision history for OpenInteract package comments.
  
+ 1.25  Sat Sep 24 10:03:01 EDT 2005
+ 
+       Add field 'remote_host' to comments table, number of small
+       fixes to the 'recent comments' box.
+ 
  1.24  Tue Sep 20 22:04:33 EDT 2005
  

[Openinteract-commits] CVS: OpenInteract2/pkg/comments/template box_comment_recent.tmpl,1.2,1.3

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/comments/template
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17674/template

Modified Files:
	box_comment_recent.tmpl 
Log Message:
don't use theme bullets, use normal UL/LI but define as class


Index: box_comment_recent.tmpl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/template/box_comment_recent.tmpl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** box_comment_recent.tmpl	17 May 2004 14:21:53 -0000	1.2
--- box_comment_recent.tmpl	24 Sep 2005 14:02:52 -0000	1.3
***************
*** 1,5 ****
! [%- DEFAULT theme = OI.theme_properties; -%]
  
! [% IF comments.size == 0 -%]
  
    <p>[% MSG( 'comments.no_comments' ) %]</p>
--- 1,7 ----
! [% IF error %]
  
! <p>[% error %]</p>
! 
! [% ELSIF comments.size == 0 -%]
  
    <p>[% MSG( 'comments.no_comments' ) %]</p>
***************
*** 7,15 ****
  [% ELSE -%]
  
    [% FOREACH comment = comments;
!      object_url  = comment.get_summary.object_url -%]
!    [% theme.bullet %] <a href="[% object_url %]">[% comment.subject %]</a> on 
!                       [% OI.date_format( comment.posted_on, '%Y-%m-%d %H:%M' ) %] <br />
    [% END %]
  
  [% END -%]
--- 9,20 ----
  [% ELSE -%]
  
+   <ul class="listInBox">
    [% FOREACH comment = comments;
!       object_url = comment.get_summary.object_url;
!       post_date  = OI.date_format( comment.posted_on, '%d-%b %H:%M' ); -%]
!    <li><a href="[% object_url %]">[% comment.subject %]</a>
!        on [% post_date %]</li>
    [% END %]
+   </ul>
  
  [% END -%]

[Openinteract-commits] CVS: OpenInteract2/pkg/comments/template comment.tmpl,1.3,1.4

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/comments/template
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17635/template

Modified Files:
	comment.tmpl 
Log Message:
put remote host in comment, don't display


Index: comment.tmpl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/template/comment.tmpl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** comment.tmpl	21 Sep 2005 03:37:05 -0000	1.3
--- comment.tmpl	24 Sep 2005 14:02:33 -0000	1.4
***************
*** 14,17 ****
          OI.date_format( comment.posted_on, '%B %d, %Y %l:%M %p' )  ) %]
  </p>
! 
  </div>
\ No newline at end of file
--- 14,17 ----
          OI.date_format( comment.posted_on, '%B %d, %Y %l:%M %p' )  ) %]
  </p>
! <!-- posted from: [% comment.poster_host %] -->
  </div>
\ No newline at end of file

[Openinteract-commits] CVS: OpenInteract2/pkg/comments/struct comment.sql,1.2,1.3

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/comments/struct
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17578/struct

Modified Files:
	comment.sql 
Log Message:
add 'remote_host'


Index: comment.sql
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/struct/comment.sql,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** comment.sql	19 Feb 2004 14:49:10 -0000	1.2
--- comment.sql	24 Sep 2005 14:02:18 -0000	1.3
***************
*** 7,10 ****
--- 7,11 ----
   poster_email       varchar(50) null,
   poster_url         varchar(75) null,
+  poster_host        varchar(50) null,
   subject            varchar(75) not null,
   content            text null,

[Openinteract-commits] CVS: OpenInteract2/pkg/comments/msg comments-messages-en.msg,1.10,1.11

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/comments/msg
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17529/msg

Modified Files:
	comments-messages-en.msg 
Log Message:
add recent comments title


Index: comments-messages-en.msg
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/msg/comments-messages-en.msg,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** comments-messages-en.msg	4 Mar 2005 15:22:11 -0000	1.10
--- comments-messages-en.msg	24 Sep 2005 14:02:06 -0000	1.11
***************
*** 3,6 ****
--- 3,7 ----
  comments.no_comment = No comment to display.
  comments.no_comments = No comments to display.
+ comments.recent      = Recent Comments
  
  comments.form.title = Post a comment

[Openinteract-commits] CVS: OpenInteract2/pkg/comments/conf action.ini,1.7,1.8

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/comments/conf
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17457/conf

Modified Files:
	action.ini 
Log Message:
define template here instead of action


Index: action.ini
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/conf/action.ini,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** action.ini	4 Mar 2005 15:22:11 -0000	1.7
--- action.ini	24 Sep 2005 14:01:54 -0000	1.8
***************
*** 44,50 ****
  class                 = OpenInteract2::Action::Comments
  task                  = comment_recent
! title                 = Recent Comments
  is_secure             = no
  default_comment_count = 5
  url_none              = yes
! cache_expire          = 30m
\ No newline at end of file
--- 44,52 ----
  class                 = OpenInteract2::Action::Comments
  task                  = comment_recent
! title_key             = comments.recent
  is_secure             = no
  default_comment_count = 5
  url_none              = yes
! cache_expire          = 30m
! template_source       = comments::box_comment_recent
! 

[Openinteract-commits] CVS: OpenInteract2/pkg/comments/OpenInteract2/Action Comments.pm,1.15,1.16

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/comments/OpenInteract2/Action
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17420/OpenInteract2/Action

Modified Files:
	Comments.pm 
Log Message:
don't add an error to the action, just add to params (it's just a box)


Index: Comments.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/OpenInteract2/Action/Comments.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Comments.pm	4 Mar 2005 15:22:10 -0000	1.15
--- Comments.pm	24 Sep 2005 14:01:40 -0000	1.16
***************
*** 467,470 ****
--- 467,472 ----
      }
  
+     $comment->{poster_host} = $request->remote_host;
+ 
      # Non-object form widgets
  
***************
*** 846,856 ****
      };
      if ( $@ ) {
!         $self->add_error_key( 'comments.error.cannot_fetch_recent', "$@" );
      }
      else {
          $params{comments} = $comments;
      }
!     return $self->generate_content(
!                     \%params, { name => 'comments::box_comment_recent' } );
  }
  
--- 848,858 ----
      };
      if ( $@ ) {
!         $params{error} = $self->_msg(
!             'comments.error.cannot_fetch_recent', "$@" );
      }
      else {
          $params{comments} = $comments;
      }
!     return $self->generate_content( \%params );
  }
  

[Openinteract-commits] CVS: OpenInteract2/pkg/base_box package.ini,1.5,1.6 Changes,1.23,1.24

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

Update of /cvsroot/openinteract/OpenInteract2/pkg/base_box
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17249

Modified Files:
	package.ini Changes 
Log Message:
add more docs for building boxes, including a more complex example
where we grab data from the database


Index: package.ini
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_box/package.ini,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** package.ini	29 Mar 2005 02:36:22 -0000	1.5
--- package.ini	24 Sep 2005 14:00:52 -0000	1.6
***************
*** 1,7 ****
  [package]
  name          = base_box
! version       = 2.30
  author        = Chris Winters <ch...@cw...>
  url           = http://www.openinteract.org/
! sql_installer = 
! description   = This base package generates the boxes that contain site-wide links, content-specific links, navigation help and information, and any other interesting thing. 
--- 1,8 ----
  [package]
  name          = base_box
! version       = 2.31
  author        = Chris Winters <ch...@cw...>
  url           = http://www.openinteract.org/
! description   = This base package generates the boxes that \
!   contain site-wide links, content-specific links, navigation \
!   help and information, and any other interesting thing. 

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_box/Changes,v
retrieving revision 1.23
retrieving revision 1.24
diff -C2 -d -r1.23 -r1.24
*** Changes	29 Mar 2005 02:36:23 -0000	1.23
--- Changes	24 Sep 2005 14:00:52 -0000	1.24
***************
*** 1,4 ****
--- 1,8 ----
  Revision history for OpenInteract package base_box.
  
+ 2.31  Sat Sep 24 09:59:13 EDT 2005
+ 
+       OIN-58: Add more tutorial box docs to OI2::App::BaseBox
+ 
  2.30  Sun Mar 27 12:05:36 EST 2005