#include "mail.h"
inherit "/std/object";

#include "board.h"

string  board_name;

int find_new( string board );
mapping being_written;
int     action_pri;

void    setup()
{
    set_name( "board" );
    set_short( "bulletin board" );
    add_adjective( "bulletin" );
    set_main_plural( "boards" );
    reset_get();
    board_name = "fish";
    being_written = ([ ]);
    action_pri = 0;
}				/* setup() */

string  query_plural()
{
    mixed * stuff;

    stuff = (mixed *)BOARD_HAND->get_subjects( board_name );
    switch( sizeof( stuff ) )
    {
	case 0:
	    return pluralize(  ::short( 0 ) ) + " [ Empty ]";

	case 1:
	    return pluralize(  ::short( 0 ) ) + " [ 1 note ]";
    }
    return pluralize(  ::short( 0 ) ) + " [ " + sizeof( stuff ) + " notes ]";
}				/* query_plural() */

string short( int dark )
{
    mixed * stuff;

    stuff = (mixed *)BOARD_HAND->get_subjects( board_name );
    switch( sizeof( stuff ) )
    {
	case 0:
	    return ::short( dark ) + " [ Empty ]";

	case 1:
	    return ::short( dark ) + " [ 1 note ]";

	default:
	    return ::short( dark ) + " [ " + sizeof( stuff ) + " notes ]";
    }
}				/* short() */

string  the_date( int i )
{
    return ctime( i )[ 4..9 ];
}				/* the_date() */

int     subjects( string str, int dark )
{
    int     i;
    mixed * stuff;
    string  ret;
    mapping news_rc;

    stuff = (mixed *)BOARD_HAND->get_subjects( board_name );
    if( !sizeof( stuff ) )
    {
	notify_fail( "The board is completely empty.\n" );
	return 0;
    }
    news_rc = (mapping)this_player()->query_property( NEWS_RC );
    if( !news_rc )
	news_rc = ([ ]);
    ret = "";
    for( i = 0; i < sizeof( stuff ); i++ )
	if( news_rc[ board_name ] < stuff[ i ][ B_TIME ] )
	    ret += sprintf( "N %2d: %-=*s\n", i + 1, ( int ) this_player()->query_cols() - 6,
			    stuff[ i ][ B_SUBJECT ] + " (" +
			    capitalize( stuff[ i ][ B_NAME ] ) + " " + the_date( stuff[ i ][ B_TIME ] ) + ")" );

	else
	    ret += sprintf( "  %2d: %-=*s\n", i + 1, ( int ) this_player()->query_cols() - 6,
			    stuff[ i ][ B_SUBJECT ] + " (" +
			    capitalize( stuff[ i ][ B_NAME ] ) + " " + the_date( stuff[ i ][ B_TIME ] ) + ")" );

    this_player()->set_finish_func( 0 );
    this_player()->more_string( ret );
    return 1;
}				/* subjects() */

string long( string str, int dark )
{
    int     i, newones;
    mixed * stuff;
    string  ret;
    mapping news_rc;

    stuff = (mixed *)BOARD_HAND->get_subjects( board_name );
    ret = "A bulletin board (" + board_name + ").\n";
    ret += sprintf( "%#-*s\n\n", this_player()->query_cols(),
		    "read [note number]\npost <subject>\n" +
		    "subjects\neat <note number>\n" +
		    "reply <note number>\nfollowup <note number>\n" );
    if( !sizeof( stuff ) )
	return ret + "The board is completely empty.\n";
    news_rc = (mapping)this_player()->query_property( NEWS_RC );
    if( !news_rc )
	news_rc = ([ ]);
    newones = 0;
    for( i = 0; i < sizeof( stuff ); i++ )
	if( news_rc[ board_name ] < stuff[ i ][ B_TIME ] )
	{
	    ret += sprintf( "N %2d: %-=*s\n", i + 1, ( int ) this_player()->query_cols() - 6,
			    stuff[ i ][ B_SUBJECT ] + " (" +
			    capitalize( stuff[ i ][ B_NAME ] ) + " " + the_date( stuff[ i ][ B_TIME ] ) + ")" );

	    newones += 1;
	}
	else
	    if( news_rc[ board_name ] < stuff[ i ][ B_TIME ] + (2 * 24 * 60 * 60) )
		ret += sprintf( "  %2d: %-=*s\n", i + 1, ( int ) this_player()->query_cols() - 6,
				stuff[ i ][ B_SUBJECT ] + " (" +
				capitalize( stuff[ i ][ B_NAME ] ) + " " + the_date( stuff[ i ][ B_TIME ] ) + ")" );

    if( !newones )
	ret += "\nNo new messages\n";
    return ret;
}				/* long() */

void    init()
{
    add_action( "read", "r*ead", action_pri );
    add_action( "post", "p*ost", action_pri );
    add_action( "post", "note", action_pri );
    add_action( "eat", "eat", action_pri );
    add_action( "followup", "f*ollowup", action_pri );
    add_action( "reply", "rep*ly", action_pri );
    add_action( "subjects", "sub*jects", action_pri );
}				/* init() */

void    string_more( string arg, string prompt )
{
    object  obj;

/* changed to our more_string

   if (!(obj = (object)MAIL_SERVER->mail_reader(this_player()))) {
   log_file(LOG_FILE, "board: got NULL MAIL_READER from MAIL_SERVER.\n");
   write("MAIL_SERVER error ...\n");
   return;
   }
   obj->string_more(arg, prompt);
 */
    this_player()->set_finish_func( 0 );
    this_player()->more_string( arg, prompt );
}				/* string_more() */

int     read( string str )
{
    int     num, i;
    mixed   stuff;
    mapping news_rc;

    notify_fail( "Syntax: read [note number]\n" );
    stuff = (mixed *)BOARD_HAND->get_subjects( board_name );
    news_rc = (mapping)this_player()->query_property( NEWS_RC );
    if( !news_rc )
	news_rc = ([ ]);
    if( !str )
    {
        num = find_new( board_name );
        if ( !num )
        {
            notify_fail( "No unread messages.\n" );
            return 0;
        }
    }
    else
	if( sscanf( str, "%d", num ) != 1 )
	    return 0;
    if( num < 1 || num > sizeof( stuff ) )
    {
	notify_fail( "No note of that number.\n" );
	return 0;
    }
    num--;
    if( news_rc[ board_name ] < stuff[ num ][ B_TIME ] )
    {
	news_rc[ board_name ] = stuff[ num ][ B_TIME ];
	this_player()->add_property( NEWS_RC, news_rc );
    }
    string_more( sprintf( "Note #%d by %s posted at %s\nTitle: '%s'\n\n",
			  num + 1, capitalize( stuff[ num ][ B_NAME ] ), ctime( stuff[ num ][ B_TIME ] ),
			  stuff[ num ][ B_SUBJECT ][ 0..(int)this_player()->query_cols() - 10 ] ) +
		 BOARD_HAND->get_message( board_name, num ),
		 "[Note " + (num + 1) + "]" );
    return 1;
}				/* read() */

int     post( string str )
{
    string  body;

    if( board_name == "announcements" && !this_player()->query_creator() )
    {
	write( "Sorry. You can't post messages here. Its for announcements " +
	       "from the wizards only. If you have a comment on flame, try " +
	       "the 'comment to sysop' board two rooms to the east, " +
	       "or 'talkback' one room to the east. Bing\n" );
	return 1;
    }
    notify_fail( "Syntax: post <subject>\n" );
    if( !str )
	return 0;
/* ok shove the editing stuff in here.  Lets make it function string_edit
 * sound froggy?
 */
/*
   string_edit("");
   body = string_edit_res;
 */
    being_written[ this_player()->query_name() ] = str;
    this_player()->do_edit( 0, "end_of_thing" );
    return 1;
}				/* post() */

void    end_of_thing( string body )
{
    if( body && body != "" && being_written[ this_player()->query_name() ] )
    {
	body += (string)this_player()->append_signature();
	if( !BOARD_HAND->add_message( board_name, this_player()->query_name(),
				      being_written[ this_player()->query_name() ], body ) )
	    write( "Error writing message.\n" );
	else
	    write( "Message posted.\n" );
    }
    else
	write( "Error.\n" );
    being_written = m_delete( being_written, this_player()->query_name() );
    return;
}				/* end_of_thing() */

int     eat( string str )
{
    int     num, i, eaten;

    notify_fail( "Syntax: eat [up to] <note number>\n" );
    if( !str )
	return 0;
    if( sscanf( str, "up to %d", num ) )
    {
	for( i = 0; i < num; i++ )
	    eaten += (int)BOARD_HAND->delete_message( board_name, i );
	if( !eaten )
	{
	    notify_fail( "Failed to eat any notes.\n" );
	    return 0;
	}
	write( "You ate " + eaten + " notes, yum yum.\n" );
	say( this_player()->query_cap_name() + " visciously tears off and eats " +
	     query_num( eaten, 0 ) + " notes.\n" );
	if( eaten == 1 )
	    event( users(), "inform", this_player()->query_cap_name() + " eats a note " +
		   "off " + board_name, "message" );
	else
	    event( users(), "inform", this_player()->query_cap_name() + " eats " +
		   query_num( eaten, 0 ) + " notes off " + board_name, "message" );
	return 1;
    }
    else
	if( sscanf( str, "%d", num ) != 1 )
	    return 0;
    if( !BOARD_HAND->delete_message( board_name, num - 1 ) )
	return 0;
    write( "You viciously tear off and eat note " + num + "\n" );
    say( this_player()->query_cap_name() + " viciously tears off and eats note " +
	 num + ".\n" );
    event( users(), "inform", this_player()->query_cap_name() + " eats a note " +
	   "off " + board_name, "message" );
    return 1;
}				/* eat() */

int     followup( string str )
{
    int     num, i;
    mixed   stuff;
    string  s;

    notify_fail( "Syntax: followup <note number>\n" );
    if( !str )
	return 0;
    if( sscanf( str, "%d", num ) != 1 )
	return 0;
    stuff = (mixed *)BOARD_HAND->get_subjects( board_name );
    if( num < 1 || num > sizeof( stuff ) )
    {
	notify_fail( "No note of that number.\n" );
	return 0;
    }
    if( sscanf( stuff[ num - 1 ][ B_SUBJECT ], "Re:#%d %s", i, s ) == 2 )
	being_written[ this_player()->query_name() ] = "Re:#" + (i + 1) + " " + s;
    else
	being_written[ this_player()->query_name() ] = "Re:#1 " + stuff[ num - 1 ][ B_SUBJECT ];
    this_player()->do_edit( 0, "end_of_thing" );
    return 1;
}				/* followup() */

int     reply( string str )
{
    int     num;
    mixed   stuff;

    notify_fail( "Syntax: reply <note number>\n" );
    if( !str )
	return 0;
    if( sscanf( str, "%d", num ) != 1 )
	return 0;
    stuff = (mixed *)BOARD_HAND->get_subjects( board_name );
    if( num < 1 || num > sizeof( stuff ) )
    {
	notify_fail( "No note of that number.\n" );
	return 0;
    }
    MAIL_TRACK->mail( stuff[ num - 1 ][ B_NAME ], stuff[ num - 1 ][ B_SUBJECT ] );
    return 1;
}				/* reply() */

void    set_board_name( string str )
{
    board_name = str;
}
void    set_datafile( string str )
{
    board_name = str;
}

int     query_new_messages()
{
    mixed * notes;
    mapping news_rc;

    news_rc = (mapping)this_player()->query_property( NEWS_RC );
    if( !news_rc )
	news_rc = ([ ]);
    notes = (mixed *)BOARD_HAND->get_subjects( board_name );
    if( !sizeof( notes ) )
	return 0;
    return( notes[ sizeof( notes ) - 1 ][ B_TIME ] > news_rc[ board_name ] );
}				/* query_new_messages() */

/* find_new() added by Nivek, 5/1/94 */
int find_new( string board )
{
    int i;
    mapping news_rc;
    mixed *stuff;

    news_rc = this_player()->query_property( "news rc" );
    if ( !news_rc )  news_rc = ([ ]);
    if ( !board )  board = board_name;
    stuff = BOARD_HAND->get_subjects( board );

    i = sizeof( stuff ) - 1;
    while( i >= 0
           && stuff[ i ][ B_TIME ] > news_rc[ board ]
         )
        i--;
    while( i + 1 < sizeof( stuff )
           && stuff[ i + 1 ][ B_NAME ] == this_player()->query_name()
         )
        i++;

    if( i == sizeof( stuff ) - 1 )
        return 0;

    return i + 2;
}  // find_new()