1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
#!/usr/bin/perl
package MasterWebInterface;
use strict;
use warnings;
use Cwd 'abs_path';
our $ROOT;
BEGIN { ($ROOT = abs_path $0) =~ s{/util/masterwebinterface.pl$}{}; }
use lib $ROOT.'/lib';
use TUWF;
our(%O, %S, @login);
require "$ROOT/data/webinterface-config.pl";
#add %S from web-config.pl to OBJ
$TUWF::OBJ->{$_} = $S{$_} for (keys %S);
# TUWF options
TUWF::set(
logfile => "$ROOT/log/MasterWebInterface-TUWF.log",
mail_from => '<noreply@333networks.com>',
db_login => ['dbi:Pg:dbname=devmasterserver', 'user', 'pass'],
# db_login => ["dbi:SQLite:dbname=$ROOT/data/databasename.db",'',''],
validate_templates => { # input templates
page => { template => 'uint', max => 1000 },
},
xml_pretty => 0,
log_queries => 0,
debug => 0,
);
# load master page libs
TUWF::load_recursive('MasterWebInterface::Handler',
'MasterWebInterface::Util',
'MasterWebInterface::Database::Pg',
#'MasterWebInterface::Database::SQLite',
); # Do not forget to choose the database type here!
#and let's roll!
TUWF::run();
|
