Changeset 2113

Timestamp:

10/09/17 09:55:08 (7 years ago)

Author:

nanardon

Message:

Revert computing of zone matching: too costly

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Nethost.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Nethost.pm

@@ -19 +19 @@
 
 sub _object_table { 'nethost' }
-
-sub _object_table_attributes_read { 'nethost_attributes_read' }
 
 sub _key_field { 'name' }
@@ -132 +130 @@
                 multiple => 1, ro => 1, managed => 1,
                 reference => 'netzone',
+                get => sub {
+                    my ($self) = @_;
+                    my $find = $self->base->db->prepare_cached(q{
+                        select name from netzone where ikey in
+                        (
+                        select netzone_attributes.okey from netzone_attributes join
+                        nethost_attributes_ips on netzone_attributes.attr='net'
+                            and 
+                        nethost_attributes_ips.value::inet <<=
+                        netzone_attributes.value::inet
+                        where nethost_attributes_ips.okey = $1
+                        except
+                        select netzone_attributes.okey from netzone_attributes join
+                        nethost_attributes_ips on netzone_attributes.attr='netExclude'
+                            and nethost_attributes_ips.value::inet <<= netzone_attributes.value::inet
+                        where nethost_attributes_ips.okey = $1
+                        )
+                        order by name
+                        });
+                    $find->execute($self->object->get_attributes('ikey'));
+                    my @zones;
+                    while (my $res = $find->fetchrow_hashref) {
+                        push(@zones, $res->{name});
+                    }
+                    return @zones ? [ @zones ] : undef;
+                },
                 label => l('NetZones'),
             },