Mercurial > sci

annotate scid/page-index.c @ 85:cf49ab595e2e default tip @

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sciworkerd: avoid spawning several tasks
author David Demelier <markand@malikania.fr>
date Thu, 09 Mar 2023 10:43:48 +0100
parents 44713c475974
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
1 /*
33
1d0ddf9e6efd misc: general documentation
David Demelier <markand@malikania.fr>
parents: 32
diff changeset
2 * page-index.c -- page / route
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
3 *
80
71cd8447e3a4 misc: update copyright years
David Demelier <markand@malikania.fr>
parents: 77
diff changeset
4 * Copyright (c) 2021-2023 David Demelier <markand@malikania.fr>
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
5 *
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
6 * Permission to use, copy, modify, and/or distribute this software for any
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
7 * purpose with or without fee is hereby granted, provided that the above
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
8 * copyright notice and this permission notice appear in all copies.
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
9 *
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
13 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
14 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
15 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
16 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
17 */
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
18
26
7e10cace67a3 scid: add basic mustache support
David Demelier <markand@malikania.fr>
parents: 18
diff changeset
19 #include <errno.h>
7e10cace67a3 scid: add basic mustache support
David Demelier <markand@malikania.fr>
parents: 18
diff changeset
20 #include <string.h>
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
21
26
7e10cace67a3 scid: add basic mustache support
David Demelier <markand@malikania.fr>
parents: 18
diff changeset
22 #include "db.h"
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
23 #include "pageutil.h"
28
4c16bb25e4f1 scid: implement themes in javascript
David Demelier <markand@malikania.fr>
parents: 27
diff changeset
24 #include "scid.h"
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
25 #include "theme.h"
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
26 #include "util.h"
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
27
27
dae2de19ca5d misc: switch to JSON everywhere
David Demelier <markand@malikania.fr>
parents: 26
diff changeset
28 static void
57
bc617784ec97 scid: many fixes in pages
David Demelier <markand@malikania.fr>
parents: 48
diff changeset
29 set_job_status(json_t *project, json_t *job, json_t *jobresults, size_t *ns, size_t *nf)
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
30 {
73
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
31 const char *status;
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
32 json_t *iter;
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
33 int exitcode, sigcode;
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
34 size_t i, rs = 0, rf = 0;
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
35
48
3cf148705724 scid: refactor status classes in bulma
David Demelier <markand@malikania.fr>
parents: 46
diff changeset
36 /* Compute number of failures and number of success. */
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
37 json_array_foreach(jobresults, i, iter) {
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
38 json_unpack(iter, "{si si}", "exitcode", &exitcode, "sigcode", &sigcode);
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
39
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
40 if (exitcode == 0 && sigcode == 0)
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
41 rs++;
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
42 else
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
43 rf++;
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
44 }
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
45
73
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
46 /*
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
47 * We have three possibilities:
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
48 *
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
49 * - unknown: no result performed,
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
50 * - success: all results were successful,
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
51 * - failed: at least one has failed.
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
52 */
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
53 if (rs == 0 && rf == 0)
73
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
54 status = "unknown";
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
55 else if (rf > 0)
73
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
56 status = "failed";
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
57 else
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
58 status = "success";
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
59
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
60 /* Append to the total. */
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
61 *ns += rs;
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
62 *nf += rf;
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
63
73
b0d1166de7d3 themes: improve status
David Demelier <markand@malikania.fr>
parents: 57
diff changeset
64 json_object_set_new(job, "status", json_string(status));
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
65 }
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
66
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
67 static void
30
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
68 set_project_jobs(json_t *project, json_t *jobs)
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
69 {
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
70 json_t *iter, *jobresults, *list;
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
71 json_int_t job_id;
57
bc617784ec97 scid: many fixes in pages
David Demelier <markand@malikania.fr>
parents: 48
diff changeset
72 size_t i, ns = 0, nf = 0;
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
73
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
74 /*
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
75 * This is the actual list of jobs that we will put into the list card
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
76 * because the jobs argument may be greater than the limit.
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
77 */
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
78 list = json_array();
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
79
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
80 json_array_foreach(jobs, i, iter) {
30
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
81 /* Don't populate too much. */
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
82 if (i + 1 >= 10)
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
83 break;
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
84
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
85 /*
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
86 * For this job, find all jobresult to check how many have
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
87 * failed or not.
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
88 *
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
89 * Also, since we have the project name, we can remove it.
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
90 */
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
91 json_object_del(iter, "project_name");
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
92 json_unpack(iter, "{sI}", "id", &job_id);
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
93
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
94 if (!(jobresults = db_jobresult_list_by_job_group(job_id)))
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
95 continue;
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
96
57
bc617784ec97 scid: many fixes in pages
David Demelier <markand@malikania.fr>
parents: 48
diff changeset
97 set_job_status(project, iter, jobresults, &ns, &nf);
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
98 json_decref(jobresults);
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
99 json_array_append(list, iter);
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
100 }
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
101
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
102 json_object_set_new(project, "jobs", list);
57
bc617784ec97 scid: many fixes in pages
David Demelier <markand@malikania.fr>
parents: 48
diff changeset
103 json_object_set_new(project, "n-failed", json_integer(nf));
bc617784ec97 scid: many fixes in pages
David Demelier <markand@malikania.fr>
parents: 48
diff changeset
104 json_object_set_new(project, "n-success", json_integer(ns));
82
44713c475974 scid: fix index page
David Demelier <markand@malikania.fr>
parents: 80
diff changeset
105 json_decref(jobs);
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
106 }
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
107
30
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
108 /*
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
109 * For every projects, find their jobs and add them as 'jobs' property.
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
110 */
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
111 static void
30
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
112 update_projects(json_t *projects)
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
113 {
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
114 json_t *jobs, *iter;
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
115 const char *name;
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
116 size_t i;
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
117
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
118 json_array_foreach(projects, i, iter) {
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
119 /* Script is not necessary at this point. */
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
120 json_object_del(iter, "script");
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
121 json_unpack(iter, "{ss}", "name", &name);
27
dae2de19ca5d misc: switch to JSON everywhere
David Demelier <markand@malikania.fr>
parents: 26
diff changeset
122
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
123 /* Find jobs for this project. */
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
124 if (!(jobs = db_job_list(name)))
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
125 continue;
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
126
30
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
127 set_project_jobs(iter, jobs);
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
128 }
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
129 }
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
130
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
131 static void
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
132 get(struct kreq *req)
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
133 {
43
6854efe15210 scid: push json recursively
David Demelier <markand@malikania.fr>
parents: 40
diff changeset
134 json_t *projects;
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
135 char *data;
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
136
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
137 /* First, fetch all projects. */
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
138 if ((projects = db_project_list())) {
30
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
139 update_projects(projects);
46
16f1c72d1635 scid: simplify theme code
David Demelier <markand@malikania.fr>
parents: 43
diff changeset
140 data = theme_render("onPageIndex", util_json_pack("{so}",
43
6854efe15210 scid: push json recursively
David Demelier <markand@malikania.fr>
parents: 40
diff changeset
141 "projects", projects
6854efe15210 scid: push json recursively
David Demelier <markand@malikania.fr>
parents: 40
diff changeset
142 ));
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
143 pageutil_render(req, KHTTP_200, KMIME_TEXT_HTML, data);
30
43333d18e4b8 scid: document theme
David Demelier <markand@malikania.fr>
parents: 29
diff changeset
144 free(data);
27
dae2de19ca5d misc: switch to JSON everywhere
David Demelier <markand@malikania.fr>
parents: 26
diff changeset
145 } else
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
146 pageutil_status(req, KHTTP_500);
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
147 }
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
148
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
149 void
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
150 page_index(struct kreq *r)
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
151 {
27
dae2de19ca5d misc: switch to JSON everywhere
David Demelier <markand@malikania.fr>
parents: 26
diff changeset
152 (void)r;
dae2de19ca5d misc: switch to JSON everywhere
David Demelier <markand@malikania.fr>
parents: 26
diff changeset
153
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
154 switch (r->method) {
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
155 case KMETHOD_GET:
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
156 get(r);
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
157 break;
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
158 default:
29
695637f1d8a7 scid: first index page in javascript
David Demelier <markand@malikania.fr>
parents: 28
diff changeset
159 pageutil_status(r, KHTTP_400);
2
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
160 break;
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
161 }
5fa3d2f479b2 sci: initial upload support
David Demelier <markand@malikania.fr>
parents:
diff changeset
162 }