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-11-26 06:55:57
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/doc In directory usw-pr-cvs1:/tmp/cvs-serv19803/doc Modified Files: base_page.pod Log Message: updated docs Index: base_page.pod =================================================================== RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/doc/base_page.pod,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** base_page.pod 2001/10/29 05:14:41 1.3 --- base_page.pod 2001/11/26 06:55:54 1.4 *************** *** 14,21 **** This module displays pages. ! Well, ok, it does more than that. Each page is a template in its own ! right and you can store the pages in the database or the filesystem, ! or both. A configuration option in your 'conf/action.perl' controls ! which option you want to use. So a request like: --- 14,21 ---- This module displays pages. ! Well, ok, it does more than that. Each page can optionally be a ! template in its own right and you can store the content of the pages ! in the database or the filesystem, or both. The database always stores ! page metadata. So a request like: *************** *** 23,28 **** http://www.mysite.com/reports/q1/sales ! Can be mapped to a database object which displays the report. But your ! users never know the difference. =head2 Non-HTML pages --- 23,28 ---- http://www.mysite.com/reports/q1/sales ! Can be mapped to an object which has the content in the database, ! but to your users it looks like a static HTML page. =head2 Non-HTML pages *************** *** 178,182 **** =head1 SEE ALSO ! B<base_security> package L<SPOPS::Secure::Hierarchy|SPOPS::Secure::Hierarchy> --- 178,182 ---- =head1 SEE ALSO ! C<base_security> package L<SPOPS::Secure::Hierarchy|SPOPS::Secure::Hierarchy> |
|
From: Chris W. <la...@us...> - 2001-11-26 06:55:41
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/script
In directory usw-pr-cvs1:/tmp/cvs-serv19755/script
Modified Files:
scan_for_new.pl
Log Message:
use mime_type_file() to find the MIME type
Index: scan_for_new.pl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/script/scan_for_new.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** scan_for_new.pl 2001/11/26 06:28:18 1.1
--- scan_for_new.pl 2001/11/26 06:55:39 1.2
***************
*** 73,78 ****
my ( $R, $location, $page_info ) = @_;
my $expire_date = $NOW + "${OPT_active_days}D";
$R->page->new({ location => $location,
! mime_type => 'text/html',
title => $page_info->{title},
is_active => 'yes',
--- 73,81 ----
my ( $R, $location, $page_info ) = @_;
my $expire_date = $NOW + "${OPT_active_days}D";
+ my $full_filename = join( '/', $OPT_root, $location );
+ my $mime_type = $R->page->mime_type_file( $full_filename ) ||
+ 'text/html'
$R->page->new({ location => $location,
! mime_type => $mime_type,
title => $page_info->{title},
is_active => 'yes',
|
|
From: Chris W. <la...@us...> - 2001-11-26 06:55:17
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv19660/OpenInteract
Modified Files:
Page.pm
Log Message:
added mime_type_file()
Index: Page.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/Page.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Page.pm 2001/11/26 06:26:17 1.4
--- Page.pm 2001/11/26 06:55:14 1.5
***************
*** 41,44 ****
--- 41,54 ----
+ my ( $MAGIC );
+ sub mime_type_file {
+ my ( $class, $filename ) = @_;
+ return undef unless ( -f $filename );
+ require File::MMagic;
+ $MAGIC ||= File::MMagic->new;
+ return $MAGIC->checktype_filename( $filename );
+ }
+
+
########################################
# OBJECT METHODS
|
|
From: Chris W. <la...@us...> - 2001-11-26 06:41:58
|
Update of /cvsroot/openinteract/Bundle/OpenInteract In directory usw-pr-cvs1:/tmp/cvs-serv17270 Modified Files: Changes OpenInteract.pm Log Message: added File::MMagic Index: Changes =================================================================== RCS file: /cvsroot/openinteract/Bundle/OpenInteract/Changes,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Changes 2001/10/08 16:40:46 1.5 --- Changes 2001/11/26 06:41:55 1.6 *************** *** 1,4 **** --- 1,8 ---- Revision history for Perl extension Bundle::OpenInteract. + 1.08 Mon Nov 26 02:01:07 EST 2001 + + Added 'File::MMagic' + 1.07 Mon Oct 8 12:54:23 EDT 2001 Index: OpenInteract.pm =================================================================== RCS file: /cvsroot/openinteract/Bundle/OpenInteract/OpenInteract.pm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** OpenInteract.pm 2001/10/08 16:40:46 1.7 --- OpenInteract.pm 2001/11/26 06:41:55 1.8 *************** *** 57,60 **** --- 57,62 ---- MIME::Lite (2.00) + File::MMagic + OpenInteract |
|
From: Chris W. <la...@us...> - 2001-11-26 06:30:17
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/Page
In directory usw-pr-cvs1:/tmp/cvs-serv15367/OpenInteract/Page
Added Files:
Http.pm
Log Message:
added a driver to load the page content from a URL
--- NEW FILE: Http.pm ---
package OpenInteract::Page::Http;
# $Id: Http.pm,v 1.1 2001/11/26 06:30:14 lachoy Exp $
use strict;
use HTTP::Request;
use LWP::UserAgent;
my ( $AGENT );
BEGIN {
$AGENT = LWP::UserAgent->new();
$AGENT->agent( "OpenInteract Requester " . $AGENT->agent );
}
sub load {
my ( $self ) = @_;
unless ( $self->{content_location} ) {
return "Cannot retrieve content -- no URL specified.";
}
unless ( $self->{content_location} =~ /^http/ ) {
return "Cannot retrieve content -- invalid URL specified.";
}
my $request = HTTP::Request->new(
GET => $self->{content_location} );
my $response = $AGENT->request( $request );
if ( $response->is_success ) {
my $content = $response->content;
$content =~ s|^.*<body||ism;
$content =~ s|</body>.*$||ism;
}
else {
return 'Cannot retrieve content -- code ' .
$response->code . ' returned.';
}
}
sub save {
my ( $self ) = @_;
warn "--Location $self->{location} cannot be saved, since it's ",
"using HTTP storage.\n";
return 1;
}
sub remove {
my ( $self ) = @_;
warn "--Location $self->{location} cannot be removed, since it's ",
"using HTTP storage.\n";
return 1;
}
1;
__END__
=pod
=head1 NAME
OpenInteract::Page::Http - Fetch page content from a URL
=head1 SYNOPSIS
my $page = $R->page->new({ storage => 'http',
content_location => 'http://slashdot.org/' });
print $page->content
=head1 DESCRIPTION
Retrieves content from a URL rather than the filesystem or database.
The URL is specified in the 'content_location' property of the page
object, and the 'storage' property is set to 'http'.
We strip everything before and including the <body> tag and everything
after and including the </body> tag.
=head1 METHODS
B<load( $page )>
Returns the content from the URL stored in the 'content_location'
property.
B<save( $page )>
Not implemented.
B<remove( $page )>
Not implemented.
=head1 BUGS
None known.
=head1 TO DO
Nothing known.
=head1 SEE ALSO
=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
|
|
From: Chris W. <la...@us...> - 2001-11-26 06:29:34
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/template
In directory usw-pr-cvs1:/tmp/cvs-serv15185/template
Modified Files:
page_form.tmpl
Log Message:
updated the form to pick a storage type and enter the content location
if appropriate
Index: page_form.tmpl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/template/page_form.tmpl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** page_form.tmpl 2001/10/29 05:16:25 1.6
--- page_form.tmpl 2001/11/26 06:29:31 1.7
***************
*** 87,94 ****
[%- count = count + 1 -%]
<tr bgcolor="[% PROCESS row_color %]"><td align="center" colspan="2">
<table border="0" cellpadding="1">
<tr align="center" valign="bottom">
<td>[% PROCESS show_label( label = 'Active?') %]</td>
- <td>[% PROCESS show_label( label = 'Store as file?') %]</td>
<td>[% PROCESS show_label( label = 'Parse as template?') %]</td>
</tr>
--- 87,94 ----
[%- count = count + 1 -%]
<tr bgcolor="[% PROCESS row_color %]"><td align="center" colspan="2">
+
<table border="0" cellpadding="1">
<tr align="center" valign="bottom">
<td>[% PROCESS show_label( label = 'Active?') %]</td>
<td>[% PROCESS show_label( label = 'Parse as template?') %]</td>
</tr>
***************
*** 96,108 ****
<td>[% INCLUDE form_checkbox( name = 'is_active', value = 'yes',
picked = page.is_active ) %]</td>
- <td>[% INCLUDE form_checkbox( name = 'is_file', value = 'yes',
- picked = page.is_file ) %]</td>
<td>[% INCLUDE form_checkbox( name = 'template_parse', value = 'yes',
picked = page.template_parse ) %]</td>
</tr>
</table>
</tr>
[%- count = count + 1 -%]
<tr bgcolor="[% PROCESS row_color %]"><td align="center" colspan="2">
[% PROCESS show_label( label = 'Updates' ) %]<br>
--- 96,124 ----
<td>[% INCLUDE form_checkbox( name = 'is_active', value = 'yes',
picked = page.is_active ) %]</td>
<td>[% INCLUDE form_checkbox( name = 'template_parse', value = 'yes',
picked = page.template_parse ) %]</td>
</tr>
</table>
+
</tr>
[%- count = count + 1 -%]
+ [%- source_value = [ 'file', 'database', 'http', 'alias' ];
+ source_label = [ 'Filesystem', 'Database', 'URL', 'Local Alias' ]; -%]
+ [% INCLUDE label_form_select_row( label = 'Source',
+ name = 'storage', plain = 1,
+ first_label = 'Sources...',
+ value_list = source_value,
+ label_list = source_label,
+ picked = page.storage ) -%]
+
+ [%- count = count + 1 -%]
+ [%- cl_label = '<br>Use if you selected "URL" or "Local Alias"' -%]
+ [% INCLUDE label_form_text_row( label = 'Content Location',
+ post_label = cl_label,
+ name = content_location,
+ value = page.content_location ) -%]
+
+ [%- count = count + 1 -%]
<tr bgcolor="[% PROCESS row_color %]"><td align="center" colspan="2">
[% PROCESS show_label( label = 'Updates' ) %]<br>
***************
*** 115,119 ****
[% PROCESS table_bordered_end -%]
! [%- PROCESS form_hidden( name = 'old_location', value = page.location ) -%]
</form>
--- 131,136 ----
[% PROCESS table_bordered_end -%]
! [%- PROCESS form_hidden( name = 'old_location',
! value = page.location ) -%]
</form>
|
|
From: Chris W. <la...@us...> - 2001-11-26 06:28:59
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/struct In directory usw-pr-cvs1:/tmp/cvs-serv15086/struct Modified Files: page.sql Log Message: added 'storage' and 'content_location' fields, removed 'is_file' field Index: page.sql =================================================================== RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/struct/page.sql,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** page.sql 2001/10/24 20:55:37 1.2 --- page.sql 2001/11/26 06:28:56 1.3 *************** *** 1,17 **** CREATE TABLE page ( ! location varchar(150) not null, ! directory varchar(150) null, ! title varchar(250) null, ! author varchar(200) null, ! keywords varchar(75) null, ! boxes varchar(75) null, ! template_parse char(3) default 'yes', ! main_template varchar(40) null, ! active_on datetime null, ! expires_on datetime null, ! is_active char(3) default 'no', ! is_file char(3) default 'no', ! mime_type varchar(30) null, ! notes text null, ! primary key ( location ) ) --- 1,18 ---- CREATE TABLE page ( ! location varchar(150) not null, ! directory varchar(150) null, ! title varchar(250) null, ! author varchar(200) null, ! keywords varchar(75) null, ! boxes varchar(75) null, ! template_parse char(3) default 'yes', ! main_template varchar(40) null, ! active_on datetime null, ! expires_on datetime null, ! is_active char(3) default 'no', ! content_location varchar(150) null, ! storage varchar(10) default 'database', ! mime_type varchar(30) null, ! notes text null, ! primary key ( location ) ) |
|
From: Chris W. <la...@us...> - 2001-11-26 06:28:21
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/script
In directory usw-pr-cvs1:/tmp/cvs-serv14979/script
Added Files:
scan_for_new.pl
Log Message:
added script to scan a directory for new files and add them
--- NEW FILE: scan_for_new.pl ---
#!/usr/bin/perl -w
# $Id: scan_for_new.pl,v 1.1 2001/11/26 06:28:18 lachoy Exp $
use strict;
use Class::Date qw( now );
use File::Find;
use OpenInteract::Startup;
use constant DEBUG => 1;
my $NOW = now;
my $DATE_PATTERN = '%Y-%m-%d';
my $DEFAULT_ACTIVE_DAYS = 365;
my ( %EXISTING, %NEW );
my ( @OPT_skip );
my ( $OPT_root, $OPT_debug, $OPT_active_days );
{
my %opts = ( 'skip=s' => \@OPT_skip,
'root=s' => \$OPT_root,
'active=s' => \$OPT_active_days,
'debug' => \$OPT_debug );
my $R = OpenInteract::Startup->setup_static_environment_options( '', \%opts );
$OPT_root ||= $R->CONFIG->get_dir( 'html' );
unless ( $OPT_root =~ m|/$| ) { $OPT_root = "$OPT_root/" }
$OPT_active_days ||= $DEFAULT_ACTIVE_DAYS;
$OPT_debug ||= DEBUG;
%EXISTING = map { $_ => 1 }
@{ $R->page->db_select({ select => [ 'location' ],
return => 'single-list' }) };
find( \&descend, $OPT_root );
foreach my $location ( sort keys %NEW ) {
my %page_info = get_page_info( $R, $location );
add_new_location( $R, $location, \%page_info );
$OPT_debug && warn "--Added new location $location\n";
}
}
sub descend {
my $filename = $_;
my $full_dir = $File::Find::dir;
$full_dir =~ s/^$OPT_root//;
for ( @OPT_skip ) { return if ( $full_dir =~ /$_/ ) }
my $location = '/' . join( '/', $full_dir, $filename );
return if ( $EXISTING{ $location } );
$NEW{ $location }++;
}
sub get_page_info {
my ( $R, $location ) = @_;
my %info = ();
my $full_filename = join( '/', $OPT_root, $location );
open( FILE, $full_filename ) || die "Cannot open ($full_filename): $!";
while ( <FILE> ) {
$info{title} = $1 if ( m|<title>(.*?)</title>| );
}
close( FILE );
return %info;
}
sub add_new_location {
my ( $R, $location, $page_info ) = @_;
my $expire_date = $NOW + "${OPT_active_days}D";
$R->page->new({ location => $location,
mime_type => 'text/html',
title => $page_info->{title},
is_active => 'yes',
active_on => $NOW->strftime( $DATE_PATTERN ),
expires_on => $expire_date->strftime( $DATE_PATTERN ) })
->save();
}
__END__
=pod
=head1 NAME
scan_for_new.pl - Scan for new pages in a tree and add new ones to the database
=head1 SYNOPSIS
$ export OIWEBSITE=/home/httpd/mysite
$ perl scan_for_new --skip=^images
=head1 DESCRIPTION
This script scans a directory tree (by default the tree with 'html/'
as the root in your website directory) and adds any new files to the
database.
=head1 BUGS
None known.
=head1 TO DO
Nothing known.
=head1 SEE ALSO
=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
|
|
From: Chris W. <la...@us...> - 2001-11-26 06:27:29
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/conf
In directory usw-pr-cvs1:/tmp/cvs-serv14813/conf
Modified Files:
spops.perl
Log Message:
use the field discovery, and modify the sql_defaults
Index: spops.perl
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/conf/spops.perl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** spops.perl 2001/10/29 14:48:26 1.7
--- spops.perl 2001/11/26 06:27:27 1.8
***************
*** 11,25 ****
SPOPS::Secure::Hierarchy
SPOPS::Utility SPOPS::DBI / ],
! field => [ qw/ location directory title author keywords
! boxes main_template mime_type template_parse
! active_on expires_on is_active is_file / ],
fulltext_field => [ qw/ title author keywords content / ],
column_group => {},
id_field => 'location',
no_insert => [],
! skip_undef => [ qw/ template_parse is_active is_file / ],
no_update => [],
base_table => 'page',
! sql_defaults => [ qw/ template_parse is_active is_file / ],
# Only uncomment this (and comment out the next line) after you've
--- 11,24 ----
SPOPS::Secure::Hierarchy
SPOPS::Utility SPOPS::DBI / ],
! field_discover => 'yes',
! field => [],
fulltext_field => [ qw/ title author keywords content / ],
column_group => {},
id_field => 'location',
no_insert => [],
! skip_undef => [ qw/ template_parse is_active storage / ],
no_update => [],
base_table => 'page',
! sql_defaults => [ qw/ template_parse is_active storage / ],
# Only uncomment this (and comment out the next line) after you've
|
|
From: Chris W. <la...@us...> - 2001-11-26 06:26:45
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/Handler
In directory usw-pr-cvs1:/tmp/cvs-serv14695/OpenInteract/Handler
Modified Files:
Page.pm
Log Message:
updated to respect the alias if it exists
Index: Page.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/Handler/Page.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Page.pm 2001/10/30 02:25:08 1.10
--- Page.pm 2001/11/26 06:26:42 1.11
***************
*** 129,135 ****
# See if the upload should be there
- # TODO: Modify the save() methods in OI::Page::Blah to take a
- # filehandle in 'content' as well as plain old text.
-
my $has_upload = $class->_read_field_toggled( $R->apache, 'use_upload' );
if ( $has_upload eq 'yes' ) {
--- 129,132 ----
***************
*** 247,251 ****
}
! # We have a page and we can display it, so grab the content
$page->content;
--- 244,258 ----
}
! # We have a page and we can display it, so deal with the fact that
! # it may be an alias and then grab the relevant content
!
! while ( $page->{storage} eq 'alias' ) {
! $page = eval { $class->_find_page_object( $page->{content_location} ) };
! if ( $@ or ! $page ) {
! $R->scrib( 0, "Location for alias ($page->{content_location})",
! "wasn't found. ($@)" );
! return "Request was for an alias, but aliased page unavailable.";
! }
! }
$page->content;
|
|
From: Chris W. <la...@us...> - 2001-11-26 06:26:21
|
Update of /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv14616/OpenInteract
Modified Files:
Page.pm
Log Message:
created 'storage' property, and updated object to deal with 'http'
storage method
Index: Page.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/pkg/base_page/OpenInteract/Page.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Page.pm 2001/10/24 23:04:12 1.3
--- Page.pm 2001/11/26 06:26:17 1.4
***************
*** 8,11 ****
--- 8,12 ----
use OpenInteract::Page::Database;
use OpenInteract::Page::File;
+ use OpenInteract::Page::Http;
$OpenInteract::Page::VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
***************
*** 25,33 ****
my ( $class ) = @_;
my $directory_list = eval { $class->db_select({
! from => $class->CONFIG->{table_name},
! select => [ 'directory, count(*)' ],
! select_modifier => 'DISTINCT',
! order => 'directory',
! group => 'directory' }) };
if ( $@ ) {
my $R = OpenInteract::Request->instance;
--- 26,34 ----
my ( $class ) = @_;
my $directory_list = eval { $class->db_select({
! from => $class->CONFIG->{table_name},
! select => [ 'directory, count(*)' ],
! select_modifier => 'DISTINCT',
! order => 'directory',
! group => 'directory' }) };
if ( $@ ) {
my $R = OpenInteract::Request->instance;
***************
*** 60,66 ****
sub content {
my ( $self ) = @_;
! return $self->{content} = ( $self->{is_file} eq 'yes' )
! ? OpenInteract::Page::File::load( $self )
! : OpenInteract::Page::Database::load( $self );
}
--- 61,73 ----
sub content {
my ( $self ) = @_;
! if ( $self->{storage} eq 'file' ) {
! return $self->{content} = OpenInteract::Page::File::load( $self );
! }
! if ( $self->{storage} eq 'database' ) {
! return $self->{content} = OpenInteract::Page::Database::load( $self );
! }
! if ( $self->{storage} eq 'http' ) {
! return $self->{content} = OpenInteract::Page::Http::load( $self );
! }
}
|
|
From: Chris W. <la...@us...> - 2001-11-25 01:39:28
|
Update of /cvsroot/openinteract/SPOPS In directory usw-pr-cvs1:/tmp/cvs-serv6786 Modified Files: MANIFEST Log Message: added eg/My/UTFConvert.pm Index: MANIFEST =================================================================== RCS file: /cvsroot/openinteract/SPOPS/MANIFEST,v retrieving revision 1.27 retrieving revision 1.28 diff -C2 -d -r1.27 -r1.28 *** MANIFEST 2001/11/25 01:04:55 1.27 --- MANIFEST 2001/11/25 01:39:25 1.28 *************** *** 72,75 **** --- 72,76 ---- eg/My/Security.pm eg/My/User.pm + eg/My/UTFConvert.pm eg/My/DBI/FindDefaults.pm t/01_tie.t |
|
From: Chris W. <la...@us...> - 2001-11-25 01:38:16
|
Update of /cvsroot/openinteract/SPOPS In directory usw-pr-cvs1:/tmp/cvs-serv6616 Modified Files: RELEASE Log Message: notes for the 0.53 release Index: RELEASE =================================================================== RCS file: /cvsroot/openinteract/SPOPS/RELEASE,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** RELEASE 2001/10/26 03:22:27 1.9 --- RELEASE 2001/11/25 01:38:13 1.10 *************** *** 2,5 **** --- 2,11 ---- ========================= + 0.53 Sat Nov 24 20:50:32 EST 2001 + + * Added support for multiple field primary keys to SPOPS::DBI + classes, and a few more examples. Nothing major. + + 0.52 Thu Oct 25 23:19:43 EDT 2001 |
|
From: Chris W. <la...@us...> - 2001-11-25 01:34:45
|
Update of /cvsroot/openinteract/SPOPS
In directory usw-pr-cvs1:/tmp/cvs-serv6022
Modified Files:
Changes
Log Message:
finished off changes for this version
Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/Changes,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -d -r1.71 -r1.72
*** Changes 2001/11/09 13:10:43 1.71
--- Changes 2001/11/25 01:34:42 1.72
***************
*** 1,5 ****
Revision history for Perl extension SPOPS.
! 0.53
Overall:
--- 1,5 ----
Revision history for Perl extension SPOPS.
! 0.53 Sat Nov 24 20:50:32 EST 2001
Overall:
***************
*** 15,18 ****
--- 15,25 ----
- Example of how you can create read-only objects in SPOPS.
+ * eg/My/UTFConvert.pm:
+
+ - Example of converting to/from unicode values for datasources
+ that store unicode (WARNING: This is a demo only, and only works
+ for those 5.6.0 and earlier versions of perl that support 'use
+ utf8')
+
* SPOPS.pm:
***************
*** 21,24 ****
--- 28,36 ----
keys to work properly.
+ * SPOPS/ClassFactory/DBI.pm:
+
+ - Add id_clause() and id() methods to classes using
+ multiple-field primary keys (see below).
+
* SPOPS/DBI.pm:
***************
*** 51,54 ****
--- 63,75 ----
- Always make a backup before doing anything, and keep it around
rather than deleting it.
+
+ * t/dbi_config.pl:
+
+ - Moved certain information from t/30_dbi.t here and generalized
+ for other DBI tests.
+
+ * t/30_dbi.t:
+
+ - Modified to use dbi_config.pl for certain behaviors
* t/31_dbi_multifield.t:
|
|
From: Chris W. <la...@us...> - 2001-11-25 01:26:50
|
Update of /cvsroot/openinteract/SPOPS/t
In directory usw-pr-cvs1:/tmp/cvs-serv4589/t
Modified Files:
31_dbi_multifield.t
Log Message:
ensure db table is cleaned up
Index: 31_dbi_multifield.t
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/t/31_dbi_multifield.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 31_dbi_multifield.t 2001/11/04 17:53:57 1.1
--- 31_dbi_multifield.t 2001/11/25 01:26:47 1.2
***************
*** 31,36 ****
# Ensure we can get to SPOPS::Initialize
! eval { require SPOPS::Initialize };
! ok( ! $@, 'SPOPS::Initialize load' );
# Create the class using SPOPS::Initialize
--- 31,35 ----
# Ensure we can get to SPOPS::Initialize
! require_ok( 'SPOPS::Initialize' );
# Create the class using SPOPS::Initialize
***************
*** 156,160 ****
}
! # cleanup( $db, TEST_TABLE_NAME );
# Future testing ideas:
--- 155,159 ----
}
! cleanup( $db, TEST_TABLE_NAME );
# Future testing ideas:
|
|
From: Chris W. <la...@us...> - 2001-11-25 01:26:15
|
Update of /cvsroot/openinteract/SPOPS/SPOPS/ClassFactory
In directory usw-pr-cvs1:/tmp/cvs-serv4503/SPOPS/ClassFactory
Modified Files:
DBI.pm
Log Message:
provide default values to ignore -w warnings in generated id_clause
method for multi-field primary key classes; plus cosmetic updates
Index: DBI.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/SPOPS/ClassFactory/DBI.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** DBI.pm 2001/11/06 21:54:18 1.12
--- DBI.pm 2001/11/25 01:26:13 1.13
***************
*** 15,19 ****
-
########################################
# MULTIPLE FIELD KEYS
--- 15,18 ----
***************
*** 25,30 ****
my ( $self, $id ) = @_;
if ( $id ) {
! ( %%ID_FIELD_OBJECT_LIST%% ) = split /\s*,\s*/, $id;
! }
return wantarray ? ( %%ID_FIELD_OBJECT_LIST%% )
: join( ',', %%ID_FIELD_OBJECT_LIST%% );
--- 24,29 ----
my ( $self, $id ) = @_;
if ( $id ) {
! ( %%ID_FIELD_OBJECT_LIST%% ) = split /\s*,\s*/, $id;
! }
return wantarray ? ( %%ID_FIELD_OBJECT_LIST%% )
: join( ',', %%ID_FIELD_OBJECT_LIST%% );
***************
*** 47,61 ****
}
! my $id_object_reference = join( ', ', map { '$self->{' . $_ . '}' } @{ $id_field } );
my $id_sub = $generic_multifield_id;
$id_sub =~ s/%%CLASS%%/$class/g;
$id_sub =~ s/%%ID_FIELD_OBJECT_LIST%%/$id_object_reference/g;
{
! local $SIG{__WARN__} = sub { return undef };
! eval $id_sub;
}
if ( $@ ) {
! warn "Code: $id_sub\n";
! return ( ERROR, "Cannot create 'id()' method for ($class): $@" );
}
return ( DONE, undef );
--- 46,62 ----
}
! my $id_object_reference = join( ', ',
! map { '$self->{' . $_ . '}' }
! @{ $id_field } );
my $id_sub = $generic_multifield_id;
$id_sub =~ s/%%CLASS%%/$class/g;
$id_sub =~ s/%%ID_FIELD_OBJECT_LIST%%/$id_object_reference/g;
{
! local $SIG{__WARN__} = sub { return undef };
! eval $id_sub;
}
if ( $@ ) {
! warn "Code: $id_sub\n";
! return ( ERROR, "Cannot create 'id()' method for ($class): $@" );
}
return ( DONE, undef );
***************
*** 72,75 ****
--- 73,78 ----
sub %%CLASS%%::id_clause {
my ( $self, $id, $opt, $p ) = @_;
+ $opt ||= '';
+ $p ||= {};
my %val = ();
my $db = $p->{db} || $self->global_datasource_handle( $p->{connect_key} );
***************
*** 83,87 ****
}
! my $type_info = eval { $self->db_discover_types(
$self->table_name,
{ dbi_type_info => $p->{dbi_type_info},
--- 86,90 ----
}
! my $type_info = eval { $self->db_discover_types(
$self->table_name,
{ dbi_type_info => $p->{dbi_type_info},
***************
*** 95,114 ****
}
unless ( %%ID_FIELD_BOOLEAN_LIST%% ) {
! die "Insufficient values for ID (%%ID_FIELD_VARIABLE_LIST%%)\n";
}
! my @clause = ();
! my $table_name = $self->table_name;
! foreach my $id_field ( %%ID_FIELD_NAME_LIST%% ) {
! my $use_id_field = ( $opt eq 'noqualify' )
! ? $id_field
! : join( '.', $table_name, $id_field );
! push @clause, join( ' = ', $use_id_field,
! $db->quote( $val{ $id_field },
! $type_info->{ lc $id_field } ) );
! }
return join( ' AND ', @clause );
}
MFETC
sub conf_multi_field_key_other {
my ( $class ) = @_;
--- 98,118 ----
}
unless ( %%ID_FIELD_BOOLEAN_LIST%% ) {
! die "Insufficient values for ID (%%ID_FIELD_VARIABLE_LIST%%)\n";
}
! my @clause = ();
! my $table_name = $self->table_name;
! foreach my $id_field ( %%ID_FIELD_NAME_LIST%% ) {
! my $use_id_field = ( $opt eq 'noqualify' )
! ? $id_field
! : join( '.', $table_name, $id_field );
! push @clause, join( ' = ', $use_id_field,
! $db->quote( $val{ $id_field },
! $type_info->{ lc $id_field } ) );
! }
return join( ' AND ', @clause );
}
MFETC
+
sub conf_multi_field_key_other {
my ( $class ) = @_;
***************
*** 133,143 ****
$id_sub =~ s/%%ID_FIELD_NAME_LIST%%/$id_field_reference/g;
{
! local $SIG{__WARN__} = sub { return undef };
! eval $id_sub;
}
if ( $@ ) {
! warn "Code: $id_sub\n";
! return ( ERROR, "Cannot create 'id_clause() and id_fields()'" .
! "methods for ($class): $@" );
}
return ( OK, undef );
--- 137,147 ----
$id_sub =~ s/%%ID_FIELD_NAME_LIST%%/$id_field_reference/g;
{
! local $SIG{__WARN__} = sub { return undef };
! eval $id_sub;
}
if ( $@ ) {
! warn "Code: $id_sub\n";
! return ( ERROR, "Cannot create 'id_clause() and id_fields()'" .
! "methods for ($class): $@" );
}
return ( OK, undef );
|
|
From: Chris W. <la...@us...> - 2001-11-25 01:25:03
|
Update of /cvsroot/openinteract/SPOPS/SPOPS
In directory usw-pr-cvs1:/tmp/cvs-serv4232/SPOPS
Modified Files:
DBI.pm
Log Message:
force scalar context in a particular call
Index: DBI.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/SPOPS/DBI.pm,v
retrieving revision 1.54
retrieving revision 1.55
diff -C2 -d -r1.54 -r1.55
*** DBI.pm 2001/11/06 21:43:03 1.54
--- DBI.pm 2001/11/25 01:25:00 1.55
***************
*** 705,709 ****
unless ( $p->{skip_security} ) {
! eval { $self->create_initial_security({ object_id => $self->id }) };
_w( 0, "Error creating initial security: $@" ) if ( $@ );
}
--- 705,709 ----
unless ( $p->{skip_security} ) {
! eval { $self->create_initial_security({ object_id => scalar $self->id }) };
_w( 0, "Error creating initial security: $@" ) if ( $@ );
}
|
|
From: Chris W. <la...@us...> - 2001-11-25 01:23:40
|
Update of /cvsroot/openinteract/SPOPS
In directory usw-pr-cvs1:/tmp/cvs-serv3944
Modified Files:
SPOPS.pm
Log Message:
cosmetic
Index: SPOPS.pm
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/SPOPS.pm,v
retrieving revision 1.55
retrieving revision 1.56
diff -C2 -d -r1.55 -r1.56
*** SPOPS.pm 2001/11/06 23:52:11 1.55
--- SPOPS.pm 2001/11/25 01:23:37 1.56
***************
*** 122,127 ****
my ( %data );
! my $int = tie %data, $tie_class, $class, $params;
! DEBUG() && _w( 4, "Internal tie structure of new object: ", Dumper( $int ) );
my $self = bless( \%data, $class );
--- 122,127 ----
my ( %data );
! my $internal = tie %data, $tie_class, $class, $params;
! DEBUG() && _w( 4, "Internal tie structure of new object: ", Dumper( $internal ) );
my $self = bless( \%data, $class );
|
|
From: Chris W. <la...@us...> - 2001-11-25 01:04:58
|
Update of /cvsroot/openinteract/SPOPS In directory usw-pr-cvs1:/tmp/cvs-serv1339 Modified Files: MANIFEST Log Message: added eg/My/UTFConvert.pm Index: MANIFEST =================================================================== RCS file: /cvsroot/openinteract/SPOPS/MANIFEST,v retrieving revision 1.26 retrieving revision 1.27 diff -C2 -d -r1.26 -r1.27 *** MANIFEST 2001/11/09 13:10:29 1.26 --- MANIFEST 2001/11/25 01:04:55 1.27 *************** *** 54,67 **** conf/test_dbd_driver.pl conf/test_dbd_driver.sql - t/01_tie.t - t/02_tie_strict.t - t/10_hash_file.t - t/20_gdbm.t - t/30_dbi.t - t/31_dbi_multifield.t - t/40_ldap.t - t/config.pl - t/dbi_config.pl - t/hash_file_test.perl eg/README eg/fetch_doodads.pl --- 54,57 ---- *************** *** 82,84 **** eg/My/Security.pm eg/My/User.pm ! eg/My/DBI/FindDefaults.pm \ No newline at end of file --- 72,84 ---- eg/My/Security.pm eg/My/User.pm ! eg/My/DBI/FindDefaults.pm ! t/01_tie.t ! t/02_tie_strict.t ! t/10_hash_file.t ! t/20_gdbm.t ! t/30_dbi.t ! t/31_dbi_multifield.t ! t/40_ldap.t ! t/config.pl ! t/dbi_config.pl ! t/hash_file_test.perl |
|
From: Chris W. <la...@us...> - 2001-11-25 01:04:21
|
Update of /cvsroot/openinteract/SPOPS/eg
In directory usw-pr-cvs1:/tmp/cvs-serv1218
Modified Files:
README
Log Message:
added note about My::UTFConvert
Index: README
===================================================================
RCS file: /cvsroot/openinteract/SPOPS/eg/README,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** README 2001/11/09 04:35:37 1.9
--- README 2001/11/25 01:04:17 1.10
***************
*** 25,28 ****
--- 25,34 ----
suddenly 'save()' and 'remove()' don't work anymore. Cool!
+ My/UTFConvert.pm
+
+ - for datasources that store data in unicode format, do automatic
+ translation whenever the data are fetched and saved. WARNING:
+ THIS CURRENTLY ONLY WORKS FOR 5.6.0 AND EARLIER, AND IS ONLY A
+ DEMONSTRATION.
The remainder of the files are to demonstrate user, group and security
|
|
From: Chris W. <la...@us...> - 2001-11-25 01:02:40
|
Update of /cvsroot/openinteract/SPOPS/eg/My
In directory usw-pr-cvs1:/tmp/cvs-serv854/My
Added Files:
UTFConvert.pm
Log Message:
added sample rules to convert to/from unicode data -- ONLY INCLUDED
FOR DEMONSTRATION PURPOSES!
--- NEW FILE: UTFConvert.pm ---
package My::UTFConvert;
# $Id: UTFConvert.pm,v 1.1 2001/11/25 01:02:34 lachoy Exp $
# WARNING: This currently only works in 5.6.0 and earlier versions of
# Perl. It will barf with a syntax error on later versions.
use strict;
use utf8;
use SPOPS qw( _w DEBUG );
sub ruleset_factory {
my ( $class, $ruleset ) = @_;
DEBUG && _w( 1, "Installing UTF8 conversion methods for ($class)" );
push @{ $ruleset->{post_fetch_action} }, \&from_utf;
push @{ $ruleset->{pre_save_action} }, \&to_utf;
}
sub from_utf {
my ( $self ) = @_;
my $convert_fields = $self->CONFIG->{utf_fields};
return 1 unless ( ref $convert_fields eq 'ARRAY' and
scalar @{ $convert_fields } );
foreach my $field ( @{ $convert_fields } ) {
$self->{ $field } =~ tr/\0-\x{FF}//UC;
}
return 1;
}
sub to_utf {
my ( $self ) = @_;
my $convert_fields = $self->CONFIG->{utf_fields};
return 1 unless ( ref $convert_fields eq 'ARRAY' and
scalar @{ $convert_fields } );
foreach my $field ( @{ $convert_fields } ) {
$self->{ $field } =~ tr/\0-\x{FF}//CU;
}
return 1;
}
1;
__END__
=pod
=head1 NAME
My::UTFConvert -- Provide automatic UTF-8 conversion
=head1 SYNOPSIS
# In object configuration
object => {
rules_from => [ 'My::UTFConvert' ],
utf_fields => [ 'field1', 'field2' ],
},
=head1 WARNING
This currently only works in 5.6.0 and earlier versions of Perl. It
will barf with a syntax error on later versions.
=head1 DESCRIPTION
Provides translation from/to unicode datasources via UTF8. When an
object is fetched we do a translation on the fields specified in
'utf_fields' of the object configuration, and before an object is
saved we do a translation on those same fields.
=head1 METHODS
B<from_utf>
B<to_utf>
=head1 BUGS
None known.
=head1 TO DO
Nothing known.
=head1 SEE ALSO
L<utf8>
L<perlunicode>
=head1 COPYRIGHT
Copyright (c) 2001 Chris Winters. 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...>
Andreas Nolte <and...@be...>
=cut
|
|
From: Chris W. <la...@us...> - 2001-11-25 00:54:40
|
Update of /cvsroot/openinteract/Bundle/SPOPS In directory usw-pr-cvs1:/tmp/cvs-serv31998 Modified Files: Changes SPOPS.pm Log Message: add Class::Date and remove Date::Calc and Date::Format Index: Changes =================================================================== RCS file: /cvsroot/openinteract/Bundle/SPOPS/Changes,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Changes 2001/08/28 20:41:25 1.4 --- Changes 2001/11/25 00:54:37 1.5 *************** *** 1,4 **** --- 1,8 ---- Revision history for Perl extension Bundle::SPOPS. + 1.07 Sat Nov 24 20:13:08 EST 2001 + + * Added 'Class::Date' and removed 'Date::Calc' and 'Date::Format' + 1.06 Tue Aug 28 16:50:41 EDT 2001 Index: SPOPS.pm =================================================================== RCS file: /cvsroot/openinteract/Bundle/SPOPS/SPOPS.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** SPOPS.pm 2001/08/28 20:41:25 1.6 --- SPOPS.pm 2001/11/25 00:54:37 1.7 *************** *** 5,9 **** use strict; ! $Bundle::SPOPS::VERSION = '1.06'; 1; --- 5,9 ---- use strict; ! $Bundle::SPOPS::VERSION = '1.07'; 1; *************** *** 25,35 **** Test::More - Date::Format (2.09) - Data::Dumper - Date::Calc (4.3) - Storable (1.00) SPOPS --- 25,33 ---- Test::More Data::Dumper Storable (1.00) + + Class::Date (1.00) SPOPS |
|
From: Chris W. <la...@us...> - 2001-11-20 04:12:36
|
Update of /cvsroot/openinteract/OpenInteract In directory usw-pr-cvs1:/tmp/cvs-serv27393 Modified Files: MANIFEST Log Message: update package versions Index: MANIFEST =================================================================== RCS file: /cvsroot/openinteract/OpenInteract/MANIFEST,v retrieving revision 1.73 retrieving revision 1.74 diff -C2 -d -r1.73 -r1.74 *** MANIFEST 2001/11/13 12:07:30 1.73 --- MANIFEST 2001/11/20 04:12:34 1.74 *************** *** 90,109 **** OpenInteract/Intro.pod pkg/base-1.63.tar.gz ! pkg/base_box-0.38.tar.gz pkg/base_component-1.30.tar.gz pkg/base_error-1.34.tar.gz pkg/base_group-1.27.tar.gz pkg/base_page-0.28.tar.gz ! pkg/base_security-1.51.tar.gz pkg/base_template-1.27.tar.gz pkg/base_theme-1.29.tar.gz ! pkg/base_user-1.42.tar.gz pkg/lookup-0.18.tar.gz pkg/object_activity-0.10.tar.gz pkg/results_manage-0.06.tar.gz pkg/system_doc-1.27.tar.gz - pkg/classified-1.32.tar.gz - pkg/full_text-1.30.tar.gz - pkg/news-1.33.tar.gz script/oi_manage script/template_translate.pl --- 90,110 ---- OpenInteract/Intro.pod pkg/base-1.63.tar.gz ! pkg/base_box-0.41.tar.gz pkg/base_component-1.30.tar.gz pkg/base_error-1.34.tar.gz pkg/base_group-1.27.tar.gz pkg/base_page-0.28.tar.gz ! pkg/base_security-1.53.tar.gz pkg/base_template-1.27.tar.gz pkg/base_theme-1.29.tar.gz ! pkg/base_user-1.43.tar.gz ! pkg/classified-1.32.tar.gz ! pkg/full_text-1.30.tar.gz pkg/lookup-0.18.tar.gz + pkg/news-1.33.tar.gz pkg/object_activity-0.10.tar.gz pkg/results_manage-0.06.tar.gz + pkg/static_page-1.52.tar.gz pkg/system_doc-1.27.tar.gz script/oi_manage script/template_translate.pl |
|
From: Chris W. <la...@us...> - 2001-11-20 04:11:26
|
Update of /cvsroot/openinteract/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv27042
Modified Files:
Changes
Log Message:
latest changes
Index: Changes
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/Changes,v
retrieving revision 1.81
retrieving revision 1.82
diff -C2 -d -r1.81 -r1.82
*** Changes 2001/11/15 05:19:31 1.81
--- Changes 2001/11/20 04:11:21 1.82
***************
*** 86,89 ****
--- 86,92 ----
'server_info'->'website_name'
+ - Added 'login'->'always_remember' to give sites the option of
+ always remembering logins
+
* doc/admin.html:
***************
*** 127,130 ****
--- 130,136 ----
di Sandro <st...@an...> for suggesting it.
+ - Honor the new 'login'->'always_remember' setting in the server
+ config.
+
* OpenInteract/CommonHandler.pm:
***************
*** 167,170 ****
--- 173,179 ----
whether the current user is an administrator. (See
OpenInteract/Auth.pm for what this means.)
+
+ - Add 'server_config' property which returns the results of
+ $R->CONFIG to a template.
* OpenInteract/Template/Process.pm:
|
|
From: Chris W. <la...@us...> - 2001-11-20 04:10:13
|
Update of /cvsroot/openinteract/OpenInteract
In directory usw-pr-cvs1:/tmp/cvs-serv26751
Modified Files:
UPGRADE
Log Message:
upgrade notes
Index: UPGRADE
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract/UPGRADE,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** UPGRADE 2001/11/06 14:59:40 1.6
--- UPGRADE 2001/11/20 04:10:10 1.7
***************
*** 63,66 ****
--- 63,69 ----
==============================
+ THIS IS A SUBSTANTIAL UPGRADE. PLEASE READ THIS AND MAKE APPROPROATE
+ CHANGES TO YOUR CONFIGURATION FILE.
+
OpenInteract configuration changes
--------------------
***************
*** 123,126 ****
--- 126,131 ----
to: 'server_info'->'website_name'
+ - Added 'login'->'always_remember' (true false; default false)
+
Apache configuration changes
***************
*** 140,144 ****
PerlSetVar OIStashClass MySite::Stash
- PerlSetVar OIRootDir /path/to/my/website
<Location />
--- 145,148 ----
***************
*** 147,153 ****
</Location>
! So we added 'PerlSetVar', modified the variable name to be more
! namespace-friendly and moved the declarations to the server rather
! than the Location.
--- 151,156 ----
</Location>
! So we modified the variable name to be more namespace-friendly and
! moved the declaration to the server rather than the Location.
|
4 messages has been excluded from this view by a project administrator.
