# ==================================================================
# Gossamer Forum - Advanced web community
#
#   Website  : http://gossamer-threads.com/
#   Support  : http://gossamer-threads.com/scripts/support/
#   Revision : $Id: Admin.pm,v 1.15 2002/03/04 07:40:26 jagerman Exp $
#
# Copyright (c) 2001 Gossamer Threads Inc.  All Rights Reserved.
# Redistribution in part or in whole strictly prohibited. Please
# see LICENSE file for full details.
# ==================================================================

package GForum::Admin;
# ==================================================================
use strict;
use GForum qw/$DB $CFG/;
use GT::SQL::Admin;
use vars qw/@ISA $ERROR_MESSAGE $VERSION $DEBUG
            $FONT $ROW_COLOR1 $ROW_COLOR2/; # This line is annoying constants GT::SQL::Admin uses.

@ISA = qw/GT::SQL::Admin/;
$VERSION        = sprintf "%d.%03d", q$Revision: 1.15 $ =~ /(\d+)\.(\d+)/;
$DEBUG          = 0;
$ERROR_MESSAGE  = 'GT::SQL';

$ROW_COLOR1 = $GT::SQL::Admin::ROW_COLOR1;
$ROW_COLOR2 = $GT::SQL::Admin::ROW_COLOR2;
$FONT       = $GT::SQL::Admin::FONT;

sub _check_opts {
# -------------------------------------------------------------------
# This is overriden to allow searching by moderators, subscribers, or system group permissions
# for the Forum table.
#
    my $self = shift;
    my $sel = 0;

    my $cols = $self->{table}->cols;
    for (keys %{$self->{cgi}}) {
        if ($self->{cgi}->{$_} =~ /\S/ and exists $cols->{$_}) {
            $sel = 1;
            last;
        }
    }

    if (exists $self->{cgi}->{query} and $self->{cgi}->{query} =~ /\S/ or
        exists $self->{cgi}->{keyword} and $self->{cgi}->{keyword} =~ /\S/) {
        $sel = 1;
    }
    my $prefix = $DB->prefix;

    if (!$sel and $self->{table}->name eq $prefix . 'Forum' and
            $self->{cgi}->{'ForumModerator.user_id_fk'}
                ||
            $self->{cgi}->{'ForumSubscriber.user_id_fk'}) {
        $sel = 1;
    }

    if (!$sel and $self->{table}->name eq $prefix . 'User' and
        exists $self->{cgi}->{'UserGroup.group_id_fk'}) {
        $sel = 1;
    }
    return $sel;
}

sub _buttons {
# -------------------------------------------------------------------
# Adds a warning message to delete Users, Posts, and Categories.
#
    my $self = shift;
    my $name = shift;
    my $table = $self->{record};
    my $msg  = '';
    if ($self->{record} eq 'Forum' and $name eq 'Delete') {
        $msg = qq~<p><font face="Tahoma,Arial,Helvetica" size=2><font color=red><b>Warning:</b></font> deleting a forum will also delete all posts contained within that forum!</font></p>~;
    }
    elsif ($self->{record} eq 'Category' and $name eq 'Delete') {
        $msg = qq~<p><font face="Tahoma,Arial,Helvetica" size=2><font color=red><b>Warning:</b></font> deleting a category will also delete all forums in that category and any posts in those forums!</font></p>~;
    }
    elsif ($self->{record} eq 'Post' and $name eq 'Delete') {
        $msg = qq~<p><font face="Tahoma,Arial,Helvetica" size=2><font color=red><b>Warning:</b></font> deleting a post will also delete any direct or indirect replies to that post!</font></p>~;
    }
    elsif ($self->{record} eq 'Forum' and $name eq 'Add' and not $DB->table('Category')->count) {
        return '';
    }
    my $ret = '';
    $table = 'Group' if $table eq 'Grouping';

    return qq~\n$ret<table border=1 cellpadding=0 cellspacing=0><tr><td align=center>
    <table border=0 width=500><tr><td align=center>$msg<center><font face="Tahoma,Arial,Helvetica" size="2"><input type=submit value="$name $table"></font></center></td></tr></table>
</td></tr></table>\n~;
}

sub search_results {
    my $self = shift;

    return $self->SUPER::search_results(@_) unless $self->{cgi}->{db} and $self->{cgi}->{db} eq 'User' and not ($self->{cgi}->{display} and $self->{cgi}->{display} eq 'details');

    print $self->{in}->header;

# Make sure the user passed in some values to search on
    $self->_check_opts or return $self->search_form ("You must specify at least one search term.");

# Format the cgi for searching
    $self->format_search_cgi;

# Do the search and count the results.
    my $sth  = $self->{table}->query_sth($self->{cgi});
    my $hits = $self->{table}->hits();
    if ($hits == 0) {
        return $self->search_form ("Your search did not match any records.");
    }
#elsif ($hits == 1) {
#    return $self->SUPER::search_results();
#}

    print $self->_start_html({ title => "Search Results" });
    print $self->_header("Search Results", "Your search returned <b>$hits</b> " . ($hits == 1 ? 'result.' : 'results.'));
    my $speedbar = '';
    my $name = GT::CGI->url(remove_empty => 1);
    if ($hits > ($self->{cgi}->{mh} || 25)) {
        $speedbar  = "<p><font $FONT>Pages: ";
        $speedbar .= $self->{html}->toolbar($self->{cgi}->{nh} || 1, $self->{cgi}->{mh} || 25, $hits, $name);
        $speedbar .= "</font></p>\n";
        print $speedbar;
    }

    if ( $self->{in}->param('dr') and $self->{in}->param('dr') eq 'rows' ) {
        print qq!<p><table width=500 border=1 cellpadding=0 cellspacing=0><tr><td><table width="100%" border=0 cellpadding=1 cellspacing=0>!;
        print "<tr>", $self->{html}->display_row_cols({ mode => 'search_results' }), "</tr>";
        my $i = 0;
        while (my $result = $sth->fetchrow_hashref) {
            print "<tr ", (($i++ % 2) ? $ROW_COLOR1 : $ROW_COLOR2), ">", $self->{html}->display_row({ mode => 'search_results', values => $result }), "</tr>";
        }
        print "</table></td></tr></table>";
    }
    else {
        my $font = "<font $FONT>";
        print qq|<table width=500 border=1 cellpadding=0 cellspacing=0><tr><td><table width="100%" border=0 cellpadding=3 cellspacing=0>|;
        print qq|<tr><th align=left>${font}Username</th><th align=left>${font}Status</th><th align=left>${font}Enabled</th><th align=left>${font}Validated</th><th align=left>${font}E-mail</th><th align=left>&nbsp;</th></tr>|;
        while (my $result = $sth->fetchrow_hashref) {
            my ($username, $email, $status) = map $self->{html}->display_text({
                name  => $_,
                def   => $self->{table}->{schema}->{cols}->{$_},
                value => $result->{$_}
            }), qw/user_username user_email user_status/;
            my $enabled = $result->{user_enabled} ? '<font color=green>Yes</font>' : '<font color=red>No</font>';
            my $validated = (not $result->{user_val_code} and $result->{user_admin_validated}) ? '<font color=green>Yes</font>' : '<font color=red>No</font>';
            $username = "<nobr>$username</nobr>";
            $email    = "<nobr>$email</nobr>";
            print qq'
<tr>
  <td>$font$username</font></td>
  <td>$font$status</font></td>
  <td>$font$enabled</font></td>
  <td>$font$validated</font></td>
  <td>$font$email</font></td>
  <td>$font<nobr><a href="db.cgi?db=User;do=search_results;user_id=$result->{user_id};user_id-opt=%3D;display=details">Details</a>&nbsp;|&nbsp;<a href="db.cgi?db=User;do=modify_search_results;user_id=$result->{user_id};user_id-opt=%3D">Modify</a>&nbsp;|&nbsp;<a href="db.cgi?db=User;do=delete_search_results;user_id=$result->{user_id};user_id-opt=%3D">Delete</a></nobr></font></td>
</tr>
';
        }
        print qq|</table></td></tr></table>|;
    }

    print $speedbar if $speedbar;
    print "<p>", $self->_footer;
    print $self->_end_html;
}

1;