jailkit-lib.pl

#!/usr/bin/perl
use strict;
use warnings;

our (%config, %text);

=head1 jailkit-lib.pl

Functions for the Jailkit Webmin module

  foreign_require("jailkit", "jailkit-lib.pl");
  $jk_init_ini = jailkit::get_jk_init_ini();

$jk_init_ini will contain a list of hashrefs of configuration
directives from jk_init.ini.

=cut

BEGIN { push(@INC, ".."); }
eval "use WebminCore;";

init_config();

=head2 get_jk_init_ini()

Returns the jailkit configuration as a list of hash references with name and key value keys.

=cut

sub get_jk_init_ini {
  use Config::IniFiles;

  my $jk_init_ini = new Config::IniFiles(
    -file => "$config{'jailkit_config_dir'}/jk_init.ini");
  return $jk_init_ini;
}

=head2 write_jk_init_ini(\%jk_init_ini)

Write configuration file array to config file. May return an error object, if write fails.

=cut

sub write_jk_init_ini {
  use Config::IniFiles;
  my ($jk_init_ini) = @_;
  my $result = $jk_init_ini->RewriteConfig($config{'jk_init_ini'});
  unless ($result) {
    error($text{'error_save_failed'});
  }
  return;
}

1;