read()){
$ext = substr($entry, strlen($entry)-5, 5);
$name = substr($entry, 0, strlen($entry)-5);
// check if extension is right, add to profile list
if ($ext == ".conf") {
$ret[$pos] = $name;
$pos ++;
}
}
sort($ret);
return $ret;
}
// print meta refresh
// $page is the URL of the target page
function metaRefresh($page) {
echo $_SESSION['header'];
echo "\n";
echo "\n";
echo "\n";
echo "\n";
echo "\n";
echo "\n";
// print link if refresh does not work
echo "\n";
echo "" . _("Click here if you are not directed to the next page.") . "\n";
echo "
\n";
echo "\n";
echo "\n";
}
/*
// class Config
*/
// manages .conf files
class Config {
// server address (e.g. ldap://127.0.0.1:389)
var $ServerURL;
// array of strings: users with admin rights
var $Admins;
// string: password to edit preferences
var $Passwd;
// suffix for users
var $usersuffix;
// suffix for groups
var $groupsuffix;
// suffix for Samba hosts
var $hostsuffix;
// suffix for domains (Samba 3)
var $domainsuffix;
// minimum/maximum numbers for UID, GID and UID of Samba Hosts
var $MinUID;
var $MaxUID;
var $MinGID;
var $MaxGID;
var $MinMachine;
var $MaxMachine;
// attributes that are shown in the user/group/host tables
var $userlistAttributes;
var $grouplistAttributes;
var $hostlistAttributes;
// maximum number of rows shown in user/group/host list
var $maxlistentries;
// default language
var $defaultLanguage;
// Path to external script and server where it is executed
// used for managing quota and home directories
// optional settings, may not be defined
var $scriptPath;
var $scriptServer;
// if "yes" use the new LDAP schema for Samba 3.x
var $samba3;
// LDAP cache timeout
var $cachetimeout;
// password hash algorithm
var $pwdhash;
// text to include in user PDF files
var $pdftext = "";
// name of configuration file
var $file;
// list of all settings in config file
var $settings = array("ServerURL", "Passwd", "Admins", "usersuffix", "groupsuffix", "hostsuffix",
"domainsuffix", "MinUID", "MaxUID", "MinGID", "MaxGID", "MinMachine", "MaxMachine",
"userlistAttributes", "grouplistAttributes", "hostlistAttributes", "maxlistentries",
"defaultLanguage", "scriptPath", "scriptServer", "samba3", "cachetimeout", "pwdhash");
// constructor, loads preferences from config file
function Config($file=0) {
// load first profile if none is given
if (!is_string($file)) {
$profiles = getConfigProfiles();
$file = $profiles[0];
}
$this->file = $file;
$this->reload();
}
// reloads preferences from config file
function reload() {
$conffile = substr(__FILE__, 0, strlen(__FILE__) - 15) . "/config/" . $this->file . ".conf";
if (is_file($conffile) == True) {
$file = fopen($conffile, "r");
while (!feof($file)) {
$line = fgets($file, 1024);
$line = trim($line); // remove spaces at the beginning and end
if (($line == "")||($line[0] == "#")) continue; // ignore comments and empty lines
// search keywords
for ($i = 0; $i < sizeof($this->settings); $i++) {
$keyword = $this->settings[$i];
$keylen = strlen($keyword);
if (strtolower(substr($line, 0, $keylen + 2)) == strtolower($keyword . ": ")) {
$this->$keyword = substr($line, $keylen + 2, strlen($line) - $keylen -2);
break;
}
}
}
fclose($file);
}
else {
StatusMessage("ERROR", "", _("Unable to load configuration!") . " (" . $conffile . ")");
}
// load user PDF text
$pdffile = substr(__FILE__, 0, strlen(__FILE__) - 15) . "/config/pdf/" . $this->file . ".txt";
if (is_file($pdffile) == True) {
$pdfstring = @file($pdffile);
$pdfstring = @implode("", $pdfstring);
if ($pdfstring) $this->pdftext = $pdfstring;
else $this->pdftext = "";
}
}
// saves preferences to config file
function save() {
$conffile = substr(__FILE__, 0, strlen(__FILE__) - 15) . "/config/" . $this->file . ".conf";
if (is_file($conffile) == True) {
$file = fopen($conffile, "r");
$file_array = array();
// read config file
while (!feof($file)) {
array_push($file_array, fgets($file, 1024));
}
fclose($file);
// generate new configuration file
$saved = array(); // includes all settings which have been saved
for ($i = 0; $i < sizeof($file_array); $i++) {
$line = trim($file_array[$i]);
if (($line == "")||($line[0] == "#")) continue; // ignore comments and empty lines
// search for keywords
for ($k = 0; $k < sizeof($this->settings); $k++) {
$keyword = $this->settings[$k];
$keylen = strlen($keyword);
if (strtolower(substr($line, 0, $keylen + 1)) == strtolower($keyword . ":")) {
$file_array[$i] = $keyword . ": " . $this->$keyword . "\n";
$saved[] = $keyword; // mark keyword as saved
break;
}
}
}
// check if we have to add new entries (e.g. if user upgraded LAM and has an old config file)
if (!in_array("ServerURL", $saved)) array_push($file_array, "\n\n# server address (e.g. ldap://localhost:389 or ldaps://localhost:636)\n" . "serverURL: " . $this->ServerURL . "\n");
if (!in_array("Passwd", $saved)) array_push($file_array, "\n\n# password to change these preferences via webfrontend\n" . "passwd: " . $this->Passwd . "\n");
if (!in_array("Admins", $saved)) array_push($file_array, "\n\n# list of users who are allowed to use LDAP Account Manager\n" .
"# names have to be seperated by semicolons\n" .
"# e.g. admins: cn=admin,dc=yourdomain,dc=org;cn=root,dc=yourdomain,dc=org\n" . "admins: " . $this->Admins . "\n");
if (!in_array("usersuffix", $saved)) array_push($file_array, "\n\n# suffix of users\n" .
"# e.g. ou=People,dc=yourdomain,dc=org\n" . "usersuffix: " . $this->usersuffix . "\n");
if (!in_array("groupsuffix", $saved)) array_push($file_array, "\n\n# suffix of groups\n" .
"# e.g. ou=Groups,dc=yourdomain,dc=org\n" . "groupsuffix: " . $this->groupsuffix . "\n");
if (!in_array("hostsuffix", $saved)) array_push($file_array, "\n\n# suffix of Samba hosts\n" .
"# e.g. ou=machines,dc=yourdomain,dc=org\n" . "hostsuffix: " . $this->hostsuffix . "\n");
if (!in_array("domainsuffix", $saved)) array_push($file_array, "\n\n# suffix of Samba 3 domains\n" .
"# e.g. ou=domains,dc=yourdomain,dc=org\n" . "domainsuffix: " . $this->domainsuffix . "\n");
if (!in_array("MinUID", $saved)) array_push($file_array, "\n\n# minimum UID number\n" . "minUID: " . $this->MinUID . "\n");
if (!in_array("MaxUID", $saved)) array_push($file_array, "\n\n# maximum UID number\n" . "maxUID: " . $this->MaxUID . "\n");
if (!in_array("MinGID", $saved)) array_push($file_array, "\n\n# minimum GID number\n" . "minGID: " . $this->MinGID . "\n");
if (!in_array("MaxGID", $saved)) array_push($file_array, "\n\n# maximum GID number\n" . "maxGID: " . $this->MaxGID . "\n");
if (!in_array("MinMachine", $saved)) array_push($file_array, "\n\n# minimum UID number for Samba hosts\n" . "minMachine: " . $this->MinMachine . "\n");
if (!in_array("MaxMachine", $saved)) array_push($file_array, "\n\n# maximum UID number for Samba hosts\n" . "maxMachine: " . $this->MaxMachine . "\n");
if (!in_array("userlistAttributes", $saved)) array_push($file_array, "\n\n# list of attributes to show in user list\n# entries can either be predefined values (e.g. '#cn' or '#uid')" .
"\n# or individual ones (e.g. 'uid:User ID' or 'host:Host Name')\n# values have to be seperated by semicolons\n" . "userlistAttributes: " . $this->userlistAttributes . "\n");
if (!in_array("grouplistAttributes", $saved)) array_push($file_array, "\n\n# list of attributes to show in group list\n# entries can either be predefined values (e.g. '#cn' or '#gidNumber')" .
"\n# or individual ones (e.g. 'cn:Group Name')\n# values have to be seperated by semicolons\n" . "grouplistAttributes: " . $this->grouplistAttributes . "\n");
if (!in_array("hostlistAttributes", $saved)) array_push($file_array, "\n\n# list of attributes to show in host list\n# entries can either be predefined values (e.g. '#cn' or '#uid')" .
"\n# or individual ones (e.g. 'cn:Host Name')\n# values have to be seperated by semicolons\n" . "hostlistAttributes: " . $this->hostlistAttributes . "\n");
if (!in_array("maxlistentries", $saved)) array_push($file_array, "\n\n# maximum number of rows to show in user/group/host lists\n" . "maxlistentries: " . $this->maxlistentries . "\n");
if (!in_array("defaultLanguage", $saved)) array_push($file_array, "\n\n# default language (a line from config/language)\n" . "defaultLanguage: " . $this->defaultLanguage . "\n");
if (!in_array("scriptPath", $saved)) array_push($file_array, "\n\n# Path to external Script\n" . "scriptPath: " . $this->scriptPath . "\n");
if (!in_array("scriptServer", $saved)) array_push($file_array, "\n\n# Server of external Script\n" . "scriptServer: " . $this->scriptServer . "\n");
if (!in_array("samba3", $saved)) array_push($file_array, "\n\n# Set to \"yes\" only if you use the new Samba 3.x schema.\n" . "samba3: " . $this->samba3 . "\n");
if (!in_array("cachetimeout", $saved)) array_push($file_array, "\n\n# Number of minutes LAM caches LDAP searches.\n" . "cacheTimeout: " . $this->cachetimeout . "\n");
if (!in_array("pwdhash", $saved)) array_push($file_array, "\n\n# Password hash algorithm (CRYPT/MD5/SMD5/SHA/SSHA/PLAIN).\n" . "pwdhash: " . $this->pwdhash . "\n");
$file = fopen($conffile, "w");
if ($file) {
for ($i = 0; $i < sizeof($file_array); $i++) fputs($file, $file_array[$i]);
fclose($file);
@chmod ($conffile, 0600);
}
else {
StatusMessage("ERROR", "", _("Cannot open config file!") . " (" . $conffile . ")");
exit;
}
}
}
// prints current preferences
function printconf() {
echo "" . _("Server address") . ": " . $this->ServerURL . "
";
echo "" . _("Password hash type") . ": " . $this->pwdhash . "
";
echo "" . _("Cache timeout") . ": " . $this->cachetimeout . "
";
echo "" . _("Samba 3.x schema") . ": " . $this->samba3 . "
";
echo "" . _("UserSuffix") . ": " . $this->usersuffix . "
";
echo "" . _("GroupSuffix") . ": " . $this->groupsuffix . "
";
echo "" . _("HostSuffix") . ": " . $this->hostsuffix . "
";
echo "" . _("DomainSuffix") . ": " . $this->domainsuffix . "
";
echo "" . _("Minimum UID number") . ": " . $this->MinUID . "
";
echo "" . _("Maximum UID number") . ": " . $this->MaxUID . "
";
echo "" . _("Minimum GID number") . ": " . $this->MinGID . "
";
echo "" . _("Maximum GID number") . ": " . $this->MaxGID . "
";
echo "" . _("Minimum Machine number") . ": " . $this->MinMachine . "
";
echo "" . _("Maximum Machine number") . ": " . $this->MaxMachine . "
";
echo "" . _("Attributes in User List") . ": " . $this->userlistAttributes . "
";
echo "" . _("Attributes in Group List") . ": " . $this->grouplistAttributes . "
";
echo "" . _("Attributes in Host List") . ": " . $this->hostlistAttributes . "
";
echo "" . _("Maximum list entries") . ": " . $this->maxlistentries . "
";
echo "" . _("Default language") . ": " . $this->defaultLanguage . "
";
echo "" . _("Path to external script") . ": " . $this->scriptPath . "
";
echo "" . _("Server of external script") . ": " . $this->scriptServer . "
";
echo "" . _("List of valid users") . ": " . $this->Admins . "
";
echo "" . _("Text for user PDF") . ": " . $this->get_pdftext();
}
// functions to read/write preferences
// returns the server address as string
function get_ServerURL() {
return $this->ServerURL;
}
// sets the server address
// $value: new server address
// returns true if $value has correct format
function set_ServerURL($value) {
if (is_string($value)) $this->ServerURL = $value;
else return false;
return true;
}
// returns an array of string with all admin names
function get_Admins() {
return explode(";", $this->Admins);
}
// returns all admin users seperated by semicolons
function get_Adminstring() {
return $this->Admins;
}
// needs a string that contains all admin users seperated by semicolons
// $value: new admin string
// returns true if $value has correct format
function set_Adminstring($value) {
if (is_string($value) &&
eregi("^[a-z0-9\\-]+=[a-z0-9\\-]+(,[a-z0-9\\-]+=[a-z0-9 \\-]+)+(;[a-z0-9\\-]+=[a-z0-9\\-]+(,[a-z0-9\\-]+=[a-z0-9 \\-]+)+)*$", $value)) {
$this->Admins = $value;
}
else return false;
return true;
}
// returns the password to access the preferences wizard
function get_Passwd() {
return $this->Passwd;
}
// sets the preferences wizard password
// $value: new password
// returns true if $value has correct format
function set_Passwd($value) {
if (is_string($value)) $this->Passwd = $value;
else return false;
return true;
}
// returns the LDAP suffix where users are saved
function get_UserSuffix() {
return $this->usersuffix;
}
// sets the LDAP suffix where users are saved
// $value: new user suffix
// returns true if $value has correct format
function set_UserSuffix($value) {
if (is_string($value) && (eregi("^(([a-z0-9 \\-])*=([a-z0-9 \\-])*)(,([a-z0-9 \\-])*=([a-z0-9 \\-])*)*$", $value))) {
$this->usersuffix = $value;
}
else return false;
return true;
}
// returns the LDAP suffix where groups are saved
function get_GroupSuffix() {
return $this->groupsuffix;
}
// sets the LDAP suffix where groups are saved
// $value: new group suffix
// returns true if $value has correct format
function set_GroupSuffix($value) {
if (is_string($value) && (eregi("^(([a-z0-9 \\-])*=([a-z0-9 \\-])*)(,([a-z0-9 \\-])*=([a-z0-9 \\-])*)*$", $value))) {
$this->groupsuffix = $value;
}
else return false;
return true;
}
// returns the LDAP suffix where hosts are saved
function get_HostSuffix() {
return $this->hostsuffix;
}
// sets the LDAP suffix where hosts are saved
// $value: new host suffix
// returns true if $value has correct format
function set_HostSuffix($value) {
if (is_string($value) && (eregi("^(([a-z0-9 \\-])*=([a-z0-9 \\-])*)(,([a-z0-9 \\-])*=([a-z0-9 \\-])*)*$", $value))) {
$this->hostsuffix = $value;
}
else return false;
return true;
}
// returns the LDAP suffix where domains are saved
function get_DomainSuffix() {
return $this->domainsuffix;
}
// sets the LDAP suffix where domains are saved
// $value: new domain suffix
// returns true if $value has correct format
function set_DomainSuffix($value) {
if (!$value && ($this->get_Samba3() == "no")) $this->domainsuffix = "";
elseif (is_string($value) && (eregi("^(([a-z0-9 \\-])*=([a-z0-9 \\-])*)(,([a-z0-9 \\-])*=([a-z0-9 \\-])*)*$", $value))) {
$this->domainsuffix = $value;
}
else return false;
return true;
}
// returns the minimum UID to use when creating new users
function get_minUID() {
return $this->MinUID;
}
// sets the minimum UID to use when creating new users
// $value: new minimum UID number
// returns true if $value has correct format
function set_minUID($value) {
if (is_numeric($value)) $this->MinUID = $value;
else return false;
return true;
}
// returns the maximum UID to use when creating new users
function get_maxUID() {
return $this->MaxUID;
}
// sets the maximum UID to use when creating new users
// $value: new maximum UID number
// returns true if $value has correct format
function set_maxUID($value) {
if (is_numeric($value)) $this->MaxUID = $value;
else return false;
return true;
}
// returns the minimum GID to use when creating new groups
function get_minGID() {
return $this->MinGID;
}
// sets the minimum GID to use when creating new groups
// $value: new minimum GID number
// returns true if $value has correct format
function set_minGID($value) {
if (is_numeric($value)) $this->MinGID = $value;
else return false;
return true;
}
// returns the maximum GID to use when creating new groups
function get_maxGID() {
return $this->MaxGID;
}
// sets the maximum GID to use when creating new groups
// $value: new maximum GID number
// returns true if $value has correct format
function set_maxGID($value) {
if (is_numeric($value)) $this->MaxGID = $value;
else return false;
return true;
}
// returns the minimum UID to use when creating new Samba hosts
function get_minMachine() {
return $this->MinMachine;
}
// sets the minimum UID to use when creating new Samba hosts
// $value: new minimum machine number
// returns true if $value has correct format
function set_minMachine($value) {
if (is_numeric($value)) $this->MinMachine = $value;
else return false;
return true;
}
// returns the maximum UID to use when creating new Samba hosts
function get_maxMachine() {
return $this->MaxMachine;
}
// sets the maximum UID to use when creating new Samba hosts
// $value: new maximum machine number
// returns true if $value has correct format
function set_maxMachine($value) {
if (is_numeric($value)) $this->MaxMachine = $value;
else return false;
return true;
}
// returns the list of attributes to show in user list
function get_userlistAttributes() {
return $this->userlistAttributes;
}
// sets the list of attributes to show in user list
// $value: new attribute string
// returns true if $value has correct format
function set_userlistAttributes($value) {
if (is_string($value) && eregi("^((#[a-z]+)|([a-z]*:[a-z_\\-]+))(;((#[a-z]+)|([a-z]*:[a-z_\\-]+)))*$", $value)) {
$this->userlistAttributes = $value;
}
else return false;
return true;
}
// returns the list of attributes to show in group list
function get_grouplistAttributes() {
return $this->grouplistAttributes;
}
// sets the list of attributes to show in group list
// $value: new attribute string
// returns true if $value has correct format
function set_grouplistAttributes($value) {
if (is_string($value) && eregi("^((#[a-z]+)|([a-z]*:[a-z_\\-]+))(;((#[a-z]+)|([a-z]*:[a-z_\\-]+)))*$", $value)) {
$this->grouplistAttributes = $value;
}
else return false;
return true;
}
// returns the list of attributes to show in host list
function get_hostlistAttributes() {
return $this->hostlistAttributes;
}
// sets the list of attributes to show in host list
// $value: new attribute string
// returns true if $value has correct format
function set_hostlistAttributes($value) {
if (is_string($value) && eregi("^((#[a-z]+)|([a-z]*:[a-z_\\-]+))(;((#[a-z]+)|([a-z]*:[a-z_\\-]+)))*$", $value)) {
$this->hostlistAttributes = $value;
}
else return false;
return true;
}
// returns the maximum number of rows in user/group/host lists
function get_MaxListEntries() {
return $this->maxlistentries;
}
// sets the maximum number of rows in user/group/host lists
// $value: new attribute string
// returns true if $value has correct format
function set_MaxListEntries ($value) {
if (is_numeric($value)) $this->maxlistentries = $value;
else return false;
return true;
}
// returns the default language string
function get_defaultLanguage() {
return $this->defaultLanguage;
}
// sets the default language string
// $value: new default language
// returns true if $value has correct format
function set_defaultLanguage($value) {
if (is_string($value)) $this->defaultLanguage = $value;
else return false;
return true;
}
// returns the path to the external script
function get_scriptPath() {
return $this->scriptPath;
}
// sets the path to the external script
// $value: new script path
// returns true if $value has correct format
function set_scriptPath($value) {
if (!$value) $this->scriptPath = ""; // optional parameter
elseif (is_string($value) && eregi("^/([a-z0-9_\\-])+(/([a-z0-9_\\.\\-])+)+$", $value)) $this->scriptPath = $value;
else return false;
return true;
}
// returns the server of the external script
function get_scriptServer() {
return $this->scriptServer;
}
// sets the server of the external script
// $value: new script server
// returns true if $value has correct format
function set_scriptServer($value) {
if (!$value) $this->scriptServer = ""; // optional parameter
elseif (is_string($value) && eregi("^[a-z0-9\\-]+(\\.[a-z0-9\\-]+)*$", $value)) {
$this->scriptServer = $value;
}
else return false;
return true;
}
// returns "yes" if Samba 3.x schema is used, otherwise "no"
function get_samba3() {
return $this->samba3;
}
// returns true if Samba 3, else false
function is_samba3() {
if ($this->samba3 == "yes") return true;
else return false;
}
// set Samba version: "yes" means 3.x schema, "no" means 2.2.x schema
// $value: "yes"/"no"
// returns true if $value has correct format
function set_samba3($value) {
if (is_string($value) && eregi("^(yes|no)$", $value)) {
$this->samba3 = $value;
}
else return false;
return true;
}
// returns the LDAP cache timeout in minutes
function get_cacheTimeout() {
if (isset($this->cachetimeout)) return $this->cachetimeout;
else return 5;
}
// returns the LDAP cache timeout in seconds
function get_cacheTimeoutSec() {
return $this->cachetimeout * 60;
}
// sets the LDAP cache timeout in minutes (0,1,2,5,10,15)
// $value: new cache timeout
// returns true if $value has correct format
function set_cacheTimeout($value) {
if (is_numeric($value) && ($value > -1)) {
$this->cachetimeout = $value;
}
else return false;
return true;
}
// returns the password hash type
function get_pwdhash() {
if ($this->pwdhash) return strtoupper($this->pwdhash);
else return "SSHA";
}
// set the password hash type (CRYPT/SHA/SSHA/MD5/SMD5)
// $value: new password hash algorithm
// returns true if $value has correct format
function set_pwdhash($value) {
if (is_string($value) && eregi("^(crypt|sha|ssha|md5|smd5|plain)$", $value)) {
$this->pwdhash = $value;
}
else return false;
return true;
}
// returns text for user PDF files
function get_pdftext() {
if ($this->pdftext) return $this->pdftext;
else return "";
}
// set the text for user PDF files
// $value: string containing the text
// returns true if $value has correct format and could be saved
function set_pdftext($value) {
// check if text changed
if ($value == $this->pdftext) return true;
if (is_string($value)) {
// save to file
$pdffile = substr(__FILE__, 0, strlen(__FILE__) - 15) . "/config/pdf/" . $this->file . ".txt";
$file = @fopen($pdffile, "w");
if ($file) {
@fputs($file, $value);
fclose($file);
$this->pdftext = $value;
}
else return false;
$this->pdftext = $value;
}
else return false;
return true;
}
}
/*
// class CfgMain
*/
// manages config.cfg
class CfgMain {
// default profile
var $default;
// password to change config.cfg
var $password;
// constructor, loads preferences from config file
function CfgMain() {
$this->reload();
}
// reloads preferences from config file config.cfg
function reload() {
$conffile = substr(__FILE__, 0, strlen(__FILE__) - 15) . "/config/config.cfg";
if (is_file($conffile) == True) {
$file = fopen($conffile, "r");
while (!feof($file)) {
$line = fgets($file, 1024);
$line = trim($line); // remove spaces at the beginning and end
if (($line == "")||($line[0] == "#")) continue; // ignore comments
// search keywords
if (substr($line, 0, 10) == "password: ") {
$this->password = substr($line, 10, strlen($line)-10);
continue;
}
if (substr($line, 0, 9) == "default: ") {
$this->default = substr($line, 9, strlen($line)-9);
continue;
}
}
fclose($file);
}
else {
StatusMessage("ERROR", "", _("Unable to load configuration!") . " (" . $conffile . ")");
}
}
// saves preferences to config file config.cfg
function save() {
$conffile = substr(__FILE__, 0, strlen(__FILE__) - 15) . "/config/config.cfg";
if (is_file($conffile) == True) {
// booleans to check if value was already saved
$save_password = $save_default = False;
$file = fopen($conffile, "r");
$file_array = array();
// read config file
while (!feof($file)) {
array_push($file_array, fgets($file, 1024));
}
fclose($file);
// generate new configuration file
for ($i = 0; $i < sizeof($file_array); $i++) {
if (($file_array[$i] == "\n")||($file_array[$i][0] == "#")) continue; // ignore comments
// search for keywords
if (substr($file_array[$i], 0, 10) == "password: ") {
$file_array[$i] = "password: " . $this->password . "\n";
$save_password = True;
continue;
}
if (substr($file_array[$i], 0, 9) == "default: ") {
$file_array[$i] = "default: " . $this->default . "\n";
$save_default = True;
continue;
}
}
}
// check if we have to add new entries (e.g. if user upgraded LAM and has an old config file)
if (!$save_password == True) array_push($file_array, "\n\n# password to add/delete/rename configuration profiles\n" . "password: " . $this->password);
if (!$save_default == True) array_push($file_array, "\n\n# default profile, without \".conf\"\n" . "default: " . $this->default);
$file = fopen($conffile, "w");
if ($file) {
for ($i = 0; $i < sizeof($file_array); $i++) fputs($file, $file_array[$i]);
fclose($file);
}
else {
StatusMessage("ERROR", "", _("Cannot open config file!") . " (" . $conffile . ")");
exit;
}
}
}
?>