site/cgi-bin/modules/BSE/DB.pm
site/cgi-bin/modules/BSE/DB/MSSQL.pm
site/cgi-bin/modules/BSE/DB/Mysql.pm
+site/cgi-bin/modules/BSE/Dynamic/Article.pm
+site/cgi-bin/modules/BSE/Dynamic/Catalog.pm
+site/cgi-bin/modules/BSE/Dynamic/Product.pm
+site/cgi-bin/modules/BSE/Dynamic/Seminar.pm
site/cgi-bin/modules/BSE/Edit/Article.pm
site/cgi-bin/modules/BSE/Edit/Base.pm
site/cgi-bin/modules/BSE/Edit/Catalog.pm
site/cgi-bin/modules/BSE/TB/SeminarSession.pm
site/cgi-bin/modules/BSE/TB/SeminarSessions.pm
site/cgi-bin/modules/BSE/TB/Seminars.pm
+site/cgi-bin/modules/BSE/TB/SiteUserGroup.pm
+site/cgi-bin/modules/BSE/TB/SiteUserGroups.pm
site/cgi-bin/modules/BSE/TB/Subscription.pm
site/cgi-bin/modules/BSE/TB/Subscription/Calc.pm
site/cgi-bin/modules/BSE/TB/Subscriptions.pm
site/cgi-bin/modules/BSE/UI/Affiliate.pm
site/cgi-bin/modules/BSE/UI/Dispatch.pm
site/cgi-bin/modules/BSE/UI/Formmail.pm
+site/cgi-bin/modules/BSE/UI/Page.pm
site/cgi-bin/modules/BSE/UI/Shop.pm
site/cgi-bin/modules/BSE/UI/SiteuserCommon.pm
site/cgi-bin/modules/BSE/UI/SubAdmin.pm
site/cgi-bin/modules/Squirrel/Table.pm
site/cgi-bin/modules/Squirrel/Template.pm
site/cgi-bin/modules/Util.pm
+site/cgi-bin/page.pl
site/cgi-bin/printable.pl
site/cgi-bin/search.pl
site/cgi-bin/shop.pl
site/templates/admin/userlist.tmpl
site/templates/admin/users/add.tmpl
site/templates/admin/users/edit.tmpl
+site/templates/admin/users/edit_groups.tmpl
site/templates/admin/users/edit_orders.tmpl
+site/templates/admin/users/groupadd.tmpl
+site/templates/admin/users/groupdelete.tmpl
+site/templates/admin/users/groupedit.tmpl
+site/templates/admin/users/grouplist.tmpl
+site/templates/admin/users/groupmembers.tmpl
site/templates/admin/users/list.tmpl
site/templates/admin/xbase.tmpl
site/templates/affiliate.tmpl
-VERSION=0.15_18
+VERSION=0.15_19
DISTNAME=bse-$(VERSION)
DISTBUILD=$(DISTNAME)
DISTTAR=../$(DISTNAME).tar
author varchar(255) default '' not null,
pageTitle varchar(255) default '' not null,
+ force_dynamic integer not null default 0,
+ cached_dynamic integer not null default 0,
+ inherit_siteuser_rights integer not null default 1,
+
PRIMARY KEY (id),
-- if we keep id in the indexes MySQL will sometimes be able to
primary key(session_id, siteuser_id),
index (siteuser_id)
);
+
+drop table if exists bse_siteuser_groups;
+create table bse_siteuser_groups (
+ id integer not null auto_increment primary key,
+ name varchar(80) not null
+);
+
+drop table if exists bse_siteuser_membership;
+create table bse_siteuser_membership (
+ group_id integer not null,
+ siteuser_id integer not null,
+ primary key(group_id, siteuser_id),
+ index(siteuser_id)
+);
use BSE::DB;
use BSE::Request;
use BSE::Template;
+use BSE::Edit::Base;
use Carp qw'verbose';
use Carp 'confess';
or die "Cannot get sections class";
$result = $obj->edit_sections($req, $articles);
}
-elsif (my ($obj, $article) = article_class($id, $articles, $cfg)) {
+elsif (my ($obj, $article) = BSE::Edit::Base->article_class_id($id, $articles, $cfg)) {
$result = $obj->article_dispatch($req, $article, $articles);
}
else {
unless ($obj) {
my $parentid = $cgi->param('parentid');
my $parent;
- if (($obj, $parent) = article_class($parentid, $articles, $cfg)) {
+ if (($obj, $parent) = BSE::Edit::Base->article_class_id($parentid, $articles, $cfg)) {
if (my ($class) = $obj->child_types($parent)) {
$obj = get_class($class, $cfg);
}
return $class->new(cfg=>$cfg, db=>BSE::DB->single);
}
-sub article_class {
- my ($id, $articles, $cfg) = @_;
-
- return unless defined $id and $id =~ /^\d+$/;
- my $class = "BSE::Edit::Article";
- my $article = $articles->getByPkey($id)
- or return;
- $class = $article->{generator};
- $class =~ s/^(?:BSE::)?Generate::/BSE::Edit::/;
- my $obj = get_class($class, $cfg);
- if ($obj) {
- $article = $obj->get_article($articles, $article);
- }
- return ($obj, $article);
-}
; the following needs to be set to a path writable by the BSE processes
downloads = /somewhere
siteuser_images = $(paths/downloads)
+dynamic_cache=$(paths/downloads)/../cache
[pregenerate]
I=Index even if hidden
N=Don't index even if listed
C=Don't index this article or it's descendants
+R=Regenerate even if we're using JIT regen (dynamic pages only)
[article 1]
extra_templates=index.tmpl
use Squirrel::Row;
use vars qw/@ISA/;
@ISA = qw/Squirrel::Row/;
+use Carp 'confess';
sub columns {
return qw/id parentid displayOrder title titleImage body
summaryLength generator level listed lastModified flags
customDate1 customDate2 customStr1 customStr2
customInt1 customInt2 customInt3 customInt4
- lastModifiedBy created createdBy author pageTitle/;
+ lastModifiedBy created createdBy author pageTitle
+ force_dynamic cached_dynamic inherit_siteuser_rights/;
}
sub numeric {
return Articles->getByPkey($self->{parentid});
}
+sub update_dynamic {
+ my ($self, $cfg) = @_;
+
+ $cfg && $cfg->can('entry')
+ or confess 'update_dynamic called without $cfg';
+
+ # conditional in case something strange is in the config file
+ my $dynamic = $cfg->entry('basic', 'all_dynamic', 0) ? 1 : 0;
+
+ $dynamic or $dynamic = $self->{force_dynamic};
+
+ unless ($dynamic) {
+ # check for groups, etc
+ }
+
+ $self->{cached_dynamic} = $dynamic;
+}
+
+sub is_dynamic {
+ $_[0]{cached_dynamic};
+}
+
1;
use BSE::Util::SQL qw/now_datetime/;
use BSE::SubscriptionTypes;
use BSE::CfgInfo qw(custom_class);
+use constant SITEUSER_GROUP_SECT => 'BSE Siteuser groups validation';
my %actions =
(
save=>1,
addform=>1,
add=>1,
+ grouplist=>1,
+ addgroupform=>1,
+ addgroup => 1,
+ editgroup=>1,
+ savegroup => 1,
+ deletegroupform =>1,
+ deletegroup=>1,
+ groupmemberform => 1,
+ savegroupmembers => 1,
);
my @donttouch = qw(id userId password email confirmed confirmSecret waitingForConfirmation flags affiliate_name previousLogon); # flags is saved separately
return $siteuser->orders;
}
+sub iter_groups {
+ require BSE::TB::SiteUserGroups;
+
+ BSE::TB::SiteUserGroups->all;
+}
+
+sub tag_ifUserMember {
+ my ($user, $rgroup) = @_;
+
+ $$rgroup or return 0;
+
+ $user->is_member_of($$rgroup);
+}
+
sub req_edit {
my ($class, $req, $msg, $errors) = @_;
require BSE::SubscribedUsers;
my @usersubs = BSE::SubscribedUsers->getBy(userId=>$siteuser->{id});
my %usersubs = map { $_->{subId}, $_ } @usersubs;
+ my $current_group;
my %acts;
%acts =
(
$it->make_iterator([ \&iter_orders, $siteuser ],
'userorder', 'userorders' ),
$class->_edit_tags($siteuser, $req->cfg),
+ $it->make_iterator(\&iter_groups, 'group', 'groups',
+ undef, undef, undef, \$current_group),
+ ifMember => [ \&tag_ifUserMember, $siteuser, \$current_group ],
);
my $template = 'admin/users/edit';
if $cgi->param('saveDisabled') && !defined $cgi->param('disabled');
$user->save;
+ # save group membership
+ my @save_ids = $cgi->param('set_group_id');
+ if (@save_ids) {
+ my %member_of = map { $_ => 1 } $user->group_ids;
+ my %new_ids = map { $_ => 1 } $cgi->param('group_id');
+ require BSE::TB::SiteUserGroups;
+ my %all_groups = map { $_->{id} => $_ } BSE::TB::SiteUserGroups->all;
+
+ for my $id (@save_ids) {
+ my $group = $all_groups{$id}
+ or next;
+ if ($member_of{$id} and !$new_ids{$id}) {
+ $group->remove_member($user->{id});
+ }
+ elsif (!$member_of{$id} and $new_ids{$id}) {
+ $group->add_member($user->{id});
+ }
+ }
+ }
+
if ($cgi->param('checkedsubs')) {
$class->save_subs($req, $user);
}
return;
}
+sub _get_group {
+ my ($req, $msg) = @_;
+
+ my $id = $req->cgi->param('id');
+ defined $id && $id =~ /^\d+$/
+ or do { $$msg = "Missing or invalid group id"; return };
+ require BSE::TB::SiteUserGroups;
+ my $group = BSE::TB::SiteUserGroups->getByPkey($id);
+ $group
+ or do { $$msg = "Unknown group id"; return };
+
+ $group;
+}
+
+sub req_grouplist {
+ my ($class, $req, $errors) = @_;
+
+ require BSE::TB::SiteUserGroups;
+ my @groups = BSE::TB::SiteUserGroups->all;
+
+ my $msg = $req->message($errors);
+
+ my $it = BSE::Util::Iterate->new;
+ my %acts;
+ %acts =
+ (
+ BSE::Util::Tags->basic(undef, $req->cgi, $req->cfg),
+ BSE::Util::Tags->secure($req),
+ BSE::Util::Tags->admin(undef, $req->cfg),
+ msg=>$msg,
+ message=>$msg,
+ $it->make_iterator(undef, 'group', 'groups', \@groups),
+ );
+
+ return $req->response('admin/users/grouplist', \%acts);
+}
+
+sub req_addgroupform {
+ my ($class, $req, $errors) = @_;
+
+ my $msg = $req->message($errors);
+
+ my %acts;
+ %acts =
+ (
+ BSE::Util::Tags->basic(undef, $req->cgi, $req->cfg),
+ BSE::Util::Tags->secure($req),
+ BSE::Util::Tags->admin(undef, $req->cfg),
+ msg=>$msg,
+ message=>$msg,
+ error_img => [ \&tag_error_img, $req->cfg, $errors ],
+ );
+
+ return $req->response('admin/users/groupadd', \%acts);
+}
+
+sub req_addgroup {
+ my ($class, $req) = @_;
+
+ require BSE::TB::SiteUserGroups;
+ my %fields = BSE::TB::SiteUserGroup->valid_fields;
+ my %rules = BSE::TB::SiteUserGroup->valid_rules;
+
+ my %errors;
+ $req->validate(errors=>\%errors,
+ fields=>\%fields,
+ rules=>\%rules,
+ section=>SITEUSER_GROUP_SECT)
+ or return $class->req_addgroupform($req, \%errors);
+
+ my $name = $req->cgi->param('name');
+ my $group = BSE::TB::SiteUserGroups->add($name);
+
+ return BSE::Template->get_refresh("$ENV{SCRIPT_NAME}?a_grouplist=1&m=Group+added",
+ $req->cfg);
+}
+
+sub req_editgroup {
+ my ($class, $req, $errors) = @_;
+
+ return $class->_common_group($req, $errors, 'admin/users/groupedit');
+}
+
+sub req_savegroup {
+ my ($class, $req) = @_;
+
+ my $msg;
+ my $group = _get_group($req, \$msg)
+ or return $class->req_grouplist($req, { id => $msg });
+
+ my %fields = BSE::TB::SiteUserGroup->valid_fields;
+ my %rules = BSE::TB::SiteUserGroup->valid_rules;
+
+ my %errors;
+ $req->validate(errors=>\%errors,
+ fields=>\%fields,
+ rules=>\%rules,
+ section=>SITEUSER_GROUP_SECT)
+ or return $class->req_editgroup($req, \%errors);
+
+ $group->{name} = $req->cgi->param('name');
+ $group->save;
+
+ return BSE::Template->get_refresh("$ENV{SCRIPT_NAME}?a_grouplist=1&m=Group+saved", $req->cfg);
+}
+
+sub _common_group {
+ my ($class, $req, $errors, $template) = @_;
+
+ my $msg;
+ my $group = _get_group($req, \$msg)
+ or return $class->req_grouplist($req, { id=> $msg });
+
+ $msg = $req->message($errors);
+
+ my %acts;
+ %acts =
+ (
+ BSE::Util::Tags->basic(undef, $req->cgi, $req->cfg),
+ BSE::Util::Tags->secure($req),
+ BSE::Util::Tags->admin(undef, $req->cfg),
+ msg=>$msg,
+ message=>$msg,
+ error_img => [ \&tag_error_img, $req->cfg, $errors ],
+ group => [ \&tag_hash, $group ],
+ );
+
+ return $req->response($template, \%acts);
+}
+
+sub req_deletegroupform {
+ my ($class, $req, $errors) = @_;
+
+ return $class->_common_group($req, $errors, 'admin/users/groupdelete');
+}
+
+sub req_deletegroup {
+ my ($class, $req) = @_;
+
+ my $msg;
+ my $group = _get_group($req, \$msg)
+ or return $class->req_grouplist($req, { id=>$msg });
+
+ $group->remove;
+
+ return BSE::Template->get_refresh("$ENV{SCRIPT_NAME}?a_grouplist=1&m=Group+deleted", $req->cfg);
+}
+
+sub tag_ifMember {
+ my ($ruser, $members) = @_;
+
+ $$ruser or return 0;
+ exists $members->{$$ruser->{id}};
+}
+
+sub req_groupmemberform {
+ my ($class, $req, $errors) = @_;
+
+ my $msg;
+ my $group = _get_group($req, \$msg)
+ or return $class->req_grouplist($req, { id=>$msg });
+
+ $msg = $req->message($errors);
+
+ my %members = map { $_=> 1 } $group->member_ids;
+ my @siteusers = SiteUsers->all;
+
+ my $user;
+
+ my $it = BSE::Util::Iterate->new;
+ my %acts;
+ %acts =
+ (
+ BSE::Util::Tags->basic(undef, $req->cgi, $req->cfg),
+ BSE::Util::Tags->secure($req),
+ BSE::Util::Tags->admin(undef, $req->cfg),
+ msg=>$msg,
+ message=>$msg,
+ error_img => [ \&tag_error_img, $req->cfg, $errors ],
+ group => [ \&tag_hash, $group ],
+ $it->make_iterator(undef, 'siteuser', 'siteusers', \@siteusers,
+ undef, undef, \$user),
+ ifMember => [ \&tag_ifMember, \$user, \%members ],
+ );
+
+ return $req->response('admin/users/groupmembers', \%acts);
+}
+
+sub req_savegroupmembers {
+ my ($class, $req) = @_;
+
+ my $msg;
+ my $group = _get_group($req, \$msg)
+ or return $class->req_grouplist($req, { id=>$msg });
+
+ my $cgi = $req->cgi;
+ my %current_ids = map { $_ => 1 } $group->member_ids;
+ my @to_be_set = $cgi->param('set_is_member');
+ my %set_ids = map { $_ => 1 } $cgi->param('is_member');
+ my %all_ids = map { $_ => 1 } SiteUsers->all_ids;
+
+ for my $id (@to_be_set) {
+ next unless $all_ids{$id};
+
+ if ($set_ids{$id} && !$current_ids{$id}) {
+ $group->add_member($id);
+ }
+ elsif (!$set_ids{$id} && $current_ids{$id}) {
+ $group->remove_member($id);
+ }
+ }
+
+ return BSE::Template->get_refresh("$ENV{SCRIPT_NAME}?a_grouplist=1&m=Membership+saved", $req->cfg);
+}
+
1;
(
Articles => 'select * from article',
replaceArticle =>
- 'replace article values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
+ 'replace article values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
addArticle =>
- 'insert article values (null, ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
+ 'insert article values (null, ?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)',
deleteArticle => 'delete from article where id = ?',
getArticleByPkey => 'select * from article where id = ?',
where su.id = od.siteuser_id and od.id = oi.orderId
and oi.subscription_id <> -1
SQL
+ siteuserAllIds => 'select id from site_users',
getBSESiteuserImage => <<SQL,
select * from bse_siteuser_images
where siteuser_id = ? and image_id = ?
set roll_present = ?
where session_id = ? and siteuser_id = ?
SQL
- userSeminarSessionBookings => <<SQL,
+ userSeminarSessionBookings => <<SQL,
select session_id
from bse_seminar_bookings sb, bse_seminar_sessions ss
where ss.seminar_id = ? and ss.id = sb.session_id and siteuser_id = ?
+SQL
+ SiteUserGroups => 'select * from bse_siteuser_groups',
+ addSiteUserGroup => 'insert bse_siteuser_groups values(null,?)',
+ replaceSiteUserGroup => 'replace bse_siteuser_groups values(?,?)',
+ deleteSiteUserGroup => 'delete from bse_siteuser_groups where id = ?',
+ getSiteUserGroupByPkey => 'select * from bse_siteuser_groups where id = ?',
+ siteuserGroupMemberIds => <<SQL,
+select siteuser_id as "id"
+from bse_siteuser_membership
+where group_id = ?
+SQL
+ siteuserGroupAddMember => <<SQL,
+insert bse_siteuser_membership values(?,?)
+SQL
+ siteuserGroupDeleteMember => <<SQL,
+delete from bse_siteuser_membership where group_id = ? and siteuser_id = ?
+SQL
+ siteuserGroupDeleteAllMembers => <<SQL,
+delete from bse_siteuser_membership where group_id = ?
+SQL
+ siteuserMemberOfGroup => <<SQL,
+select * from bse_siteuser_membership
+where siteuser_id = ? and group_id = ?
+SQL
+ siteuserGroupsForUser => <<SQL,
+select group_id as "id" from bse_siteuser_membership where siteuser_id = ?
SQL
);
--- /dev/null
+package BSE::Dynamic::Article;
+use strict;
+use BSE::Util::Tags qw(tag_hash);
+use BSE::Template;
+
+sub new {
+ my ($class, $req) = @_;
+
+ return bless { req=> $req }, $class;
+}
+
+sub generate {
+ my ($self, $article, $template) = @_;
+
+ my %acts = $self->tags($article);
+
+ my $result =
+ {
+ content => BSE::Template->replace($template, $self->{req}->cfg, \%acts),
+ type => BSE::Template->get_type($self->{req}->cfg, $article->{template}),
+ };
+
+ my @headers = "Content-Length: ".length $result->{content};
+ $result->{headers} = \@headers;
+
+ return $result;
+}
+
+sub tags {
+ my ($self, $article) = @_;
+
+ return
+ (
+ dynarticle => [ \&tag_hash, $article ],
+ BSE::Util::Tags->basic({}, $self->{req}->cgi, $self->{req}->cfg),
+ );
+}
+
+sub get_real_article {
+ my ($self, $article) = @_;
+
+ return $article;
+}
+
+1;
--- /dev/null
+package BSE::Dynamic::Catalog;
+use strict;
+use base 'BSE::Dynamic::Article';
+
+# no specific behavious yet
+
+1;
--- /dev/null
+package BSE::Dynamic::Product;
+use strict;
+use base 'BSE::Dynamic::Article';
+use Products;
+
+sub get_real_article {
+ my ($self, $article) = @_;
+
+ Products->getByPkey($article->{id});
+}
+
+1;
--- /dev/null
+package BSE::Dynamic::Seminar;
+use strict;
+use base 'BSE::Dynamic::Product;
+use BSE::TB::Seminars;
+
+sub get_real_article {
+ my ($self, $article) = @_;
+
+ BSE::TB::Seminars->getByPkey($article->{id});
+}
+
+1;
sub make_link {
my ($self, $article) = @_;
+ if ($article->is_dynamic) {
+ return "/cgi-bin/page.pl?id=$article->{id}&title=".escape_uri($article->{title});
+ }
+
my $article_uri = $self->link_path($article);
my $link = "$article_uri/$article->{id}.html";
my $link_titles = $self->{cfg}->entryBool('basic', 'link_titles', 0);
$data{createdBy} = $user ? $user->{logon} : '';
$data{lastModifiedBy} = $user ? $user->{logon} : '';
$data{created} = now_sqldatetime();
+ $data{force_dynamic} = 0;
+ $data{cached_dynamic} = 0;
+ $data{inherit_siteuser_rights} = 1;
$self->fill_new_data($req, \%data, $articles);
for my $col (qw(titleImage imagePos template keyword)) {
$req->user_can(edit_save => $article)
or return $self->edit_form($req, $article, $articles,
"You don't have access to save this article");
-
+
+ my $old_dynamic = $article->is_dynamic;
my $cgi = $req->cgi;
my %data;
for my $name ($article->columns) {
if defined $cgi->param('expire') &&
$req->user_can('edit_field_edit_expire', $article);
$article->{lastModified} = now_sqldatetime();
+ if ($cgi->param('save_force_dynamic')) {
+ $article->{force_dynamic} = $cgi->param('force_dynamic') ? 1 : 0;
+ }
+
+ # this need to go last
+ $article->update_dynamic($self->{cfg});
if ($article->{link} &&
!$self->{cfg}->entry('protect link', $article->{id})) {
my $article_uri = $self->make_link($article);
$article->save();
+ # if we changed dynamic status, we need to update it for the kids too
+ my @extra_regen;
+ if ($article->is_dynamic != $old_dynamic) {
+ @extra_regen = $self->update_child_dynamic($article, $articles, $req);
+ }
+
use Util 'generate_article';
- generate_article($articles, $article) if $Constants::AUTO_GENERATE;
+ if ($Constants::AUTO_GENERATE) {
+ generate_article($articles, $article);
+ for my $regen_id (@extra_regen) {
+ my $regen = $articles->getByPkey($regen_id);
+ Util::generate_low($articles, $article, $self->{cfg});
+ }
+ }
return $self->refresh($article, $cgi, undef, 'Article saved');
}
+sub update_child_dynamic {
+ my ($self, $article, $articles, $req) = @_;
+
+ my $cfg = $req->cfg;
+ my @stack = $article->children;
+ my @regen;
+ while (@stack) {
+ my $workart = pop @stack;
+ my $old_dynamic = $workart->is_dynamic; # before update
+ $workart->update_dynamic($cfg);
+ if ($old_dynamic != $workart->is_dynamic) {
+ # update the link
+ if ($article->{link} && !$cfg->entry('protect link', $workart->{id})) {
+ my $editor;
+ ($editor, $workart) = $self->article_class($workart, $articles, $cfg);
+
+ my $uri = $editor->make_link($workart);
+ $workart->setLink($uri);
+ }
+
+ # save dynamic cache change and link if that changed
+ $workart->save;
+ }
+ push @stack, $workart->children;
+ push @regen, $workart->{id};
+ }
+
+ @regen;
+}
+
sub sql_date {
my $str = shift;
my ($year, $month, $day);
return bless \%parms, $class;
}
+sub article_class_id {
+ my ($class, $id, $articles, $cfg) = @_;
+
+ return unless defined $id and $id =~ /^\d+$/;
+
+ my $article = $articles->getByPkey($id)
+ or return;
+
+ return $class->article_class($article, $articles, $cfg);
+}
+
+sub article_class {
+ my ($class, $article, $articles, $cfg) = @_;
+
+ my $editclass = "BSE::Edit::Article";
+ $editclass = $article->{generator};
+ $editclass =~ s/^(?:BSE::)?Generate::/BSE::Edit::/;
+ my $obj = _get_class($editclass, $cfg);
+ if ($obj) {
+ $article = $obj->get_article($articles, $article);
+ }
+ return ($obj, $article);
+}
+
+sub _get_class {
+ my ($class, $cfg) = @_;
+
+ (my $file = $class . ".pm") =~ s!::!/!g;
+ eval {
+ require $file;
+ };
+ if ($@) {
+ print STDERR "Loading $class: $@\n";
+ return;
+ }
+ return $class->new(cfg=>$cfg, db=>BSE::DB->single);
+}
+
1;
sub make_link {
my ($self, $article) = @_;
- my $shop_uri = $self->link_path($article);
my $urlbase = $self->{cfg}->entryVar('site', 'secureurl');
+
+ if ($article->is_dynamic) {
+ return "$urlbase/cgi-bin/page.pl?id=$article->{id}&title=".escape_uri($article->{title});
+ }
+
+ my $shop_uri = $self->link_path($article);
return $urlbase.$shop_uri."/shop$article->{id}.html";
}
sub make_link {
my ($self, $article) = @_;
- my $shop_uri = $self->link_path($article);
my $urlbase = $self->{cfg}->entryVar('site', 'secureurl');
+
+ if ($article->is_dynamic) {
+ return "$urlbase/cgi-bin/page.pl?id=$article->{id}&title=".escape_uri($article->{title});
+ }
+
+ my $shop_uri = $self->link_path($article);
return $urlbase.$shop_uri."/shop$article->{id}.html";
}
--- /dev/null
+package BSE::TB::SiteUserGroup;
+use strict;
+use base 'Squirrel::Row';
+
+sub columns {
+ qw(id name);
+}
+
+sub primary { 'id' }
+
+sub valid_fields {
+ my ($class) = @_;
+
+ return
+ (
+ name =>
+ {
+ description=>'Group Name',
+ rules=>'required;no_star_at_front',
+ },
+ );
+}
+
+sub valid_rules {
+ my ($class) = @_;
+
+ return
+ (
+ no_star_at_front =>
+ {
+ nomatch => qr/^\*/,
+ error=>'Group names may not start with *',
+ },
+ );
+}
+
+sub remove {
+ my ($self) = @_;
+
+ # remove any permissions and members for this group
+ print STDERR "** FIXME ", __FILE__, " ", __LINE__, "\n";
+
+ # remove any members
+ BSE::DB->single->run(siteuserGroupDeleteAllMembers => $self->{id});
+
+ $self->SUPER::remove();
+}
+
+sub member_ids {
+ my ($self) = @_;
+
+ map $_->{id}, BSE::DB->single->query(siteuserGroupMemberIds => $self->{id});
+}
+
+sub add_member {
+ my ($self, $id) = @_;
+
+ eval {
+ BSE::DB->single->run(siteuserGroupAddMember => $self->{id}, $id);
+ };
+}
+
+sub remove_member {
+ my ($self, $id) = @_;
+
+ BSE::DB->single->run(siteuserGroupDeleteMember => $self->{id}, $id);
+}
+
+1;
--- /dev/null
+package BSE::TB::SiteUserGroups;
+use strict;
+use base 'Squirrel::Table';
+use BSE::TB::SiteUserGroup;
+
+sub rowClass { 'BSE::TB::SiteUserGroup' }
+
+1;
--- /dev/null
+package BSE::UI::Page;
+use strict;
+use Articles;
+
+# we don't do anything fancy on dispatch yet, so don't use the
+# dispatch classes
+sub dispatch {
+ my ($class, $req) = @_;
+
+ my $cgi = $req->cgi;
+ my $id = $cgi->param('id');
+ $id && $id =~ /^\d+$/
+ or return $class->error($req, "required id parameter not present or invalid");
+ my $article = Articles->getByPkey($id)
+ or return $class->error($req, "unknown article id $id");
+
+ # get the dynamic generate for this article type
+ my $gen_class = $article->{generator};
+ $gen_class =~ s/.*\W//;
+ $gen_class = "BSE::Dynamic::".$gen_class;
+ (my $gen_file = $gen_class . ".pm") =~ s!::!/!g;
+ eval {
+ require $gen_file;
+ };
+ $@ and return $class->error($req, $@);
+ my $gen = $gen_class->new($req);
+ $article = $gen->get_real_article($article)
+ or return $class->error($req, "Cannot get full article for $id");
+
+ $article->is_dynamic
+ or print STDERR "** page.pl called for non-dynamic article $id\n";
+
+ my $cfg = $req->cfg;
+ my $dynamic_path = $cfg->entryVar('paths', 'dynamic_cache');
+ my $debug_jit = $cfg->entry('debug', 'jit_dynamic_regen');
+ my $srcname = $dynamic_path . "/" . $article->{id} . ".html";
+ my $dynamic_pregen = $cfg->entry('basic', 'jit_dynamic_pregen');
+ my $template;
+ if (-e $srcname) {
+ if (open SRC, "< $srcname") {
+ local $/;
+ $template = <SRC>;
+ close SRC;
+ }
+ else {
+ print STDERR "** PAGE: $id - page file exists but isn't readable\n";
+ }
+ }
+ unless (defined $template) {
+ $debug_jit && !$dynamic_pregen
+ and print STDERR "** JIT: $id - pregen page not found but JIT off\n";
+
+ $template = $class->_generate_pregen($req, $article, $srcname);
+ }
+
+ return $gen->generate($article, $template);
+}
+
+# returns an error page
+sub error {
+ my ($class, $req, $msg) = @_;
+
+ require BSE::UI::Dispatch;
+ return BSE::UI::Dispatch->error($req, { error => $msg });
+}
+
+sub _generate_pregen {
+ my ($class, $req, $article, $srcname) = @_;
+
+ my $articles = 'Articles';
+ my $genname = $article->{generator};
+ eval "use $genname";
+ $@ && die $@;
+ my $gen = $genname->new(articles=>$articles, cfg=>$req->cfg, top=>$article);
+
+ my $content = $gen->generate($article, $articles);
+
+ if (open CONTENT, "> $srcname") {
+ binmode CONTENT;
+ print CONTENT $content;
+ close CONTENT;
+ }
+ else {
+ print STDERR "** PAGE: $article->{id} - cannot create $srcname: $!\n";
+ }
+
+ $content;
+}
+
+1;
use vars qw(@EXPORT_OK %EXPORT_TAGS @ISA);
@ISA = qw(Exporter);
@EXPORT_OK =
- qw(dh_parse_date dh_parse_date_sql dh_parse_time dh_parse_time_sql);
+ qw(dh_parse_date dh_parse_date_sql dh_parse_time dh_parse_time_sql
+ dh_parse_sql_date dh_parse_sql_datetime dh_strftime_sql_datetime);
%EXPORT_TAGS =
(
all => \@EXPORT_OK,
sprintf("%02d:%02d:%02d", $hour, $min, $sec);
}
+sub dh_parse_sql_date {
+ my ($date) = @_;
+
+ $date =~ /^(\d+)\D+(\d+)\D+(\d+)/
+ or return;
+
+ return (0+$1, 0+$2, 0+$3);
+}
+
+sub dh_parse_sql_datetime {
+ my ($datetime) = @_;
+
+ my ($year, $month, $day, $hour, $min, $sec) =
+ ($datetime =~ /^(\d+)\D+(\d+)\D+(\d+)\D+(\d+)\D+(\d+)\D+(\d+)/)
+ or return;
+
+ return ($year, 0+$month, 0+$day, 0+$hour, 0+$min, 0+$sec);
+}
+
+sub dh_strftime_sql_datetime {
+ my ($format, $datetime) = @_;
+
+ my ($year, $month, $day, $hour, $min, $sec) =
+ dh_parse_sql_datetime($datetime)
+ or return;
+
+ $year -= 1900;
+ --$month;
+
+ require POSIX;
+ return POSIX::strftime($format, $sec, $min, $hour, $day, $month, $year,
+ 0, 0);
+}
+
1;
([ \&iter_levelN_links, 0, $report->{sql}[0]{links}, $work[0],
\$index[0] ],
'level1_link', 'level1_links', undef, undef, 'NoCache'),
- level1_col => [ \&tag_levelN_col, \$level1_row ],
+ level1_byname => [ \&tag_levelN_col, \$level1_row ],
level1_sum =>
[ \&tag_levelN_sum, $results[0]{rows}, $results[0]{names_hash} ],
report => [ \&tag_hash, $report ],
BSE::Util::Tags->make_iterator(\@allkids, 'allkid', 'allkids', \$allkids_index),
BSE::Util::Tags->make_iterator(\@stepparents, 'stepparent', 'stepparents'),
top => [ \&tag_top, $self, $article ],
+ ifDynamic =>
+ scalar(UNIVERSAL::isa($top, 'Article') ? $top->is_dynamic : 0),
);
if ($abs_urls) {
BSE::DB->query(userSeminarSessionBookings => $seminar_id, $self->{id});
}
+sub is_member_of {
+ my ($self, $group) = @_;
+
+ my $group_id = ref $group ? $group->{id} : $group;
+
+ my @result = BSE::DB->query(siteuserMemberOfGroup => $self->{id}, $group_id);
+
+ return scalar(@result);
+}
+
+sub group_ids {
+ my ($self) = @_;
+
+ map $_->{id}, BSE::DB->query(siteuserGroupsForUser => $self->{id});
+}
+
1;
$class->getSpecial('allSubscribers');
}
+sub all_ids {
+ my ($class) = @_;
+
+ map $_->{id}, BSE::DB->query('siteuserAllIds');
+}
+
1;
my ($articles, $article, $cfg) = @_;
$cfg ||= BSE::Cfg->new;
+
+ my $outname;
+ if ($article->is_dynamic) {
+ my $debug_jit = $cfg->entry('debug', 'jit_dynamic_regen');
+ my $dynamic_path = $cfg->entryVar('paths', 'dynamic_cache');
+ $outname = $dynamic_path . "/" . $article->{id} . ".html";
+ if ($article->{flags} !~ /R/ &&
+ $cfg->entry('basic', 'jit_dynamic_pregen')) {
+ $debug_jit and print STDERR "JIT: $article->{id} - deleting $outname\n";
+ # just delete the file, page.pl will make it if needed
+ unlink $outname;
+ return;
+ }
+ }
+ else {
+ $outname = $article->{link};
+ $outname =~ s!/\w*$!!;
+ $outname =~ s{^\w+://[\w.-]+(?::\d+)?}{};
+ $outname = $CONTENTBASE . $outname;
+ $outname =~ s!//+!/!;
+ }
+
my $genname = $article->{generator};
eval "use $genname";
$@ && die $@;
my $gen = $genname->new(articles=>$articles, cfg=>$cfg, top=>$article);
- my $outname = $article->{link};
- $outname =~ s!/\w*$!!;
- $outname =~ s{^\w+://[\w.-]+(?::\d+)?}{};
- $outname = $CONTENTBASE . $outname;
- $outname =~ s!//+!/!;
my $content = $gen->generate($article, $articles);
my $tempname = $outname . ".work";
unlink $tempname;
--- /dev/null
+#!/usr/bin/perl -w
+# -d:ptkdb
+BEGIN { $ENV{DISPLAY} = '192.168.32.15:0.0' }
+use strict;
+use FindBin;
+use lib "$FindBin::Bin/modules";
+use BSE::DB;
+use BSE::Request;
+use BSE::Template;
+use Carp 'confess';
+use BSE::UI::Page;
+
+$SIG{__DIE__} = sub { confess $@ };
+
+my $req = BSE::Request->new;
+
+my $result = BSE::UI::Page->dispatch($req);
+
+BSE::Template->output_result($req, $result);
=head1 CHANGES
+=head2 0.15_19
+
+Minor release so I can patch some other things.
+
+=over
+
+=item *
+
+renamed the new level1_col tag to level1_byname to prevent a conflict
+with the older level1_col tag from the level1_cols iterator.
+
+=item *
+
+pages can now be generated dynamically, though I'm still working on
+the UI side of making them flagged dynamic. Structure exists to make
+it possible to add extra dynamic tags on per article type basis, but
+isn't used yet.
+
+=item *
+
+you can create site user groups, and put users in them, and delete
+them.
+
+=back
+
=head2 0.15_18
=over
config file. The default bse.cfg include an entry to use the current
values of [paths].downloads
+=item dynamic_cache
+
+Pregenerated dynamic article pages are stored here. This must be
+defined if you site contains any dynamicly generated pages.
+
=back
=head2 [extensions]
used for article editing customizations. This class should derive
from BSE::CustomBase. Default: BSE::Custom.
+=item jit_dynamic_regen
+
+If this is true, then pre-generation for dynamic pages will be delayed
+until the page is displayed to a user. Default: off.
+
=back
=head2 [mail]
If non-zero then subscription expiry date calculations are dumped to
STDERR.
+=item jit_dynamic_regen
+
+If non-zero then information about jit_dynamic_regen is sent to
+STDERR.
+
=back
=head2 [uri]
<a href="mailto:<:siteuser email:>">Email</a>
<:ifUserorders:>| <a href="/cgi-bin/admin/siteusers.pl?a_edit=1&id=<:siteuser id:>&_t=orders">Orders</a><:or:><:eif:> |
<a href="/cgi-bin/admin/admin_seminar.pl?a_addattendseminar=1&siteuser_id=<:siteuser id:>">Add to seminar</a> |
+<a href="<:script:>?a_edit=1&id=<:siteuser id:>&_t=groups">Groups</a> |
</p>
<:ifMessage:>
--- /dev/null
+<:wrap admin/xbase.tmpl title=>"Edit Site Member - Groups":>
+<h1>Edit Site Member - Groups</h1>
+<p>
+| <a href="/cgi-bin/admin/menu.pl">Admin menu</a> |
+<a href="/cgi-bin/admin/siteusers.pl">Site Members</a> |
+<a href="mailto:<:siteuser email:>">Email</a>
+<:ifUserorders:>| <a href="/cgi-bin/admin/siteusers.pl?a_edit=1&id=<:siteuser id:>&_t=orders">Orders</a><:or:><:eif:> |
+<a href="/cgi-bin/admin/admin_seminar.pl?a_addattendseminar=1&siteuser_id=<:siteuser id:>">Add to seminar</a> |
+</p>
+
+<:ifMessage:>
+<p><b><:message:></b></p>
+<:or:><:eif:>
+
+<form method="post" action="<:script:>">
+<input type="hidden" name="id" value="<:siteuser id:>" />
+ <table cellpadding="6" border="0" cellspacing="1">
+ <tr>
+ <th>Group Name</th>
+ <th>Member</th>
+ </tr>
+<:if Groups:>
+<:iterator begin groups:>
+ <tr>
+ <td><:group name:></td>
+ <td>
+ <input type="hidden" name="set_group_id" value="<:group id:>" />
+ <input type="checkbox" name="group_id" value="<:group id:>" <:ifMember:>checked="checked"<:or:><:eif:> />
+ </td>
+ </tr>
+<:iterator end groups:>
+<:or Groups:>
+ <tr>
+ <td colspan="2">There are no groups defined</td>
+ </tr>
+<:eif Groups:>
+ <tr>
+ <td colspan="2" align="right">
+ <input type="submit" name="a_save" value=" Save User " />
+ </td>
+ </tr>
+ </table>
+</form>
--- /dev/null
+<:wrap admin/xbase.tmpl title=>"Add Member Group":>
+<h2>Add Member Group</h2>
+<p>
+|
+<a href="/cgi-bin/admin/menu.pl">Admin menu</a>
+|
+<a href="<:script:>">Member List</a>
+|
+<a href="<:script:>?a_grouplist=1">Group List</a>
+|
+</p>
+<:ifMsg:><p><:msg:></p><:or:><:eif:>
+
+<form method="post" action="<:script:>" name="addgroup">
+<table>
+<tr>
+ <th>Group Name:</th>
+ <td><input type="text" name="name" value="<:old name:>" /></td>
+ <td><:error_img name:></td>
+</tr>
+<tr>
+ <td colspan="2"><input type="submit" name="a_addgroup" value="Add Group" /></td>
+ <td> </td>
+</tr>
+</table>
+</form>
\ No newline at end of file
--- /dev/null
+<:wrap admin/xbase.tmpl title=>"Delete Member Group":>
+<h2>Add Member Group</h2>
+<p>
+|
+<a href="/cgi-bin/admin/menu.pl">Admin menu</a>
+|
+<a href="<:script:>">Member List</a>
+|
+<a href="<:script:>?a_grouplist=1">Group List</a>
+|
+</p>
+<:ifMsg:><p><:msg:></p><:or:><:eif:>
+
+<form method="post" action="<:script:>" name="deletegroup">
+<input type="hidden" name="id" value="<:group id:>" />
+<table>
+<tr>
+ <th>Group Name:</th>
+ <td><:group name:></td>
+</tr>
+<tr>
+ <td colspan="2"><input type="submit" name="a_deletegroup" value="Delete Group" /></td>
+</tr>
+</table>
+</form>
\ No newline at end of file
--- /dev/null
+<:wrap admin/xbase.tmpl title=>"Edit Member Group":>
+<h2>Add Member Group</h2>
+<p>
+|
+<a href="/cgi-bin/admin/menu.pl">Admin menu</a>
+|
+<a href="<:script:>">Member List</a>
+|
+<a href="<:script:>?a_grouplist=1">Group List</a>
+|
+</p>
+<:ifMsg:><p><:msg:></p><:or:><:eif:>
+
+<form method="post" action="<:script:>" name="editgroup">
+<input type="hidden" name="id" value="<:group id:>" />
+<table>
+<tr>
+ <th>Group Name:</th>
+ <td><input type="text" name="name" value="<:old name group name:>" /></td>
+ <td><:error_img name:></td>
+</tr>
+<tr>
+ <td colspan="2"><input type="submit" name="a_savegroup" value="Save Group" /></td>
+ <td> </td>
+</tr>
+</table>
+</form>
\ No newline at end of file
--- /dev/null
+<:wrap admin/xbase.tmpl title=>"Member Groups":>
+<h2>Member Groups</h2>
+<p>
+|
+<a href="/cgi-bin/admin/menu.pl">Admin menu</a>
+|
+<a href="<:script:>">Member List</a>
+|
+<a href="<:script:>?a_addgroupform=1">Add New Group</a>
+|
+</p>
+<:ifMsg:><p><b><:msg:></b></p><:or:><:eif:>
+
+<table>
+<tr>
+ <th>Group</th>
+ <td> </td>
+</tr>
+<:if Groups:>
+<:iterator begin groups:>
+<tr>
+ <td><:group name:></td>
+ <td>
+ <a href="<:script:>?a_editgroup=1&id=<:group id:>">Edit</a>
+ <a href="<:script:>?a_deletegroupform=1&id=<:group id:>">Delete</a>
+ <a href="<:script:>?a_groupmemberform=1&id=<:group id:>">Members</a>
+ </td>
+</tr>
+<:iterator end groups:>
+<:or Groups:>
+<tr>
+ <td colspan="2">No member groups defined</td>
+</tr>
+<:eif Groups:>
+</table>
--- /dev/null
+<:wrap admin/xbase.tmpl title=>"Group Members":>
+<h1>Group Members: <:group name:></h1>
+<p>
+| <a href="/cgi-bin/admin/menu.pl">Admin menu</a> | <a href="<:script:>?a_grouplist=1">Groups</a> |
+<:if UserCan siteuser_add :>
+<a href="<:script:>?a_addform=1">Add Member</a> |<:or UserCan:><:eif UserCan:>
+<:ifMessage:>
+<p><b><:message:></b></p>
+<:or:><:eif:>
+
+<form method="post" action="<:script:>">
+<input type="hidden" name="id" value="<:group id:>" />
+<table cellpadding="6" border="0" cellspacing="1">
+ <tr>
+ <th bgcolor="#FFFFFF" nowrap> Logon</th>
+ <th bgcolor="#FFFFFF" nowrap> First Name</th>
+ <th bgcolor="#FFFFFF" nowrap> Last Name</th>
+ <th bgcolor="#FFFFFF" nowrap>Member</th>
+ </tr>
+ <:if Siteusers:> <: iterator begin siteusers :>
+ <tr bgcolor="#FFFFFF">
+ <td nowrap> <a href="<:script:>?a_edit=1&id=<:siteuser id:>"><:siteuser userId:></a></td>
+ <td valign="top"><:siteuser name1:></td>
+ <td valign="top"><:siteuser name2:></td>
+ <td valign="top"><input type="hidden" name="set_is_member" value="<:siteuser id:>" /><input type="checkbox" name="is_member" value="<:siteuser id:>" <:ifMember:>checked="checked"<:or:><:eif:> /></td>
+ </tr>
+ <: iterator end siteusers :>
+ <tr>
+ <td colspan="4"><input type="submit" name="a_savegroupmembers" value="Save Group Membership" /></td>
+ </tr>
+ <:or Siteusers:>
+ <tr bgcolor="#FFFFFF">
+ <td colspan="4" align="center">Your system has no users.</td>
+ </tr>
+ <:eif Siteusers:>
+</table>
+</form>
+
<:wrap admin/xbase.tmpl title=>"Admin Site Members":>
<h1>Admin Site Members</h1>
<p>
-| <a href="/cgi-bin/admin/menu.pl">Admin menu</a> |
+| <a href="/cgi-bin/admin/menu.pl">Admin menu</a> | <a href="<:script:>?a_grouplist=1">Groups</a> |
<:if UserCan siteuser_add :>
<a href="<:script:>?a_addform=1">Add Member</a> |<:or UserCan:><:eif UserCan:>
<:ifMessage:>
createdBy=>'',
author=>'',
pageTitle=>'',
+ force_dynamic => 0,
+ cached_dynamic => 0,
+ inherit_siteuser_rights => 1,
},
{
# the invisible subsection for what's hot
createdBy=>'',
author=>'',
pageTitle=>'',
+ force_dynamic => 0,
+ cached_dynamic => 0,
+ inherit_siteuser_rights => 1,
},
{
id=>3,
createdBy=>'',
author=>'',
pageTitle=>'',
+ force_dynamic => 0,
+ cached_dynamic => 0,
+ inherit_siteuser_rights => 1,
},
{
id=>4,
createdBy=>'',
author=>'',
pageTitle=>'',
+ force_dynamic => 0,
+ cached_dynamic => 0,
+ inherit_siteuser_rights => 1,
},
{
id=>5,
createdBy=>'',
author=>'',
pageTitle=>'',
+ force_dynamic => 0,
+ cached_dynamic => 0,
+ inherit_siteuser_rights => 1,
},
{
id=>6,
createdBy=>'',
author=>'',
pageTitle=>'',
+ force_dynamic => 0,
+ cached_dynamic => 0,
+ inherit_siteuser_rights => 1,
},
{
id=>7,
createdBy=>'',
author=>'',
pageTitle=>'',
+ force_dynamic => 0,
+ cached_dynamic => 0,
+ inherit_siteuser_rights => 1,
},
{
id=>8,
createdBy=>'',
author=>'',
pageTitle=>'',
+ force_dynamic => 0,
+ cached_dynamic => 0,
+ inherit_siteuser_rights => 1,
},
);
use BSE::Test qw(make_ua ok fetch_ok base_url config);
++$|;
-print "1..60\n";
+print "1..62\n";
my $baseurl = base_url;
ok($baseurl =~ /^http:/, "basic check of base url");
my $ua = make_ua;
fetch_ok($ua, 'fmail', "$baseurl/cgi-bin/fmail.pl",
qr!name="form"!);
+fetch_ok($ua, 'page.pl?id=1', "$baseurl/cgi-bin/page.pl?id=1",
+ qr!welcome\s+to\stest\s+server!i);
#!perl -w
use strict;
-use Test::More tests=>37;
+use Test::More tests=>42;
my $gotmodule;
BEGIN { $gotmodule = use_ok('DevHelp::Date', ':all'); }
SKIP:
{
- skip "couldn't load module", 36 unless $gotmodule;
+ skip "couldn't load module", 41 unless $gotmodule;
my $msg;
is_deeply([ dh_parse_time("10:00", \$msg) ], [ 10, 0, 0 ], "parse 10:00");
is($msg, undef, "no error");
undef $msg;
is(dh_parse_time_sql("2:30pm"), "14:30:00", "2:30pm to sql");
is($msg, undef, "no error");
+
+ # parse SQL date
+ is_deeply([ dh_parse_sql_date("2005-07-12") ], [ 2005, 7, 12 ],
+ "simple sql date parse");
+ is_deeply([ dh_parse_sql_date("20") ], [ ],
+ "invalid sql date parse");
+ is_deeply([ dh_parse_sql_datetime("2005-06-30 12:00:05") ],
+ [ 2005, 6, 30, 12, 0, 5 ], "parse SQL date time");
+ is_deeply([ dh_parse_sql_datetime("2005-06-30 12") ],
+ [ ], "invalid parse SQL date time");
+ is(dh_strftime_sql_datetime("%d/%m/%Y", "2005-06-30 12:00:05"),
+ "30/06/2005", "dh_strftime_sql_datetime");
}
level => 1, listed=>1, lastModified => sql_datetime(time), flags=>'',
lastModifiedBy=>'t20gen', created=>sql_datetime(time),
createdBy=>'t20gen', author=>'', pageTitle=>'',
+ cached_dynamic => 0, force_dynamic=>0, inherit_siteuser_rights => 1,
);
for my $key (%defaults) {
unless (exists $parms{$key}) {
level => 1, listed=>1, lastModified => sql_datetime(time), flags=>'',
lastModifiedBy=>'t21gencat', created=>sql_datetime(time),
createdBy=>'t21gencat', author=>'', pageTitle=>'',
+ cached_dynamic => 0, force_dynamic=>0, inherit_siteuser_rights => 1,
);
for my $key (%defaults) {
unless (exists $parms{$key}) {
sessionclass = Apache::Session::MySQL
# the location of mysql
mysql = mysql
-basic.access_control=1
+basic.access_control=0
#basic.htusers = /home/httpd/bsetest/htdocs/images/.htusers
#article uris.9 = /test
paths.htpasswd=/home/httpd/bsetest/data/htusers
projects / bse.git / commitdiff