projects
/
aymargeddon
/
current.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
text of registration email changed with new mailman-link.
[aymargeddon/current.git]
/
src
/
FROGS
/
Config.pm
diff --git
a/src/FROGS/Config.pm
b/src/FROGS/Config.pm
index
6ac0bef
..
4244760
100644
(file)
--- a/
src/FROGS/Config.pm
+++ b/
src/FROGS/Config.pm
@@
-40,7
+40,7
@@
$::conf = {
-DEFAULT_LANGUAGE => 'EN',
-LOG_TIME_IN_LOOP => 1000, # loops until next time output in log
-DEBUG => 1,
-DEFAULT_LANGUAGE => 'EN',
-LOG_TIME_IN_LOOP => 1000, # loops until next time output in log
-DEBUG => 1,
- -EPL_DEBUG =>
2
,
+ -EPL_DEBUG =>
1
,
-MESSAGE_IN_LOG => 0,
-FULL_DEBUG_FILE => '/home/benni/aymargeddon/current/src/FROGS/+out',
-SCHEDULER_SLEEP => 2,
-MESSAGE_IN_LOG => 0,
-FULL_DEBUG_FILE => '/home/benni/aymargeddon/current/src/FROGS/+out',
-SCHEDULER_SLEEP => 2,
@@
-200,7
+200,7
@@
while(<CONFIG>){
next if /^\s*\#.*$/;
$::conf->{-DB_PASSWD} = $_;
}
next if /^\s*\#.*$/;
$::conf->{-DB_PASSWD} = $_;
}
-print $::conf->{-DB_PASSWD};
+
close CONFIG or die "could not close config file $conf: $!\n";
1;
close CONFIG or die "could not close config file $conf: $!\n";
1;