[Bast-commits] r3216 - in trunk: . DBIx-Class-Journal
DBIx-Class-Journal/lib DBIx-Class-Journal/lib/DBIx
DBIx-Class-Journal/lib/DBIx/Class
DBIx-Class-Journal/lib/DBIx/Class/Schema
DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal
DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB
castaway at dev.catalyst.perl.org
castaway at dev.catalyst.perl.org
Sat Apr 28 14:44:10 GMT 2007
Author: castaway
Date: 2007-04-28 14:44:05 +0100 (Sat, 28 Apr 2007)
New Revision: 3216
Added:
trunk/DBIx-Class-Journal/
trunk/DBIx-Class-Journal/NOTES
trunk/DBIx-Class-Journal/lib/
trunk/DBIx-Class-Journal/lib/DBIx/
trunk/DBIx-Class-Journal/lib/DBIx/Class/
trunk/DBIx-Class-Journal/lib/DBIx/Class/Journal.pm
trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/
trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/
trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB.pm
trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/
trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/Change.pm
trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm
Log:
Initial commit, not tested, may not work ;)
Added: trunk/DBIx-Class-Journal/NOTES
===================================================================
--- trunk/DBIx-Class-Journal/NOTES (rev 0)
+++ trunk/DBIx-Class-Journal/NOTES 2007-04-28 13:44:05 UTC (rev 3216)
@@ -0,0 +1 @@
+http://stikkit.com/stikkits/403253
Added: trunk/DBIx-Class-Journal/lib/DBIx/Class/Journal.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Journal.pm (rev 0)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Journal.pm 2007-04-28 13:44:05 UTC (rev 3216)
@@ -0,0 +1,12 @@
+package DBIx::Class::Journal;
+
+use base qw/DBIx::Class/;
+__PACKAGE__->load_components(qw/AccessorGroup/);
+
+__PACKAGE__->mk_group_accessors('simple' => qw/
+ journal_dsn
+ journal_sources
+ /);
+
+
+1;
Added: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/Change.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/Change.pm (rev 0)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/Change.pm 2007-04-28 13:44:05 UTC (rev 3216)
@@ -0,0 +1,32 @@
+package DBIx::Class::Schema::Journal::DB::Change;
+
+use base 'DBIx::Class';
+
+__PACKAGE__->load_components(qw/Ordered Core/);
+__PACKAGE__->table('change');
+
+__PACKAGE__->add_columns(
+ ID => {
+ data_type => 'integer',
+ is_auto_increment => 1,
+ is_primary_key => 1,
+ is_nullable => 0,
+ },
+ changeset_id => {
+ data_type => 'integer',
+ is_nullable => 0,
+ is_foreign_key => 1,
+ },
+ order_in => {
+ data_type => 'integer',
+ is_nullable => 0,
+ },
+ );
+
+
+__PACKAGE__->set_primary_key('ID');
+__PACKAGE__->belongs_to('changeset', 'DBIx::Class::Schema::Journal::DB::ChangeSet', 'changeset_id');
+
+__PACKAGE__->position_column('order_in');
+__PACKAGE__->grouping_column('changeset_id');
+1;
Added: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm (rev 0)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB/ChangeSet.pm 2007-04-28 13:44:05 UTC (rev 3216)
@@ -0,0 +1,34 @@
+package DBIx::Class::Schema::Journal::DB::ChangeSet;
+
+use base 'DBIx::Class';
+
+__PACKAGE__->load_components(qw/InflateColumn::DateTime Core/);
+__PACKAGE__->table('changeset');
+
+__PACKAGE__->add_columns(
+ ID => {
+ data_type => 'integer',
+ is_auto_increment => 1,
+ is_primary_key => 1,
+ is_nullable => 0,
+ },
+ user_id => {
+ data_type => 'integer',
+ is_nullable => 0,
+ is_foreign_key => 1,
+ },
+ set_date => {
+ data_type => 'timestamp',
+ is_nullable => 0,
+ default_value => 'NOW()',
+ },
+ session_id => {
+ data_type => 'varchar',
+ size => 255,
+ is_nullable => 1,
+ },
+ );
+
+__PACKAGE__->set_primary_key('ID');
+
+1;
Added: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB.pm (rev 0)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal/DB.pm 2007-04-28 13:44:05 UTC (rev 3216)
@@ -0,0 +1,7 @@
+package DBIx::Class::Schema::Journal::DB;
+
+use base 'DBIx::Class::Schema';
+
+DBIx::Class::Schema::Journal::DB->load_classes();
+
+1;
Added: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm (rev 0)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm 2007-04-28 13:44:05 UTC (rev 3216)
@@ -0,0 +1,89 @@
+package DBIx::Class::Schema::Journal;
+
+use base qw/DBIx::Class/;
+
+__PACKAGE__->mk_classdata('journal_dsn');
+__PACKAGE__->mk_classdata('journal_sources'); ## [ source names ]
+__PACKAGE__->mk_classdata('journal_user'); ## [ class, field for user id ]
+__PACKAGE__->mk_classdata('_journal_schema');
+
+sub load_classes
+{
+ my $self = shift;
+ $self->next::method(@_);
+
+ $self->_journal_schema((__PACKAGE__ . '::DB')->connect($self->journal_dsn || $self->storage->connect_info));
+
+ my %j_sources = @{$self->journal_sources} ? map { $_ => 1 } @{$self->journal_sources} : map { $_ => 1 } $self->sources;
+ foreach my $s_name ($self->sources)
+ {
+ next unless($j_sources{$s_name});
+ $self->create_journal_for($s_name);
+ }
+
+ ## Set up relationship between changeset->user_id and this schema's user
+ if(!@{$self->journal_user})
+ {
+ warn "No Journal User set!";
+ return;
+ }
+
+ DBIx::Class::Schema::Journal::DB::ChangeSet->belongs_to('user', @{$self->journal_user});
+}
+
+sub get_audit_log_class_name
+{
+ my ($self, $sourcename) = @_;
+
+ return __PACKAGE__ . "::DB::${sourcename}AuditLog";
+}
+
+sub get_audit_history_class_name
+{
+ my ($self, $sourcename) = @_;
+
+ return __PACKAGE__ . "::DB::${sourcename}AuditHistory";
+}
+
+sub create_journal_for
+{
+ my ($self, $s_name) = @_;
+
+ my $source = $self->source($s_name);
+ my $newclass = $self->get_audit_log_class_name($s_name);
+ DBIx::Class::Componentised->inject_base($newclass, 'DBIx::Class');
+ $newclass->load_components('Core');
+ $newclass->table(lc($s_name) . "_audit_log");
+ $newclass->add_columns(
+ ID => {
+ data_type => 'integer',
+ is_nullable => 0,
+ },
+ create_id => {
+ data_type => 'integer',
+ is_nullable => 0,
+ },
+ delete_id => {
+ data_type => 'integer',
+ is_nullable => 1,
+ });
+ $newclass->belongs_to('created', 'DBIx::Class::Schema::Journal::DB::Change', 'create_id');
+ $newclass->belongs_to('deleted', 'DBIx::Class::Schema::Journal::DB::Change', 'delete_id');
+
+
+ my $histclass = $self->get_audit_hisory_class_name($s_name);
+ DBIx::Class::Componentised->inject_base($histclass, 'DBIx::Class');
+ $histclass->load_components('Core');
+ $histclass->table(lc($s_name) . "_audit_hisory");
+ $histclass->add_columns(
+ change_id => {
+ data_type => 'integer',
+ is_nullable => 0,
+ },
+ map { $_ => $source->column_info($_) } $source->columns
+ );
+ $histclass->belongs_to('change', 'DBIx::Class::Schema::Journal::DB::Change', 'change_id');
+
+}
+
+1;
More information about the Bast-commits
mailing list