5 USE testdoc = XML::LibXML(config_xml);
9 dbname = testdoc.findvalue('/reporter/setup/database/name');
10 dbhost = testdoc.findvalue('/reporter/setup/database/host');
11 d_u = testdoc.findvalue('/reporter/setup/database/user');
12 d_p = testdoc.findvalue('/reporter/setup/database/password');
14 dsn = "dbi:Pg:dbname=" _ dbname _';host=' _ dbhost;
16 '<!-- ' _ dsn _ ', ' _ d_u _ ', ' _ d_p _ ' -->';
18 DBI.connect(dsn,d_u,d_p);
23 <h1>Reports: yay!</h1>
24 [% PROCESS PRINT_STAGE1 %]
31 [% BLOCK PRINT_STAGE1 %]
33 [% FOR s1 IN DBI.query("select * from reporter.stage1 where pub is true;");
34 USE doc = XML::LibXML(s1.filename); %]
41 [%doc.findvalue('/reporter/report/@name')%]
47 [%doc.findvalue('/reporter/report/description')%]
50 Visible Stage2 reports:
53 [% q = 'select count(*) as x from reporter.stage2 ' _
54 'where pub is true or owner = ' _ userid;
55 FOR r IN DBI.query(q);