package FixMyStreet::App::Controller::Admin;
use Moose;
use namespace::autoclean;

BEGIN { extends 'Catalyst::Controller'; }

use mySociety::Random qw(random_bytes);

=head1 NAME

FixMyStreet::App::Controller::Admin- Catalyst Controller

=head1 DESCRIPTION

Admin pages

=head1 METHODS

=cut

=head2 index

Display contact us page

=cut

sub index : Path : Args(0) {
    my ( $self, $c ) = @_;

    my $problems = $c->model('DB::Problem')->search(
        undef,
        {
            group_by => ['state'],
            select   => [ 'state', { count => 'id' } ],
            as       => [qw/state state_count/]
        }
    );

    my %prob_counts =
      map { $_->state => $_->get_column('state_count') } $problems->all;

    %prob_counts =
      map { $_ => $prob_counts{$_} || 0 }
      qw(confirmed fixed unconfirmed hidden partial);
    $c->stash->{problems} = \%prob_counts;
    $c->stash->{total_problems_live} =
      $prob_counts{confirmed} + $prob_counts{fixed};

    my $comments = $c->model('DB::Comment')->search(
        undef,
        {
            group_by => ['state'],
            select   => [ 'state', { count => 'id' } ],
            as       => [qw/state state_count/]
        }
    );

    my %comment_counts =
      map { $_->state => $_->get_column('state_count') } $comments->all;

    $c->stash->{comments} = \%comment_counts;

    my $alerts = $c->model('DB::Alert')->search(
        undef,
        {
            group_by => ['confirmed'],
            select   => [ 'confirmed', { count => 'id' } ],
            as       => [qw/confirmed confirmed_count/]
        }
    );

    my %alert_counts =
      map { $_->confirmed => $_->get_column('confirmed_count') } $alerts->all;

    $alert_counts{0} ||= 0;
    $alert_counts{1} ||= 0;

    $c->stash->{alerts} = \%alert_counts;

    my $contacts = $c->model('DB::Contact')->search(
        undef,
        {
            group_by => ['confirmed'],
            select   => [ 'confirmed', { count => 'id' } ],
            as       => [qw/confirmed confirmed_count/]
        }
    );

    my %contact_counts =
      map { $_->confirmed => $_->get_column('confirmed_count') } $contacts->all;

    $contact_counts{0} ||= 0;
    $contact_counts{1} ||= 0;
    $contact_counts{total} = $contact_counts{0} + $contact_counts{1};

    $c->stash->{contacts} = \%contact_counts;

    my $questionnaires = $c->model('DB::Questionnaire')->search(
        undef,
        {
            group_by => [ \'whenanswered is not null' ],
            select   => [ \'(whenanswered is not null)', { count => 'me.id' } ],
            as       => [qw/answered questionnaire_count/],
            join     => 'problem'
        }
    );

    my %questionnaire_counts = map {
        $_->get_column('answered') => $_->get_column('questionnaire_count')
    } $questionnaires->all;
    $questionnaire_counts{1} ||= 0;
    $questionnaire_counts{0} ||= 0;

    $questionnaire_counts{total} =
      $questionnaire_counts{0} + $questionnaire_counts{1};
    $c->stash->{questionnaires_pc} =
      $questionnaire_counts{total}
      ? sprintf( '%.1f',
        $questionnaire_counts{1} / $questionnaire_counts{total} * 100 )
      : 'na';
    $c->stash->{questionnaires} = \%questionnaire_counts;

    return 1;
}

sub questionnaire : Path('questionnaire') : Args(0) {
    my ( $self, $c ) = @_;

    my $questionnaires = $c->model('DB::Questionnaire')->search(
        { whenanswered => \'is not null' }, { group_by => [ 'ever_reported' ], select => [ 'ever_reported', { count => 'me.id' } ], as => [qw/reported questionnaire_count/] }
    );


    my %questionnaire_counts = map { $_->get_column( 'reported' ) => $_->get_column( 'questionnaire_count' ) } $questionnaires->all;

    $questionnaire_counts{1} ||= 0;
    $questionnaire_counts{0} ||= 0;

    $questionnaire_counts{total} = $questionnaire_counts{0} + $questionnaire_counts{1};
    $c->stash->{reported_pc} = ( 100 * $questionnaire_counts{1} ) / $questionnaire_counts{total};
    $c->stash->{not_reported_pc} = ( 100 * $questionnaire_counts{0} ) / $questionnaire_counts{total};
    $c->stash->{questionnaires} = \%questionnaire_counts;

    return 1;
}
# use Encode;
# use POSIX qw(strftime strcoll);
# use Digest::MD5 qw(md5_hex);
# 
# use Page;
# use mySociety::Config;
# use mySociety::DBHandle qw(dbh select_all);
# use mySociety::MaPit;
# use mySociety::VotingArea;
# use mySociety::Web qw(NewURL ent);
# 
# =item get_token Q
# 
# Generate a token based on user and secret
# 
# =cut
# sub get_token {
#     my ($q) = @_;
#     my $secret = scalar(dbh()->selectrow_array('select secret from secret'));
#     my $token = md5_hex(($q->remote_user() . $secret));
#     return $token;
# }
# 	
# =item allowed_pages Q
# 
# Return a hash of allowed pages, keyed on page param. The values of the hash
# are arrays of the form [link_text, link_order]. Pages without link_texts
# are not to be included in the main admin menu.
# =cut
# sub allowed_pages($) {
#     my ($q) = @_;
#     my $cobrand = Page::get_cobrand($q);
#     my $pages = Cobrand::admin_pages($cobrand);
#     if (!$pages) {
#         $pages = {
#              'summary' => [_('Summary'), 0],
#              'councilslist' => [_('Council contacts'), 1],
#              'reports' => [_('Search Reports'), 2],
#              'timeline' => [_('Timeline'), 3],
#              'questionnaire' => [_('Survey Results'), 4],
#              'councilcontacts' => [undef, undef],        
#              'counciledit' => [undef, undef], 
#              'report_edit' => [undef, undef], 
#              'update_edit' => [undef, undef], 
#         };
#     }
#     return $pages;
# }
# 
# sub html_head($$) {
#     my ($q, $title) = @_;
#     my $ret = $q->header(-type => 'text/html', -charset => 'utf-8');
#     my $site_title = _('FixMyStreet administration');
#     $ret .= <<END;
# <html>
# <head>
# <title>$title - $site_title</title>
# <style type="text/css">
# dt { clear: left; float: left; font-weight: bold; }
# dd { margin-left: 8em; }
# .hidden { color: #666666; }
# </style>
# </head>
# <body>
# END
#     my $pages = allowed_pages($q);    
#     my @links = sort {$pages->{$a}[1] <=> $pages->{$b}[1]}  grep {$pages->{$_}->[0] } keys %$pages;
#     $ret .= $q->p(
#         $q->strong(_("FixMyStreet admin:")), 
#         map { $q->a( { href => NewURL($q, page => $_) }, $pages->{$_}->[0]) } @links
#     ); 
# 
#     return $ret;
# }
# 
# sub fetch_data {
# }
# 
# 
# # admin_councils_list CGI
# sub admin_councils_list ($) {
#     my ($q) = @_;
# 
#     print html_head($q, _("Council contacts"));
#     print $q->h1(_("Council contacts"));
# 
#     # Table of editors
#     print $q->h2(_("Diligency prize league table"));
#     my $edit_activity = dbh()->selectall_arrayref("select count(*) as c, editor from contacts_history group by editor order by c desc");
#     if (@$edit_activity) {
#         print $q->ul(
#             map { $q->li( sprintf(_('%d edits by %s'), $_->[0], $_->[1])) } @$edit_activity 
#         );
#     } else {
#         print $q->p(_('No edits have yet been made.'));
#     }
# 
#     # Table of councils
#     print $q->h2(_("Councils"));
#     my $cobrand = Page::get_cobrand($q);
#     my @area_types = Cobrand::area_types($cobrand);
#     my $areas = mySociety::MaPit::call('areas', \@area_types);
#     my @councils_ids = sort { strcoll($areas->{$a}->{name}, $areas->{$b}->{name}) } keys %$areas;
#     @councils_ids = grep { $_ ne 301 } @councils_ids;
#     my $bci_info = dbh()->selectall_hashref("
#         select area_id, count(*) as c, count(case when deleted then 1 else null end) as deleted,
#             count(case when confirmed then 1 else null end) as confirmed
#         from contacts group by area_id", 'area_id');
# 
#     my $list_part = sub {
#         my @ids = @_;
#         if (!scalar(@ids)) {
#             print _("None");
#             return;
#         }
#         my @li;
#         foreach (@ids) {
#             my $parent = '';
#             $parent = ', ' . $areas->{$areas->{$_}->{parent_area}}->{name}
#                 if $areas->{$_}->{parent_area};
# 
#             push @li, $q->li($q->a({ href => NewURL($q, area_id => $_, page => 'councilcontacts') }, 
#                   $areas->{$_}->{name}) . $parent . ' ' .
#                     ($bci_info->{$_} && $q->{site} ne 'emptyhomes' ?
#                         sprintf(_('%d addresses'), $bci_info->{$_}->{c})
#                     : ''));
#         }
#         print $q->ul(@li);
#     };
# 
#     print $q->h3(_('No info at all'));
#     &$list_part(grep { !$bci_info->{$_} } @councils_ids);
#     print $q->h3(_('Currently has 1+ deleted'));
#     &$list_part(grep { $bci_info->{$_} && $bci_info->{$_}->{deleted} } @councils_ids);
#     print $q->h3(_('Some unconfirmeds'));
#     &$list_part(grep { $bci_info->{$_} && !$bci_info->{$_}->{deleted} && $bci_info->{$_}->{confirmed} != $bci_info->{$_}->{c} } @councils_ids);
#     print $q->h3(_('All confirmed'));
#     &$list_part(grep { $bci_info->{$_} && !$bci_info->{$_}->{deleted} && $bci_info->{$_}->{confirmed} == $bci_info->{$_}->{c} } @councils_ids);
#     print html_tail($q);
# }
# 
# # admin_council_contacts CGI AREA_ID
# sub admin_council_contacts ($$) {
#     my ($q, $area_id) = @_;
# 
#     # Submit form
#     my $updated = '';
#     my $posted = $q->param('posted') || '';
#     if ($posted eq 'new') {
#         return not_found($q) if $q->param('token') ne get_token($q);
#         my $email = trim($q->param('email'));
#         my $category = trim($q->param('category'));
#         $category = 'Empty property' if $q->{site} eq 'emptyhomes';
#         # History is automatically stored by a trigger in the database
#         my $update = dbh()->do("update contacts set
#             email = ?,
#             confirmed = ?,
#             deleted = ?,
#             editor = ?,
#             whenedited = ms_current_timestamp(),
#             note = ?
#             where area_id = ?
#             and category = ?
#             ", {}, 
#             $email, ($q->param('confirmed') ? 1 : 0),
#             ($q->param('deleted') ? 1 : 0),
#             ($q->remote_user() || _("*unknown*")), $q->param('note'),
#             $area_id, $category
#             );
#         $updated = $q->p($q->em(_("Values updated")));
#         unless ($update > 0) {
#             dbh()->do('insert into contacts
#                 (area_id, category, email, editor, whenedited, note, confirmed, deleted)
#                 values
#                 (?, ?, ?, ?, ms_current_timestamp(), ?, ?, ?)', {},
#                 $area_id, $category, $email,
#                 ($q->remote_user() || _('*unknown*')), $q->param('note'),
#                 ($q->param('confirmed') ? 1 : 0), ($q->param('deleted') ? 1 : 0)
#             );
#             $updated = $q->p($q->em(_("New category contact added")));
#         }
#         dbh()->commit();
#     } elsif ($posted eq 'update') {
#         return not_found($q) if $q->param('token') ne get_token($q);
#         my @cats = $q->param('confirmed');
#         foreach my $cat (@cats) {
#             dbh()->do("update contacts set
#                 confirmed = 't', editor = ?,
#                 whenedited = ms_current_timestamp(),
#                 note = 'Confirmed'
#                 where area_id = ?
#                 and category = ?
#                 ", {},
#                 ($q->remote_user() || _("*unknown*")),
#                 $area_id, $cat
#             );
#         }
#         $updated = $q->p($q->em(_("Values updated")));
#         dbh()->commit();
#     }
# 
#     my $bci_data = select_all("select * from contacts where area_id = ? order by category", $area_id);
# 
#     if ($q->param('text')) {
#         print $q->header(-type => 'text/plain', -charset => 'utf-8');
#         foreach my $l (@$bci_data) {
#             next if $l->{deleted} || !$l->{confirmed};
#             print $l->{category} . "\t" . $l->{email} . "\n";
#         }
#         return;
#     }
# 
#     $q->delete_all(); # No need for state!
# 
#     # Title
#     my $mapit_data = mySociety::MaPit::call('area', $area_id);
#     my $title = sprintf(_('Council contacts for %s'), $mapit_data->{name});
#     print html_head($q, $title);
#     print $q->h1($title);
#     print $updated;
# 
#     # Example postcode, link to list of problem reports
#     my $links_html;
#     my $example_postcode = mySociety::MaPit::call('area/example_postcode', $area_id);
#     if ($example_postcode && ! ref $example_postcode) {
#         $links_html .= $q->a({ href => mySociety::Config::get('BASE_URL') . '/?pc=' . $q->escape($example_postcode) }, 
#                 "Example postcode " . $example_postcode) . " | ";
#     }
#     $links_html .= ' '  . 
#             $q->a({ href => mySociety::Config::get('BASE_URL') . "/reports?council=" . $area_id }, _(" List all reported problems"));
#     $links_html .= ' ' .
#             $q->a({ href => NewURL($q, area_id => $area_id, page => 'councilcontacts', text => 1) }, _('Text only version'));
#     print $q->p($links_html);
# 
#     # Display of addresses / update statuses form
#     print $q->start_form(-method => 'POST', -action => './');
#     print $q->start_table({border=>1, cellpadding=>2, cellspacing=>0});
#     print $q->Tr({}, $q->th({}, [_("Category"), _("Email"), _("Confirmed"), _("Deleted"), _("Last editor"), _("Note"), _("When edited"), _('Confirm')]));
#     foreach my $l (@$bci_data) {
#         print $q->Tr($q->td([
#             $q->a({ href => NewURL($q, area_id => $area_id, category => $l->{category}, page => 'counciledit') },
#                 $l->{category}), $l->{email}, $l->{confirmed} ? _('Yes') : _('No'),
#             $l->{deleted} ? _('Yes') : _('No'), $l->{editor}, ent($l->{note}),
#             $l->{whenedited} =~ m/^(.+)\.\d+$/,
#             $q->checkbox(-name => 'confirmed', -value => $l->{category}, -label => '')
#         ]));
#     }
#     print $q->end_table();
#     # XXX
#     print $q->p(
#         $q->hidden('area_id', $area_id),
#         $q->hidden('posted', 'update'),
#         $q->hidden('token', get_token($q)),
#         $q->hidden('page', 'councilcontacts'),
#         $q->submit(_('Update statuses'))
#     );
#     print $q->end_form();
# 
#     # Display form for adding new category
#     print $q->h2(_('Add new category'));
#     print $q->start_form(-method => 'POST', -action => './');
#     if ($q->{site} ne 'emptyhomes') {
#         print $q->p($q->strong(_("Category: ")),
#             $q->textfield(-name => "category", -size => 30));
#     }
#     print $q->p($q->strong(_("Email: ")),
#         $q->textfield(-name => "email", -size => 30));
#     $q->autoEscape(0);
#     print $q->p(
#         $q->checkbox(-id => 'confirmed', -name => "confirmed", -value => 1, -label => ' ' . $q->label({-for => 'confirmed'}, _('Confirmed'))),
#         ' ',
#         $q->checkbox(-id => 'deleted', -name => "deleted", -value => 1, -label => ' ' . $q->label({-for => 'deleted'}, _('Deleted')))
#     );
#     $q->autoEscape(1);
#     print $q->p($q->strong(_("Note: ")),
#         $q->textarea(-name => "note", -rows => 3, -columns=>40));
#     print $q->p(
#         $q->hidden('area_id', $area_id),
#         $q->hidden('posted', 'new'),
#         $q->hidden('token', get_token($q)),
#         $q->hidden('page', 'councilcontacts'),
#         $q->submit(_('Create category'))
#     );
#     print $q->end_form();
# 
#     print html_tail($q);
# }
# 
# # admin_council_edit CGI AREA_ID CATEGORY
# sub admin_council_edit ($$$) {
#     my ($q, $area_id, $category) = @_;
# 
#     # Get all the data
#     my $bci_data = select_all("select * from contacts where area_id = ? and category = ?", $area_id, $category);
#     $bci_data = $bci_data->[0];
#     my $bci_history = select_all("select * from contacts_history where area_id = ? and category = ? order by contacts_history_id", $area_id, $category);
#     my $mapit_data = mySociety::MaPit::call('area', $area_id);
#     
#     # Title
#     my $title = sprintf(_('Council contacts for %s'), $mapit_data->{name});
#     print html_head($q, $title);
#     print $q->h1($title);
# 
#     # Example postcode
#     my $example_postcode = mySociety::MaPit::call('area/example_postcode', $area_id);
#     if ($example_postcode && ! ref $example_postcode) {
#         print $q->p("Example postcode: ",
#             $q->a({ href => mySociety::Config::get('BASE_URL') . '/?pc=' . $q->escape($example_postcode) }, 
#                 $example_postcode));
#     }
# 
#     # Display form for editing details
#     print $q->start_form(-method => 'POST', -action => './');
#     map { $q->param($_, $bci_data->{$_}) } qw/category email confirmed deleted/;
#     $q->param('page', 'councilcontacts');
#     $q->param('posted', 'new');
#     print $q->strong(_("Category: ")) . $bci_data->{category};
#     print $q->hidden('token', get_token($q)),
#     print $q->hidden("category");
#     print $q->strong(' ' . _("Email: "));
#     print $q->textfield(-name => "email", -size => 30) . " ";
#     $q->autoEscape(0);
#     print $q->checkbox(-id => 'confirmed', -name => "confirmed", -value => 1, -label => ' ' . $q->label({-for => 'confirmed'}, _('Confirmed')));
#     print ' ';
#     print $q->checkbox(-id => 'deleted', -name => "deleted", -value => 1, -label => ' ' . $q->label({-for => 'deleted'}, _('Deleted')));
#     $q->autoEscape(1);
#     print $q->br();
#     print $q->strong(_("Note: "));
#     print $q->textarea(-name => "note", -rows => 3, -columns=>40) . " ";
#     print $q->br();
#     print $q->hidden('area_id');
#     print $q->hidden('posted');
#     print $q->hidden('page');
#     print $q->submit(_('Save changes'));
#     print $q->end_form();
# 
#     # Display history of changes
#     print $q->h2(_('History'));
#     print $q->start_table({border=>1});
#     print $q->Tr({}, $q->th({}, [_("When edited"), _("Email"), _("Confirmed"), _("Deleted"), _("Editor"), _("Note")]));
#     my $html = '';
#     my $prev = undef;
#     foreach my $h (@$bci_history) {
#         $h->{confirmed} = $h->{confirmed} ? _("yes") : _("no"),
#         $h->{deleted} = $h->{deleted} ? _("yes") : _("no"),
#         my $emailchanged = ($prev && $h->{email} ne $prev->{email}) ? 1 : 0;
#         my $confirmedchanged = ($prev && $h->{confirmed} ne $prev->{confirmed}) ? 1 : 0;
#         my $deletedchanged = ($prev && $h->{deleted} ne $prev->{deleted}) ? 1 : 0;
#         $html .= $q->Tr({}, $q->td([ 
#                 $h->{whenedited} =~ m/^(.+)\.\d+$/,
#                 $emailchanged ? $q->strong($h->{email}) : $h->{email},
#                 $confirmedchanged ? $q->strong($h->{confirmed}) : $h->{confirmed},
#                 $deletedchanged ? $q->strong($h->{deleted}) : $h->{deleted},
#                 $h->{editor},
#                 $h->{note}
#             ]));
#         $prev = $h;
#     }
#     print $html;
#     print $q->end_table();
#     print html_tail($q);
# }
# 
# sub admin_reports {
#     my $q = shift;
#     my $title = _('Search Reports');
#     my $cobrand = Page::get_cobrand($q);
#     my $pages = allowed_pages($q);
#     print html_head($q, $title);
#     print $q->h1($title);
#     print $q->start_form(-method => 'GET', -action => './');
#     print $q->label({-for => 'search'}, _('Search:')), ' ', $q->textfield(-id => 'search', -name => "search", -size => 30);
#     print $q->hidden('page');
#     print $q->end_form;
# 
#     if (my $search = $q->param('search')) {
#         my $results = Problems::problem_search($search);
#         print $q->start_table({border=>1, cellpadding=>2, cellspacing=>0});
#         print $q->Tr({}, $q->th({}, [_('ID'), _('Title'), _('Name'), _('Email'), _('Council'), _('Category'), _('Anonymous'), _('Cobrand'), _('Created'), _('State'), _('When sent'), _('*') ]));
#         my $cobrand_data;         
#         foreach (@$results) {
#             my $url = $_->{id};
#             if ($_->{state} eq 'confirmed' || $_->{state} eq 'fixed') {
#                 # if this is a cobranded admin interface, but we're looking at a generic problem, figure out enough information
#                 # to create a URL to the cobranded version of the problem
#                 if ($_->{cobrand}) {
#                     $cobrand_data = $_->{cobrand_data};
#                 } else {	
#                     $cobrand_data = Cobrand::cobrand_data_for_generic_problem($cobrand, $_);
#                 }
#                 $url = $q->a({ -href => Cobrand::base_url_for_emails($cobrand, $cobrand_data) . '/report/' . $_->{id} }, $url);
#             }
#             my $council = $_->{council} || '&nbsp;';
#             my $category = $_->{category} || '&nbsp;';
#             (my $confirmed = $_->{confirmed} || '-') =~ s/ (.*?)\..*/&nbsp;$1/;
#             (my $created = $_->{created}) =~ s/\..*//;
#             (my $lastupdate = $_->{lastupdate}) =~ s/ (.*?)\..*/&nbsp;$1/;
#             (my $whensent = $_->{whensent} || '&nbsp;') =~ s/\..*//;
#             my $state = $_->{state};
#             $state .= '<small>';
#             $state .= "<br>" . _('Confirmed:') . "&nbsp;$confirmed" if $_->{state} eq 'confirmed' || $_->{state} eq 'fixed';
#             $state .= '<br>' . _('Fixed:') . ' ' . $lastupdate if $_->{state} eq 'fixed';
#             $state .= "<br>" . _('Last&nbsp;update:') . "&nbsp;$lastupdate" if $_->{state} eq 'confirmed';
#             $state .= '</small>';
#             my $anonymous = $_->{anonymous} ? _('Yes') : _('No');
#             my $cobrand = $_->{cobrand};
#             $cobrand .= "<br>" . $_->{cobrand_data};
#             my $counciltext = '';
#             if (grep {$_ eq 'councilcontacts'} keys %{$pages}) {  
#                  $counciltext = $q->a({ -href => NewURL($q, page=>'councilcontacts', area_id=>$council)}, $council);
#             } else {
#                  $counciltext = $council;
#             }
#             my $attr = {};
#             $attr->{-class} = 'hidden' if $_->{state} eq 'hidden';
#             print $q->Tr($attr, $q->td([ $url, ent($_->{title}), ent($_->{name}), ent($_->{email}),
#             $counciltext,
#             $category, $anonymous, $cobrand, $created, $state, $whensent,
#             $q->a({ -href => NewURL($q, page=>'report_edit', id=>$_->{id}) }, _('Edit'))
#             ]));
#         }
#         print $q->end_table;
# 
#         print $q->h2(_('Updates'));
#         my $updates = Problems::update_search($search);
#         admin_show_updates($q, $updates);
#     }
# 
#     print html_tail($q);
# }
# 
# sub admin_edit_report {
#     my ($q, $id) = @_;
#     my $row = Problems::admin_fetch_problem($id);
#     my $cobrand = Page::get_cobrand($q);
#     return not_found($q) if ! $row->[0];
#     my %row = %{$row->[0]};
#     my $status_message = '';
#     if ($q->param('resend')) {
#         return not_found($q) if $q->param('token') ne get_token($q);
#         dbh()->do('update problem set whensent=null where id=?', {}, $id);
#         admin_log_edit($q, $id, 'problem', 'resend');
#         dbh()->commit();
#         $status_message = '<p><em>' . _('That problem will now be resent.') . '</em></p>';
#     } elsif ($q->param('submit')) {
#         return not_found($q) if $q->param('token') ne get_token($q);
#         my $new_state = $q->param('state');
#         my $done = 0;
#         if ($new_state eq 'confirmed' && $row{state} eq 'unconfirmed' && $q->{site} eq 'emptyhomes') {
#             $status_message = '<p><em>' . _('I am afraid you cannot confirm unconfirmed reports.') . '</em></p>';
#             $done = 1;
#         }
#         my $query = 'update problem set anonymous=?, state=?, name=?, email=?, title=?, detail=?';
#         if ($q->param('remove_photo')) {
#             $query .= ', photo=null';
#         }
#         if ($new_state ne $row{state}) {
#             $query .= ', lastupdate=current_timestamp';
#         }
#         if ($new_state eq 'confirmed' and $row{state} eq 'unconfirmed') {
#             $query .= ', confirmed=current_timestamp';
#         }
#         $query .= ' where id=?';
#         unless ($done) {
#             dbh()->do($query, {}, $q->param('anonymous') ? 't' : 'f', $new_state,
#                 $q->param('name'), $q->param('email'), $q->param('title'), $q->param('detail'), $id);
#             if ($new_state ne $row{state}) {	
#                 admin_log_edit($q, $id, 'problem', 'state_change');
#             }
#             if ($q->param('anonymous') ne $row{anonymous} || 
#                 $q->param('name') ne $row{name} ||
#                 $q->param('email') ne $row{email} || 
#                 $q->param('title') ne $row{title} ||
#                 $q->param('detail') ne $row{detail}) {
#                admin_log_edit($q, $id, 'problem', 'edit');
#             } 
#             dbh()->commit();
#             map { $row{$_} = $q->param($_) } qw(anonymous state name email title detail);
#             $status_message = '<p><em>' . _('Updated!') . '</em></p>';
#         }
#     }
#     my %row_h = map { $_ => $row{$_} ? ent($row{$_}) : '' } keys %row;
#     my $title = sprintf(_("Editing problem %d"), $id);
#     print html_head($q, $title);
#     print $q->h1($title);
#     print $status_message;
# 
#     my $council = $row{council} || '<em>' . _('None') . '</em>';
#     (my $areas = $row{areas}) =~ s/^,(.*),$/$1/;
#     my $latitude  = $row{latitude};
#     my $longitude = $row{longitude};
#     my $questionnaire = $row{send_questionnaire} ? _('Yes') : _('No');
#     my $used_map = $row{used_map} ? _('used map') : _("didn't use map");
#     (my $whensent = $row{whensent} || '&nbsp;') =~ s/\..*//;
#     (my $confirmed = $row{confirmed} || '-') =~ s/ (.*?)\..*/&nbsp;$1/;
#     my $photo = '';
#     my $cobrand_data;
#     if ($row{cobrand}) {
#         $cobrand_data = $row{cobrand_data};
#     } else {
#         $cobrand_data = Cobrand::cobrand_data_for_generic_problem($cobrand, \%row);
#     }
#     $photo = '<li><img align="top" src="' . Cobrand::base_url_for_emails($cobrand, $cobrand_data) . '/photo?id=' . $row{id} . '">
# <input type="checkbox" id="remove_photo" name="remove_photo" value="1">
# <label for="remove_photo">' . _("Remove photo (can't be undone!)") . '</label>' if $row{photo};
#     
#     my $url_base = Cobrand::base_url_for_emails($cobrand, $cobrand_data);
#     my $url = $url_base . '/report/' . $row{id};
# 
#     my $anon = $q->label({-for=>'anonymous'}, _('Anonymous:')) . ' ' . $q->popup_menu(-id => 'anonymous', -name => 'anonymous', -values => { 1=>_('Yes'), 0=>_('No') }, -default => $row{anonymous});
#     my $state = $q->label({-for=>'state'}, _('State:')) . ' ' . $q->popup_menu(-id => 'state', -name => 'state', -values => { confirmed => _('Open'), fixed => _('Fixed'), hidden => _('Hidden'), unconfirmed => _('Unconfirmed'), partial => _('Partial') }, -default => $row{state});
# 
#     my $resend = '';
#     $resend = ' <input onclick="return confirm(\'' . _('You really want to resend?') . '\')" type="submit" name="resend" value="' . _('Resend report') . '">' if $row{state} eq 'confirmed';
# 
#     print $q->start_form(-method => 'POST', -action => './');
#     print $q->hidden('page');
#     print $q->hidden('id');
#     print $q->hidden('token', get_token($q));
#     print $q->hidden('submit', 1);
#     print "
# <ul>
# <li><a href='$url'>" . _('View report on site') . "</a>
# <li><label for='title'>" . _('Subject:') . "</label> <input size=60 type='text' id='title' name='title' value='$row_h{title}'>
# <li><label for='detail'>" . _('Details:') . "</label><br><textarea name='detail' id='detail' cols=60 rows=10>$row_h{detail}</textarea>
# <li>" . _('Co-ordinates:') . " $latitude,$longitude (" . _('originally entered') . " $row_h{postcode}, $used_map)
# <li>" . _('For council(s):') . " $council (" . _('other areas:') . " $areas)
# <li>$anon
# <li>$state
# <li>" . _('Category:') . " $row{category}
# <li>" . _('Name:') . " <input type='text' name='name' id='name' value='$row_h{name}'>
# <li>" . _('Email:') . " <input type='text' id='email' name='email' value='$row_h{email}'>
# <li>" . _('Phone:') . " $row_h{phone}
# <li>" . _('Created:') . " $row{created}
# <li>" . _('Confirmed:') . " $confirmed
# <li>" . _('Sent:') . " $whensent $resend
# <li>" . _('Last update:') . " $row{lastupdate}
# <li>" . _('Service:') . " $row{service}
# <li>" . _('Cobrand:') . " $row{cobrand}
# <li>" . _('Cobrand data:') . " $row{cobrand_data}
# <li>" . _('Going to send questionnaire?') . " $questionnaire
# $photo
# </ul>
# ";
#     print $q->submit(_('Submit changes'));
#     print $q->end_form;
# 
#     print $q->h2(_('Updates'));
#     my $updates = select_all('select * from comment where problem_id=? order by created', $id);
#     admin_show_updates($q, $updates);
#     print html_tail($q);
# }
# 
# sub admin_show_updates {
#     my ($q, $updates) = @_;
#     my $cobrand = Page::get_cobrand($q);
#     print $q->start_table({border=>1, cellpadding=>2, cellspacing=>0});
#     print $q->Tr({}, $q->th({}, [ _('ID'), _('State'), _('Name'), _('Email'), _('Created'), _('Cobrand'), _('Text'), _('*') ]));
#     my $base_url = ''; 
#     my $cobrand_data;
#     foreach (@$updates) {
#         my $url = $_->{id};
#         if ( $_->{state} eq 'confirmed' ) {
#             if ($_->{cobrand}) {
#                 $cobrand_data = $_->{cobrand_data};
#             } else {
#                 $cobrand_data = Cobrand::cobrand_data_for_generic_update($cobrand, $_);
#             }
#             $url = $q->a({ -href => Cobrand::base_url_for_emails($cobrand, $cobrand_data) . '/report/' . $_->{problem_id} . '#update_' . $_->{id} },
#                 $url);
#         }
#         my $cobrand = $_->{cobrand} . '<br>' . $_->{cobrand_data};
#         my $attr = {};
#         $attr->{-class} = 'hidden' if $_->{state} eq 'hidden' || ($_->{problem_state} && $_->{problem_state} eq 'hidden');
#         print $q->Tr($attr, $q->td([ $url, $_->{state}, ent($_->{name} || ''),
#         ent($_->{email}), $_->{created}, $cobrand, ent($_->{text}),
#         $q->a({ -href => NewURL($q, page=>'update_edit', id=>$_->{id}) }, _('Edit'))
#         ]));
#     }
#     print $q->end_table;
# }
# 
# sub admin_edit_update {
#     my ($q, $id) = @_;
#     my $row = Problems::admin_fetch_update($id);
#     return not_found($q) if ! $row->[0];
#     my $cobrand = Page::get_cobrand($q);
# 
#     my %row = %{$row->[0]};
#     my $status_message = '';
#     if ($q->param('submit')) {
#         return not_found($q) if $q->param('token') ne get_token($q);
#         my $query = 'update comment set state=?, name=?, email=?, text=?';
#         if ($q->param('remove_photo')) {
#             $query .= ', photo=null';
#         }
#         $query .= ' where id=?';
#         dbh()->do($query, {}, $q->param('state'), $q->param('name'), $q->param('email'), $q->param('text'), $id);
#         $status_message = '<p><em>' . _('Updated!') . '</em></p>';
# 
#         # If we're hiding an update, see if it marked as fixed and unfix if so
#         if ($q->param('state') eq 'hidden' && $row{mark_fixed}) {
#             dbh()->do("update problem set state='confirmed' where state='fixed' and id=?", {}, $row{problem_id});
#             $status_message .= '<p><em>' . _('Problem marked as open.') . '</em></p>';
#         }
# 
#         if ($q->param('state') ne $row{state}) {
#             admin_log_edit($q, $id, 'update', 'state_change');
#         } 
#         if (!defined($row{name})){
#            $row{name} = "";   
#         }
#         if ($q->param('name') ne $row{name} || $q->param('email') ne $row{email} || $q->param('text') ne $row{text}) {
#             admin_log_edit($q, $id, 'update', 'edit');
#         }
#         dbh()->commit();
#         map { $row{$_} = $q->param($_) } qw(state name email text);
#     }
#     my %row_h = map { $_ => $row{$_} ? ent($row{$_}) : '' } keys %row;
#     my $title = sprintf(_("Editing update %d"), $id);
#     print html_head($q, $title);
#     print $q->h1($title);
#     print $status_message;
#     my $name = $row_h{name};
#     $name = '' unless $name;
#     my $cobrand_data;
#     if ($row{cobrand}) {
#         $cobrand_data = $row{cobrand_data};
#     } else {
#         $cobrand_data = Cobrand::cobrand_data_for_generic_update($cobrand, \%row);
#     }
#     my $photo = '';
#     $photo = '<li><img align="top" src="' . Cobrand::base_url_for_emails($cobrand, $cobrand_data)  . '/photo?c=' . $row{id} . '">
# <input type="checkbox" id="remove_photo" name="remove_photo" value="1">
# <label for="remove_photo">' . _("Remove photo (can't be undone!)") . '</label>' if $row{photo};
# 
#     my $url = Cobrand::base_url_for_emails($cobrand, $cobrand_data) . '/report/' . $row{problem_id} . '#update_' . $row{id};
# 
#     my $state = $q->label({-for=>'state'}, _('State:')) . ' ' . $q->popup_menu(-id => 'state', -name => 'state', -values => { confirmed => _('Confirmed'), hidden => _('Hidden'), unconfirmed => _('Unconfirmed') }, -default => $row{state});
# 
#     print $q->start_form(-method => 'POST', -action => './');
#     print $q->hidden('page');
#     print $q->hidden('id');
#     print $q->hidden('token', get_token($q));
#     print $q->hidden('submit', 1);
#     print "
# <ul>
# <li><a href='$url'>" . _('View update on site') . "</a>
# <li><label for='text'>" . _('Text:') . "</label><br><textarea name='text' id='text' cols=60 rows=10>$row_h{text}</textarea>
# <li>$state
# <li>" . _('Name:') . " <input type='text' name='name' id='name' value='$name'> " . _('(blank to go anonymous)') . "
# <li>" . _('Email:') . " <input type='text' id='email' name='email' value='$row_h{email}'>
# <li>" . _('Cobrand:') . " $row{cobrand}
# <li>" . _('Cobrand data:') . " $row{cobrand_data} 
# <li>" . _('Created:') . " $row{created}
# $photo
# </ul>
# ";
#     print $q->submit(_('Submit changes'));
#     print $q->end_form;
#     print html_tail($q);
# }
# 
# sub get_cobrand_data_from_hash {
#     my ($cobrand, $data) = @_;
#     my $cobrand_data;
#     if ($data->{cobrand}) {
#         $cobrand_data = $data->{cobrand_data};
#     } else {
#         $cobrand_data = Cobrand::cobrand_data_for_generic_problem($cobrand, $data);
#     }
#     return $cobrand_data;
# }
# 
# sub admin_log_edit {
#    my ($q, $id, $object_type, $action) = @_;
#    my $query = "insert into admin_log (admin_user, object_type, object_id, action)
#                 values (?, ?, ?, ?);";
#    dbh()->do($query, {}, $q->remote_user(), $object_type, $id, $action);
# }
# 
# sub admin_timeline {
#     my $q = shift;
#     my $cobrand = Page::get_cobrand($q);
#     print html_head($q, _('Timeline'));
#     print $q->h1(_('Timeline'));
# 
#     my %time;
#     #my $backto_unix = time() - 60*60*24*7;
# 
#     my $probs = Problems::timeline_problems();
#     foreach (@$probs) {
#         push @{$time{$_->{created}}}, { type => 'problemCreated', %$_ };
#         push @{$time{$_->{confirmed}}}, { type => 'problemConfirmed', %$_ } if $_->{confirmed};
#         push @{$time{$_->{whensent}}}, { type => 'problemSent', %$_ } if $_->{whensent};
#     }
# 
#     my $questionnaire = Problems::timeline_questionnaires($cobrand);
#     foreach (@$questionnaire) {
#         push @{$time{$_->{whensent}}}, { type => 'quesSent', %$_ };
#         push @{$time{$_->{whenanswered}}}, { type => 'quesAnswered', %$_ } if $_->{whenanswered};
#     }
# 
#     my $updates = Problems::timeline_updates();
#     foreach (@$updates) {
#         push @{$time{$_->{created}}}, { type => 'update', %$_} ;
#     }
# 
#     my $alerts = Problems::timeline_alerts($cobrand);
# 
#    
#     foreach (@$alerts) {
#         push @{$time{$_->{whensubscribed}}}, { type => 'alertSub', %$_ };
#     }
#     $alerts = Problems::timeline_deleted_alerts($cobrand);
#     foreach (@$alerts) {
#         push @{$time{$_->{whendisabled}}}, { type => 'alertDel', %$_ };
#     }
# 
#     my $date = '';
#     my $cobrand_data;
#     foreach (reverse sort keys %time) {
#         my $curdate = decode_utf8(strftime('%A, %e %B %Y', localtime($_)));
#         if ($date ne $curdate) {
#             print '</dl>' if $date;
#             print "<h2>$curdate</h2> <dl>";
#             $date = $curdate;
#         }
#         print '<dt><b>', decode_utf8(strftime('%H:%M:%S', localtime($_))), ':</b></dt> <dd>';
#         foreach (@{$time{$_}}) {
#             my $type = $_->{type};
#             if ($type eq 'problemCreated') {
#                 my $name_str = '; ' . sprintf(_("by %s"), ent($_->{name})) . " &lt;" . ent($_->{email}) . "&gt;, '" . ent($_->{title}) . "'";
#                 print sprintf(_("Problem %d created"), $_->{id}) . $name_str;
#             } elsif ($type eq 'problemConfirmed') {
#                 my $name_str = '; ' . sprintf(_("by %s"), ent($_->{name})) . " &lt;" . ent($_->{email}) . "&gt;, '" . ent($_->{title}) . "'";
#                 $cobrand_data = get_cobrand_data_from_hash($cobrand, $_);
#                 my $url = Cobrand::base_url_for_emails($cobrand, $cobrand_data)  . "/report/$_->{id}";
#                 print sprintf(_("Problem %s confirmed"), "<a href='$url'>$_->{id}</a>") . $name_str;
#             } elsif ($type eq 'problemSent') {
#                 $cobrand_data = get_cobrand_data_from_hash($cobrand, $_);
#                 my $url = Cobrand::base_url_for_emails($cobrand, $cobrand_data) . "/report/$_->{id}";
#                 print sprintf(_("Problem %s sent to council %s"), "<a href='$url'>$_->{id}</a>", $_->{council});
#             } elsif ($type eq 'quesSent') {
#                 print sprintf(_("Questionnaire %d sent for problem %d"), $_->{id}, $_->{problem_id});
#             } elsif ($type eq 'quesAnswered') {
#                 print sprintf(_("Questionnaire %d answered for problem %d, %s to %s"), $_->{id}, $_->{problem_id}, $_->{old_state}, $_->{new_state});
#             } elsif ($type eq 'update') {
#                 $cobrand_data = get_cobrand_data_from_hash($cobrand, $_);
#                 my $url = Cobrand::base_url_for_emails($cobrand, $cobrand_data) . "/report/$_->{problem_id}#$_->{id}";
#                 my $name = ent($_->{name} || 'anonymous');
#                 print sprintf(_("Update %s created for problem %d; by %s"), "<a href='$url'>$_->{id}</a>", $_->{problem_id}, $name) . " &lt;" . ent($_->{email}) . "&gt;";
#             } elsif ($type eq 'alertSub') {
#                 my $param = $_->{parameter} || '';
#                 my $param2 = $_->{parameter2} || '';
#                 print sprintf(_("Alert %d created for %s, type %s, parameters %s / %s"), $_->{id}, ent($_->{email}), $_->{alert_type}, $param, $param2);
#             } elsif ($type eq 'alertDel') {
#                 my $sub = decode_utf8(strftime('%H:%M:%S %e %B %Y', localtime($_->{whensubscribed})));
#                 print sprintf(_("Alert %d disabled (created %s)"), $_->{id}, $sub);
#             }
#             print '<br>';
#         }
#         print "</dd>\n";
#     }
#     print html_tail($q);
# 
# }
# 
# 
# sub not_found {
#     my ($q) = @_;
#     print $q->header(-status=>'404 Not Found',-type=>'text/html');
#     print "<h1>Not Found</h1>The requested URL was not found on this server.";
# }
# 
# sub main {
#     my $q = shift;
# 
#     my $logout = $q->param('logout');
#     my $timeout = $q->param('timeout');
#     if ($logout) {
#         if (!$timeout) {
#             print $q->redirect(-location => '?logout=1;timeout=' . (time() + 7));
#             return;
#         }
#         if (time() < $timeout) {
#             print $q->header(
#                 -status => '401 Unauthorized',
#                 -www_authenticate => 'Basic realm="www.fixmystreet.com admin pages"'
#             );
#             return;
#         }
#     }
# 
#     my $page = $q->param('page');
#     $page = "summary" if !$page;
# 
#     my $area_id = $q->param('area_id');
#     my $category = $q->param('category');
#     my $pages = allowed_pages($q);
#     my @allowed_actions = keys %$pages;
#  
#     if (!grep {$_ eq $page} @allowed_actions) {
#         not_found($q);
#         return; 
#     }
# 
#     if ($page eq "councilslist") {
#         admin_councils_list($q);
#     } elsif ($page eq "councilcontacts") {
#         admin_council_contacts($q, $area_id);
#     } elsif ($page eq "counciledit") {
#         admin_council_edit($q, $area_id, $category);
#     } elsif ($page eq 'reports') {
#         admin_reports($q);
#     } elsif ($page eq 'report_edit') {
#         my $id = $q->param('id');
#         admin_edit_report($q, $id);
#     } elsif ($page eq 'update_edit') {
#         my $id = $q->param('id');
#         admin_edit_update($q, $id);
#     } elsif ($page eq 'timeline') {
#         admin_timeline($q);
#     } elsif ($page eq 'questionnaire') {
#         admin_questionnaire($q);
#     } else {
#         admin_summary($q);
#     }
# }
# Page::do_fastcgi(\&main);
# 
# sub trim {
#     my $e = shift;
#     $e =~ s/^\s+//;
#     $e =~ s/\s+$//;
#     return $e;
# }

=head1 AUTHOR

Struan Donald

=head1 LICENSE

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

__PACKAGE__->meta->make_immutable;

1;