JFIFxxC      C  " }!1AQa"q2#BR$3br %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz w!1AQaq"2B #3Rbr#!/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;