git.p6c8.net
/
selfforum.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added Christian Kruse for his contributions.
[selfforum.git]
/
selfforum-cgi
/
shared
/
Conf.pm
diff --git
a/selfforum-cgi/shared/Conf.pm
b/selfforum-cgi/shared/Conf.pm
index ca39efdc20e31d577445981b6f4aa30d758c04e2..eead4dcee3a217caecb22d869532f7e0c6c4d348 100644
(file)
--- a/
selfforum-cgi/shared/Conf.pm
+++ b/
selfforum-cgi/shared/Conf.pm
@@
-4,7
+4,7
@@
package Conf;
# #
# File: shared/Conf.pm #
# #
# #
# File: shared/Conf.pm #
# #
-# Authors: Andr
e Malo <nd@o3media.de>, 2001-06-16
#
+# Authors: Andr
é Malo <nd@o3media.de>
#
# #
# Description: read and parse configuration files #
# #
# #
# Description: read and parse configuration files #
# #
@@
-13,15
+13,19
@@
package Conf;
use strict;
use vars qw(
@EXPORT
use strict;
use vars qw(
@EXPORT
- $VERSION
);
use XML::DOM;
################################################################################
);
use XML::DOM;
################################################################################
+#
# Version check
#
# Version check
#
-$VERSION = do { my @r =(q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+# last modified:
+# $Date$ (GMT)
+# by $Author$
+#
+sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'}
################################################################################
#
################################################################################
#
@@
-207,4
+211,4
@@
ref($_)eq 'HASH'){&hash($_,"$string\[$i] -> ")}else{if(ref($_)eq'ARRAY'){
#
#
#
#
-### *real* end of Conf ;-) #####################################################
+### *real* end of Conf ;-) #####################################################
\ No newline at end of file
patrick-canterino.de