summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
1ec1e2e)
The change to the new configuration file format introduced some paper
bag errors in the mail processing script. Fix these, and add a Perl
syntax check into the test target to try and prevent this sort of thing
in future.
wotsap $(BACKENDS)
test: onak $(BACKENDS)
wotsap $(BACKENDS)
test: onak $(BACKENDS)
@./runtests
install: $(PROGS) onak.ini $(BACKENDS)
@./runtests
install: $(PROGS) onak.ini $(BACKENDS)
open(CONFIG, "@CONFIG@") or
die "Can't read config file: $!";
open(CONFIG, "@CONFIG@") or
die "Can't read config file: $!";
while (<CONFIG>) {
if (/^#/ or /^$/) {
# Ignore; comment line.
} elsif (/^\[(\w+)\]/) {
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;
}
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*(.*)/) {
if (/^this_site\s*=\s*(.*)/) {
$config{'thissite'} = $1;
} elsif (/^maintainer_email\s*=\s*(.*)/) {