From bd88afd49f1e258fa2664079930f9e1607561ca1 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Sun, 26 Oct 2008 19:37:21 +0100
Subject: Added YAWF script + configuration handling + small homepage handler

A demonstration of how easy it is to use YAWF. :-)
---
 util/vndb.pl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100755 util/vndb.pl

(limited to 'util/vndb.pl')

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
+);
+
+
-- 
cgit v1.2.3