diff options
author | Yorhel <git@yorhel.nl> | 2008-10-26 19:37:21 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2008-10-26 19:37:21 +0100 |
commit | bd88afd49f1e258fa2664079930f9e1607561ca1 (patch) | |
tree | d6189997ca4eb18b2b12d682c24ebf22d8ea281d /util | |
parent | f842d36dc3275fe72ebd0f182942dfe8c098c4d2 (diff) |
Added YAWF script + configuration handling + small homepage handler
A demonstration of how easy it is to use YAWF. :-)
Diffstat (limited to 'util')
-rwxr-xr-x | util/vndb.pl | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/util/vndb.pl b/util/vndb.pl new file mode 100755 index 00000000..a076dcc8 --- /dev/null +++ b/util/vndb.pl @@ -0,0 +1,35 @@ +#!/usr/bin/perl + + +package VNDB; + +use strict; +use warnings; + + +use Cwd 'abs_path'; +our $ROOT; +BEGIN { ($ROOT = abs_path $0) =~ s{/util/vndb\.pl$}{}; } + + +use lib $ROOT.'/yawf/lib'; +use lib $ROOT.'/lib'; + + +use YAWF; + + +our(%O, %S); + + +# load settings from global.pl +require $ROOT.'/data/global.pl'; + + +YAWF::init( + %O, + namespace => 'VNDB', + object_data => \%S +); + + |