From b7c525893bdd374d067e34d307bf0bc32df73f97 Mon Sep 17 00:00:00 2001
From: Yorhel <git@yorhel.nl>
Date: Mon, 14 Oct 2019 18:24:06 +0200
Subject: v2rw: Convert user listing

---
 lib/VNDB/Handler/Users.pm | 79 +----------------------------------------------
 1 file changed, 1 insertion(+), 78 deletions(-)

(limited to 'lib/VNDB/Handler')

diff --git a/lib/VNDB/Handler/Users.pm b/lib/VNDB/Handler/Users.pm
index 56a00d2a..a9c53206 100644
--- a/lib/VNDB/Handler/Users.pm
+++ b/lib/VNDB/Handler/Users.pm
@@ -3,17 +3,12 @@ package VNDB::Handler::Users;
 
 use strict;
 use warnings;
-use TUWF ':html', 'xml_escape';
+use TUWF ':html';
 use VNDB::Func;
-use VNDB::Types;
-use VNWeb::Auth;
-use POSIX 'floor';
-use PWLookup;
 
 
 TUWF::register(
   qr{u([1-9]\d*)/posts}       => \&posts,
-  qr{u/(all|[0a-z])}          => \&list,
 );
 
 
@@ -70,77 +65,5 @@ sub posts {
 }
 
 
-sub list {
-  my($self, $char) = @_;
-
-  my $f = $self->formValidate(
-    { get => 's', required => 0, default => 'username', enum => [ qw|username registered votes changes tags| ] },
-    { get => 'o', required => 0, default => 'a', enum => [ 'a','d' ] },
-    { get => 'p', required => 0, default => 1, template => 'page' },
-    { get => 'q', required => 0, default => '', maxlength => 50 },
-  );
-  return $self->resNotFound if $f->{_err};
-
-  $self->htmlHeader(noindex => 1, title => 'Browse users');
-
-  div class => 'mainbox';
-   h1 'Browse users';
-   form action => '/u/all', 'accept-charset' => 'UTF-8', method => 'get';
-    $self->htmlSearchBox('u', $f->{q});
-   end;
-   p class => 'browseopts';
-    for ('all', 'a'..'z', 0) {
-      a href => "/u/$_", $_ eq $char ? (class => 'optselected') : (), $_ eq 'all' ? 'ALL' : $_ ? uc $_ : '#';
-    }
-   end;
-  end;
-
-  my($list, $np) = $self->dbUserGet(
-    sort => $f->{s}, reverse => $f->{o} eq 'd',
-    what => 'hide_list',
-    $char ne 'all' ? (
-      firstchar => $char ) : (),
-    results => 50,
-    page => $f->{p},
-    search => $f->{q},
-  );
-
-  $self->htmlBrowse(
-    items    => $list,
-    options  => $f,
-    nextpage => $np,
-    pageurl  => "/u/$char?o=$f->{o};s=$f->{s};q=$f->{q}",
-    sorturl  => "/u/$char?q=$f->{q}",
-    header   => [
-      [ 'Username',   'username'   ],
-      [ 'Registered', 'registered' ],
-      [ 'Votes',      'votes'      ],
-      [ 'Edits',      'changes'    ],
-      [ 'Tags',       'tags'       ],
-    ],
-    row     => sub {
-      my($s, $n, $l) = @_;
-      Tr;
-       td class => 'tc1';
-        VNWeb::HTML::user_($l);
-       end;
-       td class => 'tc2', fmtdate $l->{registered};
-       td class => 'tc3'.($l->{hide_list} && $self->authCan('usermod') ? ' linethrough' : '');
-        lit $l->{hide_list} && !$self->authCan('usermod') ? '-' : !$l->{c_votes} ? 0 :
-          qq|<a href="/u$l->{id}/votes">$l->{c_votes}</a>|;
-       end;
-       td class => 'tc4';
-        lit !$l->{c_changes} ? 0 : qq|<a href="/u$l->{id}/hist">$l->{c_changes}</a>|;
-       end;
-       td class => 'tc5';
-        lit !$l->{c_tags} ? 0 : qq|<a href="/g/links?u=$l->{id}">$l->{c_tags}</a>|;
-       end;
-      end 'tr';
-    },
-  );
-  $self->htmlFooter;
-}
-
-
 1;
 
-- 
cgit v1.2.3