6 PROCESS logic_header.ttk;
9 templates = DBI.tie('reporter.stage2', 'id')
10 reports = DBI.tie('reporter.stage3', 'id')
16 tid = CGI.param('stage2');
17 tmpl = templates.$tid;
18 rid = CGI.param('id');
24 INCLUDE header.ttk + navbar.ttk title="Reports";
26 IF CGI.param('action') == 'Schedule';
27 PROCESS schedule_stage3;
28 ELSIF CGI.param('action') == 'Save';
30 ELSIF CGI.param('action') == 'Run Now';
32 ELSIF CGI.param('id');
42 BLOCK schedule_stage3;
43 WRAPPER form method='POST';
45 INCLUDE text name='runtime' value='yyyy-mm-dd';
48 'Optional Recurrence:';
49 INCLUDE text name='recurrence-count' value='0';
50 WRAPPER select name='recurrence-interval';
51 INCLUDE option value='days' content='Day(s)';
52 INCLUDE option value='weeks' content='Week(s)';
53 INCLUDE option value='months' content='Month(s)';
57 NEXT IF p == 'action';
58 NEXT IF p == 'runtime';
59 INCLUDE hidden name=p value=CGI.param(p);
62 INCLUDE submit name='action' value='Save';
71 stage2 = CGI.param('stage2');
72 runtime = CGI.param('runtime') OR 'now';
73 pub = CGI.param('publicreport') OR 'f';
79 logme([p,CGI.param(p)]);
91 IF p_obj.$p1.$p2.$p3.$p4.$p5.$p6.defined;
92 IF p_obj.$p1.$p2.$p3.$p4.$p5.$p6.size > 1;
93 p_obj.$p1.$p2.$p3.$p4.$p5.$p6.push(CGI.param(p));
95 tmp = [ p_obj.$p1.$p2.$p3.$p4.$p5.$p6, CGI.param(p) ];
96 p_obj.$p1.$p2.$p3.$p4.$p5.$p6 = tmp;
99 p_obj.$p1.$p2.$p3.$p4.$p5.$p6 = CGI.param(p);
104 IF p_obj.$p1.$p2.$p3.$p4.$p5.defined;
105 IF p_obj.$p1.$p2.$p3.$p4.$p5.size > 1;
106 p_obj.$p1.$p2.$p3.$p4.$p5.push(CGI.param(p));
108 tmp = [ p_obj.$p1.$p2.$p3.$p4.$p5, CGI.param(p) ];
109 p_obj.$p1.$p2.$p3.$p4.$p5 = tmp;
112 p_obj.$p1.$p2.$p3.$p4.$p5 = CGI.param(p);
117 IF p_obj.$p1.$p2.$p3.$p4.defined;
118 IF p_obj.$p1.$p2.$p3.$p4.size > 1;
119 p_obj.$p1.$p2.$p3.$p4.push(CGI.param(p));
121 tmp = [ p_obj.$p1.$p2.$p3.$p4, CGI.param(p) ];
122 p_obj.$p1.$p2.$p3.$p4 = tmp;
125 p_obj.$p1.$p2.$p3.$p4 = CGI.param(p);
130 IF p_obj.$p1.$p2.$p3.defined;
131 IF p_obj.$p1.$p2.$p3.size > 1;
132 p_obj.$p1.$p2.$p3.push(CGI.param(p));
134 tmp = [ p_obj.$p1.$p2.$p3, CGI.param(p) ];
135 p_obj.$p1.$p2.$p3 = tmp;
138 p_obj.$p1.$p2.$p3 = CGI.param(p);
143 IF p_obj.$p1.$p2.defined;
144 IF p_obj.$p1.$p2.size > 1;
145 p_obj.$p1.$p2.push(CGI.param(p));
147 tmp = [ p_obj.$p1.$p2, CGI.param(p) ];
151 p_obj.$p1.$p2 = CGI.param(p);
156 p_obj.$p = CGI.param(p);
161 params = utils.perl2JSON( p_obj );
163 recurrence = '0 sec';
164 IF CGI.param('recurrence-count') > 0;
165 recurrence = CGI.param('recurrence-count') _ ' ' _ CGI.param('recurrence-interval');
168 logme([stage2, params, owner, pub]);
170 q = DBI.prepare( stage3_insert );
171 CALL q.execute(stage2, params, owner, pub, runtime, recurrence);
173 FOR new_s3 = DBI.query("SELECT * FROM reporter.stage3_id_seq;");
174 tid = new_s3.last_value;
175 INCLUDE view_stage3 rpt = reports.$tid;
184 params = utils.JSON2perl( rpt.params );
186 # stuff goes here ...