Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- sub valDBok {
- my ($kernel,$self,$db) = @_[KERNEL,OBJECT,ARG0];
- if (!$db->{sql}) {
- $kernel->post(
- 'dbconfig',
- hashhash => {
- sql => 'SELECT * FROM config ',
- event => 'valDBok',
- }
- );
- } else {
- $kernel->post($self->{parent},"passback",{ type=>"debug", msg=>"DB Connection established", src=>"DBIO", class=>"debug" });
- if (!$db->{result}->{admin}->{value}) { $kernel->post($self->{parent},"passback",{ type=>"debug", msg=>"Failed admin verification", src=>'DBIO', class=>'normal' }); }
- elsif ((!$db->{result}->{created}->{value}) && ($db->{result}->{created}->{value} !~ m#^(\d+|auto)$#)) { $kernel->post($self->{parent},"passback",{ type=>"debug", msg=>"Failed created verification" }); }
- elsif (!$db->{result}->{db}->{value}) { $kernel->post($self->{parent},"passback",{ type=>"debug", msg=>"Failed DB verification" }); }
- elsif ((!$db->{result}->{port}->{value}) || ($db->{result}->{port}->{value} !~ m#^(\d+|auto)$#)) { $kernel->post($self->{parent},"passback",{ type=>"debug", msg=>"Failed port verification" }); }
- elsif (!$db->{result}->{host}->{value}) { $kernel->post($self->{parent},"passback",{ type=>"debug", msg=>"Failed port verification" }); }
- else { $kernel->post($self->{parent},"passback",{ type=>"debug", msg=>"DB validation: OK" }); }
- $kernel->post($self->{parent},"boot", {
- type => "initial",
- config => {
- admin => $db->{result}->{admin}->{value},
- created => $db->{result}->{created}->{value},
- db => $db->{result}->{db}->{value},
- port => $db->{result}->{port}->{value},
- host => $db->{result}->{host}->{value}
- }
- });
- $kernel->post($self->{parent},"passback",{ type=>"debug", msg=>"DB 'config' marked ready." });
- $initialized{config} = 1;
- }
- }
Add Comment
Please, Sign In to add comment