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

package GForum::HTML::User;
# ==================================================================
# Handles displaying of forms and HTML.
#
use strict;
use GForum qw/$DB $CFG $IN/;
use GT::SQL::Display::HTML::Table;
use vars qw/@ISA %DISPLAY %FORM/;

@ISA = qw/GT::SQL::Display::HTML::Table/;

sub display {
# -------------------------------------------------------------------
# Displays a user, but passes through the plugin system.
#
    my $self = shift;
    my $param = ref $_[0] eq 'HASH' ? shift : {@_};

    GT::Plugins->dispatch($CFG->{admin_root_path} . '/Plugins/GForum', 'display_user', sub { return $self->_plg_display(@_) }, $param);
}

sub _plg_display {
    my ($self, $opts) = @_;
    for (grep !exists $DISPLAY{$_}, keys %FORM) {
        delete $self->{code}->{$_};
    }
    for (keys %DISPLAY) {
        $self->{code}->{$_} = $DISPLAY{$_} if ref $DISPLAY{$_} eq 'CODE';
    }
    
    my $return = $self->SUPER::display($opts);
    $return .= qq|
<table border=1 cellpadding=0 bgcolor="#FFFFFF" cellspacing=0><tr><td>
<table border=0 bgcolor="#FFFFFF" width=500><tr>
<td width="30%" valign=top><font $self->{font}>Groups</font></td>
<td width="70%" valign=top><font $self->{font}>\n|;
    my $uid = $self->{values}->{user_id};
    my $sth = $DB->table('UserGroup' => 'Grouping')->select(group_name => { user_id_fk => $uid });
    $return .= join $CFG->{user_group_display_separator}, $sth->fetchall_list;
    $return .= "</font></td></tr></table></td></tr></table>";

    my $payment = $DB->table('Payment');
    $payment->select_options('ORDER BY payment_last DESC');
    my $payments = $DB->table('Payment')->select({ user_id_fk => $uid })->fetchall_hashref;

    if (@$payments) {
        $return .= qq|
<table border=1 cellpadding=0 bgcolor="#FFFFFF" cellspacing=0><tr><td>
<table border=0 bgcolor="#FFFFFF" width=500><tr>
<td width="30%" valign=top><font $self->{font}>Payments</font></td>
<td width="70%" valign=top><font $self->{font}>\n|;
        for (@$payments) {
            my $date = ${GForum::date($_->{payment_last})};
            $return .= qq|<a href="admin.cgi?do=page;page=payment_details.html;payment_id=$_->{payment_id}">$date - |;
            $return .=
                $_->{payment_status} eq 0 ? 'Pending' :
                $_->{payment_status} eq 1 ? 'Completed' :
                $_->{payment_status} eq 2 ? 'Declined' :
                $_->{payment_status} eq 3 ? 'Error' : '';
            $return .= qq|</a><br>|;
        }
        $return .= '</font></td></td></table></td></tr></table>';
    }

    return $return;
}

sub form {
# -------------------------------------------------------------------
# Displays a user form, passing it through the plugin system.
#
    my $self = shift;
    my $param = ref $_[0] eq 'HASH' ? shift : {@_};

    GT::Plugins->dispatch($CFG->{admin_root_path} . '/Plugins/GForum', 'form_user', sub { return $self->_plg_form(@_) }, $param);
}

sub _plg_form {
    my ($self, $opts) = @_;

    my $user_id = $opts->{values}->{user_id} || $self->{input}->{user_id};

    for (grep !exists $FORM{$_}, keys %DISPLAY) {
        delete $self->{code}->{$_};
    }
    for (keys %FORM) {
        if (ref $FORM{$_} eq 'CODE' and ($_ ne 'user_do_after_post' or $self->{input}->{do} !~ /search/ or $self->{db}->{last_hits})) {
            $self->{code}->{$_} = $FORM{$_};
        }
    }

    my $return = $self->SUPER::form($opts);
    return $return if not $DB->table('Grouping')->count(GT::SQL::Condition->new(
            group_id => IN => \("(" . join(",", @$CFG{qw/id_group_guest id_group_not_validated id_group_registered id_group_moderator/}) . ")")
        )->not);

    $return .= qq|<p>
<table border=1 cellpadding=0 bgcolor="#FFFFFF" cellspacing=0>
  <tr>
    <td>
      <table border=0 bgcolor="#FFFFFF" width="500">
        <tr>
          <td width="30%" valign=top><font $self->{font}>Groups</font></td>
          <td width="70%" valign=top><font $self->{font}><select multiple size=5 name="UserGroup.group_id_fk">\n|;
    my %group;
    my $do = $IN->param('do');
    if ($do eq 'modify_record' or $do eq 'add_record') {
        my @selected = $IN->param('UserGroup.group_id_fk');
        @group{@selected} = (1) x @selected;
    }
    else {
        %group = defined $user_id ? (map { ($_ => 1) } $self->get_all_groups($user_id)) : ();
    }
    my $sth = $DB->table('Grouping')->select('group_id', 'group_name');
    while (my $group = $sth->fetchrow_arrayref) {
        my ($gid, $gname) = @$group;
        next if $gid == $CFG->{id_group_guest}
             or $gid == $CFG->{id_group_not_validated}
             or $gid == $CFG->{id_group_registered}
             or $gid == $CFG->{id_group_moderator};
        $return .= "<option value=$gid";
        $return .= " selected" if $group{$gid};
        $return .= ">$gname</option>";
    }
    $return .= "</select></font></td></tr></table></td></tr></table>";
    return $return;
}

sub delete_search_form {
    my $self = shift;
    print $self->_start_html({ title => "Delete Records" });
    print $self->_header("Delete Records", "<font color=red><b>Search to delete records.</b></font>");
    print $self->_footer;
}

%DISPLAY = (
    user_username => sub {
        my ($self, $col, $rec) = @_;
        my $disp_name = $col->{form_display} || 'Username';
        my $return = qq|<tr>
<td><font $self->{font}>$disp_name</font></td>
<td><font $self->{font}>$rec->{user_username}|;
        if ($CFG->{admin_show_user_login}) {
            require GForum::Authenticate;
            if (GForum::Authenticate::auth(enabled_user => $rec)) {
                $return .= qq|\n(<a href="admin.cgi?do=become;user=$rec->{user_id}" target="_blank">| . GForum::language('BECOME_USER') . qq|</a>)|;
            }
        }
        $return .= "</font></td></tr>";
        $return;
    },
    user_password => sub {
        my ($self, $col, $rec) = @_;
        my $disp_name = $col->{form_display} || 'Password';
        return "<tr><td><font $self->{font}>$disp_name</font></td>\n<td><font $self->{font}><i>&lt;" .
            (defined $rec->{user_password} ? "encrypted" : "none") .
            "</i>&gt;</font></td></tr>";
    },
    user_temp_pass => sub {
        my ($self, $col, $rec) = @_;
        my $disp_name = $col->{form_display} || 'Temp. Password';
        return "<tr><td><font $self->{font}>$disp_name</font></td>\n<td><font $self->{font}><i>&lt;" .
            (defined $rec->{user_temp_pass} ? "encrypted" : "none") .
            "</i>&gt;</font></td></tr>";
    },
    user_registered => sub {
        my ($self, $col, $rec) = @_;
        require GT::Date;
        my $disp_name = $col->{form_display} || 'Registered';
        return "<tr><td><font $self->{font}>$disp_name</font></td>\n<td><font $self->{font}>" . GForum::date($rec->{user_registered}, 1) . "</font></td></tr>\n";
    },
    user_last_logon => sub {
        my ($self, $col, $rec) = @_;
        require GT::Date;
        my $disp_name = $col->{form_display} || 'Last Logon';
        return "<tr><td><font $self->{font}>$disp_name</font></td>\n<td><font $self->{font}>" . ($rec->{user_last_logon} ? GForum::date($rec->{user_last_logon}, 1) : "<i>never logged on</i>") . "</font></td></tr>\n";
    },
    user_last_seen => sub {
        my ($self, $col, $rec) = @_;
        require GT::Date;
        my $disp_name = $col->{form_display} || 'Last seen';
        return "<tr><td><font $self->{font}>$disp_name</font></td>\n<td><font $self->{font}>" . ($rec->{user_last_seen} ? GForum::date($rec->{user_last_seen}, 1) : "<i>never logged on</i>") . "</font></td></tr>\n";
    },
    user_payment_expiry => sub {
        my ($self, $col, $rec) = @_;
        require GT::Date;
        my $disp_name = $col->{form_display} || 'Signup Payment Expiry';
        return "<tr><td><font $self->{font}>$disp_name</font></td>\n<td><font $self->{font}>" . ($rec->{user_payment_expiry} > 0 ? GForum::date($rec->{user_payment_expiry}, 1) : $rec->{user_payment_expiry} ? 'No payment received' : 'Unlimited') . "</font></td></tr>\n";
    },
    user_title => sub {
        my ($self, $col, $rec) = @_;
        my $disp_name = $col->{form_display} || 'Title';
        if (defined $rec->{user_title} and length $rec->{user_title}) {
            return "<tr><td><font $self->{font}>$disp_name</font></td>\n<td><font $self->{font}>$rec->{user_title}</font></td></tr>\n";
        }
        else {
            my $title;
            for (sort { $a <=> $b } keys %{$CFG->{user_post_title}}) {
                $rec->{user_posts} >= $_ and $title = $CFG->{user_post_title}->{$_}, next;
                last;
            }
            $title = "Unknown" unless defined $title;
            return "<tr><td><font $self->{font}>$disp_name</font></td>\n<td><font $self->{font}>$title <i>(Autogenerated from # of posts)</i></font></td></tr>\n";
        }
    },
    user_hidden_cats => sub { "" }
);

%FORM = (
    user_signature => sub {
        my ($self, $col, $rec) = @_;
        my $disp_name = $col->{form_display} || 'Signature';
        my $output = "<tr><td valign=top><font $self->{font}>$disp_name</font></td>\n<td valign=top><font $self->{font}>";
        $output .= "<textarea name=user_signature rows=4 cols=30>";
        $output .= $rec->{user_signature};
        $output .= "</textarea></td></tr>\n";
        $output;
    },
    user_registered => sub {
        my ($self, $col, $rec) = @_;
        my $todo = $self->{input}->{todo} || $self->{input}->{do} || '';
        my $output = "";
        unless ($self->{db}->{last_hits} or $todo =~ /add_/) {
            my $disp_name = $col->{form_display} || 'Date Registered';
            $output .= "<tr><td valign=top><font $self->{font}>$disp_name</font></td>\n<td valign=top><font $self->{font}>";
            my $form_size = $col->{form_size} || 30;
            require GT::Date;
            my $value = (defined $rec->{user_registered} and length $rec->{user_registered}) ? GForum::date($rec->{user_registered}, 1) : "";
            $output .= qq|<input type=text size=$form_size name=user_registered value="$value"></td>\n|;
        
            unless ($self->{db}->{last_hits}) {
                $output .= qq|<td valign=top align=left width="10%"><font $self->{font}><select name="user_registered-opt" size=1><option value="&gt;=">On or After<option value="&lt;">Before</select></font></td>|;
            }
        }
        $output;
    },
    user_payment_expiry => sub {
        my ($self, $col, $rec) = @_;
        my $output = "";
        my $disp_name = $col->{form_display} || 'Payment Expiry';
        $output .= "<tr><td valign=top><font $self->{font}>$disp_name</font></td>\n<td valign=top><font $self->{font}>";
        my $form_size = $col->{form_size} || 30;
        require GT::Date;
        my $value = ($rec->{user_payment_expiry} && $rec->{user_payment_expiry} > 0) ? GForum::date($rec->{user_payment_expiry}, 1) : "";
        $output .= qq|<input type="text" size="$form_size" name="user_payment_expiry" value="$value"> |;
        $output .= qq|<input type="checkbox" name="user_payment_expiry-unlimited" value="1"|;
        $output .= qq| checked| if !$rec->{user_payment_expiry};
        $output .= qq|> Unlimited</td>\n|;

        my $todo = $self->{input}->{todo} || $self->{input}->{do} || '';
        unless ($self->{db}->{last_hits} or $todo =~ /add_/) {
            $output .= qq|<td valign=top align=left width="10%"><font $self->{font}><select name="user_payment_expiry-opt" size=1><option value="&gt;=">On or After<option value="&lt;">Before</select></font></td>|;
        }

        $output;
    },
    user_do_after_post => sub {
        my ($self, $col, $rec) = @_;
        
        my $disp_name = $col->{form_display} || 'After post action';
        my $text_field = 

        my $output = qq|
<script language="JavaScript">
<!--
function setDo (val) {
  document.admin.user_do_after_post.value = val;
}
// -->
</script>
        <tr><td valign=top><font $self->{font}>$disp_name</font></td>\n<td valign=top><font $self->{font}>|;
        $output .= $self->text({
            def => $col,
            name => 'user_do_after_post',
            ($rec->{user_do_after_post} ? (value => $rec->{user_do_after_post}) : ())
        });
        $output .= "<br><small>";
        for (@{$CFG->{admin_do_after_post_options}}) { # This isn't directly settable, but a plugin could alter it
            $output .= qq| <a href="javascript: setDo('$_');">$_</a>|;
        }
        $output .= "</small></font></td>";
        $output;
    },
    user_last_logon => sub {
        my ($self, $col, $rec) = @_;
        my $todo = $self->{input}->{todo} || $self->{input}->{do} || '';
        my $output = "";
        unless ($self->{db}->{last_hits} or $todo =~ /add_/) {
            my $disp_name = $col->{form_display} || 'Last Logon';
            $output .= "<tr><td valign=top><font $self->{font}>$disp_name</font></td>\n<td valign=top><font $self->{font}>";
            my $form_size = $col->{form_size} || 30;
            require GT::Date;
            my $value = (defined $rec->{user_last_logon} and length $rec->{user_last_logon}) ? GForum::date($rec->{user_last_logon}, 1) : "";
            $output .= qq|<input type=text size=$form_size name=user_last_logon value="$value"></td>\n|;

            unless ($self->{db}->{last_hits}) {
                $output .= qq|<td valign=top align=left width="10%"><font $self->{font}><select name="user_last_logon-opt" size=1><option value="&gt;=">On or After<option value="&lt;">Before</select></font></td>|;
            }
        }
        $output;
    }
);

# Returns a list of all the groups the passed in user is a member of.
sub get_all_groups {
    my $self = shift;
    defined(my $user_id = shift) or $self->error('BADARGS', 'FATAL', 'No user ID passed to get_all_groups()!');
    my $sth = $DB->table('UserGroup')->select({ user_id_fk => $user_id }, 'group_id_fk');
    return map $_->[0], @{$sth->fetchall_arrayref};
}

1;