From 19b19b900bf77380acb45c48094f2519c87023d2 Mon Sep 17 00:00:00 2001
From: nekobit <nekobit@noemail.net>
Date: Sat, 6 Aug 2022 05:06:27 +0000
Subject: [PATCH] Chat

FossilOrigin-Name: 7129d3c344032bab229fdc356df7522608a95af3696d92d22ec8f40d557c5734
---
 perl/chat.pm   | 35 +++++++++++++++++++++++++++++++++++
 perl/search.pm | 29 ++++++++++++++++++++++++++++-
 2 files changed, 63 insertions(+), 1 deletion(-)
 create mode 100644 perl/chat.pm

diff --git a/perl/chat.pm b/perl/chat.pm
new file mode 100644
index 0000000..533e090
--- /dev/null
+++ b/perl/chat.pm
@@ -0,0 +1,35 @@
+package chat;
+use strict;
+use warnings;
+use Exporter 'import';
+
+our @EXPORTS = qw( content_chats );
+
+use template_helpers 'to_template';
+
+sub construct_chat
+{
+    my ($ssn, $data, $chat) = @_;
+
+    my %vars = (
+        prefix => '',
+        ssn => $ssn,
+        chat => $chat,
+        );
+
+    to_template(\%vars, \$data->{'chat.tt'});
+}
+
+sub content_chats
+{
+    my ($ssn, $data, $chats) = @_;
+
+    my %vars = (
+        prefix => '',
+        ssn => $ssn,
+        chats => $chats,
+        );
+
+    to_template(\%vars, \$data->{'content_chats.tt'});
+}
+
diff --git a/perl/search.pm b/perl/search.pm
index 8da1d91..09039f4 100644
--- a/perl/search.pm
+++ b/perl/search.pm
@@ -3,7 +3,7 @@ use strict;
 use warnings;
 use Exporter 'import';
 
-our @EXPORTS = qw( content_search );
+our @EXPORTS = qw( content_search search_tags search_accounts search_statuses );
 
 use template_helpers 'to_template';
 
@@ -28,6 +28,33 @@ sub search_page
     to_template(\%vars, \$data->{'search.tt'});
 }
 
+sub search_tags
+{
+    my ($ssn, $data, $tags) = @_;
+
+    my %vars = (
+        prefix => '',
+        ssn => $ssn,
+        statuses => $statuses,
+        );
+
+    search_page($ssn, $data, SEARCH_CAT_STATUSES, to_template(\%vars, \$data->{'search_tags.tt'})); 
+}
+
+sub search_accounts
+{
+    my ($ssn, $data, $statuses) = @_;
+
+    my %vars = (
+        prefix => '',
+        ssn => $ssn,
+        statuses => $statuses,
+        );
+
+    search_page($ssn, $data, SEARCH_CAT_STATUSES, to_template(\%vars, \$data->{'search_accounts.tt'})); 
+}
+
+
 sub search_statuses
 {
     my ($ssn, $data, $statuses) = @_;