Stephdl Repository

esmith::DB::db - interface to esmith::db databases

In a root terminal you can do the command below if you want to display the up-to-date content perldoc -U esmith::DB::db

Works just like an esmith::DB class except where noted

This module provides an abstracted interface to esmith::db flat-file databases. It will read from and write to esmith::db files and can be safely used right along side esmith::db. This follows the esmith::DB interface and will work as documented there unless otherwise stated.

You should use this instead of esmith::db, and replace any existing esmith::db code with this.

Note for esmith::db users the old concept of a ’type’ is now simply another property.

         my $type = $record->prop(’type’);

replaces db_get_type().

The $record returned by esmith::DB::db subclass is an esmith::DB::db::Record subclass object. See the esmith::DB::db manpage for details on how it is used.

Puts its error on esmith::DB::db→error

     open
     open_local
     as_hash
     reload
     file
     new_record
     get
     get_all
     get_all_by_prop

The full docs can be found in esmith::DB and esmith::DB::Record, but here’s a cheat sheet for esmith::config and esmith::db users.

             use esmith::config
             my %config;
             tie %config, ’esmith::config;

Now:

             use esmith::ConfigDB;
             my $config = esmith::ConfigDB->open;

             my %config;
             tie %config, ’esmith::config’, $config_file;

Now:

             my $config = esmith::ConfigDB->open($config_file);

This one’s important. Before you could just tie esmith::config to any file and it would create it for you. Now you have to explicitly create it.

             my %config;
             tie %config, ’esmith::config’, $new_config_file;

Now:

             my $config = esmith::ConfigDB->create($new_config_file);

             print "Yep" if exists $config{foo};

now:

             print "Yep" if $config->get(’foo’); # unless of course, ’foo’ is zero

Previously you could just create records on the fly:

             # single value
             $config{foo} = ’whatever’;

             # with properties
             db_set(\%config, ’whatever’, ’sometype’, { with => ’properties’ });

Now you have to explicitly create them:

             # single value
             my $foo = $config->new_record(’foo’);
             $foo->set_value(’foo’);

# with properties

             my %defaults = ( ’type’    => ’sometype’,
                              ’linux’   => ’stable’,
                              ’windows’ => ’stable?’ );
             my $foo = $config->new_record(’foo’, \%defaults);

Note that ’type’ is now just another property.

Here’s a handy “create this if it doesn’t already exist” idiom.

             my $rec = $config->get($key) ││
                       $config->new_record($key);

Entries in a database should no longer be thought of as values, but as records.

             my $val = $config{foo};

Now this only works with entries with single value. Things with multiple properties are dealt with differently.

             my $record = $config->get(’foo’);
             my $val = $record->value;

             $config{foo} = ’something’;

now

             my $record = $config->get(’foo’);
             $record->set_value(’something’);

             my $this = db_get_prop(\%config, ’foo’, ’this’);

now:

             my $foo = $config->get(’foo’);
             my $this = $foo->prop(’this’);

             my $val = db_get_prop(\%config, ’foo’, ’some prop’);
             db_set_prop(\%config, ’foo’, ’some prop’ => $new_val);

now:

             my $val = $record->prop(’some prop’);
             $record->set_prop(’some prop’ => $new_val);

             my $type = db_get_type(\%config, ’foo’);
             db_set_type(\%config, ’foo’, $new_type);

type is now just a property

             my $record = $db->get(’foo’);
             my $type = $record->prop(’type’);
             $record->set_prop(’type’, $new_type);

             my %props = db_get_prop(\%config, ’foo’);

now

             my %props = $record->props;

     SME Server Developers <bugs@e-smith.com>