# upgrades.
#
sub readoldconfig {
- open(CONFIG, "@CONFIGOLD@") or
+ open(CONFIG, "@CMAKE_INSTALL_FULL_SYSCONFDIR@/onak.conf") or
die "Can't read config file: $!";
while (<CONFIG>) {
#
sub readconfig {
# Prefer the old style config if it exists.
- if (-e "@CONFIGOLD@") {
+ if (-e "@CMAKE_INSTALL_FULL_SYSCONFDIR@/onak.conf") {
&readoldconfig;
return;
}
- open(CONFIG, "@CONFIG@") or
+ open(CONFIG, "@CMAKE_INSTALL_FULL_SYSCONFDIR@/onak.ini") or
die "Can't read config file: $!";
- $section = "";
+ my $section = "";
while (<CONFIG>) {
if (/^#/ or /^$/) {
# Ignore; comment line.
} elsif (/^\[(\w+)\]/) {
- section = $1;
- } elsif ($section == "main") {
+ $section = $1;
+ } elsif ($section eq "main") {
if (/^logfile\s*=\s*(.*)/) {
$config{'logfile'} = $1;
}
- } elsif ($section == "mail") {
+ } elsif ($section eq "mail") {
if (/^this_site\s*=\s*(.*)/) {
$config{'thissite'} = $1;
} elsif (/^maintainer_email\s*=\s*(.*)/) {