RDBO: Setups der Auth*-Instanzen vereinheitlicht

diff --git a/SL/DB/AuthClient.pm b/SL/DB/AuthClient.pm
index a37c9301113aae1ce82c33b60cbc222f1d5dccd2..bf016a64661cbfc7b7b32754fb167b4c12345197 100644 (file)
--- a/SL/DB/AuthClient.pm
+++ b/SL/DB/AuthClient.pm
@@ -1,6 +1,3 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
 package SL::DB::AuthClient;
 
 use strict;
@@ -8,19 +5,16 @@ use strict;
 use SL::DB::MetaSetup::AuthClient;
 use SL::DB::Manager::AuthClient;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
-__PACKAGE__->meta->schema('auth');
-
 __PACKAGE__->meta->add_relationship(
   users => {
     type      => 'many to many',
-    map_class => 'SL::DB::AuthUserGroup',
+    map_class => 'SL::DB::AuthClientUser',
     map_from  => 'client',
     map_to    => 'user',
   },
   groups => {
     type      => 'many to many',
-    map_class => 'SL::DB::AuthUserGroup',
+    map_class => 'SL::DB::AuthClientGroup',
     map_from  => 'client',
     map_to    => 'group',
   },

diff --git a/SL/DB/AuthClientGroup.pm b/SL/DB/AuthClientGroup.pm
index 758841bbf92a7c0d0b32f212828754ae5d8fe2e3..8d31fbf4cc1494abd9d60a5f782b4b025810a136 100644 (file)
--- a/SL/DB/AuthClientGroup.pm
+++ b/SL/DB/AuthClientGroup.pm
@@ -1,15 +1,9 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
 package SL::DB::AuthClientGroup;
 
 use strict;
 
 use SL::DB::MetaSetup::AuthClientGroup;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
-__PACKAGE__->meta->schema('auth');
-
 __PACKAGE__->meta->make_manager_class;
 
 1;

diff --git a/SL/DB/AuthClientUser.pm b/SL/DB/AuthClientUser.pm
index b2063dc53101aeb32bf6901383fb8da2c470dc28..c01447e8823c1b43f9e2a9d6d795c32190d2049d 100644 (file)
--- a/SL/DB/AuthClientUser.pm
+++ b/SL/DB/AuthClientUser.pm
@@ -1,15 +1,9 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
 package SL::DB::AuthClientUser;
 
 use strict;
 
 use SL::DB::MetaSetup::AuthClientUser;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
-__PACKAGE__->meta->schema('auth');
-
 __PACKAGE__->meta->make_manager_class;
 
 1;

diff --git a/SL/DB/AuthGroup.pm b/SL/DB/AuthGroup.pm
index ce47bd32f0bbbeb17e463d22b480e198c7faa67e..2bb168eaf2a2a0fc2fc74d93a85dde1b8548077d 100644 (file)
--- a/SL/DB/AuthGroup.pm
+++ b/SL/DB/AuthGroup.pm
@@ -1,6 +1,3 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
 package SL::DB::AuthGroup;
 
 use strict;
@@ -9,8 +6,6 @@ use SL::DB::MetaSetup::AuthGroup;
 use SL::DB::Manager::AuthGroup;
 use SL::DB::AuthGroupRight;
 
-__PACKAGE__->meta->schema('auth');
-
 __PACKAGE__->meta->add_relationship(
   users => {
     type      => 'many to many',
@@ -25,7 +20,7 @@ __PACKAGE__->meta->add_relationship(
   },
   clients => {
     type      => 'many to many',
-    map_class => 'SL::DB::AuthClient',
+    map_class => 'SL::DB::AuthClientGroup',
     map_from  => 'group',
     map_to    => 'client',
   },

diff --git a/SL/DB/AuthGroupRight.pm b/SL/DB/AuthGroupRight.pm
index 49e434434193d93c146463dea11a46df76534294..1ba9ae199d2bb8676422cc1695c09a43d579f1bf 100644 (file)
--- a/SL/DB/AuthGroupRight.pm
+++ b/SL/DB/AuthGroupRight.pm
@@ -1,16 +1,9 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
 package SL::DB::AuthGroupRight;
 
 use strict;
 
 use SL::DB::MetaSetup::AuthGroupRight;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
 
-__PACKAGE__->meta->schema('auth');
-__PACKAGE__->meta->initialize;
-
 1;

diff --git a/SL/DB/AuthUser.pm b/SL/DB/AuthUser.pm
index 41644eb1f73a85483fe2d3eec100dd80d0cff892..a11248ec6acda07ffb238bfdec12220f77734c5b 100644 (file)
--- a/SL/DB/AuthUser.pm
+++ b/SL/DB/AuthUser.pm
@@ -1,6 +1,3 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
 package SL::DB::AuthUser;
 
 use strict;
@@ -9,9 +6,9 @@ use List::Util qw(first);
 
 use SL::DB::MetaSetup::AuthUser;
 use SL::DB::Manager::AuthUser;
+use SL::DB::AuthClient;
 use SL::DB::AuthUserGroup;
-
-__PACKAGE__->meta->schema('auth');
+use SL::DB::Helper::Util;
 
 __PACKAGE__->meta->add_relationship(
   groups => {
@@ -27,7 +24,7 @@ __PACKAGE__->meta->add_relationship(
   },
   clients => {
     type      => 'many to many',
-    map_class => 'SL::DB::AuthClient',
+    map_class => 'SL::DB::AuthUserClient',
     map_from  => 'user',
     map_to    => 'client',
   },
@@ -35,6 +32,17 @@ __PACKAGE__->meta->add_relationship(
 
 __PACKAGE__->meta->initialize;
 
+sub validate {
+  my ($self) = @_;
+
+  my @errors;
+  push @errors, $::locale->text('The login is missing.')          if !$self->login;
+  push @errors, $::locale->text('The login is not unique.')          if !SL::DB::Helper::Util::is_unique($self, 'login');
+  push @errors, "chunky bacon";
+
+  return @errors;
+}
+
 sub get_config_value {
   my ($self, $key) = @_;
 

diff --git a/SL/DB/AuthUserConfig.pm b/SL/DB/AuthUserConfig.pm
index 2cb8e6b96f95b1f4dece91ce15314c27ce4e2885..b52a1a1e77991e561d749e2eb38be236df2d8878 100644 (file)
--- a/SL/DB/AuthUserConfig.pm
+++ b/SL/DB/AuthUserConfig.pm
@@ -1,16 +1,9 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
 package SL::DB::AuthUserConfig;
 
 use strict;
 
 use SL::DB::MetaSetup::AuthUserConfig;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
 
-__PACKAGE__->meta->schema('auth');
-__PACKAGE__->meta->initialize;
-
 1;

diff --git a/SL/DB/AuthUserGroup.pm b/SL/DB/AuthUserGroup.pm
index 495cb66fcbe29fe32ee40344c9b2f1a4d6dcf7e4..be88c4e9953d4cdd920de9cd6d2e5defdf5e3313 100644 (file)
--- a/SL/DB/AuthUserGroup.pm
+++ b/SL/DB/AuthUserGroup.pm
@@ -1,29 +1,9 @@
-# This file has been auto-generated only because it didn't exist.
-# Feel free to modify it at will; it will not be overwritten automatically.
-
 package SL::DB::AuthUserGroup;
 
 use strict;
 
 use SL::DB::MetaSetup::AuthUserGroup;
 
-# Creates get_all, get_all_count, get_all_iterator, delete_all and update_all.
 __PACKAGE__->meta->make_manager_class;
 
-__PACKAGE__->meta->schema('auth');
-
-__PACKAGE__->meta->add_foreign_keys(
-  user => {
-    class       => 'SL::DB::AuthUser',
-    key_columns => { user_id => 'id' },
-  },
-
-  group => {
-    class       => 'SL::DB::AuthGroup',
-    key_columns => { group_id => 'id' },
-  },
-);
-
-__PACKAGE__->meta->initialize;
-
 1;

diff --git a/SL/DB/MetaSetup/AuthClient.pm b/SL/DB/MetaSetup/AuthClient.pm
index 1b0a81a54a885e2c25ce706de1501bddbc5ed43d..b78050cf044cf9375075ef107ab5e63502c4137a 100644 (file)
--- a/SL/DB/MetaSetup/AuthClient.pm
+++ b/SL/DB/MetaSetup/AuthClient.pm
@@ -8,6 +8,7 @@ use base qw(SL::DB::Object);
 
 __PACKAGE__->meta->setup(
   table   => 'clients',
+  schema  => 'auth',
 
   columns => [
     id         => { type => 'serial', not_null => 1 },

diff --git a/SL/DB/MetaSetup/AuthClientGroup.pm b/SL/DB/MetaSetup/AuthClientGroup.pm
index e9226394edea56fdff1c905408dcd4346425208f..f4e2f87568d92a61b851ec0cdb57d8a4c5b9c46b 100644 (file)
--- a/SL/DB/MetaSetup/AuthClientGroup.pm
+++ b/SL/DB/MetaSetup/AuthClientGroup.pm
@@ -8,6 +8,7 @@ use base qw(SL::DB::Object);
 
 __PACKAGE__->meta->setup(
   table   => 'clients_groups',
+  schema  => 'auth',
 
   columns => [
     client_id => { type => 'integer', not_null => 1 },

diff --git a/SL/DB/MetaSetup/AuthClientUser.pm b/SL/DB/MetaSetup/AuthClientUser.pm
index b36577207f85b200717569e0bbe37aec7792ed6d..85d0ef953620b96ffeedbef0172c2f20d2d7a084 100644 (file)
--- a/SL/DB/MetaSetup/AuthClientUser.pm
+++ b/SL/DB/MetaSetup/AuthClientUser.pm
@@ -8,6 +8,7 @@ use base qw(SL::DB::Object);
 
 __PACKAGE__->meta->setup(
   table   => 'clients_users',
+  schema  => 'auth',
 
   columns => [
     client_id => { type => 'integer', not_null => 1 },

diff --git a/SL/DB/MetaSetup/AuthGroup.pm b/SL/DB/MetaSetup/AuthGroup.pm
index 31d49153acdb472113af5df2ff9ed346c2f694d3..9e75aac33af0f2806ce1654b2dad867664743779 100644 (file)
--- a/SL/DB/MetaSetup/AuthGroup.pm
+++ b/SL/DB/MetaSetup/AuthGroup.pm
@@ -8,6 +8,7 @@ use base qw(SL::DB::Object);
 
 __PACKAGE__->meta->setup(
   table   => 'group',
+  schema  => 'auth',
 
   columns => [
     id          => { type => 'serial', not_null => 1 },

diff --git a/SL/DB/MetaSetup/AuthGroupRight.pm b/SL/DB/MetaSetup/AuthGroupRight.pm
index 0cf5d7211a523e4ca025642a96201669f7ff8a58..677796631473aa7e4939684111e03780965f993e 100644 (file)
--- a/SL/DB/MetaSetup/AuthGroupRight.pm
+++ b/SL/DB/MetaSetup/AuthGroupRight.pm
@@ -8,6 +8,7 @@ use base qw(SL::DB::Object);
 
 __PACKAGE__->meta->setup(
   table   => 'group_rights',
+  schema  => 'auth',
 
   columns => [
     group_id => { type => 'integer', not_null => 1 },

diff --git a/SL/DB/MetaSetup/AuthUser.pm b/SL/DB/MetaSetup/AuthUser.pm
index 04bc23ef50d8a97ab0660311c21e1e191eda4df7..217519041f9563ff0e427b369197b0d48517ebd0 100644 (file)
--- a/SL/DB/MetaSetup/AuthUser.pm
+++ b/SL/DB/MetaSetup/AuthUser.pm
@@ -8,6 +8,7 @@ use base qw(SL::DB::Object);
 
 __PACKAGE__->meta->setup(
   table   => 'user',
+  schema  => 'auth',
 
   columns => [
     id       => { type => 'serial', not_null => 1 },

diff --git a/SL/DB/MetaSetup/AuthUserConfig.pm b/SL/DB/MetaSetup/AuthUserConfig.pm
index 2d132eb6a97ec65edba2f2faba0bf40d6bc06bef..688998b57e7c9d0ffb9717f5f24ef62b0404c7ef 100644 (file)
--- a/SL/DB/MetaSetup/AuthUserConfig.pm
+++ b/SL/DB/MetaSetup/AuthUserConfig.pm
@@ -8,6 +8,7 @@ use base qw(SL::DB::Object);
 
 __PACKAGE__->meta->setup(
   table   => 'user_config',
+  schema  => 'auth',
 
   columns => [
     user_id   => { type => 'integer', not_null => 1 },

diff --git a/SL/DB/MetaSetup/AuthUserGroup.pm b/SL/DB/MetaSetup/AuthUserGroup.pm
index f185014a93078cb05278c5f984a59b3e560c3200..86a0ed571816104b1d3b057da384ca16acba35b0 100644 (file)
--- a/SL/DB/MetaSetup/AuthUserGroup.pm
+++ b/SL/DB/MetaSetup/AuthUserGroup.pm
@@ -8,6 +8,7 @@ use base qw(SL::DB::Object);
 
 __PACKAGE__->meta->setup(
   table   => 'user_group',
+  schema  => 'auth',
 
   columns => [
     user_id  => { type => 'integer', not_null => 1 },
@@ -15,6 +16,18 @@ __PACKAGE__->meta->setup(
   ],
 
   primary_key_columns => [ 'user_id', 'group_id' ],
+
+  foreign_keys => [
+    user => {
+      class       => 'SL::DB::AuthUser',
+      key_columns => { user_id => 'id' },
+    },
+
+    group => {
+      class       => 'SL::DB::AuthGroup',
+      key_columns => { group_id => 'id' },
+    },
+  ],
 );
 
 1;