Changeset 2175 for trunk


Ignore:
Timestamp:
01/17/19 18:27:13 (5 years ago)
Author:
nanardon
Message:

Always create internal at db load

Location:
trunk/LATMOS-Accounts/lib/LATMOS/Accounts
Files:
25 edited

Legend:

Unmodified
Added
Removed

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

    r2156 r2175  
    99use LATMOS::Accounts::Utils qw( exec_command to_ascii ); 
    1010 
    11 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     11our $VERSION = (q$Rev: 2156 $ =~ /^Rev: (\d+) /)[0]; 
    1212 
    1313=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad.pm

    r2051 r2175  
    1515use LATMOS::Accounts::Log; 
    1616 
    17 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     17our $VERSION = (q$Rev: 2051 $ =~ /^Rev: (\d+) /)[0]; 
    1818 
    1919=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/Group.pm

    r2045 r2175  
    1313use LATMOS::Accounts::Log; 
    1414 
    15 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     15our $VERSION = (q$Rev: 2045 $ =~ /^Rev: (\d+) /)[0]; 
    1616 
    1717=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/User.pm

    r2047 r2175  
    1515use LATMOS::Accounts::Utils; 
    1616 
    17 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     17our $VERSION = (q$Rev: 2047 $ =~ /^Rev: (\d+) /)[0]; 
    1818 
    1919=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Ad/objects.pm

    r289 r2175  
    1313use LATMOS::Accounts::Log; 
    1414 
    15 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     15our $VERSION = (q$Rev: 289 $ =~ /^Rev: (\d+) /)[0]; 
    1616 
    1717=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Attributes.pm

    r2048 r2175  
    11package LATMOS::Accounts::Bases::Attributes; 
    22 
    3 # $Id$ 
     3# $Id: Attributes.pm 2048 2017-06-14 14:00:46Z nanardon $ 
    44 
    55use strict; 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Dummy.pm

    r1071 r2175  
    1515=cut 
    1616 
    17 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     17our $VERSION = (q$Rev: 1071 $ =~ /^Rev: (\d+) /)[0]; 
    1818 
    1919sub new { 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Dummy/User.pm

    r1350 r2175  
    1111=cut 
    1212 
    13 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     13our $VERSION = (q$Rev: 1350 $ =~ /^Rev: (\d+) /)[0]; 
    1414 
    1515sub _get_attr_schema { 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

    r2072 r2175  
    1111use Crypt::Cracklib; 
    1212 
    13 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     13our $VERSION = (q$Rev: 2072 $ =~ /^Rev: (\d+) /)[0]; 
    1414 
    1515=head1 NAME 

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

    r2149 r2175  
    1616use MIME::Base64; 
    1717 
    18 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     18our $VERSION = (q$Rev: 2149 $ =~ /^Rev: (\d+) /)[0]; 
    1919 
    2020sub SCHEMA_VERSION { 28 }; 
    … …  
    155155        # return; 
    156156    } 
     157    $self->_CreateInternalObjects; 
    157158 
    158159    1; 
     160} 
     161 
     162sub _CreateInternalObjects { 
     163    my ($self) = @_; 
     164 
     165    my $dbi = $self->{_db}; 
     166 
     167    my @objects = ( 
     168        { 
     169            name => 'dpmt', 
     170            otype => 'sutype', 
     171            attrs => { 
     172                description => 'Department', 
     173            }, 
     174        }, 
     175        { 
     176            name => 'contrattype', 
     177            otype => 'sutype', 
     178            attrs => { 
     179                description => 'Contract', 
     180            }, 
     181        }, 
     182        { 
     183            name => '-useralias', 
     184            otype => 'group', 
     185            attrs => { 
     186                description => 'Internal group for user alias object', 
     187                gidnumber => -1, 
     188                unexported => 1, 
     189            }, 
     190            intern => 1, 
     191        }, 
     192    ); 
     193 
     194    $self->temp_switch_unexported( sub { 
     195 
     196            my $setnodel  = $dbi->prepare('UPDATE objects SET nodelete     = true where name = ?'); 
     197            my $setintern = $dbi->prepare('UPDATE objects SET internobject = true where name = ?'); 
     198 
     199            foreach (@objects) { 
     200                if (!$self->GetRawObject($_->{otype}, $_->{name})) { 
     201                    printf("Creating object %s/%s\n", $_->{otype}, $_->{name}); 
     202                    $self->create_object($_->{otype}, $_->{name}, %{$_->{attrs} || {}}) 
     203                        or warn sprintf("cannot create %s/%s\n", $_->{otype}, $_->{name}); 
     204 
     205                } 
     206 
     207                $setnodel->execute($_->{name}); 
     208                $setintern->execute($_->{name}) if ($_->{intern}); 
     209            } 
     210 
     211    }, 1); 
     212    $self->commit; 
     213 
     214    return 1; 
    159215} 
    160216 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Group.pm

    r1920 r2175  
    1010use LATMOS::Accounts::I18N; 
    1111 
    12 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     12our $VERSION = (q$Rev: 1920 $ =~ /^Rev: (\d+) /)[0]; 
    1313 
    1414=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Onlyaddress.pm

    r2090 r2175  
    66use base qw(LATMOS::Accounts::Bases::Sql::Address); 
    77 
    8 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     8our $VERSION = (q$Rev: 2090 $ =~ /^Rev: (\d+) /)[0]; 
    99 
    1010=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Site.pm

    r1551 r2175  
    88use LATMOS::Accounts::I18N; 
    99 
    10 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     10our $VERSION = (q$Rev: 1551 $ =~ /^Rev: (\d+) /)[0]; 
    1111 
    1212=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/Sutype.pm

    r1551 r2175  
    88use LATMOS::Accounts::I18N; 
    99 
    10 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     10our $VERSION = (q$Rev: 1551 $ =~ /^Rev: (\d+) /)[0]; 
    1111 
    1212=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

    r2158 r2175  
    1717use LATMOS::Accounts::Mail; 
    1818 
    19 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     19our $VERSION = (q$Rev: 2158 $ =~ /^Rev: (\d+) /)[0]; 
    2020 
    2121=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

    r2105 r2175  
    1212use LATMOS::Accounts::I18N; 
    1313 
    14 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     14our $VERSION = (q$Rev: 2105 $ =~ /^Rev: (\d+) /)[0]; 
    1515 
    1616=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/upgrade.pm

    r2096 r2175  
    11951195} 
    11961196 
    1197 sub _CreateInternalObjects { 
    1198     my ($self) = @_; 
    1199  
    1200     my $dbi = $self->{_db}; 
    1201  
    1202     my @objects = ( 
    1203         { 
    1204             name => 'dpmt', 
    1205             otype => 'sutype', 
    1206             attrs => { 
    1207                 description => 'Department', 
    1208             }, 
    1209         }, 
    1210         { 
    1211             name => 'contrattype', 
    1212             otype => 'sutype', 
    1213             attrs => { 
    1214                 description => 'Contract', 
    1215             }, 
    1216         }, 
    1217         { 
    1218             name => '-useralias', 
    1219             otype => 'group', 
    1220             attrs => { 
    1221                 description => 'Internal group for user alias object', 
    1222                 gidnumber => -1, 
    1223                 unexported => 1, 
    1224             }, 
    1225             intern => 1, 
    1226         }, 
    1227     ); 
    1228  
    1229     my $setnodel  = $dbi->prepare('UPDATE objects SET nodelete     = true where name = ?'); 
    1230     my $setintern = $dbi->prepare('UPDATE objects SET internobject = true where name = ?'); 
    1231  
    1232     foreach (@objects) { 
    1233         if (!$self->GetRawObject($_->{otype}, $_->{name})) { 
    1234             printf("Creating object %s/%s\n", $_->{otype}, $_->{name}); 
    1235             $self->create_object($_->{otype}, $_->{name}, %{$_->{attrs} || {}}) 
    1236                 or die sprintf("cannot create %s/%s\n", $_->{otype}, $_->{name}); 
    1237  
    1238         } 
    1239  
    1240         $setnodel->execute($_->{name}); 
    1241         $setintern->execute($_->{name}) if ($_->{intern}); 
    1242     } 
    1243  
    1244     return 1; 
    1245 } 
    1246  
    12471197=head2 SchemaUpgrade 
    12481198 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Unix.pm

    r1975 r2175  
    1010use Encode; 
    1111 
    12 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     12our $VERSION = (q$Rev: 1975 $ =~ /^Rev: (\d+) /)[0]; 
    1313 
    1414=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli.pm

    r2145 r2175  
    11package LATMOS::Accounts::Cli; 
    22 
    3 # $Id$ 
     3# $Id: Cli.pm 2145 2018-08-29 18:15:46Z nanardon $ 
    44 
    55use strict; 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Log.pm

    r1915 r2175  
    4747%EXPORT_TAGS = (LOGLEVELS => [ @loglevels ]); 
    4848 
    49 our $VERSION = (q$Rev: 1455 $ =~ /^Rev: (\d+) /)[0]; 
     49our $VERSION = (q$Rev: 1915 $ =~ /^Rev: (\d+) /)[0]; 
    5050 
    5151my %lastmessages = (); 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/SynchAccess.pm

    r1405 r2175  
    77use LATMOS::Accounts::Log; 
    88 
    9 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     9our $VERSION = (q$Rev: 1405 $ =~ /^Rev: (\d+) /)[0]; 
    1010 
    1111=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/SynchAccess/Objects.pm

    r1023 r2175  
    55use base qw(LATMOS::Accounts::SynchAccess::base); 
    66 
    7 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     7our $VERSION = (q$Rev: 1023 $ =~ /^Rev: (\d+) /)[0]; 
    88 
    99=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/SynchAccess/base.pm

    r1405 r2175  
    77use LATMOS::Accounts::Log; 
    88 
    9 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     9our $VERSION = (q$Rev: 1405 $ =~ /^Rev: (\d+) /)[0]; 
    1010 
    1111=head1 NAME 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm

    r1915 r2175  
    3131=cut 
    3232 
    33 our $VERSION = (q$Rev: 1384 $ =~ /^Rev: (\d+) /)[0]; 
     33our $VERSION = (q$Rev: 1915 $ =~ /^Rev: (\d+) /)[0]; 
    3434 
    3535=head2 new($from, $to, %options) 

  • trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

    r2073 r2175  
    1111use Text::CSV; 
    1212 
    13 our $VERSION = (q$Rev$ =~ /^Rev: (\d+) /)[0]; 
     13our $VERSION = (q$Rev: 2073 $ =~ /^Rev: (\d+) /)[0]; 
    1414 
    1515=head1 NAME 
Note: See TracChangeset for help on using the changeset viewer.