Fix account subroutines

FossilOrigin-Name: 11a7cb02e4b0b669445fe1bb6330026b1fa01764008e917a417476b8f8d274c9

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'}));
 }

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(
 #     {