From 72f89321550647c5785e4d639462bb2612849407 Mon Sep 17 00:00:00 2001
From: nekobit <nekobit@noemail.net>
Date: Fri, 5 Aug 2022 01:26:57 +0000
Subject: [PATCH] Fix account subroutines

FossilOrigin-Name: 11a7cb02e4b0b669445fe1bb6330026b1fa01764008e917a417476b8f8d274c9
---
 perl/account.pm | 10 +++++-----
 perl/main.pl    |  1 +
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/perl/account.pm b/perl/account.pm
index 35057a0..2a0bb71 100644
--- a/perl/account.pm
+++ b/perl/account.pm
@@ -4,16 +4,16 @@ use warnings;
 
 use Exporter 'import';
 
-our @EXPORT = qw( generate_attachment );
+our @EXPORT = qw( account content_statuses );
 
 use template_helpers 'to_template';
 
-sub account
+sub generate_account
 {
     my ($ssn, $data, $acct, $content) = @_;
 
     my %vars = (
-        prefix = '',
+        prefix => '',
         ssn => $ssn,
         content => $content,
         );
@@ -21,7 +21,7 @@ sub account
     to_template(\%vars, \$data->{'account.tt'});
 }
 
-sub content_account_statuses
+sub content_statuses
 {
     my ($ssn, $data, $acct, $statuses) = @_;
 
@@ -31,5 +31,5 @@ sub content_account_statuses
         acct => $acct,
         );
 
-    account($ssn, $data, $acct, to_template(\%vars, \$data->{'account_statuses.tt'}));
+    generate_account($ssn, $data, $acct, to_template(\%vars, \$data->{'account_statuses.tt'}));
 }
diff --git a/perl/main.pl b/perl/main.pl
index 14ff2d1..d672903 100644
--- a/perl/main.pl
+++ b/perl/main.pl
@@ -7,6 +7,7 @@ use notifications qw( generate_notification_compact );
 use template_helpers qw( &to_template );
 use timeline;
 use status;
+use account;
 
 # my $template = Template->new(
 #     {