Menu
▾
▴
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
|
|
From: Chris W. <la...@us...> - 2001-10-17 04:47:12
|
Update of /cvsroot/openinteract/OpenInteract/pkg/system_doc
In directory usw-pr-cvs1:/tmp/cvs-serv25485/pkg/system_doc
Modified Files:
Changes package.conf
Log Message:
modify to reflect server configuration file changes
Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/system_doc/Changes,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Changes 2001/10/07 20:22:10 1.11
--- Changes 2001/10/17 04:47:08 1.12
***************
*** 1,4 ****
--- 1,8 ----
Revision history for OpenInteract package system_doc.
+ 1.26 Wed Oct 17 00:48:45 EDT 2001
+
+ Change CONFIG->{website_name} --> CONFIG->{server_info}{website_name}
+
1.25 Sun Oct 7 16:36:00 EDT 2001
Index: package.conf
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/system_doc/package.conf,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** package.conf 2001/10/07 20:22:10 1.11
--- package.conf 2001/10/17 04:47:08 1.12
***************
*** 1,4 ****
name system_doc
! version 1.25
author Chris Winters (ch...@cw...)
url http://www.openinteract.org/
--- 1,4 ----
name system_doc
! version 1.26
author Chris Winters (ch...@cw...)
url http://www.openinteract.org/
|
|
From: Chris W. <la...@us...> - 2001-10-17 04:47:11
|
Update of /cvsroot/openinteract/OpenInteract/doc
In directory usw-pr-cvs1:/tmp/cvs-serv25485/doc
Modified Files:
LDAP.html
Log Message:
modify to reflect server configuration file changes
Index: LDAP.html
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/doc/LDAP.html,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** LDAP.html 2001/10/12 12:33:25 1.11
--- LDAP.html 2001/10/17 04:47:08 1.12
***************
*** 56,62 ****
standard bind DN and password as well. (Examples below.)</li>
! <li>Set the key <tt>{default_connection_ldap}</tt> to the
! connection to be used when an LDAP object doesn't specify a
! datasource.</li>
</ul>
--- 56,62 ----
standard bind DN and password as well. (Examples below.)</li>
! <li>Set the key <tt>{datasource}{default_connection_ldap}</tt>
! to the connection to be used when an LDAP object doesn't
! specify a datasource.</li>
</ul>
|
|
From: Chris W. <la...@us...> - 2001-10-17 04:47:11
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract/Template
In directory usw-pr-cvs1:/tmp/cvs-serv25485/OpenInteract/Template
Modified Files:
Provider.pm
Log Message:
modify to reflect server configuration file changes
Index: Provider.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Template/Provider.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Provider.pm 2001/10/08 20:39:04 1.16
--- Provider.pm 2001/10/17 04:47:07 1.17
***************
*** 186,192 ****
unless ( $tmpl_package and $tmpl_name ) {
my $website_dir = $R->CONFIG->get_dir( 'template' );
! my $tmpl_ext = ( defined $R->CONFIG->{template_ext} )
! ? $R->CONFIG->{template_ext}
! : DEFAULT_TEMPLATE_EXTENSION;
my $common_template_name = "$website_dir/$name";
my $common_template_name_ext = "$common_template_name.$tmpl_ext";
--- 186,192 ----
unless ( $tmpl_package and $tmpl_name ) {
my $website_dir = $R->CONFIG->get_dir( 'template' );
! my $tmpl_ext = $R->CONFIG->{template_info}{template_ext} ||
! $R->CONFIG->{template_ext} ||
! DEFAULT_TEMPLATE_EXTENSION;
my $common_template_name = "$website_dir/$name";
my $common_template_name_ext = "$common_template_name.$tmpl_ext";
|
|
From: Chris W. <la...@us...> - 2001-10-17 04:47:11
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract/SPOPS
In directory usw-pr-cvs1:/tmp/cvs-serv25485/OpenInteract/SPOPS
Modified Files:
DBI.pm LDAP.pm
Log Message:
modify to reflect server configuration file changes
Index: DBI.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/SPOPS/DBI.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** DBI.pm 2001/10/07 14:26:17 1.6
--- DBI.pm 2001/10/17 04:47:07 1.7
***************
*** 20,24 ****
my ( $self, $connect_key ) = @_;
my $R = OpenInteract::Request->instance;
! $connect_key ||= $self->CONFIG->{datasource} || $R->CONFIG->{default_connection_db};
$connect_key = $connect_key->[0] if ( ref $connect_key eq 'ARRAY' );
return \%{ $self->CONFIG->{db_info}->{ $connect_key } };
--- 20,26 ----
my ( $self, $connect_key ) = @_;
my $R = OpenInteract::Request->instance;
! $connect_key ||= $self->CONFIG->{datasource} ||
! $R->CONFIG->{datasource}{default_connection_db} ||
! $R->CONFIG->{default_connection_db};
$connect_key = $connect_key->[0] if ( ref $connect_key eq 'ARRAY' );
return \%{ $self->CONFIG->{db_info}->{ $connect_key } };
Index: LDAP.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/SPOPS/LDAP.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** LDAP.pm 2001/08/28 21:28:13 1.9
--- LDAP.pm 2001/10/17 04:47:07 1.10
***************
*** 51,58 ****
sub get_connect_key {
my ( $class ) = @_;
! my $connect_key = $class->CONFIG->{datasource};
! unless ( $connect_key ) {
! $connect_key = $class->global_config->{default_connection_ldap};
! }
$connect_key = $connect_key->[0] if ( ref $connect_key eq 'ARRAY' );
return $connect_key;
--- 51,57 ----
sub get_connect_key {
my ( $class ) = @_;
! my $connect_key = $class->CONFIG->{datasource} ||
! $class->global_config->{datasource}{default_connection_ldap} ||
! $class->global_config->{default_connection_ldap};
$connect_key = $connect_key->[0] if ( ref $connect_key eq 'ARRAY' );
return $connect_key;
|
|
From: Chris W. <la...@us...> - 2001-10-17 04:47:11
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract/Error
In directory usw-pr-cvs1:/tmp/cvs-serv25485/OpenInteract/Error
Modified Files:
Main.pm System.pm
Log Message:
modify to reflect server configuration file changes
Index: Main.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Error/Main.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Main.pm 2001/10/04 13:21:35 1.5
--- Main.pm 2001/10/17 04:47:07 1.6
***************
*** 52,61 ****
$handler_info->{ lc $action } = $action_info->{ lc $action }{error};
}
! $handler_info->{'_DEFAULT_HANDLER'} = $p->{config}{default_error_handler};
$class->require_error_handlers( $handler_info );
! my $stash_class = $p->{config}{stash_class};
$stash_class->set_stash( 'error_handlers', $handler_info );
! $R->DEBUG && $R->scrib( 1, "Initialized DEFAULT_HANDLER for app ",
! "$p->{stash_class} to $handler_info->{'_DEFAULT_HANDLER'}" );
}
--- 52,62 ----
$handler_info->{ lc $action } = $action_info->{ lc $action }{error};
}
! $handler_info->{'_DEFAULT_HANDLER'} = $p->{config}{error}{default_error_handler} ||
! $p->{config}{default_error_handler};
$class->require_error_handlers( $handler_info );
! my $stash_class = $p->{config}{server_info}{stash_class};
$stash_class->set_stash( 'error_handlers', $handler_info );
! $R->DEBUG && $R->scrib( 1, "Initialized DEFAULT_HANDLER for app",
! "($stash_class) to ($handler_info->{'_DEFAULT_HANDLER'})" );
}
Index: System.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Error/System.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** System.pm 2001/08/24 20:35:33 1.2
--- System.pm 2001/10/17 04:47:07 1.3
***************
*** 65,69 ****
# Since we can handle any code, we move the checking phase to the error handler
! sub can_handle_error {
my ( $class, $err ) = @_;
--- 65,69 ----
# Since we can handle any code, we move the checking phase to the error handler
! sub can_handle_error {
my ( $class, $err ) = @_;
***************
*** 74,78 ****
# 2) 510 -> not found -> 500
! my $start = $CODE_SEEK;
my $info = $OpenInteract::Error::System::CODES->{ $err->{code} };
while ( ! $info ) {
--- 74,78 ----
# 2) 510 -> not found -> 500
! my $start = $CODE_SEEK;
my $info = $OpenInteract::Error::System::CODES->{ $err->{code} };
while ( ! $info ) {
***************
*** 107,129 ****
my $R = OpenInteract::Request->instance;
my $C = $R->CONFIG;
! $err->{error_id} = $err->generate_random_code( 16 );
!
# First send an email
my $msg = <<MSG;
! Website Name: $C->{website_name}
! Something terrible has happened: I cannot connect to
! the database or a previous connection has been dropped.
! If you do not fix this soon, you will have an angry
mob of users on your hands.
Error Code: $err->{error_id}
! (written out to $R->{dir}->{base}/error)
!
Your friendly OpenInteract System
MSG
! eval { OpenInteract::Utility->send_email({ to => $R->CONFIG->{admin_email},
message => $msg,
subject => 'Cannot connect to database!' }) };
--- 107,130 ----
my $R = OpenInteract::Request->instance;
my $C = $R->CONFIG;
! $err->{error_id} = $err->generate_random_code( 16 );
!
# First send an email
my $msg = <<MSG;
! Website Name: $C->{server_info}{website_name}
! Something terrible has happened: I cannot connect to
! the database or a previous connection has been dropped.
! If you do not fix this soon, you will have an angry
mob of users on your hands.
Error Code: $err->{error_id}
! (written out to $R->{dir}{base}/error)
!
Your friendly OpenInteract System
MSG
! eval { OpenInteract::Utility->send_email({ to => $R->CONFIG->{mail}{admin_email} ||
! $R->CONFIG->{admin_email},
message => $msg,
subject => 'Cannot connect to database!' }) };
***************
*** 131,136 ****
$err->{notes} = "Cannot send email to admin; saved email msg";
$R->throw({ code => 203 });
! }
! else {
$err->{notes} = 'E-mail sent to admin ok.';
}
--- 132,137 ----
$err->{notes} = "Cannot send email to admin; saved email msg";
$R->throw({ code => 203 });
! }
! else {
$err->{notes} = 'E-mail sent to admin ok.';
}
***************
*** 162,166 ****
cluck ">> Error: cannot parse template. $err->{tmp_filename} / $err->{system_msg}" if ( DEBUG );
$err->{user_msg} = 'Could not process template';
! $err->{notes} = "Filename tried to open: $err->{tmp_filename} (if blank, we used text passed in)";
OpenInteract::Error::Main->save_error( $err );
return "[[ error processing directive: template error ]]";
--- 163,167 ----
cluck ">> Error: cannot parse template. $err->{tmp_filename} / $err->{system_msg}" if ( DEBUG );
$err->{user_msg} = 'Could not process template';
! $err->{notes} = "Filename tried to open: $err->{tmp_filename} (if blank, we used text passed in)";
OpenInteract::Error::Main->save_error( $err );
return "[[ error processing directive: template error ]]";
***************
*** 173,181 ****
OpenInteract::Error::Main->save_error( $err );
my $R = OpenInteract::Request->instance;
! my $filename = $R->CONFIG->get_dir( 'mail' ) . "/msg_$err->{error_id}";
eval { open( MAIL, "> $filename" ) || die $! };
if ( $@ ) {
! $R->scrib( 0, "Good gravy! I cannot send an email, and I cannot open up a file to dump\n",
! "the email into. (Tried: (($filename)) and got (($@)) in return.)\n",
"I'll just put it into STDERR and you can deal with it.\n\n", Dumper( $mail_info ), "\n" );
return undef;
--- 174,182 ----
OpenInteract::Error::Main->save_error( $err );
my $R = OpenInteract::Request->instance;
! my $filename = $R->CONFIG->get_dir( 'mail' ) . "/msg_$err->{error_id}";
eval { open( MAIL, "> $filename" ) || die $! };
if ( $@ ) {
! $R->scrib( 0, "Good gravy! I cannot send an email, and I cannot open up a file to dump\n",
! "the email into. (Tried: (($filename)) and got (($@)) in return.)\n",
"I'll just put it into STDERR and you can deal with it.\n\n", Dumper( $mail_info ), "\n" );
return undef;
***************
*** 207,211 ****
$err->{system_msg} = "Please create entries in your 'conf/server.perl' file under " .
"the 'login->login_field' and 'login->password_field' keys. I cannot " .
! "process logins until this is done. Remember to restart the server after " .
"you have made the change.";
OpenInteract::Error::Main->save_error( $err );
--- 208,212 ----
$err->{system_msg} = "Please create entries in your 'conf/server.perl' file under " .
"the 'login->login_field' and 'login->password_field' keys. I cannot " .
! "process logins until this is done. Remember to restart the server after " .
"you have made the change.";
OpenInteract::Error::Main->save_error( $err );
***************
*** 222,226 ****
OpenInteract::Error::Main->save_error( $err );
my $R = OpenInteract::Request->instance;
! $R->{page}->{title} = 'Sorry: File not found';
my $html = $R->template->handler( {}, { err => $err }, { db => 'err_not_found',
package => 'base_error' } );
--- 223,227 ----
OpenInteract::Error::Main->save_error( $err );
my $R = OpenInteract::Request->instance;
! $R->{page}{title} = 'Sorry: File not found';
my $html = $R->template->handler( {}, { err => $err }, { db => 'err_not_found',
package => 'base_error' } );
***************
*** 240,246 ****
cluck ">> Error: Cannot do task due to security: $err->{system_msg}" if ( DEBUG );
my $R = OpenInteract::Request->instance;
! my $html = $R->template->handler( {},
! { err => $err,
! admin_email => $R->CONFIG->{admin_email} },
{ db => 'err_task_forbidden',
package => 'base_error' } );
--- 241,248 ----
cluck ">> Error: Cannot do task due to security: $err->{system_msg}" if ( DEBUG );
my $R = OpenInteract::Request->instance;
! my $html = $R->template->handler( {},
! { err => $err,
! admin_email => $R->CONFIG->{mail}{admin_email} ||
! $R->CONFIG->{admin_email} },
{ db => 'err_task_forbidden',
package => 'base_error' } );
***************
*** 251,255 ****
sub task_no_default {
my ( $err ) = @_;
! $err->{user_msg} = 'No default method defined';
cluck ">> Error: Cannot do task due to no default: $err->{system_msg}" if ( DEBUG );
my $R = OpenInteract::Request->instance;
--- 253,257 ----
sub task_no_default {
my ( $err ) = @_;
! $err->{user_msg} = 'No default method defined';
cluck ">> Error: Cannot do task due to no default: $err->{system_msg}" if ( DEBUG );
my $R = OpenInteract::Request->instance;
***************
*** 257,261 ****
# First send an email
! eval { OpenInteract::Utility->send_email({ to => $err->{tmp_email},
message => $err->{tmp_msg},
subject => $err->{tmp_subject} }) };
--- 259,263 ----
# First send an email
! eval { OpenInteract::Utility->send_email({ to => $err->{tmp_email},
message => $err->{tmp_msg},
subject => $err->{tmp_subject} }) };
***************
*** 263,273 ****
$err->{notes} = "Cannot send email to author; saved email msg";
$R->throw({ code => 203 });
! }
else {
$err->{notes} = 'E-mail sent to author ok.';
}
OpenInteract::Error::Main->save_error( $err );
! my $html = $R->template->handler( {},
! { err => $err,
author_email => $err->{tmp_email} },
{ db => 'err_task_no_default',
--- 265,275 ----
$err->{notes} = "Cannot send email to author; saved email msg";
$R->throw({ code => 203 });
! }
else {
$err->{notes} = 'E-mail sent to author ok.';
}
OpenInteract::Error::Main->save_error( $err );
! my $html = $R->template->handler( {},
! { err => $err,
author_email => $err->{tmp_email} },
{ db => 'err_task_no_default',
***************
*** 281,287 ****
cluck ">> Error: Cannot accomplish task due to security." if ( DEBUG );
my $R = OpenInteract::Request->instance;
! my $html = $R->template->handler( {},
{ err => $err,
! admin_email => $R->CONFIG->{admin_email} },
{ db => 'err_task_forbidden',
package => 'base_error' } );
--- 283,290 ----
cluck ">> Error: Cannot accomplish task due to security." if ( DEBUG );
my $R = OpenInteract::Request->instance;
! my $html = $R->template->handler( {},
{ err => $err,
! admin_email => $R->CONFIG->{mail}{admin_email} ||
! $R->CONFIG->{admin_email} },
{ db => 'err_task_forbidden',
package => 'base_error' } );
***************
*** 298,305 ****
my $msg = <<'';
! For some reason beyond security, a user could not retrieve an object
given a particular ID. You might want to look into it.
! eval { OpenInteract::Utility->send_email({ to => $R->CONFIG->{admin_email},
message => $msg,
subject => 'Failed to retrieve object' }) };
--- 301,309 ----
my $msg = <<'';
! For some reason beyond security, a user could not retrieve an object
given a particular ID. You might want to look into it.
! eval { OpenInteract::Utility->send_email({ to => $R->CONFIG->{mail}{admin_email} ||
! $R->CONFIG->{admin_email},
message => $msg,
subject => 'Failed to retrieve object' }) };
***************
*** 307,311 ****
$err->{notes} = "Cannot send email to admin; saved email msg";
$R->throw( { code => 203 } );
! }
else {
$err->{notes} = 'E-mail sent to admin ok.';
--- 311,315 ----
$err->{notes} = "Cannot send email to admin; saved email msg";
$R->throw( { code => 203 } );
! }
else {
$err->{notes} = 'E-mail sent to admin ok.';
***************
*** 321,325 ****
$R->scrib( 0, "Cannot create session -- someone is probably using a ",
"defunct key or something." );
! $R->cookies->create_cookie({
name => $OpenInteract::Session::COOKIE_NAME,
path => '/',
--- 325,329 ----
$R->scrib( 0, "Cannot create session -- someone is probably using a ",
"defunct key or something." );
! $R->cookies->create_cookie({
name => $OpenInteract::Session::COOKIE_NAME,
path => '/',
***************
*** 336,340 ****
cluck ">> Error: User $err->{tmp_login_name} not found in system" if ( DEBUG );
my $R = OpenInteract::Request->instance;
! $R->{ $ERROR_HOLD }->{loginbox}->{bad_login} = "User $err->{tmp_login_name} not found!";
return undef;
}
--- 340,344 ----
cluck ">> Error: User $err->{tmp_login_name} not found in system" if ( DEBUG );
my $R = OpenInteract::Request->instance;
! $R->{ $ERROR_HOLD }{loginbox}{bad_login} = "User $err->{tmp_login_name} not found!";
return undef;
}
***************
*** 344,349 ****
cluck ">> Error: User $err->{tmp_login_name} login with wrong password" if ( DEBUG );
my $R = OpenInteract::Request->instance;
! $R->{ $ERROR_HOLD }->{loginbox}->{bad_login} = "Bad password for $err->{tmp_login_name}; try again.";
! $R->{ $ERROR_HOLD }->{loginbox}->{login_name} = $err->{tmp_login_name};
return undef;
}
--- 348,353 ----
cluck ">> Error: User $err->{tmp_login_name} login with wrong password" if ( DEBUG );
my $R = OpenInteract::Request->instance;
! $R->{ $ERROR_HOLD }{loginbox}{bad_login} = "Bad password for $err->{tmp_login_name}; try again.";
! $R->{ $ERROR_HOLD }{loginbox}{login_name} = $err->{tmp_login_name};
return undef;
}
***************
*** 416,424 ****
=over 4
! =item *
10: cannot_parse_config
! =item *
11: cannot_connect_db
--- 420,428 ----
=over 4
! =item *
10: cannot_parse_config
! =item *
11: cannot_connect_db
***************
*** 430,434 ****
=over 4
! =item *
(none currently)
--- 434,438 ----
=over 4
! =item *
(none currently)
|
|
From: Chris W. <la...@us...> - 2001-10-17 04:47:10
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract/Cache
In directory usw-pr-cvs1:/tmp/cvs-serv25485/OpenInteract/Cache
Modified Files:
File.pm IPC.pm
Log Message:
modify to reflect server configuration file changes
Index: File.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Cache/File.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** File.pm 2001/07/11 12:33:04 1.1
--- File.pm 2001/10/17 04:47:07 1.2
***************
*** 16,23 ****
my $DEFAULT_EXPIRE = 86400; # 1 day
! sub class_initialize {
my ( $class, $p ) = @_;
! # Allow values that are passed in to override anything
# set in the config object
--- 16,23 ----
my $DEFAULT_EXPIRE = 86400; # 1 day
! sub class_initialize {
my ( $class, $p ) = @_;
! # Allow values that are passed in to override anything
# set in the config object
***************
*** 30,34 ****
if ( ref $p->{config} ) {
! my $cache_info = $p->{config}->{cache_info}->{data};
$cache_dir ||= $p->{config}->get_dir( 'cache' );
$max_size ||= $cache_info->{max_size};
--- 30,34 ----
if ( ref $p->{config} ) {
! my $cache_info = $p->{config}{cache_info}{data};
$cache_dir ||= $p->{config}->get_dir( 'cache' );
$max_size ||= $cache_info->{max_size};
***************
*** 49,53 ****
$max_expire ||= $DEFAULT_EXPIRE;
! # Set some extra values: they can be passed in or set via the
# config, but if they're not it's no big deal
--- 49,53 ----
$max_expire ||= $DEFAULT_EXPIRE;
! # Set some extra values: they can be passed in or set via the
# config, but if they're not it's no big deal
***************
*** 56,68 ****
$R->DEBUG && $R->scrib( 1, "Using the following settings:\n",
! "Size: $max_size\n",
"Expire: $max_expire\n"
"Dir: $cache_dir" );
! my $cache = File::Cache->new( { expires_in => $max_expire,
! max_size => $max_size,
cache_key => $cache_dir,
%extra } )
|| warn " (Cache/File): Cannot create cache!\n";
! my $stash_class = $p->{config}->{stash_class};
$stash_class->set_stash( 'cache', $cache );
return 1;
--- 56,68 ----
$R->DEBUG && $R->scrib( 1, "Using the following settings:\n",
! "Size: $max_size\n",
"Expire: $max_expire\n"
"Dir: $cache_dir" );
! my $cache = File::Cache->new( { expires_in => $max_expire,
! max_size => $max_size,
cache_key => $cache_dir,
%extra } )
|| warn " (Cache/File): Cannot create cache!\n";
! my $stash_class = $p->{config}{server_info}{stash_class};
$stash_class->set_stash( 'cache', $cache );
return 1;
***************
*** 72,85 ****
# params: 0 = class ; 1 = key
! sub _get_data {
my $R = OpenInteract::Request->instance;
! return $R->cache->get( $_[1] );
}
# params: 0 = class ; 1 = key; 2 = data ; 3 = expires (in seconds)
! sub _set_data {
my $R = OpenInteract::Request->instance;
! return $R->cache->set( $_[1], $_[2], $_[3] );
}
--- 72,85 ----
# params: 0 = class ; 1 = key
! sub _get_data {
my $R = OpenInteract::Request->instance;
! return $R->cache->get( $_[1] );
}
# params: 0 = class ; 1 = key; 2 = data ; 3 = expires (in seconds)
! sub _set_data {
my $R = OpenInteract::Request->instance;
! return $R->cache->set( $_[1], $_[2], $_[3] );
}
***************
*** 87,91 ****
sub _clear_data {
my $R = OpenInteract::Request->instance;
! return $R->cache->set( $_[1], undef );
}
--- 87,91 ----
sub _clear_data {
my $R = OpenInteract::Request->instance;
! return $R->cache->set( $_[1], undef );
}
***************
*** 119,126 ****
=head1 DESCRIPTION
! Subclass of L<OpenInteract::Cache> that uses the filesystem to
cache objects.
! One note: if file space becomes an issue, it would be a
good idea to put this on the fastest drive (or drive
array) possible.
--- 119,126 ----
=head1 DESCRIPTION
! Subclass of L<OpenInteract::Cache> that uses the filesystem to
cache objects.
! One note: if file space becomes an issue, it would be a
good idea to put this on the fastest drive (or drive
array) possible.
Index: IPC.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Cache/IPC.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** IPC.pm 2001/07/11 12:33:04 1.1
--- IPC.pm 2001/10/17 04:47:07 1.2
***************
*** 14,21 ****
my $DEFAULT_EXPIRE = 0;
! sub class_initialize {
my ( $class, $p ) = @_;
! # Allow values that are passed in to override anything
# set in the config object
--- 14,21 ----
my $DEFAULT_EXPIRE = 0;
! sub class_initialize {
my ( $class, $p ) = @_;
! # Allow values that are passed in to override anything
# set in the config object
***************
*** 24,34 ****
# If we were given a config object, fill in the empty values
!
if ( ref $p->{config} ) {
! my $cache_info = $p->{config}->{cache_info}->{ipc};
$max_expire ||= $cache_info->{max_expire};
$cache_key ||= $cache_info->{key};
}
!
# If a value isn't set, use the default from the class
# configuration above.
--- 24,34 ----
# If we were given a config object, fill in the empty values
!
if ( ref $p->{config} ) {
! my $cache_info = $p->{config}{cache_info}{ipc};
$max_expire ||= $cache_info->{max_expire};
$cache_key ||= $cache_info->{key};
}
!
# If a value isn't set, use the default from the class
# configuration above.
***************
*** 38,45 ****
my $R = OpenInteract::Request->instance;
$R->DEBUG && $R->scrib( 1, "Using the following settings:\n", "Expire: $max_expire\n Key: $cache_key" );
! my $cache = IPC::Cache->new( { expires_in => $max_expire,
cache_key => $cache_key } )
|| warn " (Cache/IPC): Cannot create cache!\n";
! my $stash_class = $p->{config}->{stash_class};
$stash_class->set_stash( 'ipc-cache', $cache );
return 1;
--- 38,45 ----
my $R = OpenInteract::Request->instance;
$R->DEBUG && $R->scrib( 1, "Using the following settings:\n", "Expire: $max_expire\n Key: $cache_key" );
! my $cache = IPC::Cache->new( { expires_in => $max_expire,
cache_key => $cache_key } )
|| warn " (Cache/IPC): Cannot create cache!\n";
! my $stash_class = $p->{config}{server_info}{stash_class};
$stash_class->set_stash( 'ipc-cache', $cache );
return 1;
***************
*** 49,53 ****
# params: 0 = class ; 1 = key
! sub _get_meta {
return OpenInteract::Request->instance->get_stash( 'ipc-cache' )->get( $_[1] );
}
--- 49,53 ----
# params: 0 = class ; 1 = key
! sub _get_meta {
return OpenInteract::Request->instance->get_stash( 'ipc-cache' )->get( $_[1] );
}
***************
*** 56,60 ****
# params: 0 = class ; 1 = key ; 2 = data ; 3 = expires (in seconds)
! sub _set_meta {
return OpenInteract::Request->instance->get_stash( 'ipc-cache' )->set( $_[1], $_[2], $_[3] );
}
--- 56,60 ----
# params: 0 = class ; 1 = key ; 2 = data ; 3 = expires (in seconds)
! sub _set_meta {
return OpenInteract::Request->instance->get_stash( 'ipc-cache' )->set( $_[1], $_[2], $_[3] );
}
***************
*** 63,67 ****
# params: 0 = class ; 1 = key ; 2 = data for comparison
! sub check_meta {
return $_[2] == OpenInteract::Request->instance->get_stash( 'ipc-cache' )->get( $_[1] );
}
--- 63,67 ----
# params: 0 = class ; 1 = key ; 2 = data for comparison
! sub check_meta {
return $_[2] == OpenInteract::Request->instance->get_stash( 'ipc-cache' )->get( $_[1] );
}
|
|
From: Chris W. <la...@us...> - 2001-10-17 04:47:10
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv25485/OpenInteract
Modified Files:
Config.pm Error.pm Request.pm SPOPS.pm SQLInstall.pm
Startup.pm Utility.pm
Log Message:
modify to reflect server configuration file changes
Index: Config.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Config.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Config.pm 2001/07/11 12:26:27 1.4
--- Config.pm 2001/10/17 04:47:07 1.5
***************
*** 4,7 ****
--- 4,8 ----
use strict;
+ use OpenInteract::Error;
require Exporter;
***************
*** 15,18 ****
--- 16,20 ----
my %CONFIG_TYPES = (
'perl' => 'OpenInteract::Config::PerlFile',
+ 'ini' => 'OpenInteract::Config::IniFile',
);
***************
*** 35,39 ****
$type ||= 'perl';
! my $class = $CONFIG_TYPES{ $type };
die "No configuration class corresponding to type ($type)" unless ( $class );
eval "require $class";
--- 37,41 ----
$type ||= 'perl';
! my $class = $CONFIG_TYPES{ $type };
die "No configuration class corresponding to type ($type)" unless ( $class );
eval "require $class";
***************
*** 54,68 ****
sub flatten_action_config {
my ( $self ) = @_;
! my $default_action = $self->{action}->{_default_action_info_} || $self->{action}->{default};
my @names = ();
foreach my $action_key ( keys %{ $self->{action} } ) {
next if ( $action_key eq 'default' or $action_key =~ /^_/ );
foreach my $def ( keys %{ $default_action } ) {
! $self->{action}->{ $action_key }->{ $def } ||= $default_action->{ $def };
}
# Also ensure that the action information knows its own key
! $self->{action}->{ $action_key }->{name} = $action_key;
push @names, $action_key;
}
--- 56,70 ----
sub flatten_action_config {
my ( $self ) = @_;
! my $default_action = $self->{action_info}{default} || $self->{action}{_default_action_info_};
my @names = ();
foreach my $action_key ( keys %{ $self->{action} } ) {
next if ( $action_key eq 'default' or $action_key =~ /^_/ );
foreach my $def ( keys %{ $default_action } ) {
! $self->{action}{ $action_key }{ $def } ||= $default_action->{ $def };
}
# Also ensure that the action information knows its own key
! $self->{action}{ $action_key }{name} = $action_key;
push @names, $action_key;
}
***************
*** 137,140 ****
--- 139,160 ----
}
+
+
+ sub is_file_valid {
+ my ( $self, $filename ) = @_;
+
+ unless ( -f $filename ) {
+ my $msg = 'Cannot read configuration file!';
+ my $system_msg = "No valid filename ($filename) for reading configuration information!";
+ OpenInteract::Error->set({ user_msg => $msg,
+ type => 'config',
+ system_msg => $system_msg,
+ method => 'read_config',
+ extra => { filename => $filename } });
+ die $msg;
+ }
+ return 1;
+ }
+
# Allow you to call config keys as methods -- we should probably get
# rid of this and force you to use it as a hashref...
***************
*** 182,201 ****
{ RaiseError => 1 } );
! if ( my $debug = $config->{debugging} ) {
! print $LOG "Trace level $debug: fetching user $user_id...";
! if ( my $user = $self->fetch( $user_id ) ) {
! print $LOG "successful fetching $user_id\n";
! }
! else {
! print $LOG "No such user with ID $user_id",
! ;
! }
}
=head1 DESCRIPTION
! Allows you to embed a configuration object that responds
! to get/set requests. Different from just using key/value
! pairs within your object since you do not have to worry
about writing get/set methods, cluttering up your AUTOLOAD
routine, or things like that. It also allows us to create
--- 202,220 ----
{ RaiseError => 1 } );
! if ( my $debug = $config->{DEBUG} ) {
! print $LOG "Trace level $debug: fetching user $user_id...";
! if ( my $user = $self->fetch( $user_id ) ) {
! print $LOG "successful fetching $user_id\n";
! }
! else {
! print $LOG "No such user with ID $user_id";
! }
}
=head1 DESCRIPTION
! Allows you to embed a configuration object that responds
! to get/set requests. Different from just using key/value
! pairs within your object since you do not have to worry
about writing get/set methods, cluttering up your AUTOLOAD
routine, or things like that. It also allows us to create
***************
*** 225,229 ****
my $font_face = $config->set( font_face => 'Arial, Helvetica' );
! Note that you might want to use the get/set method calls
more frequently for the sake of clarity. Or not. TMTOWTDI.
--- 244,248 ----
my $font_face = $config->set( font_face => 'Arial, Helvetica' );
! Note that you might want to use the get/set method calls
more frequently for the sake of clarity. Or not. TMTOWTDI.
***************
*** 248,252 ****
=over 4
! =item *
B<type> ($)
--- 267,271 ----
=over 4
! =item *
B<type> ($)
***************
*** 302,306 ****
Retrieves the directory name for 'directory-tag', which
! within the Config object may depend on other settings.
For instance, you could have:
--- 321,325 ----
Retrieves the directory name for 'directory-tag', which
! within the Config object may depend on other settings.
For instance, you could have:
Index: Error.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Error.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Error.pm 2001/08/28 21:38:07 1.4
--- Error.pm 2001/10/17 04:47:07 1.5
***************
*** 90,94 ****
$p->{line} = $cline;
}
! my $error_obj_class = $R->CONFIG->{error_object_class};
return $error_obj_class->throw( $p );
}
--- 90,95 ----
$p->{line} = $cline;
}
! my $error_obj_class = $R->CONFIG->{error}{error_object_class} ||
! $R->CONFIG->{error_object_class};
return $error_obj_class->throw( $p );
}
Index: Request.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Request.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Request.pm 2001/08/18 19:17:06 1.11
--- Request.pm 2001/10/17 04:47:07 1.12
***************
*** 60,64 ****
sub db {
my ( $self, $connect_key ) = @_;
! $connect_key ||= $self->CONFIG->{default_connection_db};
my $db = $self->get_stash( "db-$connect_key" );
return $db if ( $db );
--- 60,65 ----
sub db {
my ( $self, $connect_key ) = @_;
! $connect_key ||= $self->CONFIG->{datasource}{default_connection_db} ||
! $self->CONFIG->{default_connection_db};
my $db = $self->get_stash( "db-$connect_key" );
return $db if ( $db );
***************
*** 79,83 ****
sub db_stash {
my ( $self, $dbh, $connect_key ) = @_;
! $connect_key ||= $self->CONFIG->{default_connection_db};
return $self->stash( "db-$connect_key", $dbh );
}
--- 80,85 ----
sub db_stash {
my ( $self, $dbh, $connect_key ) = @_;
! $connect_key ||= $self->CONFIG->{datasource}{default_connection_db} ||
! $self->CONFIG->{default_connection_db};
return $self->stash( "db-$connect_key", $dbh );
}
***************
*** 86,89 ****
--- 88,93 ----
sub ldap {
my ( $self, $connect_key ) = @_;
+ $connect_key ||= $self->CONFIG->{datasource}{default_connection_ldap} ||
+ $self->CONFIG->{default_connection_ldap};
my $ldap = $self->get_stash( "ldap-$connect_key" );
return $ldap if ( $ldap );
***************
*** 105,109 ****
sub ldap_stash {
my ( $self, $ldap, $connect_key ) = @_;
! $connect_key ||= $self->CONFIG->{default_connection_ldap};
return $self->stash( "ldap-$connect_key", $ldap );
}
--- 109,114 ----
sub ldap_stash {
my ( $self, $ldap, $connect_key ) = @_;
! $connect_key ||= $self->CONFIG->{datasource}{default_connection_ldap} ||
! $self->CONFIG->{default_connection_ldap};
return $self->stash( "ldap-$connect_key", $ldap );
}
***************
*** 116,120 ****
my ( $self, $p ) = @_;
( $p->{package}, $p->{filename}, $p->{line} ) = caller;
! $p->{action} = $self->{current_context}->{action};
return $self->error->throw( $p );
}
--- 121,125 ----
my ( $self, $p ) = @_;
( $p->{package}, $p->{filename}, $p->{line} ) = caller;
! $p->{action} = $self->{current_context}{action};
return $self->error->throw( $p );
}
***************
*** 149,153 ****
sub ALIAS { return \%ALIAS }
! sub lookup_alias { return $ALIAS{ $_[1] }->{ $_[0]->{stash_class} } }
--- 154,158 ----
sub ALIAS { return \%ALIAS }
! sub lookup_alias { return $ALIAS{ $_[1] }{ $_[0]->{stash_class} } }
***************
*** 165,171 ****
no strict 'refs';
foreach my $alias ( keys %ALIAS ) {
! *{ $class . '::' . $alias } = sub {
my $self = shift; $self = $self->instance unless ( ref $self );
! return $ALIAS{ $alias }->{ $self->{stash_class} }
};
}
--- 170,176 ----
no strict 'refs';
foreach my $alias ( keys %ALIAS ) {
! *{ $class . '::' . $alias } = sub {
my $self = shift; $self = $self->instance unless ( ref $self );
! return $ALIAS{ $alias }{ $self->{stash_class} }
};
}
***************
*** 217,222 ****
sub lookup_conductor {
my ( $self, $action ) = @_;
! $action ||= shift @{ $self->{path}->{current} };
! $self->scrib( 1, "Find conductor for action <<$action>>" );
my ( $action_info, $action_method ) = $self->lookup_action( $action, { return => 'info' } );
$self->scrib( 2, "Info for action:\n", Dumper( $action_info ) );
--- 222,227 ----
sub lookup_conductor {
my ( $self, $action ) = @_;
! $action ||= shift @{ $self->{path}{current} };
! $self->scrib( 1, "Find conductor for action ($action)" );
my ( $action_info, $action_method ) = $self->lookup_action( $action, { return => 'info' } );
$self->scrib( 2, "Info for action:\n", Dumper( $action_info ) );
***************
*** 226,230 ****
return undef if ( $conductor eq 'null' );
! my $conductor_info = $self->CONFIG->{conductor}->{ lc $conductor };
my $method = $conductor_info->{method};
return ( $conductor_info->{class}, $method );
--- 231,235 ----
return undef if ( $conductor eq 'null' );
! my $conductor_info = $self->CONFIG->{conductor}{ lc $conductor };
my $method = $conductor_info->{method};
return ( $conductor_info->{class}, $method );
***************
*** 234,238 ****
# Find the package/class corresponding to a particular
# action tag
! #
# Possible $opt options:
# return => 'info' = return all action info
--- 239,243 ----
# Find the package/class corresponding to a particular
# action tag
! #
# Possible $opt options:
# return => 'info' = return all action info
***************
*** 241,259 ****
sub lookup_action {
my ( $self, $action_name, $opt ) = @_;
! $action_name ||= shift @{ $self->{path}->{current} };
my $action_list = ( ref $action_name eq 'ARRAY' ) ? $action_name : [ $action_name ];
ACTION:
foreach my $action ( @{ $action_list } ) {
$self->scrib( 1, "Find action corresponding to ($action)" );
! my $action_info = $self->CONFIG->{action}->{ lc $action };
$self->scrib( 2, "Info for action:\n", Dumper( $action_info ) );
# If we don't find a action, then we use the action from
! # '_notfound_'; since we put this before the looping to find
# 'action' references, this can simply be a pointer
unless ( $opt->{skip_default} or $action_info ) {
! $action_info = $self->CONFIG->{action}->{ '_notfound_' };
$self->scrib( 1, "Using 'notfound' action" );
}
--- 246,266 ----
sub lookup_action {
my ( $self, $action_name, $opt ) = @_;
! $action_name ||= shift @{ $self->{path}{current} };
my $action_list = ( ref $action_name eq 'ARRAY' ) ? $action_name : [ $action_name ];
+ my $CONFIG = $self->CONFIG;
ACTION:
foreach my $action ( @{ $action_list } ) {
$self->scrib( 1, "Find action corresponding to ($action)" );
! my $action_info = ( $action ) ? $CONFIG->{action}{ lc $action }
! : $CONFIG->{action_info}{none};
$self->scrib( 2, "Info for action:\n", Dumper( $action_info ) );
# If we don't find a action, then we use the action from
! # 'not_found'; since we put this before the looping to find
# 'action' references, this can simply be a pointer
unless ( $opt->{skip_default} or $action_info ) {
! $action_info = $CONFIG->{action_info}{not_found};
$self->scrib( 1, "Using 'notfound' action" );
}
***************
*** 262,266 ****
while ( my $action_redir = $action_info->{redir} ) {
! $action_info = $self->CONFIG->{action}->{ lc $action_redir };
$self->scrib( 3, "Info within redir ($action_redir):\n", Dumper( $action_info ) );
}
--- 269,273 ----
while ( my $action_redir = $action_info->{redir} ) {
! $action_info = $CONFIG->{action}{ lc $action_redir };
$self->scrib( 3, "Info within redir ($action_redir):\n", Dumper( $action_info ) );
}
Index: SPOPS.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/SPOPS.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** SPOPS.pm 2001/08/22 04:48:50 1.13
--- SPOPS.pm 2001/10/17 04:47:07 1.14
***************
*** 319,323 ****
eval { OpenInteract::Utility->send_email({
to => $p->{email},
! from => $R->CONFIG->{admin_email},
subject => $subject,
message => $msg }) };
--- 319,323 ----
eval { OpenInteract::Utility->send_email({
to => $p->{email},
! from => $R->CONFIG->{mail}{admin_email} || $R->CONFIG->{admin_email},
subject => $subject,
message => $msg }) };
Index: SQLInstall.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/SQLInstall.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** SQLInstall.pm 2001/10/05 12:52:17 1.16
--- SQLInstall.pm 2001/10/17 04:47:07 1.17
***************
*** 256,260 ****
elsif ( my $object_class = $action->{spops_class} ) {
! $object_class = $class->sql_class_to_website( $p->{config}{website_name}, $object_class );
DEBUG && _w( 1, "Reading data for class $object_class" );
my $fields = $action->{field_order};
--- 256,261 ----
elsif ( my $object_class = $action->{spops_class} ) {
! my $website_name = $p->{config}{server_info}{website_name} || $p->{config}{website_name};
! $object_class = $class->sql_class_to_website( $website_name, $object_class );
DEBUG && _w( 1, "Reading data for class $object_class" );
my $fields = $action->{field_order};
***************
*** 367,371 ****
sub _transform_class_to_website {
my ( $class, $action, $data_list, $p ) = @_;
! my $website_name = $p->{config}{website_name};
foreach my $data ( @{ $data_list } ) {
foreach my $website_field ( @{ $action->{transform_class_to_website} } ) {
--- 368,372 ----
sub _transform_class_to_website {
my ( $class, $action, $data_list, $p ) = @_;
! my $website_name = $p->{config}{server_info}{website_name} || $p->{config}{website_name};
foreach my $data ( @{ $data_list } ) {
foreach my $website_field ( @{ $action->{transform_class_to_website} } ) {
***************
*** 381,385 ****
sub _transform_class_to_oi {
my ( $class, $action, $data_list, $p ) = @_;
! my $website_name = $p->{config}{website_name};
foreach my $data ( @{ $data_list } ) {
foreach my $website_field ( @{ $action->{transform_class_to_oi} } ) {
--- 382,386 ----
sub _transform_class_to_oi {
my ( $class, $action, $data_list, $p ) = @_;
! my $website_name = $p->{config}{server_info}{website_name} || $p->{config}{website_name};
foreach my $data ( @{ $data_list } ) {
foreach my $website_field ( @{ $action->{transform_class_to_oi} } ) {
Index: Startup.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Startup.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Startup.pm 2001/10/01 17:11:28 1.22
--- Startup.pm 2001/10/17 04:47:07 1.23
***************
*** 124,129 ****
# created
! my @system_alias_keys = grep ! /^$bc->{website_name}/, keys %{ $C->{system_alias} };
! $class->require_module({ class => \@system_alias_keys });
DEBUG && _w( 2, "Contents of INC: @INC" );
--- 124,129 ----
# created
! my @system_alias_classes = grep ! /^$bc->{website_name}/, values %{ $C->{system_alias} };
! $class->require_module({ class => \@system_alias_classes });
DEBUG && _w( 2, "Contents of INC: @INC" );
***************
*** 174,181 ****
alias_init => 1,
spops_init => 1 });
! my $REQUEST_CLASS = $C->{request_class};
my $R = $REQUEST_CLASS->instance;
! $R->{stash_class} = $C->{stash_class};
$R->stash( 'config', $C );
--- 174,181 ----
alias_init => 1,
spops_init => 1 });
! my $REQUEST_CLASS = $C->{server_info}{request_class};
my $R = $REQUEST_CLASS->instance;
! $R->{stash_class} = $C->{server_info}{stash_class};
$R->stash( 'config', $C );
***************
*** 220,228 ****
# mod_perl, and will be set in the returned config object in any case
! $C->{dir}{base} = $bc->{website_dir};
! $C->{dir}{interact} = $bc->{base_dir};
! $C->{request_class} = $bc->{request_class};
! $C->{stash_class} = $bc->{stash_class};
! $C->{website_name} = $bc->{website_name};
return $C;
}
--- 220,228 ----
# mod_perl, and will be set in the returned config object in any case
! $C->{dir}{base} = $bc->{website_dir};
! $C->{dir}{interact} = $bc->{base_dir};
! $C->{server_info}{request_class} = $bc->{request_class};
! $C->{server_info}{stash_class} = $bc->{stash_class};
! $C->{server_info}{website_name} = $bc->{website_name};
return $C;
}
***************
*** 504,509 ****
my ( $class, $p ) = @_;
my $CONF = $p->{config};
! my $REQUEST_CLASS = $CONF->{request_class};
! my $STASH_CLASS = $CONF->{stash_class};
# Create all the packages and subroutines on the fly as necessary
--- 504,509 ----
my ( $class, $p ) = @_;
my $CONF = $p->{config};
! my $REQUEST_CLASS = $CONF->{server_info}{request_class};
! my $STASH_CLASS = $CONF->{server_info}{stash_class};
# Create all the packages and subroutines on the fly as necessary
***************
*** 539,548 ****
DEBUG && _w( 1, "Setting up System aliases" );
! foreach my $sys_class ( keys %{ $CONF->{system_alias} } ) {
! next if ( $sys_class =~ /^_/ );
! foreach my $alias ( @{ $CONF->{system_alias}{ $sys_class } } ) {
! DEBUG && _w( 1, "Tagging $alias in $STASH_CLASS to be $sys_class" );
! $request_alias->{ $alias }{ $STASH_CLASS } = $sys_class;
! }
}
DEBUG && _w( 1, "Setup object and system aliases ok" );
--- 539,544 ----
DEBUG && _w( 1, "Setting up System aliases" );
! foreach my $alias ( keys %{ $CONF->{system_alias} } ) {
! $request_alias->{ $alias }{ $STASH_CLASS } = $CONF->{system_alias}{ $alias };
}
DEBUG && _w( 1, "Setup object and system aliases ok" );
Index: Utility.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Utility.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Utility.pm 2001/10/08 18:19:52 1.2
--- Utility.pm 2001/10/17 04:47:07 1.3
***************
*** 114,118 ****
my $R = OpenInteract::Request->instance;
return ( To => $p->{to} || $p->{email},
! From => $p->{from} || $R->CONFIG->{admin_email},
Subject => $p->{subject} || DEFAULT_SUBJECT );
}
--- 114,118 ----
my $R = OpenInteract::Request->instance;
return ( To => $p->{to} || $p->{email},
! From => $p->{from} || $R->CONFIG->{mail}{admin_email} || $R->CONFIG->{admin_email},
Subject => $p->{subject} || DEFAULT_SUBJECT );
}
***************
*** 122,126 ****
my ( $class, $p ) = @_;
my $R = OpenInteract::Request->instance;
! return $p->{smtp} || $R->CONFIG->{smtp_host};
}
--- 122,126 ----
my ( $class, $p ) = @_;
my $R = OpenInteract::Request->instance;
! return $p->{smtp} || $R->CONFIG->{mail}{smtp_host} || $R->CONFIG->{smtp_host};
}
***************
*** 228,232 ****
From whom the email will be sent. If not specified we use the value of
! the 'admin_email' key in your server configuration
(C<conf/server.perl> file).
--- 228,232 ----
From whom the email will be sent. If not specified we use the value of
! the 'mail'->'admin_email' key in your server configuration
(C<conf/server.perl> file).
***************
*** 312,316 ****
In the server configuration file, be able to do something like:
! 'email' => {
'smtp_host' => '127.0.0.1',
'admin_email' => 'ad...@my...',
--- 312,316 ----
In the server configuration file, be able to do something like:
! 'mail' => {
'smtp_host' => '127.0.0.1',
'admin_email' => 'ad...@my...',
|
|
From: Chris W. <la...@us...> - 2001-10-17 04:47:10
|
Update of /cvsroot/openinteract/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv25485
Modified Files:
Changes INSTALL.website OpenInteract.pm
Log Message:
modify to reflect server configuration file changes
Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/Changes,v
retrieving revision 1.70
retrieving revision 1.71
diff -C2 -d -r1.70 -r1.71
*** Changes 2001/10/15 05:26:05 1.70
--- Changes 2001/10/17 04:47:07 1.71
***************
*** 1,4 ****
--- 1,69 ----
Revision history for Perl extension OpenInteract.
+ 1.31
+
+ Overall:
+
+ - Lots of configuration file changes. You can now use a .ini-style
+ configuration file instead of the perl data structure file. (Hint:
+ one is a lot easier to read.) The perl-structure config file was also
+ modified quite a bit, and many files throughout OI modified to
+ accommodate the changes.
+
+ Individual:
+
+ * conf/sample-server.perl:
+
+ - Moved 'template_ext' ==> 'template_info'->'template_ext'
+
+ - Moved 'default_connection_db' ==>
+ 'datasource'->'default_connection_db'
+
+ - Moved 'default_connection_ldap' ==>
+ 'datasource'->'default_connection_ldap'
+
+ - Moved 'error_object_class' ==> 'error'->'error_object_class'
+
+ - Moved 'default_error_handler' ==> 'error'->'default_error_handler'
+
+ - Moved 'smtp_host' ==> 'mail'->'smtp_host'
+
+ - Moved 'admin_email' ==> 'mail'->'admin_email'
+
+ - Moved 'content_email' ==> 'mail'->'content_email'
+
+ - Reverse and flatten the 'system_alias' hashref. For instance:
+
+ OpenInteract::Auth => [ qw/ auth auth_user auth_group / ]
+
+ becomes:
+
+ auth => 'OpenInteract::Auth',
+ auth_user => 'OpenInteract::Auth',
+ auth_group => 'OpenInteract::Auth',
+
+ - Moved 'action'->'_default_action_info' ==> 'action_info'->'default'
+
+ - Moved 'action'->'_notfound' ==> 'action_info'->'not_found'
+
+ - Moved 'action'->"''" ==> 'action_info'->'none'
+
+ - Moved 'stash_class' ==> 'server_info'->'stash_class'
+
+ - Moved 'request_class' ==> 'server_info'->'request_class'
+
+ - Moved 'website_name' ==> 'server_info'->'website_name'
+
+
+ * OpenInteract/Template/Plugin.pm:
+
+ - Fix dumb (!) POD error that prevented 'perldoc' from working
+ (identified itself as OI::Template::Provider in the head)
+
+ * OpenInteract/Template/Provider.pm:
+
+ - Use new location for 'template_ext' (old one is ok for now)
+
+
1.30 Mon Oct 15 01:35:03 EDT 2001
Index: INSTALL.website
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/INSTALL.website,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** INSTALL.website 2001/08/28 21:30:25 1.7
--- INSTALL.website 2001/10/17 04:47:07 1.8
***************
*** 39,48 ****
Change the following values:
! 'smtp_host'
Set to an available server to use for an SMTP host. If you don't
know, check whether localhost (127.0.0.1) works.
! 'admin_email'
Set to your email address. You can change this later if you want.
--- 39,48 ----
Change the following values:
! 'mail'->'smtp_host'
Set to an available server to use for an SMTP host. If you don't
know, check whether localhost (127.0.0.1) works.
! 'mail'->'admin_email'
Set to your email address. You can change this later if you want.
Index: OpenInteract.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** OpenInteract.pm 2001/10/08 20:55:56 1.13
--- OpenInteract.pm 2001/10/17 04:47:07 1.14
***************
*** 95,99 ****
# info
! my $REQUEST_CLASS = $C->{request_class};
unless ( $REQ{ $REQUEST_CLASS } ) {
eval "require $REQUEST_CLASS";
--- 95,99 ----
# info
! my $REQUEST_CLASS = $C->{server_info}{request_class};
unless ( $REQ{ $REQUEST_CLASS } ) {
eval "require $REQUEST_CLASS";
***************
*** 299,305 ****
$R->scrib( 0, "Error! Cannot retrieve theme! ( Class: ", $R->theme, ")",
"with error ($@ / $ei->{system_msg}) Help!" );
my $error_msg = <<THEMERR;
Fundamental part of OpenInteract (themes) not functioning; please contact the
! system administrator (<a href="mailto:$C->{admin_email}">$C->{admin_email}</a>).
THEMERR
$R->send_html( $R->apache, $error_msg, $R );
--- 299,306 ----
$R->scrib( 0, "Error! Cannot retrieve theme! ( Class: ", $R->theme, ")",
"with error ($@ / $ei->{system_msg}) Help!" );
+ my $admin_email = $C->{mail}{admin_email} || $C->{admin_email};
my $error_msg = <<THEMERR;
Fundamental part of OpenInteract (themes) not functioning; please contact the
! system administrator (<a href="mailto:$admin_email">$admin_email</a>).
THEMERR
$R->send_html( $R->apache, $error_msg, $R );
|
|
From: Chris W. <la...@us...> - 2001-10-17 04:47:10
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract/Cookies
In directory usw-pr-cvs1:/tmp/cvs-serv25485/OpenInteract/Cookies
Modified Files:
Apache.pm CGI.pm
Log Message:
modify to reflect server configuration file changes
Index: Apache.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Cookies/Apache.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Apache.pm 2001/10/01 22:08:52 1.2
--- Apache.pm 2001/10/17 04:47:07 1.3
***************
*** 70,75 ****
'system_alias' => {
! 'OpenInteract::Cookies::Apache' => [ qw/ cookies / ],
! ...,
}
--- 70,74 ----
'system_alias' => {
! cookies => 'OpenInteract::Cookies::Apache', ...
}
***************
*** 110,116 ****
do the actual cookie actions.
! Note that C<Apache::Cookie> does not work on all platforms,
! particularly Win32 (as of this writing). If C<Apache::Cookie> does not
! work for you, please use the L<OpenInteract::Cookies::CGI> module
instead.
--- 109,116 ----
do the actual cookie actions.
! Note that L<Apache::Cookie|Apache::Cookie> does not work on all
! platforms, particularly Win32 (as of this writing). If
! L<Apache::Cookie|Apache::Cookie> does not work for you, please use the
! L<OpenInteract::Cookies::CGI|OpenInteract::Cookies::CGI> module
instead.
***************
*** 119,124 ****
system_aliases => {
! ...,
! 'OpenInteract::Cookies::Apache' => [ qw/ cookies / ],
},
--- 119,123 ----
system_aliases => {
! cookies => 'OpenInteract::Cookies::Apache', ...
},
***************
*** 184,190 ****
Nothing.
! =head1 BUGS
None known.
=head1 COPYRIGHT
--- 183,193 ----
Nothing.
! =head1 BUGS
None known.
+
+ =head1 SEE ALSO
+
+ L<Apache::Cookie|Apache::Cookie>
=head1 COPYRIGHT
Index: CGI.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Cookies/CGI.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** CGI.pm 2001/10/01 22:08:52 1.2
--- CGI.pm 2001/10/17 04:47:07 1.3
***************
*** 65,70 ****
'system_alias' => {
! 'OpenInteract::Cookies::CGI' => [ qw/ cookies / ],
! ...,
}
# Retrieve the cookies from the client request
--- 65,69 ----
'system_alias' => {
! cookies => 'OpenInteract::Cookies::CGI', ...
}
# Retrieve the cookies from the client request
***************
*** 79,83 ****
$params->{search} = $R->{cookie}{in}{search_value};
!
# Create a new cookie
--- 78,82 ----
$params->{search} = $R->{cookie}{in}{search_value};
!
# Create a new cookie
***************
*** 109,114 ****
system_aliases => {
! ...,
! 'OpenInteract::Cookies::CGI' => [ qw/ cookies / ],
},
--- 108,112 ----
system_aliases => {
! cookies => 'OpenInteract::Cookies::CGI', ...
},
***************
*** 177,183 ****
arrayref which can be picked up by the header printer.
! =head1 BUGS
None known.
=head1 COPYRIGHT
--- 175,185 ----
arrayref which can be picked up by the header printer.
! =head1 BUGS
None known.
+
+ =head1 SEE ALSO
+
+ L<CGI|CGI>
=head1 COPYRIGHT
|
|
From: Chris W. <la...@us...> - 2001-10-17 02:58:25
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract/Config
In directory usw-pr-cvs1:/tmp/cvs-serv6219
Added Files:
Ini.pm IniFile.pm
Log Message:
add (yet another) .ini configuration file reader; very simple right
now (which is a good thing), but this one enables multi-level sections
(e.g., [db_info main]) as well as multivalue keys
(e.g. 'param=this\nparam=that')
--- NEW FILE: Ini.pm ---
package OpenInteract::Config::Ini;
# $Id: Ini.pm,v 1.1 2001/10/17 02:58:22 lachoy Exp $
use strict;
# 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
sub new {
my ( $pkg, $params ) = @_;
my $class = ref $pkg || $pkg;
my $self = bless( {}, $class );
if ( $self->{_m}{filename} = $params->{filename} ) {
$self->read_file( $self->{_m}{filename} );
}
return $self;
}
sub get {
my ( $self, $section, @p ) = @_;
my ( $sub_section, $param ) = ( $p[1] ) ? ( $p[0], $p[1] ) : ( undef, $p[0] );
return $self->{ $section }{ $sub_section }{ $param } if ( $sub_section );
return $self->{ $section }{ $param };
}
sub set {
my ( $self, $section, @p ) = @_;
my ( $sub_section, $param, $value ) = ( $p[2] ) ? ( $p[0], $p[1], $p[2] ) : ( undef, $p[0], $p[1] );
return $self->{ $section }{ $sub_section }{ $param } = $value if ( $sub_section );
return $self->{ $section }{ $param } = $value
}
sub delete {
my ( $self, $section, @p ) = @_;
my ( $sub_section, $param ) = ( $p[1] ) ? ( $p[0], $p[1] ) : ( undef, $p[0] );
delete $self->{ $section }{ $sub_section }{ $param } if ( $sub_section );
delete $self->{ $section }{ $param };
}
########################################
# INPUT
########################################
sub read_file {
my ( $self, $filename ) = @_;
warn "Trying to read file ($filename)\n";
open( CONF, $filename ) || die "Cannot open ($filename) for reading: $!";
# Temporary holding for comments
my @comments = ();
my ( $section, $sub_section );
# Cycle through the file: skip blanks; accumulate comments for
# each section; register section/subsection; add parameter/value
while ( <CONF> ) {
chomp;
next if ( /^\s*$/ );
if ( /^\s*\#/ ) {
push @comments, $_;
next;
}
if ( /^\s*\[\s*(\S|\S.*\S)\s*\]\s*$/) {
warn "--Found section ($1)\n";
( $section, $sub_section ) = $self->read_section_head( $1, \@comments );
@comments = ();
next;
}
my ( $param, $value ) = /^\s*([^=]+?)\s*=\s*(.*)\s*$/;
warn "--Setting ($param) to ($value)\n";
$self->read_item( $section, $sub_section, $param, $value );
}
close( CONF );
$self->{_m}{filename} = $filename;
return $self;
}
sub read_section_head {
my ( $self, $full_section, $comments ) = @_;
push @{ $self->{_m}{order} }, $full_section;
$self->{_m}{comments}{ $full_section } = join "\n", @{ $comments };
if ( $full_section =~ /^(\w+)\s+(\w+)$/ ) {
my ( $section, $sub_section ) = ( $1, $2 );
$self->{ $section }{ $sub_section } ||= {};
return ( $section, $sub_section );
}
$self->{ $full_section } ||= {};
return ( $full_section, undef );
}
sub read_item {
my ( $self, $section, $sub_section, $param, $value ) = @_;
my $set_value_in = ( $sub_section )
? $self->{ $section }{ $sub_section }
: $self->{ $section };
my $existing = $set_value_in->{ $param };
if ( $existing and ref $set_value_in eq 'ARRAY' ) {
push @{ $set_value_in->{ $param } }, $value;
}
elsif ( $existing ) {
push @{ $set_value_in->{ $param } }, $existing, $value
}
else {
$set_value_in->{ $param } = $value;
}
}
########################################
# OUTPUT
########################################
sub write_file {
my ( $self, $filename ) = @_;
$filename ||= $self->{_m}{filename} || 'config.ini';
my ( $original_filename );
if ( -f $filename ) {
$original_filename = $filename;
$filename = "$filename.new";
}
warn "--Writing INI to ($filename) (original: $original_filename)\n";
open( OUT, "> $filename" ) || die "Cannot write configuration to ($filename): $!";
print OUT "# Written by ", ref $self, " at ", scalar localtime, "\n\n";
foreach my $full_section ( @{ $self->{_m}{order} } ) {
print OUT $self->{_m}{comments}{ $full_section }, "\n",
"[$full_section]\n",
$self->output_section( $full_section ),
"\n\n";
}
close( OUT );
if ( $original_filename ) {
unlink( $original_filename );
rename( $filename, $original_filename );
}
return $filename;
}
sub output_section {
my ( $self, $full_section ) = @_;
my ( $section, $sub_section ) = split /\s+/, $full_section;
my $show_from = ( $sub_section )
? $self->{ $section }{ $sub_section }
: $self->{ $section };
my @items = ();
foreach my $key ( keys %{ $show_from } ) {
if ( ref $show_from->{ $key } eq 'ARRAY ' ) {
foreach my $value ( @{ $show_from->{ $key } } ) {
push @items, $self->show_item( $key, $value );
}
}
else {
push @items, $self->show_item( $key, $show_from->{ $key } );
}
}
return join "\n", @items;
}
sub show_item { return join( ' = ', @_[1], @_[2] ) }
1;
__END__
=pod
=head1 NAME
OpenInteract::Config::Ini - Read/write INI-style (++) configuration files
=head1 SYNOPSIS
my $config = OpenInteract::Config::Ini->new({ filename => 'myconf.ini' });
print "Main database driver is:", $config->{db_info}{main}{driver}, "\n";
$config->{db_info}{main}{username} = 'mariolemieux';
$config->write_config;
=head1 DESCRIPTION
This is a very simple implementation of a configuration file
reader/writer that preserves comments and section order, enables
multivalue fields and one or two-level sections.
Yes, there are other configuration file modules out there to
manipulate INI-style files. But this one takes several features from
them while providing a very simple and uncluttered interface.
=over 4
=item *
From L<Config::IniFiles|Config::IniFiles> we take comment preservation
and the idea that we can have multi-level sections like:
[Section subsection]
=item *
From L<Config::Ini|Config::Ini> and L<AppConfig|AppConfig> we borrow
the usage of multivalue keys:
item = first
item = second
=back
=head1 SEE ALSO
L<AppConfig|AppConfig>
L<Config::Ini|Config::Ini>
L<Config::IniFiles|Config::IniFiles>
=head1 COPYRIGHT
Copyright (c) 2001 intes.net, inc.. All rights reserved.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 AUTHORS
Chris Winters <ch...@cw...>
=cut
--- NEW FILE: IniFile.pm ---
package OpenInteract::Config::IniFile;
# $Id: IniFile.pm,v 1.1 2001/10/17 02:58:22 lachoy Exp $
use strict;
use Data::Dumper qw( Dumper );
use OpenInteract::Config qw( _w DEBUG );
use OpenInteract::Config::Ini;
@OpenInteract::Config::IniFile::ISA = qw( OpenInteract::Config );
$OpenInteract::Config::IniFile::VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
use constant META_KEY => '_INI';
sub read_config {
my ( $class, $filename ) = @_;
$class->is_file_valid( $filename );
my $ini = OpenInteract::Config::Ini->new({ filename => $filename });
return $ini;
}
sub write_config {
my ( $self ) = @_;
my $backup = $self;
bless( $backup, 'OpenInteract::Config::Ini' );
$backup->write_file;
}
1;
|
|
From: Chris W. <la...@us...> - 2001-10-17 02:45:21
|
Update of /cvsroot/openinteract/OpenInteract/conf
In directory usw-pr-cvs1:/tmp/cvs-serv3975
Modified Files:
sample-server.ini
Log Message:
various updates
Index: sample-server.ini
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/conf/sample-server.ini,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** sample-server.ini 2001/10/15 17:50:11 1.1
--- sample-server.ini 2001/10/17 02:45:17 1.2
***************
*** 161,189 ****
# Define login information. In the future you'll be able to define
# the object(s) used for logging in and possibly more.
-
- [login]
-
#
! # Set whether you want to store encrypted passwords in the
! # database (set by default and recommended). Note that if
! # you're using LDAP or some SMB authentication you want to set
! # this to '0' since the backend will take care of that for you.
!
! crypt_password = 1
!
#
! # These are the fields used to read in the username and
! # password from the user and are used in the 'login_box'
! # component shipped with OpenInteract and found in the
! # 'base_box' package.
login_field = login_login_name
password_field = login_password
remember_field = login_remember
-
- #
- # This handler defines custom actions that happen when a user
- # logs in.
-
custom_login_handler =
custom_login_method =
--- 161,182 ----
# Define login information. In the future you'll be able to define
# the object(s) used for logging in and possibly more.
#
! # crypt_password: Set whether you want to store encrypted passwords in
! # the database (set by default and recommended). Note that if you're
! # using LDAP or some SMB authentication you want to set this to '0'
! # since the backend will take care of that for you.
#
! # *_field: These are the fields used to read in the username and
! # password from the user and are used in the 'login_box' component
! # shipped with OpenInteract and found in the 'base_box' package.
! #
! # custom_login_*: Class and method that specify an action that
! # executes when a user logs in (Optional)
+ [login]
+ crypt_password = 1
login_field = login_login_name
password_field = login_password
remember_field = login_remember
custom_login_handler =
custom_login_method =
***************
*** 226,282 ****
#
# Define information used by the template processing modules.
-
- [template_info]
-
#
! # Default extension for template files. We also check for files with a
! # given name and no extension
!
! template_ext = tmpl
!
#
! # Whether to look into the database or the filesystem first
! # when checking templates. The default is filesystem, but if
! # you make changes to templates via the browser you'll want to
! # change this to 'database'. Otherwise your changes will never
! # be seen. Options are: 'database', 'filesystem'
!
! source = filesystem
!
#
! # Custom handler that's called before the template object is
! # initialized. Here you can define a PRE_PROCESS template (for
! # instance, with BLOCKs having all your common widgets) or set
! # any of the other configuration information specified in
! # 'perldoc Template::Manual::Config'. If you use this, set
! # 'custom_init_class' to a class that has a method specified in
# 'custom_init_method' or use the default ('handler')
-
- custom_init_class =
- custom_init_method =
-
#
! # Custom handler that's called before every template is
! # processed. If you have common BLOCKs, formatting elements or
! # other items that are not full-blown OI components, you can
! # add them to the template variable hash. If you use this, set
! # 'custom_variable_class' to a class that has a method
! # specified in 'custom_variable_method' or use the default
# ('handler').
-
- custom_variable_class =
- custom_variable_method =
-
#
! # If true, will remove all compiled files on server restart
! # (production boxes can set this to false so that startup costs
! # aren't so heavy)
!
! compile_cleanup = 1
!
#
! # Extension for compiled TT files. Most people won't (or
# shouldn't) care about this.
compile_ext = .ttc
--- 219,265 ----
#
# Define information used by the template processing modules.
#
! # template_ext: Default extension for template files. We also check
! # for files with a given name and no extension
#
! # source: Whether to look into the database or the filesystem first
! # when checking templates. The default is filesystem, but if you make
! # changes to templates via the browser you'll want to change this to
! # 'database'. Otherwise your changes will never be seen. Options are:
! # 'database', 'filesystem'
#
! # custom_init_*: Class and method specifying an action that's called
! # before the template object is initialized. Here you can define a
! # PRE_PROCESS template (for instance, with BLOCKs having all your
! # common widgets) or set any of the other configuration information
! # specified in 'perldoc Template::Manual::Config'. If you use this,
! # set 'custom_init_class' to a class that has a method specified in
# 'custom_init_method' or use the default ('handler')
#
! # custom_variable_*: Class and method specifying an action that's
! # called before every template is processed. If you have common
! # BLOCKs, formatting elements or other items that are not full-blown
! # OI components, you can add them to the template variable hash. If
! # you use this, set 'custom_variable_class' to a class that has a
! # method specified in 'custom_variable_method' or use the default
# ('handler').
#
! # compile_cleanup: If true, will remove all compiled files on server
! # restart (production boxes can set this to false so that startup
! # costs aren't so heavy)
#
! # compile_ext: Extension for compiled TT files. Most people won't (or
# shouldn't) care about this.
+
+
+ [template_info]
+ template_ext = tmpl
+ source = filesystem
+ custom_init_class =
+ custom_init_method =
+ custom_variable_class =
+ custom_variable_method =
+ compile_cleanup = 1
compile_ext = .ttc
***************
*** 334,339 ****
[dir]
! base = # replaced in OpenInteract::Startup
! interact = # replaced in OpenInteract::Startup
error = $BASE/error
html = $BASE/html
--- 317,322 ----
[dir]
! base =
! interact =
error = $BASE/error
html = $BASE/html
***************
*** 380,410 ****
method = handler
-
- #
- # The action table defines how OpenInteract responds to URLs; the
- # only information we hold here is for default information
- # (information that does not need to be specified in the
- # individual package's 'conf/action.perl' file); we also define
- # how OpenInteract should respond to a null action (under the ''
- # key) and how it should respond to an action that is not found
- # (under '_notfound_')
! # Note that we used to use 'default' instead of
! # '_default_action_info_' -- the former is now deprecated so you
! # should move to the new one!
! [default_action_info]
template_processor = OpenInteract::Template::Process
conductor = main
method = handler
! [action_none]
redir = basicpage
! [action_not_found]
redir = basicpage
-
# NOTES:
# -- Create new section 'datasource' and put 'default_datasource_db'
--- 363,387 ----
method = handler
! # The action table defines how OpenInteract responds to URLs; the only
! # information we hold here is for default information ('action_info
! # default) -- information that does not need to be specified in the
! # individual package's 'conf/action.perl' file; we also define how
! # OpenInteract should respond to a null action (under 'action_info
! # none') and how it should respond to an action that is not found
! # (under 'action_info not_found')
! [action_info default]
template_processor = OpenInteract::Template::Process
conductor = main
method = handler
! [action_info none]
redir = basicpage
! [action_info not_found]
redir = basicpage
# NOTES:
# -- Create new section 'datasource' and put 'default_datasource_db'
***************
*** 421,424 ****
# -- Reverse how we do 'system_alias' -- it's easier now :-)
! # -- split up our action items into 'default_action_info',
! # 'action_none' and 'action_not_found' sections
--- 398,402 ----
# -- Reverse how we do 'system_alias' -- it's easier now :-)
! # -- split up our action items into 'action_info default',
! # 'action_info none' and 'action_info not_found' sections in the
! # group 'action_info'
|
|
From: Chris W. <la...@us...> - 2001-10-16 23:00:24
|
Update of /cvsroot/openinteract/OpenInteract/OpenInteract/Template In directory usw-pr-cvs1:/tmp/cvs-serv28038 Modified Files: Plugin.pm Log Message: doh! fix POD so that it refers to the right module Index: Plugin.pm =================================================================== RCS file: /cvsroot/openinteract/OpenInteract/OpenInteract/Template/Plugin.pm,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** Plugin.pm 2001/09/21 17:19:49 1.13 --- Plugin.pm 2001/10/16 23:00:21 1.14 *************** *** 385,389 **** =head1 NAME ! OpenInteract::Template::Provider - Retrieve templates for the Template Toolkit =head1 SYNOPSIS --- 385,389 ---- =head1 NAME ! OpenInteract::Template::Plugin - Custom OpenInteract functionality in templates =head1 SYNOPSIS |
|
From: Chris W. <la...@us...> - 2001-10-16 14:44:05
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/doc In directory usw-pr-cvs1:/tmp/cvs-serv15467/doc Log Message: Directory /cvsroot/openinteract/OpenInteract/pkg/base_page/doc added to the repository |
|
From: Chris W. <la...@us...> - 2001-10-16 14:43:49
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page In directory usw-pr-cvs1:/tmp/cvs-serv13053/base_page Log Message: Directory /cvsroot/openinteract/OpenInteract/pkg/base_page added to the repository |
|
From: Chris W. <la...@us...> - 2001-10-16 14:38:19
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/conf In directory usw-pr-cvs1:/tmp/cvs-serv15280/conf Log Message: Directory /cvsroot/openinteract/OpenInteract/pkg/base_page/conf added to the repository |
|
From: Chris W. <la...@us...> - 2001-10-16 14:38:06
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/template In directory usw-pr-cvs1:/tmp/cvs-serv16301/template Log Message: Directory /cvsroot/openinteract/OpenInteract/pkg/base_page/template added to the repository |
|
From: Chris W. <la...@us...> - 2001-10-16 14:37:49
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/Handler In directory usw-pr-cvs1:/tmp/cvs-serv14254/OpenInteract/Handler Log Message: Directory /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/Handler added to the repository |
|
From: Chris W. <la...@us...> - 2001-10-16 14:37:49
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract In directory usw-pr-cvs1:/tmp/cvs-serv14254/OpenInteract Log Message: Directory /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract added to the repository |
|
From: Chris W. <la...@us...> - 2001-10-16 14:37:49
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/SQLInstall In directory usw-pr-cvs1:/tmp/cvs-serv14254/OpenInteract/SQLInstall Log Message: Directory /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/SQLInstall added to the repository |
|
From: Chris W. <la...@us...> - 2001-10-15 22:00:07
|
Update of /cvsroot/openinteract/SPOPS/SPOPS/ClassFactory
In directory usw-pr-cvs1:/tmp/cvs-serv22875
Modified Files:
DefaultBehavior.pm
Log Message:
Rulesets used to be generated using the method 'ruleset_add'. We now
use 'ruleset_factory' since it's more descriptive and consistent with
the behavior generation code. However, we forgot to keep the old
method enabled for a few versions. Fixed. (Thanks to Peter Beardsley
<pbe...@ap...> for the report.)
Index: DefaultBehavior.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/SPOPS/ClassFactory/DefaultBehavior.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** DefaultBehavior.pm 2001/10/15 04:27:39 1.11
--- DefaultBehavior.pm 2001/10/15 22:00:04 1.12
***************
*** 321,327 ****
# Now find all the classes that have the method RULESET_METHOD
my $rule_classes = $CONFIG->{rules_from} || [];
! my $subs = SPOPS::ClassFactory->find_parent_methods( $class, $rule_classes, RULESET_METHOD );
foreach my $sub_info ( @{ $subs } ) {
$sub_info->[1]->( $class, $class->RULESET );
--- 321,328 ----
# Now find all the classes that have the method RULESET_METHOD
+ # (and 'ruleset_add' for backwards compatibility)
my $rule_classes = $CONFIG->{rules_from} || [];
! my $subs = SPOPS::ClassFactory->find_parent_methods( $class, $rule_classes, RULESET_METHOD, 'ruleset_add' );
foreach my $sub_info ( @{ $subs } ) {
$sub_info->[1]->( $class, $class->RULESET );
|
|
From: Chris W. <la...@us...> - 2001-10-15 17:50:15
|
Update of /cvsroot/openinteract/OpenInteract/conf
In directory usw-pr-cvs1:/tmp/cvs-serv29890
Added Files:
sample-server.ini
Log Message:
OI server configuration in .ini mode
--- NEW FILE: sample-server.ini ---
[Global]
DEBUG = 0
no_promotion = 0
ConfigurationRevision = $Revision: 1.1 $
#
# Information about how to send email and some system email addresses
[mail]
smtp_host = 127.0.0.1
admin_email = ad...@my...
content_email = co...@my...
#
# If you're using a database-backed session store, you just need
# to change 'class' to the relevant storage module (e.g.,
# 'Apache::Session::Postgres')
#
# If you're not using a database-backed session store, you should
# be able to change 'class' to something like
# 'Apache::Session::File' and then create relevant entries in
# 'params' (e.g., 'Directory' and 'LockDirectory' for
# 'Apache::Session::File').
#
# Note that you can also set the expiration for the session
# cookie -- if you set it to be 'undef' the cookie will be
# 'short-lived', meaning it will expire when the user shuts
# down the browser. Otherwise, pass something like the
# following: '+3d' (3 days); '+3M' (3 months); '+480s' (480
# seconds); '+15h' (15 hours); '+1y' (1 year)
[session_info]
class = Apache::Session::MySQL
expiration = +3M
params =
#
# Define the default datasource names to use when an SPOPS object
# doesn't specify one
[datasource]
default_connection_db = main
default_connection_ldap = main
#
# Enter your database connection parameters in the 'main' entry
# -- see 'OpenInteract::DBI' for more information about
# them). Briefly:
#
# db_owner (optional)
# who owns the db? (this should only be set if your
# database requires it!)
# username
# who do we login as?
# password
# what password do we login with?
# dsn
# last part of the DBI DSN
# db_name
# name of database
# driver_name
# name of driver -- second part of the DBI DSN
# sql_install (optional)
# if name of driver and name of SQL installer to use differ,
# put the SQL installer here. For instance, if you use
# DBD::ODBC and Sybase, you'd put 'ODBC' under the
# 'driver_name' and 'Sybase' under 'sql_install'
# long_read_len
# length of longest TEXT/LOB to read (see DBI docs under
# 'LongReadLen')
# long_trunc_ok
# whether it's okay to truncate TEXT/LOB values that exceed
# long_read_len (see DBI docs under 'LongTruncOk')
[db_info main]
db_owner =
username =
password =
dsn =
db_name =
driver_name =
sql_install =
long_read_len = 65536
long_trunc_ok = 0
#
# Enter your LDAP connection information if you're using
# LDAP. Briefly:
#
# host
# The IP address/hostname with the LDAP server
# port
# The port the LDAP server is running on (usually 389)
# bind_dn
# The distinguished name of the record to bind as. If left
# blank you will be doing an anonymous bind and the value for
# 'bind_password' will not be used.
# bind_password
# Password to use with 'bind_dn' to bind to the server.
# base_dn
# Can be used by modules to determine the Base DN where
# objects should be stored. This might be something like
# 'dc=MyCompany,dc=com'
# timeout
# Value (in seconds) to wait for a timed out connection
# version
# LDAP protocol version. Use '3' if you're using SASL
# sasl
# Set to a true value to use SASL authentication
# debug
# See entry in Net::LDAP->new() for possible values
[ldap_info main]
host =
port =
bind_dn =
bind_password =
base_dn =
timeout = 120
version = 2
sasl = 0
debug = 0
#
# Unless you're using LDAP for authentication, you probably don't
# want to change these in the beginning. However, you might want
# to change them (particularly the 'theme' value) as your site
# grows.
[default_objects]
superuser = 1
supergroup = 1
theme = 1
public_group = 2
site_admin_group = 3
#
# Define the box handler and the handler to take care of the
# default system boxes. The 'custom_box_handler' entry is for you
# to fill in if you'd like -- you can add other boxes to every
# page, add them depending on the request type, etc.
[box]
handler = %%WEBSITE_NAME%%::Handler::Box
default_template = base_box::main_box_shell
default_separator =
default_method =
system_box_handler = %%WEBSITE_NAME%%::Handler::SystemBoxes
system_box_method =
custom_box_handler =
custom_box_method =
#
# Define login information. In the future you'll be able to define
# the object(s) used for logging in and possibly more.
[login]
#
# Set whether you want to store encrypted passwords in the
# database (set by default and recommended). Note that if
# you're using LDAP or some SMB authentication you want to set
# this to '0' since the backend will take care of that for you.
crypt_password = 1
#
# These are the fields used to read in the username and
# password from the user and are used in the 'login_box'
# component shipped with OpenInteract and found in the
# 'base_box' package.
login_field = login_login_name
password_field = login_password
remember_field = login_remember
#
# This handler defines custom actions that happen when a user
# logs in.
custom_login_handler =
custom_login_method =
#
# Various simple miscellaneous display items can go here
[display_info]
show_redirect_message = 0
#
# Page directives come before the rest of the URL and
# control some fundamental aspect of display. For instance,
# 'NoTmpl' before a URL will not put the content in a
# template, and 'Popup' before a URL will put the content
# into the template used for popup windows (usually a really
# simple one that you set in your theme). For all directives
# except the 'No' ones the key should be found as the value
# in 'template_names' below which matches up to a key in the
# theme. (Slightly confusing.)
[page_directives]
Popup = simple_template
NoTemplate = 1
NoTmpl = 1
#
# Define the keys under which we store our important
# template names in a theme. This way we can use simple
# keywords to refer to the page definition templates. (NOTE:
# This is not used quite yet but should be implemented
# shortly.)
[template_names]
main = main_template
simple = simple_template
#
# Define information used by the template processing modules.
[template_info]
#
# Default extension for template files. We also check for files with a
# given name and no extension
template_ext = tmpl
#
# Whether to look into the database or the filesystem first
# when checking templates. The default is filesystem, but if
# you make changes to templates via the browser you'll want to
# change this to 'database'. Otherwise your changes will never
# be seen. Options are: 'database', 'filesystem'
source = filesystem
#
# Custom handler that's called before the template object is
# initialized. Here you can define a PRE_PROCESS template (for
# instance, with BLOCKs having all your common widgets) or set
# any of the other configuration information specified in
# 'perldoc Template::Manual::Config'. If you use this, set
# 'custom_init_class' to a class that has a method specified in
# 'custom_init_method' or use the default ('handler')
custom_init_class =
custom_init_method =
#
# Custom handler that's called before every template is
# processed. If you have common BLOCKs, formatting elements or
# other items that are not full-blown OI components, you can
# add them to the template variable hash. If you use this, set
# 'custom_variable_class' to a class that has a method
# specified in 'custom_variable_method' or use the default
# ('handler').
custom_variable_class =
custom_variable_method =
#
# If true, will remove all compiled files on server restart
# (production boxes can set this to false so that startup costs
# aren't so heavy)
compile_cleanup = 1
#
# Extension for compiled TT files. Most people won't (or
# shouldn't) care about this.
compile_ext = .ttc
#
# Information about errors - you shouldn't need to change any items
[error]
error_object_class = %%WEBSITE_NAME%%::ErrorObject
default_error_handler = OpenInteract::Error::System
#
# Setup aliases so that you can retrieve a class name from $R;
# for instance: $R->cookies will return
# 'OpenInteract::Cookies::Apache' by default.. Generally the only
# one you might possibly want to change is the first one, to
# refer to a different cookie get/set scheme (Win32 users may
# need to use 'OpenInteract::Cookies::CGI')
[system_alias]
cookies = OpenInteract::Cookies::Apache
session = OpenInteract::Session::DBI
template = OpenInteract::Template::Process
repository = OpenInteract::PackageRepository
package = OpenInteract::Package
error = OpenInteract::Error
auth = OpenInteract::Auth
auth_user = OpenInteract::Auth
auth_group = OpenInteract::Auth
security_object = %%WEBSITE_NAME%%::Security
object_security = %%WEBSITE_NAME%%::Security
security = %%WEBSITE_NAME%%::Security
secure = SPOPS::Secure
error_handler = OpenInteract::Error::Main
component = OpenInteract::Handler::Component
#
# Define what your system uses for certain IDs. Defaults are fine
# for 95% of users -- the most common need for changing these is
# if you're using LDAP to store user and group objects.
#
# Currently accepted values: 'int', 'char'
[id]
user_type = int
group_type = int
#
# Directories used by OpenInteract. Only change these if you know
# what you're doing. Note that 'base' and 'interact' are replaced
# when the server starts up, so any values you set there will
# just be overwritten.
[dir]
base = # replaced in OpenInteract::Startup
interact = # replaced in OpenInteract::Startup
error = $BASE/error
html = $BASE/html
log = $BASE/logs
cache = $BASE/cache
cache_tt = $BASE/cache/tt
config = $BASE/conf
data = $BASE/data
mail = $BASE/mail
help = $HTML/help
overflow = $BASE/overflow
download = $HTML/downloads
upload = $BASE/uploads
template = $BASE/template
#
# Caching is currently not implemented but when it is all cache
# information will go here.
[cache_info data]
expire = 600
use = 0
class = OpenInteract::Cache::File
max_size = 2000000
SPOPS = 0
use_ipc = 0
[cache_info ipc]
class = OpenInteract::Cache::IPC
key = CMWC
[cache_info template]
expire = 900
#
# Define the main conductor; if you create additional
# interfaces for your website(s) (e.g. SOAP) then you
# can add another conductor here.
[conductor main]
class = OpenInteract::UI::Main
method = handler
#
# The action table defines how OpenInteract responds to URLs; the
# only information we hold here is for default information
# (information that does not need to be specified in the
# individual package's 'conf/action.perl' file); we also define
# how OpenInteract should respond to a null action (under the ''
# key) and how it should respond to an action that is not found
# (under '_notfound_')
# Note that we used to use 'default' instead of
# '_default_action_info_' -- the former is now deprecated so you
# should move to the new one!
[default_action_info]
template_processor = OpenInteract::Template::Process
conductor = main
method = handler
[action_none]
redir = basicpage
[action_not_found]
redir = basicpage
# NOTES:
# -- Create new section 'datasource' and put 'default_datasource_db'
# and 'default_datasource_ldap' there
# -- Put some 'template_ext' into [template_info] group
# -- Create new section 'error' and put 'error_object_class' and
# 'default_error_handler' there
# -- Create new section 'mail' and put 'smtp_host', 'admin_email',
# 'content_email' there
# -- Reverse how we do 'system_alias' -- it's easier now :-)
# -- split up our action items into 'default_action_info',
# 'action_none' and 'action_not_found' sections
|
|
From: Chris W. <la...@us...> - 2001-10-15 05:38:03
|
Update of /cvsroot/openinteract/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv11964
Modified Files:
UPGRADE
Log Message:
note upgrade options
Index: UPGRADE
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/UPGRADE,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** UPGRADE 2001/08/27 00:16:21 1.4
--- UPGRADE 2001/10/15 05:38:01 1.5
***************
*** 58,61 ****
--- 58,77 ----
what updates there have been between the versions.
+ ==============================
+ UPGRADING TO 1.3
+ ==============================
+
+ This is not as substantial as the upgrade to 1.2, but there are a
+ number of new features. These features come with some additional
+ configuration options which are all documented in 'Changes'.
+
+ The only required new configuration item is:
+
+ {dir}{cache_tt} => '$BASE/cache/tt',
+
+ You'll also need to create this directory in any websites you're
+ upgrading. For websites created with 'oi_manage create_website' after
+ the upgrade, you will not need to create this directory.
+
==============================
|
|
From: Chris W. <la...@us...> - 2001-10-15 05:29:35
|
Update of /cvsroot/openinteract/OpenInteract In directory usw-pr-cvs1:/tmp/cvs-serv10099 Modified Files: MANIFEST Log Message: add doc/data_import.html (whew!) Index: MANIFEST =================================================================== RCS file: /cvsroot/openinteract/OpenInteract/MANIFEST,v retrieving revision 1.63 retrieving revision 1.64 diff -C2 -d -r1.63 -r1.64 *** MANIFEST 2001/10/15 05:26:05 1.63 --- MANIFEST 2001/10/15 05:29:33 1.64 *************** *** 31,34 **** --- 31,35 ---- doc/fruit-0.07.tar.gz doc/database.html + doc/data_import.html doc/diagram.png doc/overview.html |
|
From: Chris W. <la...@us...> - 2001-10-15 05:26:08
|
Update of /cvsroot/openinteract/OpenInteract In directory usw-pr-cvs1:/tmp/cvs-serv9357 Modified Files: Changes MANIFEST README RELEASE VERSION Log Message: fun updates before release Index: Changes =================================================================== RCS file: /cvsroot/openinteract/OpenInteract/Changes,v retrieving revision 1.69 retrieving revision 1.70 diff -C2 -d -r1.69 -r1.70 *** Changes 2001/10/14 20:57:46 1.69 --- Changes 2001/10/15 05:26:05 1.70 *************** *** 1,5 **** Revision history for Perl extension OpenInteract. ! 1.30 Overall: --- 1,5 ---- Revision history for Perl extension OpenInteract. ! 1.30 Mon Oct 15 01:35:03 EDT 2001 Overall: Index: MANIFEST =================================================================== RCS file: /cvsroot/openinteract/OpenInteract/MANIFEST,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 *** MANIFEST 2001/10/14 20:57:24 1.62 --- MANIFEST 2001/10/15 05:26:05 1.63 *************** *** 95,99 **** pkg/base_theme-1.27.tar.gz pkg/base_user-1.37.tar.gz ! pkg/classified-1.31.tar.gz pkg/full_text-1.27.tar.gz pkg/lookup-0.15.tar.gz --- 95,99 ---- pkg/base_theme-1.27.tar.gz pkg/base_user-1.37.tar.gz ! pkg/classified-1.32.tar.gz pkg/full_text-1.27.tar.gz pkg/lookup-0.15.tar.gz Index: README =================================================================== RCS file: /cvsroot/openinteract/OpenInteract/README,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** README 2001/08/28 21:30:25 1.4 --- README 2001/10/15 05:26:05 1.5 *************** *** 180,183 **** --- 180,184 ---- base_theme base_user + lookup results_manage static_page *************** *** 192,196 **** Every other package, whether developed by intes.net, inc. or other party, is licensed under its own terms. - ========================= --- 193,196 ---- Index: RELEASE =================================================================== RCS file: /cvsroot/openinteract/OpenInteract/RELEASE,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** RELEASE 2001/08/29 19:02:19 1.11 --- RELEASE 2001/10/15 05:26:05 1.12 *************** *** 2,9 **** --- 2,27 ---- ========================= + 1.30 Mon Oct 15 01:35:03 EDT 2001 + + - New OpenInteract::CommonHandler makes common + search/display/edit/remove operations extremely simple. + + - New template widgets allow higher level form/page building, and to + centralize display elements for site-wide consistency. + + - New package ('lookup') allows lookup table editing without any + code + + - Speed up template through properly implemented TT caching and + compiling + + - Tons of smaller changes -- see 'Changes' file for more info + + 1.21 Wed Aug 29 15:10:27 EDT 2001 - Bugfix release: base_security package that shipped with OI 1.2 doesn't save the security settings properly. + 1.2 Tue Aug 28 17:20:44 EDT 2001 Index: VERSION =================================================================== RCS file: /cvsroot/openinteract/OpenInteract/VERSION,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** VERSION 2001/10/08 19:18:21 1.17 --- VERSION 2001/10/15 05:26:05 1.18 *************** *** 1 **** ! $VERSION = '1.29'; --- 1 ---- ! $VERSION = '1.30'; |
|
From: Chris W. <la...@us...> - 2001-10-15 04:54:06
|
Update of /cvsroot/openinteract/SPOPS In directory usw-pr-cvs1:/tmp/cvs-serv3779 Modified Files: Changes Log Message: sync time/date Index: Changes =================================================================== RCS file: /cvsroot/openinteract/SPOPS/Changes,v retrieving revision 1.63 retrieving revision 1.64 diff -C2 -d -r1.63 -r1.64 *** Changes 2001/10/14 23:50:57 1.63 --- Changes 2001/10/15 04:54:03 1.64 *************** *** 1,5 **** Revision history for Perl extension SPOPS. ! 0.51 Sun Oct 14 20:04:08 EDT 2001 Overall: --- 1,5 ---- Revision history for Perl extension SPOPS. ! 0.51 Sun Oct 14 20:23:59 EDT 2001 Overall: |
4 messages has been excluded from this view by a project administrator.
