openinteract-commits Mailing List for OpenInteract (Page 24)

Brought to you by: a_v, lachoy, mjbaker

openinteract-commits — CVS updates for OpenInteract/SPOPS

You can subscribe to this list here.

2001	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep	Oct (381)	Nov (176)	Dec (310)
2002	Jan (334)	Feb (96)	Mar (149)	Apr (214)	May (120)	Jun (56)	Jul (10)	Aug (273)	Sep (182)	Oct (56)	Nov (125)	Dec (22)
2003	Jan (63)	Feb (181)	Mar (498)	Apr (433)	May (39)	Jun (512)	Jul (276)	Aug (156)	Sep (101)	Oct (66)	Nov (24)	Dec (161)
2004	Jan (1)	Feb (377)	Mar (68)	Apr (26)	May (107)	Jun (333)	Jul (13)	Aug	Sep (76)	Oct (88)	Nov (170)	Dec (91)
2005	Jan (52)	Feb (239)	Mar (402)	Apr (15)	May (2)	Jun (1)	Jul (13)	Aug	Sep (71)	Oct (34)	Nov	Dec
2006	Jan (5)	Feb (5)	Mar (2)	Apr	May	Jun	Jul	Aug (3)	Sep (7)	Oct (2)	Nov	Dec
2007	Jan	Feb	Mar (1)	Apr	May	Jun	Jul	Aug	Sep	Oct	Nov	Dec

Flat | Threaded

<< < 1 .. 22 23 24 25 26 .. 289 > >> (Page 24 of 289)

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

From: Chris W. <la...@us...> - 2005-02-28 01:56:22

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

Modified Files:
	action.ini 
Log Message:
OIN-128: ensure lines don't get too long...


Index: action.ini
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/conf/action.ini,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** action.ini	28 Nov 2004 05:57:31 -0000	1.4
--- action.ini	28 Feb 2005 01:56:12 -0000	1.5
***************
*** 3,6 ****
--- 3,7 ----
  is_secure           = yes
  task_default        = list
+ max_ecode_line      = 70
  default_page_size   = 25
  default_cookie_name = comment_info

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

From: Chris W. <la...@us...> - 2005-02-28 01:56:22

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

Modified Files:
	Comments.pm 
Log Message:
OIN-128: ensure lines don't get too long...


Index: Comments.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/OpenInteract2/Action/Comments.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Comments.pm	28 Feb 2005 01:43:53 -0000	1.12
--- Comments.pm	28 Feb 2005 01:56:12 -0000	1.13
***************
*** 17,20 ****
--- 17,22 ----
  my ( $log );
  
+ my $DEFAULT_ECODE_LINE_LENGTH = 70;
+ 
  # Display some summary info (plus a link) for an object
  
***************
*** 387,391 ****
      $count = 1;
      foreach my $section ( @code_sections ) {
!         $comment->{content} =~ s|$placeholder$count|<pre class="commentCode">$section</pre>|gsm;
          $count++;
      }
--- 389,394 ----
      $count = 1;
      foreach my $section ( @code_sections ) {
!         my $fixed_section = $self->_trim_preformatted_line_length( $section );
!         $comment->{content} =~ s|$placeholder$count|<pre class="commentCode">$fixed_section</pre>|gsm;
          $count++;
      }
***************
*** 474,477 ****
--- 477,496 ----
  }
  
+ sub _trim_preformatted_line_length {
+     my ( $self, $text ) = @_;
+     my @new = ();
+     my $max = $self->param( 'max_ecode_line' ) || $DEFAULT_ECODE_LINE_LENGTH;
+     foreach my $line ( split /\r?\n/, $text ) {
+         if ( length $line > $max ) {
+             push @new, substr( $line, 0, $max ) . '+',
+                        substr( $line, $max );
+         }
+         else {
+             push @new, $line;
+         }
+     }
+     return join( "\n", @new );
+ }
+ 
  # When a new thread is added you can add people who get notified with
  # every new message in that thread. Return value is the number of

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

From: Chris W. <la...@us...> - 2005-02-28 01:56:21

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

Modified Files:
	comments-messages-en.msg 
Log Message:
OIN-128: ensure lines don't get too long...


Index: comments-messages-en.msg
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/msg/comments-messages-en.msg,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** comments-messages-en.msg	28 Feb 2005 01:45:17 -0000	1.6
--- comments-messages-en.msg	28 Feb 2005 01:56:12 -0000	1.7
***************
*** 4,8 ****
  comments.no_comments = No comments to display.
  comments.form.title = Post a comment
! comments.form.no_html = (No HTML allowed; use '<ecode></ecode>' around preformatted text; http:// links automagically created.)
  comments.form.remember = Remember info?
  comments.form.notify = Email on new thread posts?
--- 4,8 ----
  comments.no_comments = No comments to display.
  comments.form.title = Post a comment
! comments.form.no_html = (No HTML allowed; use '&lt;ecode&gt;&lt;/ecode&gt;' around preformatted text; http:// links automagically created.)
  comments.form.remember = Remember info?
  comments.form.notify = Email on new thread posts?

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

From: Chris W. <la...@us...> - 2005-02-28 01:45:27

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

Modified Files:
	comments-messages-en.msg 
Log Message:
OIN-128: add <ecode> note in form


Index: comments-messages-en.msg
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/msg/comments-messages-en.msg,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** comments-messages-en.msg	5 Dec 2004 08:51:22 -0000	1.5
--- comments-messages-en.msg	28 Feb 2005 01:45:17 -0000	1.6
***************
*** 4,8 ****
  comments.no_comments = No comments to display.
  comments.form.title = Post a comment
! comments.form.no_html = (No HTML allowed; http:// links will be automagically created.)
  comments.form.remember = Remember info?
  comments.form.notify = Email on new thread posts?
--- 4,8 ----
  comments.no_comments = No comments to display.
  comments.form.title = Post a comment
! comments.form.no_html = (No HTML allowed; use '<ecode></ecode>' around preformatted text; http:// links automagically created.)
  comments.form.remember = Remember info?
  comments.form.notify = Email on new thread posts?

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

From: Chris W. <la...@us...> - 2005-02-28 01:44:16

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

Modified Files:
	Comments.pm 
Log Message:
OIN-128: actually do the thing we said we did earlier...


Index: Comments.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/comments/OpenInteract2/Action/Comments.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Comments.pm	28 Feb 2005 00:54:30 -0000	1.11
--- Comments.pm	28 Feb 2005 01:43:53 -0000	1.12
***************
*** 355,358 ****
--- 355,360 ----
      # pull out any <ecode></ecode> sections for later
  
+     my $placeholder = 'CODECONTENT';
+ 
      my @code_sections = ();
      my $count = 0;
***************
*** 361,365 ****
      |
          push @code_sections, $2;
!        'CODECONTENT' . ++$count;
      |gisemx;
  
--- 363,367 ----
      |
          push @code_sections, $2;
!         $placeholder . ++$count;
      |gisemx;
  
***************
*** 385,389 ****
      $count = 1;
      foreach my $section ( @code_sections ) {
!         $comment =~ s|CODESECTION$count|<pre class="commentCode">$section</pre>|gsm;
          $count++;
      }
--- 387,391 ----
      $count = 1;
      foreach my $section ( @code_sections ) {
!         $comment->{content} =~ s|$placeholder$count|<pre class="commentCode">$section</pre>|gsm;
          $count++;
      }

[Openinteract-commits] CVS: OpenInteract2/script translate_package_to_ini.pl,NONE,1.1

From: Chris W. <la...@us...> - 2005-02-28 01:34:10

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

Added Files:
	translate_package_to_ini.pl 
Log Message:
OIN-137: add helper script for translating package configuration


--- NEW FILE: translate_package_to_ini.pl ---
#!/usr/bin/perl

# Translate a package.conf --> package.ini
# Usage:
#   translate_package_to_ini.pl < package.conf > package.ini

use strict;

my @SERIAL_FIELDS = qw( name version author url
                        spops_file action_file message_file module
                        sql_installer config_watcher description
                        template_plugin observer );
my %LIST_FIELDS = map { $_ => 1 } qw( author module spops_file action_file
                                      message_file config_watcher );
my %HASH_FIELDS = map { $_ => 1 } qw( template_plugin observer );

my %config = ();

my $is_description = 0;

while ( <STDIN> ) {
    next if ( /^\s*\#/ );
    next if ( /^\s*$/ );
    chomp;
    s/\r//g;
    s/^\s+//;
    s/\s+$//;

    if ( $is_description ) {
        $config{description} .= $_ . ' ';
        next;
    }

    my ( $field, $value ) = split /\s+/, $_, 2;
    if ( $field eq 'description' ) {
        $is_description++;
        next;
    }

    # If there are multiple values possible, make a list
    if ( $LIST_FIELDS{ $field } and $value ) {
        push @{ $config{ $field } }, $value;
    }

    # Otherwise, if it's a key -> key -> value set; add to list
    elsif ( $HASH_FIELDS{ $field } and $value ) {
        my ( $sub_key, $sub_value ) = split /\s+/, $value, 2;
        $config{ $field }->{ $sub_key } = $sub_value;
    }

    # If not all that, then simple key -> value
    else {
        $config{ $field } = $value;
    }
}

# Translate to INI, manually so we can control order and format

my $fmt = "%-13s = %s\n";

print "[package]\n";
foreach my $field ( @SERIAL_FIELDS ) {
    if ( $LIST_FIELDS{ $field } ) {
        my $values = $config{ $field } || [];
        foreach my $value ( @{ $values } ) {
            printf( $fmt, $field, $value );
        }
    }
    elsif ( $HASH_FIELDS{ $field } ) {
        if ( $config{ $field } ) {
            print "[package $field]\n";
            for ( keys %{ $config{ $field } } ) {
                printf( $fmt, $_, $config{ $field }->{$_} );
            }
        }
    }
    else {
        printf( $fmt, $field, $config{ $field } );
    }
}

[Openinteract-commits] CVS: OpenInteract2/t/use test_package_bad.ini,NONE,1.1 test_package.ini,NONE,1.1 fruit-1.00.zip,1.1,1.2 test_package_bad.conf,1.1,NONE test_package.conf,1.3,NONE

From: Chris W. <la...@us...> - 2005-02-28 01:04:12

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

Modified Files:
	fruit-1.00.zip 
Added Files:
	test_package_bad.ini test_package.ini 
Removed Files:
	test_package_bad.conf test_package.conf 
Log Message:
OIN-137: testing updates as a result of moving package.conf -> package.ini (also with eliminating doc/, but more of that in a bit...)


--- NEW FILE: test_package_bad.ini ---
[package]
name           = fruit
version        =  
author         = wi...@op...
url            = http://www.openinteract.org/
sql_installer  = OpenInteract2::SQLInstall::Fruit
module         = Data::Dumper
description    = Demo package for showing how to build an OpenInteract2 \
   package. Traditional style, fruit flavor.

--- NEW FILE: test_package.ini ---
[package]
name             = OITest
version          = 1.12
description      = Test description.
author           = Me <me...@me...>
author           = You <yo...@yo...>
spops_file       = conf/object_one.ini
spops_file       = conf/object_two.ini
action_file      = conf/action.ini
url              = http://www.openinteract.org/
sql_installer    = OpenInteract2::SQLInstall::OITest
config_watcher   = OpenInteract2::MyWatcher

[package template_plugin]
TestPlugin = OpenInteract2::Plugin::Test

[package observer]
myfilter   = OpenInteract2::Filter::My

Index: fruit-1.00.zip
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/use/fruit-1.00.zip,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
Binary files /tmp/cvs7NhCEs and /tmp/cvsiWrBYS differ

--- test_package_bad.conf DELETED ---

--- test_package.conf DELETED ---

[Openinteract-commits] CVS: OpenInteract2/t config_bootstrap.t,NONE,1.1 utils.pl,1.93,1.94 package.t,1.16,1.17 config_package.t,1.12,1.13 00_manage_create_website.t,1.4,1.5 config_base.t,1.10,NONE

From: Chris W. <la...@us...> - 2005-02-28 01:04:12

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

Modified Files:
	utils.pl package.t config_package.t 00_manage_create_website.t 
Added Files:
	config_bootstrap.t 
Removed Files:
	config_base.t 
Log Message:
OIN-137: testing updates as a result of moving package.conf -> package.ini (also with eliminating doc/, but more of that in a bit...)


--- NEW FILE: config_bootstrap.t ---
# -*-perl-*-

# $Id: config_bootstrap.t,v 1.1 2005/02/28 01:03:59 lachoy Exp $

use strict;
use lib 't/';
require 'utils.pl';
use File::Copy               qw( cp );
use File::Spec::Functions    qw( catfile );
use OpenInteract2::Constants qw( BOOTSTRAP_CONF_DIR BOOTSTRAP_CONF_FILE );
use Test::More  tests => 31;

require_ok( 'OpenInteract2::Config::Bootstrap' );

initialize_context();

{
    my $dir = '/path/to/mysite';
    my $filename = OpenInteract2::Config::Bootstrap
                                   ->create_filename( $dir );
    is( $filename, catfile( $dir, 'bootstrap.ini' ),
        'Create default filename' );
    my $web_filename = OpenInteract2::Config::Bootstrap
                                   ->create_website_filename( $dir );
    is( $web_filename, catfile( $dir, 'conf', 'bootstrap.ini' ),
        'Create default website filename' );

}


my $website_dir  = get_test_site_dir();
my $config_type  = 'ini';
my $config_class = 'OpenInteract2::Config::IniFile';
my $config_dir   = 'conf';
my $config_file  = 'server.ini';
my $package_dir  = 'pkg';
my $temp_lib_dir = 'tmplib';
my $existing_file = catfile( $website_dir, 'conf', 'bootstrap.ini' );
cp( $existing_file, "$existing_file.bak" )
    || die "Cannot rename '$existing_file' to '$existing_file.bak': $!";
unlink( $existing_file );

# Create a new config

{
    my $c = eval { OpenInteract2::Config::Bootstrap->new() };
    ok( ! $@,
        'Created empty object' ) || diag "Error: $@";
    is( $c->website_dir( $website_dir ), $website_dir,
        'Website dir set' );
    is( $c->config_type( $config_type ), $config_type,
        'Config type set' );
    is( $c->config_class( $config_class ), $config_class,
        'Config class set' );
    is( $c->config_dir( $config_dir ), $config_dir,
        'Config subdir set' );
    is( $c->config_file( $config_file ), $config_file,
        'Config filename set' );
    is( $c->package_dir( $package_dir ), $package_dir,
        'Package dir set' );
    is( $c->temp_lib_dir( $temp_lib_dir ), $temp_lib_dir,
        'Temp library dir set' );

    my $wrote_file = eval { $c->save_config() };
    ok( ! $@,
        'Config file write to default execute' ) || diag "Error: $@";
    is( $wrote_file, $existing_file,
        'Correct filename for saved config' );
    ok( -f $wrote_file,
        'File written exists' );

    # Remove a required field and try to save again...

    $c->config_dir( '' );
    eval { $c->save_config() };
    like( "$@", qr/^Cannot save bootstrap config: the following fields/,
          'Expected error when required field removed' );
    $c->config_dir( $config_dir );

    unlink( $wrote_file );
    rename( "$existing_file.bak", $existing_file );

    my $temp_wrote_file = get_use_file( 'bootstrap.ini', 'name' );
    $c->filename( $temp_wrote_file );
    my $wrote_file_spec = eval { $c->save_config() };
    ok( ! $@,
        'Config file write to specified execute' ) || diag "Error: $@";
    is( $wrote_file_spec, $temp_wrote_file,
        'Correct filename for saved config' );
    ok( -f $wrote_file_spec,
        'File written exists' );
    unlink( $temp_wrote_file );
}


# Read an existing config using the 'website_dir' method

{
    my $c = eval {
        OpenInteract2::Config::Bootstrap->new({ website_dir => $website_dir })
    };
    ok( ! $@, 'Object created from website dir' ) || diag "Error: $@";
    is( $c->website_dir(), $website_dir,
        'Website dir read' );
    is( $c->config_type(), $config_type,
        'Config type read' );
    is( $c->config_class(), $config_class,
        'Config class read' );
    is( $c->config_dir(),  $config_dir,
        'Config dir read' );
    is( $c->config_file(),  $config_file,
        'Config file read' );
    is( $c->package_dir(),  $package_dir,
        'Package  dir read' );
    is( $c->temp_lib_dir(),  $temp_lib_dir,
        'Temporary library dir read' );
    is( $c->filename(), $existing_file,
        'Filename set' );
}

# Read an existing config using the 'filename' method, then save it to
# a separate file

{
    my $c = eval {
        OpenInteract2::Config::Bootstrap->new({
            filename => $existing_file
        });
    };
    ok( ! $@,
        'Object created from filename' ) || diag "Error: $@";
    is( $c->website_dir(), $website_dir,
        'Website dir set at initialization' );
    my $new_file = $existing_file;
    $new_file =~ s/\.ini$/-alt.ini/;
    $c->filename( $new_file );
    my $wrote_file = eval { $c->save_config };
    ok ( ! $@,
         'Alternate config file written' );
    is( $wrote_file, $new_file,
        'Correct alternate filename saved' );
    unlink( $new_file );
}

Index: utils.pl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/utils.pl,v
retrieving revision 1.93
retrieving revision 1.94
diff -C2 -d -r1.93 -r1.94
*** utils.pl	26 Feb 2005 05:52:53 -0000	1.93
--- utils.pl	28 Feb 2005 01:03:59 -0000	1.94
***************
*** 45,64 ****
  sub main::get_package_versions {
      return (
!          base            => '2.12',
!          base_box        => '2.17',
!          base_error      => '3.00',
!          base_group      => '2.16',
!          base_page       => '2.28',
!          base_security   => '2.18',
!          base_template   => '3.15',
!          base_theme      => '2.10',
!          base_user       => '2.37',
!          comments        => '1.19',
!          full_text       => '2.58',
!          lookup          => '2.07',
!          news            => '2.20',
!          object_activity => '2.11',
!          system_doc      => '2.08',
!          whats_new       => '2.10',
     );
  }
--- 45,64 ----
  sub main::get_package_versions {
      return (
!          base            => '2.13',
!          base_box        => '2.18',
!          base_error      => '3.01',
!          base_group      => '2.17',
!          base_page       => '2.29',
!          base_security   => '2.19',
!          base_template   => '3.16',
!          base_theme      => '2.11',
!          base_user       => '2.38',
!          comments        => '1.20',
!          full_text       => '2.59',
!          lookup          => '2.08',
!          news            => '2.21',
!          object_activity => '2.12',
!          system_doc      => '2.09',
!          whats_new       => '2.11',
     );
  }
***************
*** 131,144 ****
  }
  
- # This should be the parent of the test directory...
- 
- sub main::get_source_dir {
-     my $test_dir = get_test_dir();
-     my @dirs = splitdir( $test_dir );
-     pop @dirs;
-     return catdir( @dirs );
- }
- 
- 
  sub main::rmtree {
      return File::Path::rmtree( [ @_ ] );
--- 131,134 ----
***************
*** 209,215 ****
  
  sub main::install_website {
-     my $source_dir  = get_source_dir();
      my $website_dir = get_test_site_dir();
!     my $is_recent = _is_recent_website( $website_dir );
  
      initialize_website_libraries();
--- 199,204 ----
  
  sub main::install_website {
      my $website_dir = get_test_site_dir();
!     my $is_recent   = _is_recent_website( $website_dir );
  
      initialize_website_libraries();
***************
*** 236,242 ****
  
      # let any errors bubble up
!     my $manage = OpenInteract2::Manage->new( 'create_website',
!                                              { website_dir => $website_dir,
!                                                source_dir  => $source_dir } );
      LOG()->debug( "Created management task for creating website" );
      $manage->execute;
--- 225,231 ----
  
      # let any errors bubble up
!     my $manage = OpenInteract2::Manage->new(
!         'create_website', { website_dir => $website_dir }
!     );
      LOG()->debug( "Created management task for creating website" );
      $manage->execute;
***************
*** 279,283 ****
              package     => [ 'SYSTEM' ],
          })->execute();
!     OpenInteract2::Setup->run_setup_for( 'initialize spops' );
  }
  
--- 268,272 ----
              package     => [ 'SYSTEM' ],
          })->execute();
!     #OpenInteract2::Setup->run_setup_for( 'read spops config' );
  }
  
***************
*** 300,305 ****
      install_website();
      unless ( CTX ) {
!         OpenInteract2::Context->create(
!                     { website_dir => get_test_site_dir() });
      }
      return CTX;
--- 289,295 ----
      install_website();
      unless ( CTX ) {
!         OpenInteract2::Context->create({
!             website_dir => get_test_site_dir()
!         });
      }
      return CTX;

Index: package.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/package.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** package.t	27 Sep 2004 20:12:02 -0000	1.16
--- package.t	28 Feb 2005 01:03:59 -0000	1.17
***************
*** 8,12 ****
  use File::Copy qw( cp );
  use File::Spec::Functions    qw( catdir catfile );
! use Test::More  tests => 121;
  
  require_ok( 'OpenInteract2::Package' );
--- 8,12 ----
  use File::Copy qw( cp );
  use File::Spec::Functions    qw( catdir catfile );
! use Test::More  tests => 117;
  
  require_ok( 'OpenInteract2::Package' );
***************
*** 91,97 ****
      # that the export fails
  
!     my $bad_config_file = get_use_file( 'test_package_bad.conf', 'name' );
!     my $bad_config = OpenInteract2::Config::Package->new(
!                          { filename => $bad_config_file });
      my $good_config = $d_package->config;
      $d_package->config( $bad_config );
--- 91,98 ----
      # that the export fails
  
!     my $bad_config_file = get_use_file( 'test_package_bad.ini', 'name' );
!     my $bad_config = OpenInteract2::Config::Package->new({
!         filename => $bad_config_file
!     });
      my $good_config = $d_package->config;
      $d_package->config( $bad_config );
***************
*** 317,330 ****
  
  {
-     my $source_dir = get_source_dir();
-     my %skel_args = ( source_dir => $source_dir );
- 
      # Expect this to die since we're not giving a name
  
!     eval { OpenInteract2::Package->create_skeleton( { %skel_args } ) };
      like( $@, qr/^Must pass in package name/,
            "Expected error with no name to create package" );
  
!     eval { OpenInteract2::Package->create_skeleton({ %skel_args, name => '   ' }) };
      like( $@, qr/Name must not be blank/,
            "Expected error with blank name to create package" );
--- 318,328 ----
  
  {
      # Expect this to die since we're not giving a name
  
!     eval { OpenInteract2::Package->create_skeleton() };
      like( $@, qr/^Must pass in package name/,
            "Expected error with no name to create package" );
  
!     eval { OpenInteract2::Package->create_skeleton({ name => '   ' }) };
      like( $@, qr/Name must not be blank/,
            "Expected error with blank name to create package" );
***************
*** 332,345 ****
      # Expect these to die since we're giving a bad name (like Bon Jovi, arg)
  
!     eval { OpenInteract2::Package->create_skeleton({ %skel_args, name => 'my package' }) };
      like( $@, qr/Name must not have spaces/,
            "Expected error with spaces in name to create package" );
!     eval { OpenInteract2::Package->create_skeleton({ %skel_args, name => 'my-package' }) };
      like( $@, qr/Name must not have dashes/,
            "Expected error with dashes in name to create package" );
!     eval { OpenInteract2::Package->create_skeleton({ %skel_args, name => '2mypackage' }) };
      like( $@, qr/Name must not start with a number/,
            "Expected error with leading number in name to create package" );
!     eval { OpenInteract2::Package->create_skeleton({ %skel_args, name => 'mypackagenum#' }) };
      like( $@, qr/Name must not have non-word characters/,
            "Expected error with non-word chars in name to create package" );
--- 330,343 ----
      # Expect these to die since we're giving a bad name (like Bon Jovi, arg)
  
!     eval { OpenInteract2::Package->create_skeleton({ name => 'my package' }) };
      like( $@, qr/Name must not have spaces/,
            "Expected error with spaces in name to create package" );
!     eval { OpenInteract2::Package->create_skeleton({ name => 'my-package' }) };
      like( $@, qr/Name must not have dashes/,
            "Expected error with dashes in name to create package" );
!     eval { OpenInteract2::Package->create_skeleton({ name => '2mypackage' }) };
      like( $@, qr/Name must not start with a number/,
            "Expected error with leading number in name to create package" );
!     eval { OpenInteract2::Package->create_skeleton({ name => 'mypackagenum#' }) };
      like( $@, qr/Name must not have non-word characters/,
            "Expected error with non-word chars in name to create package" );
***************
*** 353,362 ****
  
      my $skel_pkg = eval {
!         OpenInteract2::Package->create_skeleton({ name       => 'foo',
!                                                   source_dir => $source_dir })
      };
      ok( ! $@, 'Create skeleton superficially succeeded' ) || diag "Error: $@";
      diag( "Error creating skeleton: $@" ) if ( $@ );
!     my @dirs  = ( 'conf', 'data',  'doc', 'script', 'struct', 'template',
                    'html', [ 'html', 'images' ],
                    'OpenInteract2', ['OpenInteract2', 'Action' ],
--- 351,359 ----
  
      my $skel_pkg = eval {
!         OpenInteract2::Package->create_skeleton({ name => 'foo' })
      };
      ok( ! $@, 'Create skeleton superficially succeeded' ) || diag "Error: $@";
      diag( "Error creating skeleton: $@" ) if ( $@ );
!     my @dirs  = ( 'conf', 'data',  'script', 'struct', 'template',
                    'html', [ 'html', 'images' ],
                    'OpenInteract2', ['OpenInteract2', 'Action' ],
***************
*** 372,377 ****
                    'MANIFEST',
                    'MANIFEST.SKIP',
!                   'package.conf',
!                   [ 'doc', 'foo.pod' ],
                    [ 'OpenInteract2', 'SQLInstall', 'Foo.pm' ],
                    [ 'OpenInteract2', 'Action', 'Foo.pm' ],
--- 369,373 ----
                    'MANIFEST',
                    'MANIFEST.SKIP',
!                   'package.ini',
                    [ 'OpenInteract2', 'SQLInstall', 'Foo.pm' ],
                    [ 'OpenInteract2', 'Action', 'Foo.pm' ],
***************
*** 393,397 ****
      # Expect this to die since the directory will already exist
  
!     eval { OpenInteract2::Package->create_skeleton({ %skel_args, name => 'foo' }) };
      like( $@, qr/^Cannot create package destination directory.*already exists$/,
            "Expected error since destionation directory exists" );
--- 389,393 ----
      # Expect this to die since the directory will already exist
  
!     eval { OpenInteract2::Package->create_skeleton({ name => 'foo' }) };
      like( $@, qr/^Cannot create package destination directory.*already exists$/,
            "Expected error since destionation directory exists" );
***************
*** 427,432 ****
      is( scalar @{ $actions }, 1,
          "Action files from package $label" );
-     my $docs = $pkg->get_doc_files;
-     is( scalar @{ $docs }, 1,
-         "Doc files from package $label" );
  }
--- 423,425 ----

Index: config_package.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/config_package.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** config_package.t	8 Feb 2005 17:45:31 -0000	1.12
--- config_package.t	28 Feb 2005 01:03:59 -0000	1.13
***************
*** 15,19 ****
  my @action_file   = qw( conf/action.ini );
  my $sql_installer = 'OpenInteract2::SQLInstall::OITest';
! my %filter        = ( myfilter => 'OpenInteract2::Filter::My' );
  my @config_watch  = qw( OpenInteract2::MyWatcher );
  my $url           = 'http://www.openinteract.org/';
--- 15,19 ----
  my @action_file   = qw( conf/action.ini );
  my $sql_installer = 'OpenInteract2::SQLInstall::OITest';
! my %observer      = ( myfilter => 'OpenInteract2::Filter::My' );
  my @config_watch  = qw( OpenInteract2::MyWatcher );
  my $url           = 'http://www.openinteract.org/';
***************
*** 57,61 ****
      is_deeply( $c->config_watcher( \@config_watch ), \@config_watch,
                 'Config watcher set' );
!     is_deeply( $c->observer( \%filter ), \%filter,
                 'Observer set' );
      is( $c->description( $description ), $description,
--- 57,61 ----
      is_deeply( $c->config_watcher( \@config_watch ), \@config_watch,
                 'Config watcher set' );
!     is_deeply( $c->observer( \%observer ), \%observer,
                 'Observer set' );
      is( $c->description( $description ), $description,
***************
*** 81,85 ****
          'Second alt result from author_emails()' );
  
!     my $write_file = get_use_file( 'test-write_package.conf', 'name' );
      is( $c->filename( $write_file ), $write_file,
          'Filename set' );
--- 81,85 ----
          'Second alt result from author_emails()' );
  
!     my $write_file = get_use_file( 'test-write_package.ini', 'name' );
      is( $c->filename( $write_file ), $write_file,
          'Filename set' );
***************
*** 95,99 ****
  # Now open an existing file
  {
!     my $read_file = get_use_file( 'test_package.conf', 'name' );
      my $c = eval {
          OpenInteract2::Config::Package->new({ filename => $read_file })
--- 95,99 ----
  # Now open an existing file
  {
!     my $read_file = get_use_file( 'test_package.ini', 'name' );
      my $c = eval {
          OpenInteract2::Config::Package->new({ filename => $read_file })
***************
*** 119,123 ****
      is_deeply( $c->config_watcher, \@config_watch,
                 'Config watcher read' );
!     is_deeply( $c->observer, \%filter,
                 'Observer read' );
      is( $c->description(), $description,
--- 119,123 ----
      is_deeply( $c->config_watcher, \@config_watch,
                 'Config watcher read' );
!     is_deeply( $c->observer, \%observer,
                 'Observer read' );
      is( $c->description(), $description,

Index: 00_manage_create_website.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/00_manage_create_website.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** 00_manage_create_website.t	22 Feb 2005 19:17:26 -0000	1.4
--- 00_manage_create_website.t	28 Feb 2005 01:03:59 -0000	1.5
***************
*** 16,26 ****
  
  my $website_dir = get_test_site_dir();
  
! # Delete the testing site if it already exists
! if ( -d $website_dir ) {
!     rmtree( $website_dir );
! }
! 
! my $source_dir = get_source_dir();
  
  create_tmp_dir();
--- 16,24 ----
  
  my $website_dir = get_test_site_dir();
+ my $db_file     = get_test_site_db_file();
  
! # Delete the testing site and db if they already exist
! rmtree( $website_dir ) if ( -d $website_dir );
! unlink( $db_file )     if ( -f $db_file );
  
  create_tmp_dir();
***************
*** 29,34 ****
      OpenInteract2::Manage->new(
          'create_website', {
!             website_dir => $website_dir,
!             source_dir  => $source_dir,
          })
  };
--- 27,31 ----
      OpenInteract2::Manage->new(
          'create_website', {
!             website_dir => $website_dir
          })
  };
***************
*** 75,79 ****
  is( count_files( $site_conf_dir ), 16,
      "Number of files in conf/" );
! is( first_file( $site_conf_dir ), 'base.conf',
      "First file in conf/" );
  is( last_file( $site_conf_dir ), 'startup_mp2.pl',
--- 72,76 ----
  is( count_files( $site_conf_dir ), 16,
      "Number of files in conf/" );
! is( first_file( $site_conf_dir ), 'bootstrap.ini',
      "First file in conf/" );
  is( last_file( $site_conf_dir ), 'startup_mp2.pl',

--- config_base.t DELETED ---

[Openinteract-commits] CVS: OpenInteract2/t/test_pkg package.ini,NONE,1.1 MANIFEST,1.1,1.2 package.conf,1.1,NONE

From: Chris W. <la...@us...> - 2005-02-28 01:04:09

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

Modified Files:
	MANIFEST 
Added Files:
	package.ini 
Removed Files:
	package.conf 
Log Message:
OIN-137: testing updates as a result of moving package.conf -> package.ini (also with eliminating doc/, but more of that in a bit...)


--- NEW FILE: package.ini ---
[package]
name           = fruit
version        = 1.00
author         = wi...@op...
url            = http://www.openinteract.org/
sql_installer  = OpenInteract2::SQLInstall::Fruit
module         = Data::Dumper
description    = Demo package for showing how to build an \
   OpenInteract2 package. Traditional style, fruit flavor.

Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/test_pkg/MANIFEST,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** MANIFEST	23 Apr 2003 21:29:03 -0000	1.1
--- MANIFEST	28 Feb 2005 01:03:58 -0000	1.2
***************
*** 2,6 ****
  MANIFEST.SKIP
  Changes
! package.conf
  conf/action.ini
  conf/spops.ini
--- 2,6 ----
  MANIFEST.SKIP
  Changes
! package.ini
  conf/action.ini
  conf/spops.ini

--- package.conf DELETED ---

[Openinteract-commits] CVS: OpenInteract2/t repository.t,1.10,1.11

From: Chris W. <la...@us...> - 2005-02-28 01:02:47

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

Modified Files:
	repository.t 
Log Message:
OIN-136: base_config -> bootstrap


Index: repository.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/repository.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** repository.t	6 Jun 2004 06:13:40 -0000	1.10
--- repository.t	28 Feb 2005 01:02:38 -0000	1.11
***************
*** 46,57 ****
  }
  
! # Then from base config
  {
!     my $base_config = CTX->base_config();
      my $rep_base = eval {
!         OpenInteract2::Repository->new( $base_config )
      };
      ok( ! $@,
!         'Repository created from base config' ) || diag "Error: $@";
      is( ref $rep_base, 'OpenInteract2::Repository',
          '...object of correct class' );
--- 46,57 ----
  }
  
! # Then from bootstrap
  {
!     my $bootstrap = CTX->bootstrap();
      my $rep_base = eval {
!         OpenInteract2::Repository->new( $bootstrap )
      };
      ok( ! $@,
!         'Repository created from bootstrap' ) || diag "Error: $@";
      is( ref $rep_base, 'OpenInteract2::Repository',
          '...object of correct class' );

[Openinteract-commits] CVS: OpenInteract2/t exception.t,1.8,1.9

From: Chris W. <la...@us...> - 2005-02-28 01:02:19

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

Modified Files:
	exception.t 
Log Message:
add checks for when a parameter is invalid in multiple ways, and for when multiple parameters are invalid


Index: exception.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/exception.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** exception.t	10 Jun 2004 22:47:26 -0000	1.8
--- exception.t	28 Feb 2005 01:02:07 -0000	1.9
***************
*** 6,10 ****
  use lib 't/';
  require 'utils.pl';
! use Test::More  tests => 65;
  
  BEGIN {
--- 6,10 ----
  use lib 't/';
  require 'utils.pl';
! use Test::More  tests => 82;
  
  BEGIN {
***************
*** 271,274 ****
--- 271,344 ----
  }
  
+ # Test the parameter exception with multiple failures for one field
+ 
+ {
+     my $p_message = 'Parameters failed to validate';
+     my $p_length_fail = 'Must be at least 5 characters';
+     my $p_chars_fail  = 'Must not have any unseemly characters';
+     my $all_errors = [ $p_length_fail, $p_chars_fail ];
+     my %p_fail    = ( username => $all_errors );
+     eval {
+         OpenInteract2::Exception::Parameter->throw(
+                          $p_message, { parameter_fail => \%p_fail } )
+     };
+     my $p = $@;
+ 
+     is( ref $p, 'OpenInteract2::Exception::Parameter',
+         'Parameter object creation' );
+     is( $p->message(), $p_message,
+         'Parameter message creation' );
+     ok( $p->package(),
+         'Parameter package set' );
+     ok( $p->line(),
+         'Parameter line number set' );
+ 
+     my $failures = $p->parameter_fail;
+     is( ref $failures, 'HASH',
+         'Failed parameters is hash' );
+     is_deeply( $failures->{username}, $all_errors,
+         'Both failures for parameter username set' );
+ 
+     is( ref( $p->trace() ), 'Devel::StackTrace',
+         'Trace set' );
+     is( "$p", "One or more parameters were not valid: username: $p_length_fail; $p_chars_fail",
+         '$@ stringified' );
+ }
+ 
+ # Test the parameter exception with multiple fields failing
+ 
+ {
+     my $p_message = 'Parameters failed to validate';
+     my $p_length_fail = 'Must be at least 5 characters';
+     my $p_chars_fail  = 'Must not have any unseemly characters';
+     my %p_fail    = ( username => $p_length_fail, password => $p_chars_fail );
+     eval {
+         OpenInteract2::Exception::Parameter->throw(
+                          $p_message, { parameter_fail => \%p_fail } )
+     };
+     my $p = $@;
+ 
+     is( ref $p, 'OpenInteract2::Exception::Parameter',
+         'Parameter object creation' );
+     is( $p->message(), $p_message,
+         'Parameter message creation' );
+     ok( $p->package(),
+         'Parameter package set' );
+     ok( $p->line(),
+         'Parameter line number set' );
+ 
+     my $failures = $p->parameter_fail;
+     is( ref $failures, 'HASH',
+         'Failed parameters is hash' );
+     is( $failures->{username}, $p_length_fail,
+         'Failure for parameter username set' );
+     is( $failures->{password}, $p_chars_fail,
+         'Failure for parameter password set' );
+ 
+     is( ref( $p->trace() ), 'Devel::StackTrace',
+         'Trace set' );
+     is( "$p", "One or more parameters were not valid: password: $p_chars_fail ;; username: $p_length_fail",
+         '$@ stringified' );
+ }
  
  # shortcut

[Openinteract-commits] CVS: OpenInteract2/t url.t,1.15,1.16

From: Chris W. <la...@us...> - 2005-02-28 01:01:44

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

Modified Files:
	url.t 
Log Message:
fix bad tests


Index: url.t
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/t/url.t,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** url.t	26 Feb 2005 23:22:45 -0000	1.15
--- url.t	28 Feb 2005 01:01:17 -0000	1.16
***************
*** 260,264 ****
      is( $task, 'games',
          'Task from full URL, with context set (relative)' );
!     is( $task, 'explore',
          'REST 1 from full URL, with context set (relative)' );
  
--- 260,264 ----
      is( $task, 'games',
          'Task from full URL, with context set (relative)' );
!     is( $params[0], 'explore',
          'REST 1 from full URL, with context set (relative)' );
  
***************
*** 279,283 ****
      is( $task, 'games',
          'Task from full URL with query, with context set (relative)' );
!     is( $params[0], 'classic',
          'REST 1 from full URL with query, with context set (relative)' );
  
--- 279,283 ----
      is( $task, 'games',
          'Task from full URL with query, with context set (relative)' );
!     is( $params[0], 'explore',
          'REST 1 from full URL with query, with context set (relative)' );

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Config Package.pm,1.21,1.22

From: Chris W. <la...@us...> - 2005-02-28 00:59:29

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

Modified Files:
	Package.pm 
Log Message:
OIN-137: move from package.conf to package.ini


Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Config/Package.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** Package.pm	8 Feb 2005 01:27:23 -0000	1.21
--- Package.pm	28 Feb 2005 00:59:18 -0000	1.22
***************
*** 5,8 ****
--- 5,9 ----
  use strict;
  use base qw( Class::Accessor::Fast );
+ use OpenInteract2::Config::Ini;
  use File::Basename           qw( dirname );
  use File::Spec::Functions    qw( catfile rel2abs );
***************
*** 15,19 ****
  my ( $log );
  
! use constant DEFAULT_FILENAME => 'package.conf';
  
  my @REQUIRED_FIELDS = qw( name version );
--- 16,20 ----
  my ( $log );
  
! use constant DEFAULT_FILENAME => 'package.ini';
  
  my @REQUIRED_FIELDS = qw( name version );
***************
*** 32,37 ****
  # can have multiple items defined:
  #
! #  author  Larry Wall <la...@wa...>
! #  author  Chris Winters E<lt>ch...@cw...E<gt>
  
  # NOTE: If you add a field here you must also add it to @SERIAL_FIELDS
--- 33,38 ----
  # can have multiple items defined:
  #
! #  author = Larry Wall <la...@wa...>
! #  author = Chris Winters E<lt>ch...@cw...E<gt>
  
  # NOTE: If you add a field here you must also add it to @SERIAL_FIELDS
***************
*** 75,79 ****
          $self->package_dir( rel2abs( dirname( $filename ) ) );
      }
!     return $self->init( $params );
  }
  
--- 76,80 ----
          $self->package_dir( rel2abs( dirname( $filename ) ) );
      }
!     return $self->_initialize( $params );
  }
  
***************
*** 90,94 ****
  # OBJECT METHODS
  
! sub init {
      my ( $self, $params ) = @_;
      for ( @FIELDS ) {
--- 91,95 ----
  # OBJECT METHODS
  
! sub _initialize {
      my ( $self, $params ) = @_;
      for ( @FIELDS ) {
***************
*** 202,309 ****
  
      unless ( $self->filename() ) {
!         oi_error "Save failed: set filename first";
      }
- 
      $self->check_required_fields;
-     eval { open( CONF, '> ' . $self->filename ) || die $! };
-     if ( $@ ) {
-         oi_error "Cannot open [", $self->filename, "] for writing: $@";
-     }
-     foreach my $field ( @SERIAL_FIELDS ) {
-         if ( $LIST_FIELDS{ $field } ) {
-             my $values = $self->$field() || [];
-             foreach my $value ( @{ $values } ) {
-                 print CONF $self->_line_single_value( $field, $value );
-             }
  
!         }
!         elsif ( $HASH_FIELDS{ $field } ) {
!             my $h = $self->$field() || {};
!             while ( my ( $key, $value ) = each %{ $h } ) {
!                 print CONF $self->_line_keyed_value( $field, $key, $value );
              }
          }
-         elsif ( $field eq 'description' ) {
-             print CONF "$field\n", $self->description, "\n";
-         }
          else {
!             print CONF $self->_line_single_value( $field, $self->$field() );
          }
      }
!     close( CONF );
      return $self->filename;
  }
  
- 
- # Read in the configuration, returning a hashref of data. Fields in
- # %LIST_FIELDS are read into an arrayref (even if only one exists);
- # fields in %HASH_FIELDS are read into a hashref
- 
  sub _read_config {
      my ( $class, $filename )  = @_;
      unless ( -f $filename ) {
!         die "Package configuration file [$filename] does not exist.\n";
!     }
!     eval { open( CONF, '<', $filename ) || die $! };
!     if ( $@ ) {
!         oi_error "Cannot open package configuration [$filename]: $@";
      }
  
!     my %config = ();
!     while ( <CONF> ) {
!         next if ( /^\s*\#/ );
!         next if ( /^\s*$/ );
!         chomp;
!         s/\r//g;
!         s/^\s+//;
!         s/\s+$//;
!         my ( $field, $value ) = split /\s+/, $_, 2;
!         last if ( $field eq 'description' );
! 
!         # If there are multiple values possible, make a list
! 
!         if ( $LIST_FIELDS{ $field } and $value ) {
!             push @{ $config{ $field } }, $value;
!         }
! 
!         # Otherwise, if it's a key -> key -> value set; add to list
! 
!         elsif ( $HASH_FIELDS{ $field } and $value ) {
!             my ( $sub_key, $sub_value ) = split /\s+/, $value, 2;
!             $config{ $field }->{ $sub_key } = $sub_value;
          }
- 
-         # If not all that, then simple key -> value
- 
          else {
!             $config{ $field } = $value;
          }
      }
! 
!     # Once all that is done, read the description in all at once
! 
!     {
!         local $/ = undef;
!         $config{description} = <CONF>;
!     }
!     chomp $config{description};
!     close( CONF );
!     return \%config;
! }
! 
! 
! sub _line_single_value {
!     my ( $class, $field, $value ) = @_;
!     $value ||= '';
!     return sprintf "%-20s%s\n", $field, $value;
  }
  
  
- sub _line_keyed_value {
-     my ( $class, $field, $key, $value ) = @_;
-     $value ||= '';
-     return sprintf "%-20s%-15s%s\n", $field, $key, $value;
- }
- 
  1;
  
--- 203,248 ----
  
      unless ( $self->filename() ) {
!         oi_error "Package configuration save failed: set filename first";
      }
      $self->check_required_fields;
  
!     my $ini = OpenInteract2::Config::Ini->new();
!     foreach my $field ( @SERIAL_FIELDS ) {
!         if ( $HASH_FIELDS{ $field } ) {
!             my $values = $self->$field() || {};
!             for ( keys %{ $values } ) {
!                 $ini->set( 'package', $field, $_, $values->{ $_ } );
              }
          }
          else {
!             $ini->set( 'package', $field, $self->$field() );
          }
      }
!     $ini->write_file( $self->filename() );
! 
      return $self->filename;
  }
  
  sub _read_config {
      my ( $class, $filename )  = @_;
      unless ( -f $filename ) {
!         oi_error "Package configuration file '$filename' does not exist.";
      }
  
!     my $ini = OpenInteract2::Config::Ini->new({ filename => $filename });
!     return {} unless ( $ini->{package} );
!     my %params = ();
!     while ( my ( $key, $value ) = each %{ $ini->{package} } ) {
!         if ( $LIST_FIELDS{ $key } ) {
!             $params{ $key } = ( ref $value eq 'ARRAY' ) ? $value : [ $value ];
          }
          else {
!             $params{ $key } = $value;
          }
      }
!     return \%params;
  }
  
  
  1;
  
***************
*** 317,330 ****
  
   # Sample package file
!  name                MyPackage
!  version             1.53
!  author              Steve <st...@du...>
!  author              Chuck <ch...@gu...>
!  url                 http://www.oirox.com/
!  template_plugin     TestPlugin     OpenInteract2::Plugin::Test
!  observer            mywiki         OpenInteract2::Filter::MyWiki
!  description
!  This package rocks!
  
   # Create a new package file from scratch
   
--- 256,274 ----
  
   # Sample package file
!  
!  [package]
!  name          = MyPackage
!  version       = 1.53
!  author        = Steve <st...@du...>
!  author        = Chuck <ch...@gu...>
!  url           = http://www.oirox.com/
!  description   = This package rocks!
! 
!  [package template_plugin]
!  TestPlugin = OpenInteract2::Plugin::Test
  
+  [package observer]
+  mywiki     = OpenInteract2::Filter::MyWiki
+  
   # Create a new package file from scratch
   
***************
*** 337,392 ****
   $c->author( [ 'Steve <st...@du...>', 'Chuck <ch...@gu...>' ] );
   $c->template_plugin({ TestPlugin => 'OpenInteract2::Plugin::Test' });
   $c->description( 'This package rocks!' );
   
   # Set the filename to save the config to and save it
   
!  $c->filename( 'mydir/pkg/MyPackage/package.conf' );
   eval { $c->save_config };
   
   # Specify a directory for an existing config
   
!  my $c = OpenInteract2::Config::Package->new(
!                     { directory => '/path/to/mypackage' } );
   
   # Specify a filename for an existing config
   
!  my $c = OpenInteract2::Config::Package->new(
!                     { filename => 'work/pkg/mypackage/package-alt.conf' } );
  
  =head1 DESCRIPTION
  
  This class implements read/write access to a package configuration
! file. This is a very simple line-based format. There are three types
! of values:
! 
! B<single value>
! 
! Example:
! 
!  name               MyPackage
! 
! B<multiple value>
! 
! Example:
! 
!  author             Chris Winters E<lt>ch...@cw...E<gt>
!  author             Mario Lemiux <ma...@pg...>
! 
! B<multiple keyed value>
! 
! Example:
! 
!  template_plugin    MyPlugin     OpenInteract2::Template::Plugin::MyPlugin
!  template_plugin    MyPluginNew  OpenInteract2::Template::Plugin::MyPluginNew
!  observer           mywiki       OpenInteract2::Filter::MyWiki
! 
! Additionally, all data below the last entry C<description> is used as
! the description. Example:
! 
!  description
!  Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam
!  nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat
!  volutpat. Ut wisi enim ad minim veniam, quis nostrud exercitation
!  ulliam corper suscipit lobortis nisl ut aliquip ex ea commodo
  
  =head1 METHODS
--- 281,309 ----
   $c->author( [ 'Steve <st...@du...>', 'Chuck <ch...@gu...>' ] );
   $c->template_plugin({ TestPlugin => 'OpenInteract2::Plugin::Test' });
+  $c->observer({ mywiki => 'OpenInteract2::Filter::MyWiki' });
   $c->description( 'This package rocks!' );
   
   # Set the filename to save the config to and save it
   
!  $c->filename( 'mydir/pkg/MyPackage/package.ini' );
   eval { $c->save_config };
   
   # Specify a directory for an existing config
   
!  my $c = OpenInteract2::Config::Package->new({
!      directory => '/path/to/mypackage'
!  });
   
   # Specify a filename for an existing config
   
!  my $c = OpenInteract2::Config::Package->new({
!      filename => 'work/pkg/mypackage/package-alt.ini'
!  });
  
  =head1 DESCRIPTION
  
  This class implements read/write access to a package configuration
! file. As all other configurations in OI2 this uses the modified INI
! format.
  
  =head1 METHODS
***************
*** 420,429 ****
  
  Create a filename for this configuration file given C<$directory>. The
! default name for the package configuration file is C<package.conf>.
  
  Examples:
  
   my $filename = OpenInteract2::Config::Package->create_filename( '/home/httpd/mysite/pkg/foo' );
!  # $filename: '/home/httpd/mysite/pkg/foo/package.conf'
  
  We do not check whether C<$directory> exists or whether the resulting
--- 337,346 ----
  
  Create a filename for this configuration file given C<$directory>. The
! default name for the package configuration file is C<package.ini>.
  
  Examples:
  
   my $filename = OpenInteract2::Config::Package->create_filename( '/home/httpd/mysite/pkg/foo' );
!  # $filename: '/home/httpd/mysite/pkg/foo/package.ini'
  
  We do not check whether C<$directory> exists or whether the resulting
***************
*** 439,450 ****
  =head2 Object Methods
  
- B<init( \%params )>
- 
- Initialize the object with C<\%params>. Only fields listed in
- L<PROPERTIES> will be set, and only properties with a value will be
- set.
- 
- Returns: object
- 
  B<author_names()>
  
--- 356,359 ----
***************
*** 467,474 ****
  Example:
  
!  name        foo
!  version     1.51
!  spops_file  conf/object_one.ini
!  spops_file  conf/object_two.ini
   ...
   $config->package_dir( '/home/me/pkg' )
--- 376,383 ----
  Example:
  
!  name       =  foo
!  version    =  1.51
!  spops_file =  conf/object_one.ini
!  spops_file =  conf/object_two.ini
   ...
   $config->package_dir( '/home/me/pkg' )
***************
*** 489,496 ****
  Example:
  
!  name        foo
!  version     1.51
!  action_file  conf/action_one.ini
!  action_file  conf/action_two.ini
   ...
   $config->package_dir( '/home/me/pkg' )
--- 398,405 ----
  Example:
  
!  name        = foo
!  version     = 1.51
!  action_file = conf/action_one.ini
!  action_file = conf/action_two.ini
   ...
   $config->package_dir( '/home/me/pkg' )
***************
*** 511,519 ****
  Example:
  
!  name          foo
!  version       1.51
!  message_file  data/foo-en.msg
!  message_file  data/foo-en_us.msg
!  message_file  data/foo-en_uk.msg
   ...
   $config->package_dir( '/home/me/pkg' )
--- 420,428 ----
  Example:
  
!  name         = foo
!  version      = 1.51
!  message_file = data/foo-en.msg
!  message_file = data/foo-en_us.msg
!  message_file = data/foo-en_uk.msg
   ...
   $config->package_dir( '/home/me/pkg' )
***************
*** 574,596 ****
  B<spops_file> (\@)
  
! File with SPOPS objects defined in this package. If you do not specify
! these you must store all object configuration information in a single
! file C<conf/spops.ini>. Both perl- and INI-formatted configurations
! are acceptable. (TODO: true?)
  
  B<action_file> (\@)
  
! File with the actions defined in this package. If you do not specify
! these you must store all action information in a single file
! C<conf/action.ini>. Both perl- and INI-formatted configurations are
! acceptable. (TODO: true?)
  
  B<message_file> (\@)
  
! File with the localized messages used in your application. If you do
! not specify these you must store your message files in a subdirectory
! C<msg/> and in files ending with C<.msg>. The format of these files is
! discussed in L<OpenInteract2::I18N|OpenInteract2::I18N> and
! L<OpenInteract2::Manual::I18N|OpenInteract2::Manual::I18N>.
  
  B<module> (\@)
--- 483,499 ----
  B<spops_file> (\@)
  
! File(s) with SPOPS objects defined in this package.
  
  B<action_file> (\@)
  
! File(s) with the actions defined in this package.
  
  B<message_file> (\@)
  
! File(s) with the localized messages used in your application. If you
! do not specify these you must store your message files in a
! subdirectory C<msg/> and in files ending with C<.msg>. The format of
! these files is discussed in L<OpenInteract2::I18N|OpenInteract2::I18N>
! and L<OpenInteract2::Manual::I18N|OpenInteract2::Manual::I18N>.
  
  B<module> (\@)
***************
*** 628,643 ****
  C<description> ($*)
  
! Description of this package. Instead of reading a single line we read
! every line after the 'description' key to the end of the file. Do not
! put additional configuration keys under 'description', they will not
! be read.
! 
! =head1 BUGS
! 
! None known.
! 
! =head1 TO DO
! 
! Nothing known.
  
  =head1 SEE ALSO
--- 531,535 ----
  C<description> ($*)
  
! Description of this package.
  
  =head1 SEE ALSO
***************
*** 647,650 ****
--- 539,544 ----
  L<Class::Accessor|Class::Accessor>
  
+ L<OpenInteract2::Config::Ini>
+ 
  =head1 COPYRIGHT

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2 Package.pm,1.49,1.50

From: Chris W. <la...@us...> - 2005-02-28 00:59:27

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

Modified Files:
	Package.pm 
Log Message:
OIN-137: move from package.conf to package.ini


Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Package.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -C2 -d -r1.49 -r1.50
*** Package.pm	26 Feb 2005 23:04:05 -0000	1.49
--- Package.pm	28 Feb 2005 00:59:18 -0000	1.50
***************
*** 272,285 ****
  }
  
- sub get_doc_files {
-     my ( $self ) = @_;
-     my $files = $self->get_files;
-     my @base_doc_files = grep { m|^doc| } @{ $files };
-     my $dir = $self->directory;
-     my @check_files = map { catfile( $dir, $_ ) } @base_doc_files;
-     $self->_check_file_validity( \@check_files );
-     return \@base_doc_files;
- }
- 
  sub get_message_files {
      my ( $self ) = @_;
--- 272,275 ----
***************
*** 378,382 ****
  
  # Creates a package directories using our base subdirectories
! # along with a package.conf file and some other goodies (?)
  
  # Currently we're taking the strategy that exceptions from the action
--- 368,372 ----
  
  # Creates a package directories using our base subdirectories
! # along with a package.ini file and some other goodies (?)
  
  # Currently we're taking the strategy that exceptions from the action
***************
*** 1674,1684 ****
  Returns: arrayref of relative action configuration files.
  
- B<get_doc_files()>
- 
- Retrieves all documentation from the package. This includes all files
- in C<doc/>.
- 
- Returns: arrayref of relative documentation files.
- 
  B<get_message_files()>
  
--- 1664,1667 ----

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Manage Package.pm,1.15,1.16

From: Chris W. <la...@us...> - 2005-02-28 00:59:26

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

Modified Files:
	Package.pm 
Log Message:
OIN-137: move from package.conf to package.ini


Index: Package.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Manage/Package.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Package.pm	8 Feb 2005 01:28:34 -0000	1.15
--- Package.pm	28 Feb 2005 00:59:18 -0000	1.16
***************
*** 5,8 ****
--- 5,9 ----
  use strict;
  use base qw( OpenInteract2::Manage );
+ use File::Spec::Functions    qw( catfile );
  use OpenInteract2::Exception qw( oi_error );
  
***************
*** 56,66 ****
      eval { opendir( PKGDIR, $package_dir ) || die $! };
      if ( $@ ) {
!         return "Cannot open directory [$package_dir]: $@";
      }
      my %pkg_files = map { $_ => 1 }
!                     grep { -f File::Spec->catfile( $package_dir, $_ ) }
                      readdir( PKGDIR );
!     unless ( $pkg_files{'package.conf'} ) {
!         return "Directory [$package_dir] does not contain a package";
      }
      return;
--- 57,67 ----
      eval { opendir( PKGDIR, $package_dir ) || die $! };
      if ( $@ ) {
!         return "Cannot open directory '$package_dir': $@";
      }
      my %pkg_files = map { $_ => 1 }
!                     grep { -f catfile( $package_dir, $_ ) }
                      readdir( PKGDIR );
!     unless ( $pkg_files{'package.ini'} ) {
!         return "Directory '$package_dir' does not contain a package";
      }
      return;

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Request CGI.pm,1.21,1.22

From: Chris W. <la...@us...> - 2005-02-28 00:58:54

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

Modified Files:
	CGI.pm 
Log Message:
take care of warning


Index: CGI.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Request/CGI.pm,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** CGI.pm	18 Feb 2005 03:30:26 -0000	1.21
--- CGI.pm	28 Feb 2005 00:58:44 -0000	1.22
***************
*** 31,39 ****
      }
      my $cgi = $self->cgi;
!     my $req_type = $cgi->request_method;
  
      # Assign URL info from CGI...
  
!     my $base_url = $cgi->script_name;
  
      $log->is_info && $log->info( "Deployed as $req_type to $base_url" );
--- 31,39 ----
      }
      my $cgi = $self->cgi;
!     my $req_type = $cgi->request_method || 'GET';
  
      # Assign URL info from CGI...
  
!     my $base_url = $cgi->script_name || '';
  
      $log->is_info && $log->info( "Deployed as $req_type to $base_url" );

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Config Ini.pm,1.19,1.20

From: Chris W. <la...@us...> - 2005-02-28 00:58:28

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

Modified Files:
	Ini.pm 
Log Message:
take care of some warnings; be able to output INI to something other than file


Index: Ini.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Config/Ini.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Ini.pm	26 Feb 2005 23:24:35 -0000	1.19
--- Ini.pm	28 Feb 2005 00:58:18 -0000	1.20
***************
*** 19,28 ****
  
  # Stuff in metadata (_m):
- #   sections  (\@): all full sections, in the order they were read
- #   comments  (\%): key is full section name, value is comment scalar
  #   filename  ($):  file read from
  #   directory ($):  directory file read from
  #   order     (\@): order of sections read/assigned
  #   order_map (\%): to determine if section exists
  
  sub new {
--- 19,29 ----
  
  # Stuff in metadata (_m):
  #   filename  ($):  file read from
  #   directory ($):  directory file read from
+ #   sections  (\@): all full sections, in the order they were read
+ #   comments  (\%): key is full section name, value is comment scalar
  #   order     (\@): order of sections read/assigned
  #   order_map (\%): to determine if section exists
+ #   global    (\@): keys in the 'Global' section
  
  sub new {
***************
*** 35,38 ****
--- 36,41 ----
          comments  => {},
          order     => [],
+         order_map => {},
+         global    => [],
      }, $class );
      if ( $self->{_m}{filename} = $params->{filename} ) {
***************
*** 184,189 ****
          if ( /^\s*\#/ ) {
              push @comments, $_;
!             $multiline_param = undef;
!             $multiline_value = undef;
              $in_multiline = 0;
              next;
--- 187,192 ----
          if ( /^\s*\#/ ) {
              push @comments, $_;
!             $multiline_param = '';
!             $multiline_value = '';
              $in_multiline = 0;
              next;
***************
*** 201,213 ****
  
          my $this_multiline = $_ =~ s|\\$||;
          if ( $in_multiline and $this_multiline ) {
!             $multiline_value .= "$_\n";
              next;
          }
          elsif ( $in_multiline ) {
              $param = $multiline_param;
!             $value = $multiline_value . $_;
!             $multiline_param = undef;
!             $multiline_value = undef;
              $in_multiline = 0;
          }
--- 204,217 ----
  
          my $this_multiline = $_ =~ s|\\$||;
+         my $add_value = $_ || '';
          if ( $in_multiline and $this_multiline ) {
!             $multiline_value .= "$add_value\n";
              next;
          }
          elsif ( $in_multiline ) {
              $param = $multiline_param;
!             $value = $multiline_value . $add_value;
!             $multiline_param = '';
!             $multiline_value = '';
              $in_multiline = 0;
          }
***************
*** 230,234 ****
              if ( $this_multiline ) {
                  $multiline_param = $param;
!                 $multiline_value = $value;
                  $in_multiline = 1;
                  next;
--- 234,238 ----
              if ( $this_multiline ) {
                  $multiline_param = $param;
!                 $multiline_value = $value || '';
                  $in_multiline = 1;
                  next;
***************
*** 239,244 ****
              my $show_section = ( $sub_section )
                                   ? "$section.$sub_section" : $section;
!             $log->debug( "Line $line_number: $show_section.$param ",
!                          "= '$value'" );
          }
          $self->_read_item( $section, $sub_section, $param, $value );
--- 243,249 ----
              my $show_section = ( $sub_section )
                                   ? "$section.$sub_section" : $section;
!             my $show_param = $param || '';
!             my $show_value = $value || '';
!             $log->debug( "Line $line_number: $show_section.$show_param = '$show_value'" );
          }
          $self->_read_item( $section, $sub_section, $param, $value );
***************
*** 326,329 ****
--- 331,335 ----
  sub _set_value {
      my ( $self, $set_in, $param, $value ) = @_;
+     return unless ( $param );
      my $existing = $set_in->{ $param };
      my @values = ( ref $value ) ? @{ $value } : ( $value );
***************
*** 335,339 ****
      }
      elsif ( scalar @values > 1 ) {
!         $set_in->{ $param } = \@values;
      }
      else {
--- 341,345 ----
      }
      elsif ( scalar @values > 1 ) {
!         $set_in->{ $param } = [ @values ];
      }
      else {
***************
*** 346,349 ****
--- 352,365 ----
  ########################################
  
+ # to STDOUT
+ sub output {
+     my ( $self ) = @_;
+     foreach my $key ( @{ $self->{_m}{global} } ) {
+         $self->{Global}{ $key } = $self->{ $key };
+     }
+     print $self->_output_header();
+     print $self->_output_all_sections();
+ }
+ 
  sub write_file {
      my ( $self, $filename ) = @_;
***************
*** 369,383 ****
      open( OUT, '>', $filename )
            || die "Cannot write configuration to [$filename]: $!";
!     print OUT "# Written by ", ref $self, " at ", scalar localtime, "\n";
!     foreach my $full_section ( $self->sections ) {
!         my ( $section, $sub_section ) = split /\s+/, $full_section;
!         my $comments = $self->get_comments( $section, $sub_section );
!         if ( $comments ) {
!             print OUT "$comments\n";
!         }
!         print OUT "[$full_section]\n",
!                   $self->_output_section( $section, $sub_section ),
!                   "\n\n";
!     }
      close( OUT );
      if ( $original_filename ) {
--- 385,390 ----
      open( OUT, '>', $filename )
            || die "Cannot write configuration to [$filename]: $!";
!     print OUT $self->_output_header();
!     print OUT $self->_output_all_sections();
      close( OUT );
      if ( $original_filename ) {
***************
*** 389,392 ****
--- 396,419 ----
  }
  
+ sub _output_header {
+     my ( $self ) = @_;
+     return "# Written by ", ref $self, " at ", scalar localtime, "\n";
+ }
+ 
+ sub _output_all_sections {
+     my ( $self ) = @_;
+     my $out = '';
+     foreach my $full_section ( $self->sections ) {
+         my ( $section, $sub_section ) = split /\s+/, $full_section;
+         my $comments = $self->get_comments( $section, $sub_section );
+         if ( $comments ) {
+             $out .= "$comments\n";
+         }
+         $out .= join( "\n", "[$full_section]",
+                             $self->_output_section( $section, $sub_section ),
+                             '' );
+     }
+     return $out;
+ }
  
  sub _output_section {
***************
*** 413,417 ****
  
  
! sub _show_item { return join( ' = ', $_[1], $_[2] ) }
  
  1;
--- 440,448 ----
  
  
! sub _show_item {
!     my $l = $_[1] || '';
!     my $r = $_[2] || '';
!     return join( ' = ', $l, $r );
! }
  
  1;

[Openinteract-commits] CVS: OpenInteract2/lib/OpenInteract2/Exception Parameter.pm,1.5,1.6

From: Chris W. <la...@us...> - 2005-02-28 00:57:43

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

Modified Files:
	Parameter.pm 
Log Message:
ensure invalid parameter messages get output properly (was serializing an arrayref before, not too helpful...)


Index: Parameter.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/Exception/Parameter.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Parameter.pm	18 Feb 2004 05:25:28 -0000	1.5
--- Parameter.pm	28 Feb 2005 00:57:35 -0000	1.6
***************
*** 15,20 ****
      my ( $self ) = @_;
      my $failures = $self->parameter_fail;
!     my $valid_msg = join( '; ', map { "$_: " . $failures->{ $_ } } keys %{ $failures } );
!     return "One or more parameters were not valid: $valid_msg";
  }
  
--- 15,26 ----
      my ( $self ) = @_;
      my $failures = $self->parameter_fail;
!     my @errors = ();
!     foreach my $field ( sort keys %{ $failures } ) {
!         my $field_msg = ( ref $failures->{ $field } eq 'ARRAY' )
!                           ? join( '; ', @{ $failures->{ $field } } )
!                           : $failures->{ $field };
!         push @errors, "$field: $field_msg";
!     }
!     return "One or more parameters were not valid: " . join( ' ;; ', @errors );
  }

[Openinteract-commits] CVS: OpenInteract2/pkg/object_activity package.ini,NONE,1.1 MANIFEST,1.3,1.4 Changes,1.13,1.14 package.conf,1.13,NONE

From: Chris W. <la...@us...> - 2005-02-28 00:56:19

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

Modified Files:
	MANIFEST Changes 
Added Files:
	package.ini 
Removed Files:
	package.conf 
Log Message:
OIN-137: replace 'package.conf' with 'package.ini'


--- NEW FILE: package.ini ---
[package]
name          = object_activity
version       = 2.12
author        = Chris Winters <ch...@cw...>
url           = http://www.openinteract.org/
sql_installer = OpenInteract2::SQLInstall::ObjectActivity
description   = Browse the object activity logs 

Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/object_activity/MANIFEST,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** MANIFEST	16 Feb 2004 18:04:16 -0000	1.3
--- MANIFEST	28 Feb 2005 00:55:39 -0000	1.4
***************
*** 2,6 ****
  MANIFEST
  MANIFEST.SKIP
! package.conf
  conf/action.ini
  conf/spops_object_action.ini
--- 2,6 ----
  MANIFEST
  MANIFEST.SKIP
! package.ini
  conf/action.ini
  conf/spops_object_action.ini

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/object_activity/Changes,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Changes	26 Feb 2004 14:00:36 -0000	1.13
--- Changes	28 Feb 2005 00:55:39 -0000	1.14
***************
*** 1,4 ****
--- 1,8 ----
  Revision history for OpenInteract package object_activity.
  
+ 2.12  Sun Feb 27 16:07:21 EST 2005
+ 
+       OIN-137: change package.conf -> package.ini
+ 
  2.11  Wed Feb 25 14:23:22 EST 2004
  

--- package.conf DELETED ---

[Openinteract-commits] CVS: OpenInteract2/pkg/system_doc package.ini,NONE,1.1 MANIFEST,1.4,1.5 Changes,1.9,1.10 package.conf,1.9,NONE

From: Chris W. <la...@us...> - 2005-02-28 00:56:18

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

Modified Files:
	MANIFEST Changes 
Added Files:
	package.ini 
Removed Files:
	package.conf 
Log Message:
OIN-137: replace 'package.conf' with 'package.ini'


--- NEW FILE: package.ini ---
[package]
name          = system_doc
version       = 2.09
author        = Chris Winters (ch...@cw...)
url           = http://www.openinteract.org/
module        = Pod::POM
sql_installer = OpenInteract2::SQLInstall::SystemDoc
description   = Only implements a handler to display system (and perl) documentation. 

Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/system_doc/MANIFEST,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MANIFEST	16 Feb 2004 18:04:15 -0000	1.4
--- MANIFEST	28 Feb 2005 00:55:39 -0000	1.5
***************
*** 2,6 ****
  MANIFEST
  MANIFEST.SKIP
! package.conf
  conf/action.ini
  data/install_security.dat
--- 2,6 ----
  MANIFEST
  MANIFEST.SKIP
! package.ini
  conf/action.ini
  data/install_security.dat

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/system_doc/Changes,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Changes	5 Dec 2004 08:51:24 -0000	1.9
--- Changes	28 Feb 2005 00:55:39 -0000	1.10
***************
*** 1,5 ****
  Revision history for OpenInteract package system_doc.
  
! 2.07  Sat Dec  4 12:52:09 EST 2004
  
        Move errors to l10n file; use status/error shortcuts; do some
--- 1,9 ----
  Revision history for OpenInteract package system_doc.
  
! 2.09  Sun Feb 27 16:07:21 EST 2005
! 
!       OIN-137: change package.conf -> package.ini
! 
! 2.08  Sat Dec  4 12:52:09 EST 2004
  
        Move errors to l10n file; use status/error shortcuts; do some

--- package.conf DELETED ---

[Openinteract-commits] CVS: OpenInteract2/pkg/whats_new package.ini,NONE,1.1 MANIFEST,1.2,1.3 Changes,1.12,1.13 package.conf,1.11,NONE

From: Chris W. <la...@us...> - 2005-02-28 00:56:18

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

Modified Files:
	MANIFEST Changes 
Added Files:
	package.ini 
Removed Files:
	package.conf 
Log Message:
OIN-137: replace 'package.conf' with 'package.ini'


--- NEW FILE: package.ini ---
[package]
name          = whats_new
version       = 2.11
author        = Chris Winters (ch...@cw...)
url           = http://www.openinteract.org/
sql_installer = OpenInteract2::SQLInstall::WhatsNew
description   = Implements a ruleset class to be put into a SPOPS \
   object's ISA; every subsequent addition and update will send the \
   information to the data store for new information, where it can \
   then be modified separately of the object. Also implements the \
   handlers for viewing this data (read-only) and for modifying it.


Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/whats_new/MANIFEST,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** MANIFEST	16 Feb 2004 18:04:15 -0000	1.2
--- MANIFEST	28 Feb 2005 00:55:39 -0000	1.3
***************
*** 2,6 ****
  MANIFEST
  MANIFEST.SKIP
! package.conf
  conf/action.ini
  conf/spops_whats_new.ini
--- 2,6 ----
  MANIFEST
  MANIFEST.SKIP
! package.ini
  conf/action.ini
  conf/spops_whats_new.ini

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/whats_new/Changes,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Changes	5 Dec 2004 08:51:24 -0000	1.12
--- Changes	28 Feb 2005 00:55:39 -0000	1.13
***************
*** 1,4 ****
--- 1,8 ----
  Revision history for OpenInteract package whats_new.
  
+ 2.11  Sun Feb 27 16:07:21 EST 2005
+ 
+       OIN-137: change package.conf -> package.ini
+ 
  2.10  Sat Dec  4 12:52:09 EST 2004
  

--- package.conf DELETED ---

[Openinteract-commits] CVS: OpenInteract2/pkg/base_security package.ini,NONE,1.1 MANIFEST,1.5,1.6 Changes,1.18,1.19 package.conf,1.19,NONE

From: Chris W. <la...@us...> - 2005-02-28 00:56:03

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

Modified Files:
	MANIFEST Changes 
Added Files:
	package.ini 
Removed Files:
	package.conf 
Log Message:
OIN-137: replace 'package.conf' with 'package.ini'


--- NEW FILE: package.ini ---
[package]
name          = base_security
version       = 2.19
author        = Chris Winters (ch...@cw...)
url           = http://www.openinteract.org/
sql_installer = OpenInteract2::SQLInstall::Security
description   = Package implementing security in OpenInteract. (Also see \
   SPOPS::Secure, which does the heavy lifting.) Includes the object \
   representing a security status in the system and the methods used \
   for it and handlers to set security on a module/task basis as well \
   as to set security on individual objects. Includes templates that \
   list the various modules and that allow you (as the admin) to set 
   security for various tasks. Also includes the component(s) for \
   security on a object-level basis. 

Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_security/MANIFEST,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** MANIFEST	13 Feb 2004 05:20:14 -0000	1.5
--- MANIFEST	28 Feb 2005 00:55:41 -0000	1.6
***************
*** 1,5 ****
  MANIFEST
  MANIFEST.SKIP
! package.conf
  Changes
  conf/action.ini
--- 1,5 ----
  MANIFEST
  MANIFEST.SKIP
! package.ini
  Changes
  conf/action.ini

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_security/Changes,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** Changes	5 Dec 2004 08:51:19 -0000	1.18
--- Changes	28 Feb 2005 00:55:41 -0000	1.19
***************
*** 1,4 ****
--- 1,8 ----
  Revision history for OpenInteract package base_security.
  
+ 2.19  Sun Feb 27 16:07:21 EST 2005
+ 
+       OIN-137: change package.conf -> package.ini
+ 
  2.18  Sat Dec  4 00:28:45 EST 2004
  

--- package.conf DELETED ---

[Openinteract-commits] CVS: OpenInteract2/pkg/base_user package.ini,NONE,1.1 MANIFEST,1.7,1.8 Changes,1.38,1.39 package.conf,1.38,NONE

From: Chris W. <la...@us...> - 2005-02-28 00:56:03

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

Modified Files:
	MANIFEST Changes 
Added Files:
	package.ini 
Removed Files:
	package.conf 
Log Message:
OIN-137: replace 'package.conf' with 'package.ini'


--- NEW FILE: package.ini ---
[package]
name          = base_user
version       = 2.38
author        = Chris Winters (ch...@cw...)
url           = http://www.openinteract.org/
module        = Email::Valid||Mail::RFC822::Address
sql_installer = OpenInteract2::SQLInstall::User
description   = Simple package to represent users in OpenInteract. Includes the user object definition and code and handlers to allow users to create accounts for themselves as well as display and edit user information. 

Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_user/MANIFEST,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** MANIFEST	9 Nov 2004 12:28:47 -0000	1.7
--- MANIFEST	28 Feb 2005 00:55:40 -0000	1.8
***************
*** 2,6 ****
  MANIFEST
  MANIFEST.SKIP
! package.conf
  conf/action.ini
  conf/spops_user.ini
--- 2,6 ----
  MANIFEST
  MANIFEST.SKIP
! package.ini
  conf/action.ini
  conf/spops_user.ini

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_user/Changes,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** Changes	26 Feb 2005 05:52:18 -0000	1.38
--- Changes	28 Feb 2005 00:55:40 -0000	1.39
***************
*** 1,4 ****
--- 1,8 ----
  Revision history for OpenInteract package base_user.
  
+ 2.38  Sun Feb 27 16:07:21 EST 2005
+ 
+       OIN-137: change package.conf -> package.ini
+ 
  2.37  Sat Feb 26 00:38:57 EST 2005
  

--- package.conf DELETED ---

[Openinteract-commits] CVS: OpenInteract2/pkg/base_template package.ini,NONE,1.1 MANIFEST,1.4,1.5 Changes,1.16,1.17 package.conf,1.17,NONE

From: Chris W. <la...@us...> - 2005-02-28 00:56:03

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

Modified Files:
	MANIFEST Changes 
Added Files:
	package.ini 
Removed Files:
	package.conf 
Log Message:
OIN-137: replace 'package.conf' with 'package.ini'


--- NEW FILE: package.ini ---
[package]
name          = base_template
version       = 3.16
author        = Chris Winters (ch...@cw...)
url           = http://www.openinteract.org/
sql_installer = OpenInteract2::SQLInstall::SiteTemplate
description   = Represent templates in the filesystem as objects, and \
   allow editing templates via the browser. 

Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_template/MANIFEST,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MANIFEST	18 Feb 2004 05:23:09 -0000	1.4
--- MANIFEST	28 Feb 2005 00:55:41 -0000	1.5
***************
*** 2,6 ****
  MANIFEST
  MANIFEST.SKIP
! package.conf
  UPGRADE
  conf/action.ini
--- 2,6 ----
  MANIFEST
  MANIFEST.SKIP
! package.ini
  UPGRADE
  conf/action.ini

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_template/Changes,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Changes	5 Dec 2004 08:51:20 -0000	1.16
--- Changes	28 Feb 2005 00:55:41 -0000	1.17
***************
*** 1,4 ****
--- 1,8 ----
  Revision history for OpenInteract package base_template.
  
+ 3.16  Sun Feb 27 16:07:21 EST 2005
+ 
+       OIN-137: change package.conf -> package.ini
+ 
  3.15  Sat Dec  4 00:28:45 EST 2004
  

--- package.conf DELETED ---

[Openinteract-commits] CVS: OpenInteract2/pkg/base_group package.ini,NONE,1.1 MANIFEST,1.4,1.5 Changes,1.17,1.18 package.conf,1.17,NONE

From: Chris W. <la...@us...> - 2005-02-28 00:56:03

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

Modified Files:
	MANIFEST Changes 
Added Files:
	package.ini 
Removed Files:
	package.conf 
Log Message:
OIN-137: replace 'package.conf' with 'package.ini'


--- NEW FILE: package.ini ---
[package]
name          = base_group
version       = 2.17
author        = Chris Winters (ch...@cw...)
url           = http://www.openinteract.org/
sql_installer = OpenInteract2::SQLInstall::Group
description   = Simple representation of groups, and the default shipped with OpenInteract. Note that you can easily extend this by creating an entirely new package and adding the fields you want to the conf/spops_group.ini file. 

Index: MANIFEST
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_group/MANIFEST,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MANIFEST	9 Nov 2004 12:29:21 -0000	1.4
--- MANIFEST	28 Feb 2005 00:55:41 -0000	1.5
***************
*** 2,6 ****
  MANIFEST
  MANIFEST.SKIP
! package.conf
  conf/action.ini
  conf/spops_group.ini
--- 2,6 ----
  MANIFEST
  MANIFEST.SKIP
! package.ini
  conf/action.ini
  conf/spops_group.ini

Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/pkg/base_group/Changes,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** Changes	5 Dec 2004 08:51:18 -0000	1.17
--- Changes	28 Feb 2005 00:55:41 -0000	1.18
***************
*** 1,4 ****
--- 1,8 ----
  Revision history for OpenInteract package base_group.
  
+ 2.17  Sun Feb 27 16:07:21 EST 2005
+ 
+       OIN-137: change package.conf -> package.ini
+ 
  2.16  Sat Dec  4 00:20:35 EST 2004
  

--- package.conf DELETED ---

4 messages has been excluded from this view by a project administrator.

Flat | Threaded

<< < 1 .. 22 23 24 25 26 .. 289 > >> (Page 24 of 289)