From ba96974bdebd6d4ec345907d49944b5ee644ed47 Mon Sep 17 00:00:00 2001
From: Owen Jacobson <owen@grimoire.ca>
Date: Wed, 9 Oct 2024 00:57:31 -0400
Subject: Provide a view of logins to clients.

---
 src/login/repo.rs | 92 ++++++++++++++++++++++++++++++++++++++++++++++++++-----
 1 file changed, 84 insertions(+), 8 deletions(-)

(limited to 'src/login/repo.rs')

diff --git a/src/login/repo.rs b/src/login/repo.rs
index d1a02c4..6d6510c 100644
--- a/src/login/repo.rs
+++ b/src/login/repo.rs
@@ -1,6 +1,10 @@
 use sqlx::{sqlite::Sqlite, SqliteConnection, Transaction};
 
-use crate::login::{password::StoredHash, Id, Login};
+use crate::{
+    clock::DateTime,
+    event::{Instant, ResumePoint, Sequence},
+    login::{password::StoredHash, History, Id, Login},
+};
 
 pub trait Provider {
     fn logins(&mut self) -> Logins;
@@ -19,28 +23,100 @@ impl<'c> Logins<'c> {
         &mut self,
         name: &str,
         password_hash: &StoredHash,
-    ) -> Result<Login, sqlx::Error> {
+        created: &Instant,
+    ) -> Result<History, sqlx::Error> {
         let id = Id::generate();
 
-        let login = sqlx::query_as!(
-            Login,
+        let login = sqlx::query!(
             r#"
-                insert or fail
-                into login (id, name, password_hash)
-                values ($1, $2, $3)
+                insert
+                into login (id, name, password_hash, created_sequence, created_at)
+                values ($1, $2, $3, $4, $5)
                 returning
                     id as "id: Id",
-                    name
+                    name,
+                    created_sequence as "created_sequence: Sequence",
+                    created_at as "created_at: DateTime"
             "#,
             id,
             name,
             password_hash,
+            created.sequence,
+            created.at,
         )
+        .map(|row| History {
+            login: Login {
+                id: row.id,
+                name: row.name,
+            },
+            created: Instant {
+                at: row.created_at,
+                sequence: row.created_sequence,
+            },
+        })
         .fetch_one(&mut *self.0)
         .await?;
 
         Ok(login)
     }
+
+    pub async fn all(&mut self, resume_at: ResumePoint) -> Result<Vec<History>, sqlx::Error> {
+        let channels = sqlx::query!(
+            r#"
+                select
+                    id as "id: Id",
+                    name,
+                    created_sequence as "created_sequence: Sequence",
+                    created_at as "created_at: DateTime"
+                from login
+                    where coalesce(created_sequence <= $1, true)
+                    order by created_sequence
+            "#,
+            resume_at,
+        )
+        .map(|row| History {
+            login: Login {
+                id: row.id,
+                name: row.name,
+            },
+            created: Instant {
+                at: row.created_at,
+                sequence: row.created_sequence,
+            },
+        })
+        .fetch_all(&mut *self.0)
+        .await?;
+
+        Ok(channels)
+    }
+    pub async fn replay(&mut self, resume_at: ResumePoint) -> Result<Vec<History>, sqlx::Error> {
+        let messages = sqlx::query!(
+            r#"
+                select
+                    id as "id: Id",
+                    name,
+                    created_sequence as "created_sequence: Sequence",
+                    created_at as "created_at: DateTime"
+                from login
+                where coalesce(login.created_sequence > $1, true)
+            "#,
+            resume_at,
+        )
+        .map(|row| History {
+            login: Login {
+                id: row.id,
+                name: row.name,
+            },
+            created: Instant {
+                at: row.created_at,
+                sequence: row.created_sequence,
+            },
+        })
+        .fetch_all(&mut *self.0)
+        .await?;
+
+        Ok(messages)
+    }
 }
 
 impl<'t> From<&'t mut SqliteConnection> for Logins<'t> {
-- 
cgit v1.2.3