Sign in

flagon-io/g1t

public

g1t/services/billing/src/keeper.rs

786 lines34,118 bytesCodeBlame
1//! Keeps every price current with what g1t actually pays.
2//!
3//! g1t passes its own costs through, so a price is only right while the
4//! cost under it is. Two jobs keep them right, on the billing service's
5//! cron:
6//!
7//! - **Settling runs** (every 15 minutes). A model run is charged when it
8//! finishes at what the sandbox reported. Each of g1t's hosted runs goes
9//! through its AI Gateway, which prices every request at the provider's
10//! current rates and logs it with the run's session. Settling sums those
11//! logs and corrects the charge to the gateway's figure, with a
12//! correction on the statement. A run whose sandbox died before
13//! reporting is charged here instead of never.
14//! - **Checking costs** (daily). What Cloudflare billed g1t's account, from
15//! its usage API, is measured against how much was used: Containers
16//! against the seconds containers ran, Workers for Platforms per request
17//! and per CPU millisecond. When a measured cost moves, the price book
18//! moves with it, since each price is its cost plus a set markup, and
19//! the change is recorded where anyone can see it. A measurement far off
20//! the current cost is not adopted, only logged, so one odd day of data
21//! cannot reprice everything.
22
23use g1t_contracts::billing::{EntryKind, MICROS_PER_DOLLAR, Price, PriceBook, PriceChange};
24use g1t_contracts::new_id;
25use g1t_contracts::time::rfc3339;
26use g1t_kit::now_ms;
27use serde::Deserialize;
28use serde_json::{Value, json};
29use worker::{Env, Fetch, Headers, Method, Request, RequestInit, Result};
30
31use crate::{Billing, RunRow, charge_micros};
32
33/// The cron that also checks costs against Cloudflare's bill.
34pub(crate) const DAILY: &str = "17 4 * * *";
35
36/// A run is settled once its logs have had time to land.
37const SETTLE_AFTER_MS: u64 = 5 * 60 * 1000;
38/// A run with no gateway logs after this is left as reported.
39const GIVE_UP_AFTER_MS: u64 = 3 * 60 * 60 * 1000;
40/// A run never finished after this died without reporting.
41const ABANDONED_AFTER_MS: u64 = 3 * 60 * 60 * 1000;
42/// Smaller moves are noise.
43const MIN_CHANGE: f64 = 0.02;
44/// A measurement outside this factor of the current cost is suspect.
45const MAX_FACTOR: f64 = 4.0;
46
47/// Where the keeper reads what g1t pays.
48pub(crate) struct Keeper {
49 /// `CLOUDFLARE_USAGE_TOKEN`: Billing, Account Analytics and AI Gateway,
50 /// read only.
51 token: Option<String>,
52 account: String,
53 gateway: String,
54}
55
56impl Keeper {
57 pub(crate) fn from_env(env: &Env) -> Self {
58 let var = |name: &str| env.var(name).map(|v| v.to_string()).unwrap_or_default();
59 Keeper {
60 token: env.secret("CLOUDFLARE_USAGE_TOKEN").ok().map(|v| v.to_string()).filter(|v| !v.is_empty()),
61 account: var("CLOUDFLARE_ACCOUNT_ID"),
62 gateway: var("AI_GATEWAY_ID"),
63 }
64 }
65
66 async fn send(&self, method: Method, url: &str, body: Option<Value>) -> Result<Value> {
67 let Some(token) = &self.token else {
68 return Err(worker::Error::RustError("no CLOUDFLARE_USAGE_TOKEN".into()));
69 };
70 let headers = Headers::new();
71 headers.set("authorization", &format!("Bearer {token}"))?;
72 headers.set("content-type", "application/json")?;
73 let mut init = RequestInit::new();
74 init.with_method(method).with_headers(headers);
75 if let Some(body) = body {
76 init.with_body(Some(body.to_string().into()));
77 }
78 let mut response = Fetch::Request(Request::new_with_init(url, &init)?).send().await?;
79 let status = response.status_code();
80 let value: Value = response.json().await.unwrap_or(Value::Null);
81 if status != 200 {
82 return Err(worker::Error::RustError(format!("Cloudflare answered {status}: {value}")));
83 }
84 Ok(value)
85 }
86
87 fn api(&self, path: &str) -> String {
88 format!("https://api.cloudflare.com/client/v4/accounts/{}{path}", self.account)
89 }
90
91 /// What AI Gateway priced a session's requests at, in dollars, and how
92 /// many there were.
93 async fn session_cost(&self, session: &str) -> Result<(f64, u32)> {
94 let mut cost = 0.0;
95 let mut count = 0;
96 for page in 1..=40 {
97 // The filter goes as URL-encoded JSON; the bracket form is
98 // ignored, and would sum every log there is. Session ids are
99 // [a-z0-9_], which need no escaping inside it.
100 let filter = format!(
101 "%5B%7B%22key%22%3A%22metadata.value%22%2C%22operator%22%3A%22eq%22%2C%22value%22%3A%5B%22{session}%22%5D%7D%5D"
102 );
103 let url = self.api(&format!(
104 "/ai-gateway/gateways/{}/logs?per_page=50&page={page}&filters={filter}",
105 self.gateway
106 ));
107 let body = self.send(Method::Get, &url, None).await?;
108 let logs = body["result"].as_array().cloned().unwrap_or_default();
109 for log in &logs {
110 cost += log["cost"].as_f64().unwrap_or(0.0);
111 count += 1;
112 }
113 if logs.len() < 50 {
114 break;
115 }
116 }
117 Ok((cost, count))
118 }
119
120 /// The account's billable usage, one row per service per day, as
121 /// Cloudflare reports it.
122 async fn billable_usage(&self, from: &str, to: &str) -> Result<Vec<UsageRow>> {
123 let body = self
124 .send(Method::Get, &self.api(&format!("/billable-usage?from={from}&to={to}")), None)
125 .await?;
126 let rows = body["result"].as_array().cloned().unwrap_or_default();
127 Ok(rows.iter().filter_map(UsageRow::from_value).collect())
128 }
129
130 /// What g1t's containers used from `since` to `until` (dates), as
131 /// Cloudflare bills it: memory in byte-seconds, and CPU seconds.
132 async fn container_usage(&self, since: &str, until: &str) -> Result<ContainerUsage> {
133 let query = "query ($account: String!, $since: Date!, $until: Date!) {
134 viewer { accounts(filter: { accountTag: $account }) {
135 containersUsageAdaptiveGroups(limit: 1000, filter: { date_geq: $since, date_leq: $until }) {
136 sum { cpuTimeSec allocatedMemory }
137 }
138 } }
139 }";
140 let body = self
141 .send(
142 Method::Post,
143 "https://api.cloudflare.com/client/v4/graphql",
144 Some(json!({ "query": query, "variables": { "account": self.account, "since": since, "until": until } })),
145 )
146 .await?;
147 let groups = body["data"]["viewer"]["accounts"][0]["containersUsageAdaptiveGroups"]
148 .as_array()
149 .cloned()
150 .unwrap_or_default();
151 Ok(groups.iter().fold(ContainerUsage::default(), |total, g| ContainerUsage {
152 cpu_seconds: total.cpu_seconds + g["sum"]["cpuTimeSec"].as_f64().unwrap_or(0.0),
153 memory_byte_seconds: total.memory_byte_seconds + g["sum"]["allocatedMemory"].as_f64().unwrap_or(0.0),
154 }))
155 }
156}
157
158#[derive(Debug, Default, Clone, Copy)]
159pub(crate) struct ContainerUsage {
160 cpu_seconds: f64,
161 memory_byte_seconds: f64,
162}
163
164/// g1t's sandboxes: Containers' standard-1, half a vCPU, 4 GiB, 8 GB disk.
165const SANDBOX_GIB: f64 = 4.0;
166const SANDBOX_DISK_GB: f64 = 8.0;
167const GIB: f64 = 1024.0 * 1024.0 * 1024.0;
168/// The Durable Object behind each container is billed for as long as the
169/// container runs, at 128 MB.
170const SANDBOX_DO_GB: f64 = 0.125;
171
172/// Cloudflare's published Containers rates, in dollars, used for any rate
173/// the bill does not show yet (while usage is inside the included amount).
174const LIST_MEMORY_GIB_SECOND: f64 = 0.000_002_5;
175const LIST_DISK_GB_SECOND: f64 = 0.000_000_07;
176const LIST_VCPU_SECOND: f64 = 0.000_02;
177/// Durable Objects duration: $12.50 per million GB-seconds.
178const LIST_DO_GB_SECOND: f64 = 0.000_012_5;
179
180/// What one second of a sandbox costs whatever it does, in millionths of a
181/// dollar: its memory and disk, and the Durable Object behind it, for the
182/// whole second. CPU is billed only while busy, on top.
183pub(crate) fn sandbox_base_micros(memory: f64, disk: f64, durable_object: f64) -> f64 {
184 (SANDBOX_GIB * memory + SANDBOX_DISK_GB * disk + SANDBOX_DO_GB * durable_object) * MICROS_PER_DOLLAR as f64
185}
186
187/// What one second of a sandbox costs on average, in millionths of a
188/// dollar: its base, and the CPU sandboxes actually use per second of
189/// running. Runs that report their own CPU are priced on it instead (see
190/// `run_cost`).
191pub(crate) fn sandbox_second_micros(usage: ContainerUsage, memory: f64, disk: f64, vcpu: f64, durable_object: f64) -> Option<f64> {
192 let instance_seconds = usage.memory_byte_seconds / (SANDBOX_GIB * GIB);
193 if instance_seconds < 3600.0 {
194 return None;
195 }
196 let cpu_share = usage.cpu_seconds / instance_seconds;
197 Some(sandbox_base_micros(memory, disk, durable_object) + cpu_share * vcpu * MICROS_PER_DOLLAR as f64)
198}
199
200/// How much more a second of a larger machine's memory and disk (and the
201/// Durable Object behind it) costs than the standard sandbox's, at
202/// Cloudflare's list rates: 1 for the standard machine.
203pub(crate) fn base_scale(memory_gib: f64, disk_gb: f64) -> f64 {
204 let base = |memory: f64, disk: f64| memory * LIST_MEMORY_GIB_SECOND + disk * LIST_DISK_GB_SECOND + SANDBOX_DO_GB * LIST_DO_GB_SECOND;
205 base(memory_gib, disk_gb) / base(SANDBOX_GIB, SANDBOX_DISK_GB)
206}
207
208/// What a run that reported its own CPU cost g1t: its base for every
209/// second, and its vCPU-seconds at the vCPU rate.
210pub(crate) fn run_cost(seconds: i64, cpu_seconds: f64, base_per_second: f64, per_vcpu_second: f64) -> f64 {
211 seconds.max(0) as f64 * base_per_second + cpu_seconds.max(0.0) * per_vcpu_second
212}
213
214/// A unit's marginal rate from the bill: the median, over the days that
215/// were charged, of cost over quantity. None while nothing was charged.
216pub(crate) fn billed_rate(rows: &[&UsageRow]) -> Option<f64> {
217 let mut rates: Vec<f64> = rows
218 .iter()
219 .filter(|r| r.cost > 0.0 && r.quantity > 0.0)
220 .map(|r| r.cost / r.quantity)
221 .collect();
222 if rates.is_empty() {
223 return None;
224 }
225 rates.sort_by(f64::total_cmp);
226 Some(rates[rates.len() / 2])
227}
228
229/// One line of Cloudflare's billable usage.
230#[derive(Debug, Clone)]
231pub(crate) struct UsageRow {
232 period_start: String,
233 period_end: String,
234 service: String,
235 unit: String,
236 quantity: f64,
237 cost: f64,
238}
239
240impl UsageRow {
241 /// Read leniently: the API is new, and its field names are FOCUS's.
242 fn from_value(row: &Value) -> Option<Self> {
243 let text = |keys: &[&str]| keys.iter().find_map(|k| row[*k].as_str()).unwrap_or_default().to_owned();
244 let number = |keys: &[&str]| {
245 keys.iter()
246 .find_map(|k| row[*k].as_f64().or_else(|| row[*k].as_str().and_then(|s| s.parse().ok())))
247 .unwrap_or(0.0)
248 };
249 let service = text(&["ServiceName", "service_name", "service"]);
250 if service.is_empty() {
251 return None;
252 }
253 let family = text(&["ServiceFamilyName", "service_family_name"]);
254 Some(UsageRow {
255 period_start: text(&["ChargePeriodStart", "charge_period_start"]),
256 period_end: text(&["ChargePeriodEnd", "charge_period_end"]),
257 service: if family.is_empty() { service } else { format!("{family} / {service}") },
258 unit: text(&["PricingUnit", "ConsumedUnit", "consumed_unit"]),
259 quantity: number(&["PricingQuantity", "ConsumedQuantity", "pricing_quantity"]),
260 // What g1t pays; list price if nothing was contracted.
261 cost: Some(number(&["ContractedCost", "BilledCost", "contracted_cost"]))
262 .filter(|cost| *cost > 0.0)
263 .unwrap_or_else(|| number(&["ListCost", "list_cost"])),
264 })
265 }
266}
267
268/// What a cost should become from a measurement, or why not.
269pub(crate) fn adopt(current: f64, measured: f64) -> std::result::Result<Option<f64>, String> {
270 if !measured.is_finite() || measured <= 0.0 {
271 return Err("nothing to measure".into());
272 }
273 let ratio = measured / current;
274 if !(1.0 / MAX_FACTOR..=MAX_FACTOR).contains(&ratio) {
275 return Err(format!("measured {measured:.4} against {current:.4}, too far off to adopt"));
276 }
277 Ok(((ratio - 1.0).abs() >= MIN_CHANGE).then_some(measured))
278}
279
280#[derive(Deserialize)]
281struct PriceRow {
282 meter: String,
283 title: String,
284 unit: String,
285 cost_micros: f64,
286 markup_percent: u32,
287 source: String,
288 checked_at: Option<String>,
289 updated_at: String,
290}
291
292#[derive(Deserialize)]
293struct ChangeRow {
294 meter: String,
295 old_cost_micros: f64,
296 new_cost_micros: f64,
297 markup_percent: u32,
298 old_markup_percent: Option<u32>,
299 reason: String,
300 created_at: String,
301}
302
303#[derive(Deserialize)]
304struct Unsettled {
305 id: String,
306 workspace: String,
307 repo: String,
308 number: u32,
309 task: String,
310 model: String,
311 token_hash: String,
312 billed_to: Option<String>,
313 session_id: String,
314 created_at: String,
315 finished_at: Option<String>,
316}
317
318#[derive(Deserialize)]
319struct Charged {
320 cost_micros: Option<i64>,
321 description: String,
322 amount_micros: i64,
323}
324
325/// What a settled run's correction comes to, from the charges at the
326/// reported and the gateway's cost and what the workspace was charged at
327/// first. A charge up is drawn down like any charge; a charge down is
328/// given back only up to what the workspace paid, since what a credit or
329/// a pool paid was never the workspace's money.
330pub(crate) fn correction(reported_charge: i64, gateway_charge: i64, first_charged: i64) -> i64 {
331 let delta = gateway_charge - reported_charge;
332 if delta >= 0 { delta } else { delta.max(-first_charged.max(0)) }
333}
334
335fn ms(timestamp: &str) -> u64 {
336 // RFC 3339 in UTC, as g1t writes them.
337 worker::js_sys::Date::parse(timestamp) as u64
338}
339
340impl Billing {
341 pub(crate) async fn prices(&self) -> Result<PriceBook> {
342 let prices = self
343 .db
344 .prepare("SELECT * FROM prices ORDER BY rowid")
345 .all()
346 .await?
347 .results::<PriceRow>()?;
348 let changes = self
349 .db
350 .prepare("SELECT * FROM price_changes ORDER BY created_at DESC LIMIT 20")
351 .all()
352 .await?
353 .results::<ChangeRow>()?;
354 Ok(PriceBook {
355 prices: prices
356 .into_iter()
357 .map(|row| Price {
358 price_micros: Price::price_for(row.cost_micros, row.markup_percent),
359 meter: row.meter,
360 title: row.title,
361 unit: row.unit,
362 cost_micros: row.cost_micros,
363 markup_percent: row.markup_percent,
364 source: row.source,
365 checked_at: row.checked_at,
366 updated_at: row.updated_at,
367 })
368 .collect(),
369 changes: changes
370 .into_iter()
371 .map(|row| PriceChange {
372 meter: row.meter,
373 old_cost_micros: row.old_cost_micros,
374 new_cost_micros: row.new_cost_micros,
375 markup_percent: row.markup_percent,
376 old_markup_percent: row.old_markup_percent,
377 reason: row.reason,
378 created_at: row.created_at,
379 })
380 .collect(),
381 model_margin_percent: self.margin_percent,
382 plans: g1t_contracts::billing::Feature::ALL.iter().map(|feature| self.plan(*feature)).collect(),
383 free: Some(g1t_contracts::billing::FreeTier {
384 trial_workspace_micros: if self.trials_on { self.plans.trial_workspace_micros } else { 0 },
385 trial_monthly_pool_micros: if self.trials_on { self.plans.trial_monthly_pool_micros } else { 0 },
386 oss_pool_micros: self.plans.oss_pool_micros,
387 oss_repo_micros: self.plans.oss_repo_micros,
388 free_private_storage_bytes: self.plans.free_storage_bytes,
389 audit_retention_days: self.plans.audit_days,
390 min_charge_micros: self.plans.min_charge_micros,
391 git_operations_included: self.plans.git_included,
392 paid_start_ceiling_micros: self.plans.paid_start_micros,
393 overage_forgive_cost_micros: self.plans.forgive_cost_micros,
394 }),
395 })
396 }
397
398 /// Whether the costs have never been checked against Cloudflare's bill.
399 pub(crate) async fn never_checked(&self) -> Result<bool> {
400 Ok(self
401 .db
402 .prepare("SELECT meter FROM prices WHERE checked_at IS NOT NULL LIMIT 1")
403 .first::<Value>(None)
404 .await?
405 .is_none())
406 }
407
408 /// A meter's cost and price per unit, from the book.
409 pub(crate) async fn price(&self, meter: &str) -> Result<Option<(f64, f64)>> {
410 #[derive(Deserialize)]
411 struct Row {
412 cost_micros: f64,
413 markup_percent: u32,
414 }
415 Ok(self
416 .db
417 .prepare("SELECT cost_micros, markup_percent FROM prices WHERE meter = ?")
418 .bind(&[meter.into()])?
419 .first::<Row>(None)
420 .await?
421 .map(|row| (row.cost_micros, Price::price_for(row.cost_micros, row.markup_percent))))
422 }
423
424 /// Corrects finished runs to what AI Gateway priced them at, and
425 /// charges runs whose sandbox died before reporting.
426 pub(crate) async fn settle_runs(&self, keeper: &Keeper) -> Result<()> {
427 if keeper.token.is_none() || keeper.gateway.is_empty() {
428 return Ok(());
429 }
430 let now = now_ms();
431 let runs = self
432 .db
433 .prepare(
434 "SELECT id, workspace, repo, number, task, model, token_hash, billed_to, session_id, created_at, finished_at
435 FROM runs
436 WHERE session_id IS NOT NULL AND settled_at IS NULL
437 AND ((finished_at IS NOT NULL AND finished_at < ?1) OR created_at < ?2)
438 ORDER BY created_at LIMIT 10",
439 )
440 .bind(&[rfc3339(now - SETTLE_AFTER_MS).into(), rfc3339(now - ABANDONED_AFTER_MS).into()])?
441 .all()
442 .await?
443 .results::<Unsettled>()?;
444 for run in runs {
445 let (cost_usd, requests) = match keeper.session_cost(&run.session_id).await {
446 Ok(found) => found,
447 Err(error) => {
448 worker::console_error!("could not read gateway logs for {}: {error}", run.id);
449 continue;
450 }
451 };
452 let since = ms(run.finished_at.as_deref().unwrap_or(&run.created_at));
453 if requests == 0 && now.saturating_sub(since) < GIVE_UP_AFTER_MS {
454 continue;
455 }
456 self.settle(&run, cost_usd, requests).await?;
457 }
458 Ok(())
459 }
460
461 async fn settle(&self, run: &Unsettled, cost_usd: f64, requests: u32) -> Result<()> {
462 let row = RunRow {
463 workspace: run.workspace.clone(),
464 repo: run.repo.clone(),
465 number: run.number,
466 task: run.task.clone(),
467 model: run.model.clone(),
468 token_hash: run.token_hash.clone(),
469 billed_to: run.billed_to.clone(),
470 };
471 let gateway_micros = charge_micros(cost_usd, 0);
472 let charged = self
473 .db
474 .prepare("SELECT cost_micros, description, amount_micros FROM ledger WHERE reference = ?")
475 .bind(&[run.id.as_str().into()])?
476 .first::<Charged>(None)
477 .await?;
478 let terms = self.terms_of(&run.workspace).await?;
479 let charge_for = |micros: i64| {
480 if self.free {
481 0
482 } else {
483 terms.apply(charge_micros(micros as f64 / MICROS_PER_DOLLAR as f64, self.margin_percent))
484 }
485 };
486 let settled_at = rfc3339(now_ms());
487 // Claim it, so two crons never settle it twice.
488 let claimed = self
489 .db
490 .prepare("UPDATE runs SET settled_at = ?, gateway_cost_micros = ?, finished_at = COALESCE(finished_at, ?) WHERE id = ? AND settled_at IS NULL RETURNING id")
491 .bind(&[
492 settled_at.as_str().into(),
493 (gateway_micros as f64).into(),
494 settled_at.as_str().into(),
495 run.id.as_str().into(),
496 ])?
497 .first::<Value>(None)
498 .await?;
499 if claimed.is_none() || requests == 0 {
500 return Ok(());
501 }
502 let free_note = if self.free { " (free while g1t is being built out)" } else { "" };
503 match charged {
504 // Never reported: charged now, from the gateway's figure.
505 None => {
506 let charge = charge_for(gateway_micros);
507 let eligible = crate::credits::eligible_for(Some(g1t_contracts::billing::ComputeKind::Agent), None);
508 let drawn = self.draw(&run.workspace, charge, &settled_at[..7], &eligible).await?;
509 let description = format!(
510 "Work on {}#{}, settled from AI Gateway after the sandbox stopped without reporting{free_note}{}",
511 run.repo,
512 run.number,
513 drawn.note()
514 );
515 self.enter(&run.workspace, EntryKind::Usage, -(charge - drawn.total()), &description, &run.id, Some(&row), Some(gateway_micros), None, None)
516 .await?;
517 self.record_drawn(&run.id, &drawn).await?;
518 }
519 Some(charged) => {
520 let reported = charged.cost_micros.unwrap_or(0);
521 let delta = gateway_micros - reported;
522 if delta == 0 {
523 return Ok(());
524 }
525 let change = correction(charge_for(reported), charge_for(gateway_micros), -charged.amount_micros);
526 // A charge up is paid for like any other charge.
527 let drawn = if change > 0 {
528 let eligible = crate::credits::eligible_for(Some(g1t_contracts::billing::ComputeKind::Agent), None);
529 self.draw(&run.workspace, change, &settled_at[..7], &eligible).await?
530 } else {
531 crate::credits::Drawn::default()
532 };
533 let description = format!(
534 "Correction to “{}”: AI Gateway priced its {requests} model requests at {}, not {}{}",
535 charged.description,
536 crate::features::dollars(gateway_micros),
537 crate::features::dollars(reported),
538 drawn.note(),
539 );
540 let reference = format!("{}/settled", run.id);
541 self.enter(
542 &run.workspace,
543 EntryKind::Usage,
544 -(change - drawn.total()),
545 &description,
546 &reference,
547 Some(&row),
548 Some(delta),
549 None,
550 None,
551 )
552 .await?;
553 self.record_drawn(&reference, &drawn).await?;
554 }
555 }
556 Ok(())
557 }
558
559 /// Checks each cost against what Cloudflare billed this month, and
560 /// moves the ones that changed.
561 pub(crate) async fn reconcile(&self, keeper: &Keeper) -> Result<()> {
562 if keeper.token.is_none() {
563 return Ok(());
564 }
565 let now = rfc3339(now_ms());
566 let today = &now[..10];
567 let since = rfc3339(now_ms() - 30 * 24 * 60 * 60 * 1000);
568 let rows = keeper.billable_usage(&since[..10], today).await?;
569 for row in &rows {
570 self.db
571 .prepare(
572 "INSERT INTO cloudflare_usage (period_start, period_end, service, unit, quantity, cost_usd, fetched_at)
573 VALUES (?1, ?2, ?3, ?4, ?5, ?6, ?7)
574 ON CONFLICT (period_start, service, unit) DO UPDATE SET
575 period_end = ?2, quantity = ?5, cost_usd = ?6, fetched_at = ?7",
576 )
577 .bind(&[
578 row.period_start.as_str().into(),
579 row.period_end.as_str().into(),
580 row.service.as_str().into(),
581 row.unit.as_str().into(),
582 row.quantity.into(),
583 row.cost.into(),
584 now.as_str().into(),
585 ])?
586 .run()
587 .await?;
588 }
589
590 let named = |words: &[&str]| -> Vec<&UsageRow> {
591 rows.iter()
592 .filter(|r| {
593 let service = r.service.to_lowercase();
594 words.iter().all(|word| service.contains(word))
595 })
596 .collect()
597 };
598
599 // Containers: each resource at what the bill shows it costs, or
600 // the published rate while the included amount still covers it,
601 // over how much CPU g1t's sandboxes really use per second.
602 let memory = billed_rate(&named(&["container memory"]));
603 let disk = billed_rate(&named(&["container disk"]));
604 let vcpu = billed_rate(&named(&["container vcpu"]));
605 let durable_object = billed_rate(&named(&["durable objects", "duration"]));
606 let usage = keeper.container_usage(&since[..10], today).await?;
607 let rates = (
608 memory.unwrap_or(LIST_MEMORY_GIB_SECOND),
609 disk.unwrap_or(LIST_DISK_GB_SECOND),
610 vcpu.unwrap_or(LIST_VCPU_SECOND),
611 durable_object.unwrap_or(LIST_DO_GB_SECOND),
612 );
613 // The parts, for runs that report their own CPU.
614 let parts_reason = "Cloudflare's Containers and Durable Objects rates, as billed or published";
615 self.measure("sandbox_base_second", sandbox_base_micros(rates.0, rates.1, rates.3), parts_reason).await?;
616 self.measure("sandbox_cpu_second", rates.2 * MICROS_PER_DOLLAR as f64, parts_reason).await?;
617 if let Some(per_second) = sandbox_second_micros(usage, rates.0, rates.1, rates.2, rates.3) {
618 let instance_seconds = usage.memory_byte_seconds / (SANDBOX_GIB * GIB);
619 let billed = [("memory", memory), ("disk", disk), ("vCPU", vcpu), ("Durable Object duration", durable_object)]
620 .iter()
621 .filter(|(_, rate)| rate.is_some())
622 .map(|(name, _)| *name)
623 .collect::<Vec<_>>();
624 let reason = format!(
625 "Sandboxes used {:.2} vCPU per second over {:.0} hours of Cloudflare Containers in the last 30 days, with the Durable Object behind each; {}",
626 usage.cpu_seconds / instance_seconds,
627 instance_seconds / 3600.0,
628 if billed.is_empty() {
629 "rates are Cloudflare's published ones".to_owned()
630 } else {
631 format!("{} at what Cloudflare billed", billed.join(", "))
632 },
633 );
634 for meter in ["sandbox_second", "build_second"] {
635 self.measure(meter, per_second, &reason).await?;
636 }
637 }
638 // Apps run as Workers: per million requests and CPU milliseconds,
639 // once the bill shows them charged.
640 // Security scans' CPU follows the same Workers CPU rate.
641 let app_meters: [(&str, &[&str], &str); 3] = [
642 ("app_requests", &["workers", "requests"], "requests"),
643 ("app_cpu", &["workers cpu"], "CPU ms"),
644 ("scan_cpu", &["workers cpu"], "CPU ms"),
645 ];
646 for (meter, words, unit) in app_meters {
647 if let Some(rate) = billed_rate(&named(words)) {
648 let reason = format!("Cloudflare billed Workers {unit} at ${:.2} per million", rate * 1e6);
649 self.measure(meter, rate * 1e6 * MICROS_PER_DOLLAR as f64, &reason).await?;
650 }
651 }
652 self.db
653 .prepare("UPDATE prices SET checked_at = ?")
654 .bind(&[now.as_str().into()])?
655 .run()
656 .await?;
657 Ok(())
658 }
659
660 /// Moves a meter's cost to a measurement, if it is sound and different.
661 async fn measure(&self, meter: &str, measured: f64, reason: &str) -> Result<()> {
662 let Some((current, _)) = self.price(meter).await? else {
663 return Ok(());
664 };
665 match adopt(current, measured) {
666 Err(why) => worker::console_log!("{meter}: {why}"),
667 Ok(None) => {}
668 Ok(Some(cost)) => {
669 let now = now_ms();
670 self.db
671 .batch(vec![
672 self.db
673 .prepare("UPDATE prices SET cost_micros = ?, source = 'cloudflare', updated_at = ? WHERE meter = ?")
674 .bind(&[cost.into(), rfc3339(now).into(), meter.into()])?,
675 self.db
676 .prepare(
677 "INSERT INTO price_changes (id, meter, old_cost_micros, new_cost_micros, markup_percent, reason, created_at)
678 SELECT ?, meter, ?, ?, markup_percent, ?, ? FROM prices WHERE meter = ?",
679 )
680 .bind(&[
681 new_id("prc", now).into(),
682 current.into(),
683 cost.into(),
684 reason.into(),
685 rfc3339(now).into(),
686 meter.into(),
687 ])?,
688 ])
689 .await?;
690 }
691 }
692 Ok(())
693 }
694}
695
696#[cfg(test)]
697mod tests {
698 use super::*;
699
700 #[test]
701 fn a_correction_never_gives_back_what_the_workspace_did_not_pay() {
702 // Up by 2 cents: charged in full (then drawn down like any charge).
703 assert_eq!(correction(100_000, 120_000, 100_000), 20_000);
704 // Down by 2 cents, all of it paid by the workspace: given back.
705 assert_eq!(correction(120_000, 100_000, 120_000), -20_000);
706 // Down, but the open-source pool paid all but a cent: a cent back.
707 assert_eq!(correction(120_000, 100_000, 10_000), -10_000);
708 // Paid entirely by a credit or pool: nothing back.
709 assert_eq!(correction(120_000, 100_000, 0), 0);
710 }
711
712 #[test]
713 fn small_moves_are_noise_and_wild_ones_are_not_believed() {
714 assert_eq!(adopt(21.0, 21.2), Ok(None));
715 assert_eq!(adopt(21.0, 25.0), Ok(Some(25.0)));
716 assert_eq!(adopt(21.0, 15.0), Ok(Some(15.0)));
717 assert!(adopt(21.0, 200.0).is_err());
718 assert!(adopt(21.0, 0.0).is_err());
719 }
720
721 #[test]
722 fn a_sandbox_second_is_its_memory_and_disk_and_the_cpu_it_uses() {
723 // An hour of sandboxes that kept a fifth of a vCPU busy.
724 let usage = ContainerUsage { cpu_seconds: 720.0, memory_byte_seconds: 3600.0 * 4.0 * GIB };
725 let micros =
726 sandbox_second_micros(usage, LIST_MEMORY_GIB_SECOND, LIST_DISK_GB_SECOND, LIST_VCPU_SECOND, LIST_DO_GB_SECOND).unwrap();
727 // 4 x 2.5 + 8 x 0.07 + 0.125 x 12.5 + 0.2 x 20 = 16.1225
728 assert!((micros - 16.1225).abs() < 1e-9, "{micros}");
729 // The Durable Object adds about 11% to the second it left out.
730 assert!((sandbox_base_micros(LIST_MEMORY_GIB_SECOND, LIST_DISK_GB_SECOND, LIST_DO_GB_SECOND) - 12.1225).abs() < 1e-9);
731 // Too little use to say anything.
732 assert!(sandbox_second_micros(ContainerUsage { cpu_seconds: 1.0, memory_byte_seconds: GIB }, 1.0, 1.0, 1.0, 1.0).is_none());
733 }
734
735 #[test]
736 fn a_run_that_reports_its_cpu_is_priced_on_it() {
737 let base = sandbox_base_micros(LIST_MEMORY_GIB_SECOND, LIST_DISK_GB_SECOND, LIST_DO_GB_SECOND);
738 let vcpu = LIST_VCPU_SECOND * MICROS_PER_DOLLAR as f64;
739 // A 10-minute cargo build that kept its half vCPU busy throughout.
740 let heavy = run_cost(600, 300.0, base, vcpu);
741 assert!((heavy - (600.0 * 12.1225 + 300.0 * 20.0)).abs() < 1e-6);
742 // The same ten minutes, mostly idle, costs less.
743 let light = run_cost(600, 30.0, base, vcpu);
744 assert!(light < heavy);
745 // The average would have under-priced the heavy one.
746 let average = 600.0 * (base + 0.195 * vcpu);
747 assert!(average < heavy && average > light);
748 assert_eq!(run_cost(0, -1.0, base, vcpu), 0.0);
749 // A larger machine's base: its memory and disk, not its CPU.
750 assert!((base_scale(SANDBOX_GIB, SANDBOX_DISK_GB) - 1.0).abs() < 1e-12);
751 assert!((base_scale(12.0, 20.0) - 2.72).abs() < 0.01, "{}", base_scale(12.0, 20.0));
752 assert!((base_scale(8.0, 16.0) - 1.87).abs() < 0.01, "{}", base_scale(8.0, 16.0));
753 }
754
755 #[test]
756 fn a_billed_rate_is_the_median_of_the_charged_days() {
757 let row = |quantity: f64, cost: f64| UsageRow {
758 period_start: String::new(),
759 period_end: String::new(),
760 service: "Containers / Container Memory".into(),
761 unit: "Count".into(),
762 quantity,
763 cost,
764 };
765 let rows = [row(100.0, 0.0), row(100.0, 0.0002), row(100.0, 0.00025), row(100.0, 0.00025)];
766 assert_eq!(billed_rate(&rows.iter().collect::<Vec<_>>()), Some(0.000_002_5));
767 assert_eq!(billed_rate(&[&row(5.0, 0.0)]), None);
768 }
769
770 #[test]
771 fn usage_rows_are_read_by_their_focus_names() {
772 let row = UsageRow::from_value(&json!({
773 "ServiceFamilyName": "Containers",
774 "ServiceName": "Memory",
775 "PricingUnit": "GiB-seconds",
776 "PricingQuantity": "1200.5",
777 "ContractedCost": 0.003,
778 "ChargePeriodStart": "2026-10-01",
779 }))
780 .unwrap();
781 assert_eq!(row.service, "Containers / Memory");
782 assert_eq!(row.quantity, 1200.5);
783 assert_eq!(row.cost, 0.003);
784 assert!(UsageRow::from_value(&json!({ "nothing": 1 })).is_none());
785 }
786}