Xavier Guimard
16 years ago
parent
b289a53608
commit
703b3d64b0
@ -0,0 +1,144 @@ |
||||
package Lemonldap::NG::Common::Conf::RDBI; |
||||
|
||||
use strict; |
||||
use DBI; |
||||
use Lemonldap::NG::Common::Conf::Constants; #inherits |
||||
use Lemonldap::NG::Common::Conf::Serializer; |
||||
|
||||
our $VERSION = 0.17; |
||||
|
||||
BEGIN { |
||||
*Lemonldap::NG::Common::Conf::dbh = \&dbh; |
||||
} |
||||
|
||||
sub prereq { |
||||
my $self = shift; |
||||
unless ( $self->{dbiChain} ) { |
||||
$Lemonldap::NG::Common::Conf::msg = |
||||
'"dbiChain" is required in RDBI configuration type'; |
||||
return 0; |
||||
} |
||||
print STDERR __PACKAGE__ . 'Warning: "dbiUser" parameter is not set' |
||||
unless ( $self->{dbiUser} ); |
||||
$self->{dbiTable} ||= "lmConfig"; |
||||
1; |
||||
} |
||||
|
||||
sub available { |
||||
my $self = shift; |
||||
my $sth = |
||||
$self->dbh->prepare( "SELECT DISTINCT cfgNum from " |
||||
. $self->{dbiTable} |
||||
. " order by cfgNum" ); |
||||
$sth->execute(); |
||||
my @conf; |
||||
while ( my @row = $sth->fetchrow_array ) { |
||||
push @conf, $row[0]; |
||||
} |
||||
return @conf; |
||||
} |
||||
|
||||
sub lastCfg { |
||||
my $self = shift; |
||||
my @row = $self->dbh->selectrow_array( |
||||
"SELECT max(cfgNum) from " . $self->{dbiTable} ); |
||||
return $row[0]; |
||||
} |
||||
|
||||
sub dbh { |
||||
my $self = shift; |
||||
$self->{dbiTable} ||= "lmConfig"; |
||||
return $self->{dbh} if ( $self->{dbh} and $self->{dbh}->ping ); |
||||
return DBI->connect_cached( |
||||
$self->{dbiChain}, $self->{dbiUser}, |
||||
$self->{dbiPassword}, { RaiseError => 1 } |
||||
); |
||||
} |
||||
|
||||
sub lock { |
||||
my $self = shift; |
||||
my $sth = $self->dbh->prepare_cached( q{SELECT GET_LOCK(?, 5)}, {}, 1 ); |
||||
$sth->execute('lmconfrdbi'); |
||||
my @row = $sth->fetchrow_array; |
||||
return $row[0] || 0; |
||||
} |
||||
|
||||
sub isLocked { |
||||
my $self = shift; |
||||
my $sth = $self->dbh->prepare_cached( q{SELECT IS_FREE_LOCK(?)}, {}, 1 ); |
||||
$sth->execute('lmconfrdbi'); |
||||
my @row = $sth->fetchrow_array; |
||||
return $row[0] ? 0 : 1; |
||||
} |
||||
|
||||
sub unlock { |
||||
my $self = shift; |
||||
my $sth = $self->dbh->prepare_cached( q{SELECT RELEASE_LOCK(?)}, {}, 1 ); |
||||
$sth->execute('lmconfrdbi'); |
||||
my @row = $sth->fetchrow_array; |
||||
return $row[0] || 0; |
||||
} |
||||
|
||||
sub store { |
||||
my ( $self, $fields ) = @_; |
||||
$self->{noQuotes} = 1; |
||||
$fields = $self->serialize($fields); |
||||
my $errors = 0; |
||||
eval { $self->dbh->do('BEGIN'); }; |
||||
while ( my ( $k, $v ) = each %$fields ) { |
||||
unless ( |
||||
$self->dbh->do( |
||||
"insert into " |
||||
. $self->{dbiTable} |
||||
. " (cfgNum,field,value) values (" |
||||
. join( ',', $fields->{cfgNum}, "'$k'", "'$v'" ) . ')' |
||||
) |
||||
) |
||||
{ |
||||
$self->logError; |
||||
$errors++; |
||||
last; |
||||
} |
||||
} |
||||
eval { $errors ? $self->dbh->do("ROLLBACK") : $self->dbh->do("COMMIT"); }; |
||||
unless ( $self->unlock ) { |
||||
$self->logError; |
||||
} |
||||
return $errors ? UNKNOWN_ERROR : $fields->{cfgNum}; |
||||
} |
||||
|
||||
sub load { |
||||
my ( $self, $cfgNum, $fields ) = @_; |
||||
$fields = $fields ? join( ",", @$fields ) : '*'; |
||||
my $sth = |
||||
$self->dbh->prepare( "SELECT cfgNum,field,value from " |
||||
. $self->{dbiTable} |
||||
. " WHERE cfgNum=$cfgNum" ); |
||||
$sth->execute(); |
||||
my ( $res, @row ); |
||||
while ( @row = $sth->fetchrow_array ) { |
||||
$res->{ $row[1] } = $row[2]; |
||||
} |
||||
unless($res) { |
||||
$Lemonldap::NG::Common::Conf::msg .= "No configuration $cfgNum found"; |
||||
return 0; |
||||
} |
||||
$res->{cfgNum} = $cfgNum; |
||||
return $self->unserialize($res); |
||||
} |
||||
|
||||
sub delete { |
||||
my ( $self, $cfgNum ) = @_; |
||||
$self->dbh->do( |
||||
"DELETE from " . $self->{dbiTable} . " WHERE cfgNum=$cfgNum" ); |
||||
} |
||||
|
||||
sub logError { |
||||
my $self = shift; |
||||
$Lemonldap::NG::Common::Conf::msg .= |
||||
"Database error: " . $self->dbh->errstr . "\n"; |
||||
} |
||||
|
||||
1; |
||||
__END__ |
||||
|
||||
@ -0,0 +1,66 @@ |
||||
#!/usr/bin/perl |
||||
|
||||
use strict; |
||||
use Getopt::Long; |
||||
use Lemonldap::NG::Common::Conf; |
||||
|
||||
my %opts; |
||||
my $result = GetOptions ( \%opts, 'help|h', 'current|c=s', 'new|n=s', 'latest|l' ); |
||||
|
||||
if( $opts{help} or not ( $opts{current} and $opts{new} ) ) { |
||||
print STDERR "Usage: $0 --current=/current/lemonldap-ng.ini --new=/new/lemonldap-ng.ini\n"; |
||||
print STDERR "# other parameters: |
||||
--latest -l |
||||
convert only last configuration |
||||
"; |
||||
exit 1; |
||||
} |
||||
|
||||
foreach( $opts{current}, $opts{new} ) { |
||||
unless( -e $_ ) { |
||||
print STDERR "$_ does not exist\n"; |
||||
exit 2; |
||||
} |
||||
unless( -r $_ ) { |
||||
print STDERR "$_ is not readable\n"; |
||||
exit 3; |
||||
} |
||||
} |
||||
my $old = Lemonldap::NG::Common::Conf->new({ |
||||
confFile => $opts{current}, |
||||
noCache=>1, |
||||
}); |
||||
unless($old) { |
||||
print STDERR "Failed to get current conf : $Lemonldap::NG::Common::Conf::msg\n"; |
||||
exit 4; |
||||
} |
||||
my $new = Lemonldap::NG::Common::Conf->new({ |
||||
confFile => $opts{new}, |
||||
force=>1, |
||||
noCache=>1, |
||||
cfgNumFixed=>1, |
||||
}); |
||||
unless($new) { |
||||
print STDERR "Failed to create new conf object : $Lemonldap::NG::Common::Conf::msg\n"; |
||||
exit 5; |
||||
} |
||||
my @available; |
||||
if($opts{lastest}){ |
||||
@available = $old->lastCfg(); |
||||
}else{ |
||||
@available = $old->available(); |
||||
} |
||||
foreach(@available) { |
||||
my $conf = $old->getConf({cfgNum=>$_}); |
||||
eval { delete $conf->{reVHosts}; |
||||
delete $conf->{cipher}; |
||||
}; |
||||
unless($conf){ |
||||
print STDERR "\nFailed to get conf $_ : $Lemonldap::NG::Common::Conf::msg\n"; |
||||
exit 6; |
||||
} |
||||
print "Conf $conf->{cfgNum}:"; |
||||
my $r = $new->saveConf($conf); |
||||
print ($r ? "stored" : "failed: $Lemonldap::NG::Common::Conf::msg"); |
||||
print "\n"; |
||||
} |
||||
@ -1,109 +0,0 @@ |
||||
#!/usr/bin/perl |
||||
|
||||
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' |
||||
if 0; # not running under some shell |
||||
|
||||
use Getopt::Std; |
||||
use Lemonldap::NG::Common::Conf; |
||||
use File::Basename; |
||||
use strict; |
||||
|
||||
# Get ARGS |
||||
my %opts; |
||||
getopts( 'b:c', \%opts ); |
||||
|
||||
&usage("configuration file required") |
||||
unless ( $ARGV[0] ); |
||||
&usage(qq#$ARGV[0] is not readable#) |
||||
unless ( -r $ARGV[0] ); |
||||
&usage("configuration branch required") |
||||
unless ( $opts{b} ); |
||||
|
||||
# Internal varibales |
||||
my $branch = $opts{b}; |
||||
my ( $branchname ) = ( $branch =~ /^ou=(.+?),/ ); |
||||
my ($filename, $directories, $suffix) = fileparse ( $ARGV[0] ); |
||||
|
||||
|
||||
# LDIF header |
||||
print "# LemonLDAP::NG configuration (converted from files)\n"; |
||||
|
||||
# Create configuration branch |
||||
if($opts{c}) { |
||||
print "dn: $branch |
||||
objectClass: top |
||||
objectClass: organizationalUnit |
||||
ou: $branchname\n\n"; |
||||
} |
||||
|
||||
# Create configuration entry |
||||
open FILE, $ARGV[0]; |
||||
$/ = ""; |
||||
|
||||
print "dn: cn=$filename,$branch |
||||
objectClass: top |
||||
objectClass: applicationProcess |
||||
cn: $filename\n"; |
||||
|
||||
while (<FILE>) { |
||||
my ( $k, $v ) = split /\n\s+/; |
||||
chomp $k; |
||||
next unless($k); |
||||
$v =~ s/\n*$//; |
||||
print "description: {$k}$v\n"; |
||||
} |
||||
|
||||
print "\n"; |
||||
|
||||
sub usage { |
||||
print STDERR shift; |
||||
print STDERR "\nusage: $0 <options> file |
||||
Options: |
||||
-b branch : name of the configuration branch |
||||
-c : add 'create table' instruction\n\n"; |
||||
exit 1; |
||||
} |
||||
1; |
||||
__END__ |
||||
|
||||
=head1 NAME |
||||
|
||||
lmConfig_File2LDIF - Perl utility to convert Lemonldap::NG configuration file |
||||
into LDIF file. |
||||
|
||||
=head1 SYNOPSIS |
||||
|
||||
lmConf_File2LDIF <options> /path/to/lmConf-1 |
||||
|
||||
=head1 DESCRIPTION |
||||
|
||||
Use this software to convert Lemonldap::NG configuration file into LDIF. |
||||
|
||||
=head2 Options |
||||
|
||||
=over |
||||
|
||||
=item * -b : name of the configuration branch |
||||
|
||||
=item * -c : create the configuration branch (organizationalUnit) |
||||
|
||||
=back |
||||
|
||||
=head1 SEE ALSO |
||||
|
||||
Lemonldap::NG::Manager |
||||
|
||||
=head1 AUTHOR |
||||
|
||||
Clement Oudot, E<lt>clement@oodo.netE<gt> |
||||
|
||||
=head1 COPYRIGHT AND LICENSE |
||||
|
||||
Copyright (C) 2007 by Xavier Guimard |
||||
Copyright (C) 2009 by Clement Oudot |
||||
|
||||
This library is free software; you can redistribute it and/or modify |
||||
it under the same terms as Perl itself, either Perl version 5.8.8 or, |
||||
at your option, any later version of Perl 5 you may have available. |
||||
|
||||
=cut |
||||
@ -1,111 +0,0 @@ |
||||
#!/usr/bin/perl |
||||
|
||||
use Getopt::Std; |
||||
use Lemonldap::NG::Common::Conf; |
||||
use strict; |
||||
|
||||
# Get ARGS |
||||
my %opts; |
||||
getopts( 'ct:', \%opts ); |
||||
|
||||
|
||||
usage("configuration file required") |
||||
unless ( $ARGV[0] ); |
||||
usage(qq#$ARGV[0] is not readable#) |
||||
unless ( -r $ARGV[0] ); |
||||
|
||||
my $table = $opts{t} || 'lmConfig'; |
||||
if($opts{c}) { |
||||
print "CREATE TABLE $table ( |
||||
cfgNum int not null primary key, |
||||
locationRules text, |
||||
exportedHeaders text, |
||||
globalStorage text, |
||||
globalStorageOptions text, |
||||
macros text, |
||||
groups text, |
||||
portal text, |
||||
domain text, |
||||
ldapServer text, |
||||
ldapPort int, |
||||
ldapBase text, |
||||
securedCookie int, |
||||
cookieName text, |
||||
authentication text, |
||||
exportedVars text, |
||||
managerDn text, |
||||
managerPassword text, |
||||
timeout int, |
||||
whatToTrace text\n);\n"; |
||||
} |
||||
|
||||
my $fields; |
||||
open FILE, $ARGV[0]; |
||||
$/ = ""; |
||||
while (<FILE>) { |
||||
my ( $k, $v ) = split /\n\s+/; |
||||
chomp $k; |
||||
next unless($k); |
||||
$v =~ s/\n*$//; |
||||
$fields->{$k} = $v; |
||||
} |
||||
print "INSERT INTO " |
||||
. $table . " (\n\t" |
||||
. join( ",\n\t", keys(%$fields) ) |
||||
. ")\n VALUES (\n\t" |
||||
. join( ",\n\t", values(%$fields) ) |
||||
. "\n );\n"; |
||||
close FILE; |
||||
|
||||
sub usage { |
||||
print STDERR shift; |
||||
print STDERR "\nusage: $0 <options> file |
||||
Options: |
||||
-t table : name of the table (default: lmConfig) |
||||
-c : add 'create table' instruction\n"; |
||||
exit 1; |
||||
} |
||||
1; |
||||
__END__ |
||||
|
||||
=head1 NAME |
||||
|
||||
lmConfig_File2MySQL - Perl utility to convert Lemonldap::NG configuration file |
||||
into MySQL SQL file. |
||||
|
||||
=head1 SYNOPSIS |
||||
|
||||
lmConf_File2MySQL <options> /path/to/lmConf-1 |
||||
|
||||
=head1 DESCRIPTION |
||||
|
||||
Use this software to convert Lemonldap::NG configuration file into SQL |
||||
instructions. |
||||
|
||||
=head2 Options |
||||
|
||||
=over |
||||
|
||||
=item * -c : add "create table" instruction |
||||
|
||||
=item * -t : name of the table (lmConfig by default) |
||||
|
||||
=back |
||||
|
||||
=head1 SEE ALSO |
||||
|
||||
Lemonldap::NG::Manager |
||||
|
||||
=head1 AUTHOR |
||||
|
||||
Xavier Guimard, E<lt>x.guimard@free.frE<gt> |
||||
|
||||
=head1 COPYRIGHT AND LICENSE |
||||
|
||||
Copyright (C) 2007 by Xavier Guimard |
||||
|
||||
This library is free software; you can redistribute it and/or modify |
||||
it under the same terms as Perl itself, either Perl version 5.8.8 or, |
||||
at your option, any later version of Perl 5 you may have available. |
||||
|
||||
=cut |
||||
Loading…
Reference in new issue