<?page

title=>Codetrace

body<=

<?_code

{

    use strict;

    use vars qw( %POST );

    my $remote = LJ::get_remote;

    my @displayprivs = ( "finduser:codetrace", "finduser:*" );

    my $numprivs = @displayprivs;

    return "<?needlogin?>"

        unless $remote;

    return BML::ml( "admin.noprivserror", { numprivs => $numprivs, needprivs => "<b>" . join(", ", @displayprivs) . "</b>"} )

        unless $remote->has_priv( "finduser", "codetrace" );

    my $ret;

    $ret .= "<form method='GET'>";

    $ret .= "View invite details: ";

    $ret .= "<table summary=''>";

    $ret .= "<tr><td><label>By code: </label></td>";

    $ret .= "<td>" . LJ::html_text( { name => 'code', maxlength => DW::InviteCodes::CODE_LEN, size => DW::InviteCodes::CODE_LEN } ) . "</td></tr>";

    $ret .= "<tr><td><label>By account: </label></td>";

    $ret .= "<td>" . LJ::html_text( { name => 'account', maxlength => 25, size=> 20 } ) . "</td></tr>";

    $ret .= "<tr><td colspan='2' align='right'>";

    $ret .= LJ::html_submit( value => "View" );

    $ret .= "</td></tr></table>";

    $ret .= "</form>";

    $ret .= "<?hr?>";

    if ( $GET{code} ) {

        my $code = DW::InviteCodes->new( code => $GET{code} );

        return $ret . "Error: invalid code '$GET{code}'" unless $code;

        $ret .= display_codes ( $remote, $code );

    } elsif ( $GET{account} ) {

        my $account = LJ::load_user( $GET{account} );

        return $ret . "Error: invalid user '$GET{account}'" unless $account;

        my @used = DW::InviteCodes->by_recipient( userid => $account->id );

        my @owned = DW::InviteCodes->by_owner( userid => $account->id );

        $ret .= display_codes ( $account, @used, @owned );

    }

    return $ret;

}

sub display_codes {

    my ($account, @codes) = @_;

    my $ret = "<table border='1' cellpadding='5'><thead><tr><th>Code</th><th>Owner</th><th>Recipient</th><th>Reason</th><th>Date generated</th><th>Date sent</th><th>Date used</th><th>Email</th></tr></thead>";

    foreach my $code ( @codes ) {

        my $owner = $code->owner == $account->id ? $account : LJ::load_userid( $code->owner );

        my $recipient = $code->is_used ? LJ::load_userid( $code->recipient ) : undef;

        $ret .= "<tr>";

        $ret .= "<td><tt>" . $code->code . "</tt></td>";

        $ret .= "<td>" . ( $owner ? $owner->ljuser_display : "" ) . "</td>";

        $ret .= "<td>" . ( $code->is_used ? $recipient->ljuser_display : "" ) . "</td>";

        $ret .= "<td>" . $code->reason . "</td>";

        $ret .= "<td>" . LJ::time_to_http( $code->timegenerate). "</td>";

        $ret .= "<td>" . ( $code->timesent ? LJ::time_to_http( $code->timesent ) : "" ) . "</td>";

        $ret .= "<td>" . ( $code->is_used ? LJ::time_to_http( $recipient->timecreate ) : "" ) . "</td>";

        $ret .= "<td>" . $code->email . "</td>";

        $ret .= "</tr>";

    }

    $ret .= "</table>";

    return $ret;

}

 _code?>

<=body

page?>