/*
 * The gopher object...
 */
#include "gopher.h"
#include "globals.h"
inherit "/inherit/object";

int     pending;
mixed  *current_menu;
mixed  *path;
string  blue;
object  env;

varargs void do_connect( int type, mixed *data, string search );

#define NOTIFY(STR) set_long(STR); if (environment()) {\
                     env = environment(); blue = "\n\n"+STR; \
                     move(VOID_OB); move(env); }

void    create()
{
    ::create();
    set_short( "Gopher object" );
    set_name( "gopher" );
    set_long( "Connecting to mackerel.gu.uwa.edu.au" );
    GOPHERD->do_connect( MENU, "", MACHINE_NAME, GOPHER_PORT + "",
			 "finish_func" );
    pending = 1;
    current_menu = ({ });
    path = ({ ({ "", "", MACHINE_NAME, GOPHER_PORT + "" }) });
}				/* create() */

void    init()
{
    add_action( "do_pick", "pick" );
    add_action( "do_pop", "pop" );
    add_action( "do_gopher", "gopher" );
    add_action( "do_show", "show" );
    if( blue )
    {
	write( "\n" );
	this_player()->more_string( blue );
    }
}				/* init() */

void    finish_func( mixed arg )
{
    string  str;
    int     i;

    pending = 0;
    if( !arg )
    {
	NOTIFY( "Connect failed for some reason.\ngopher <name> to connect to " +
		"annother site.\n" )
	    return;
    }
    if( stringp( arg ) )
    {
/* Text file... */
	object  env;

	env = environment();
	blue = arg;
	move( VOID_OB );
	move( env );
	blue = 0;
	return;
    }
/* Menu... */
    current_menu = arg;
    str = "";
    for( i = 0; i < sizeof( arg ); i++ )
	switch( arg[ i ][ TYPE ] )
	{
	    case MENU:
		str += sprintf( "%2d   %s/\n", i + 1, arg[ i ][ DATA ][ TEXT ] );
		break;
	    case SEARCH:
		str += sprintf( "%2d   %s+\n", i + 1, arg[ i ][ DATA ][ TEXT ] );
		break;
	    default:
		str += sprintf( "%2d   %s\n", i + 1, arg[ i ][ DATA ][ TEXT ] );
		break;
	}
    str += "'pick <n>' to pick one of the options, 'pop' to go up a level.\n" +
	"'gopher <machine> [port]' to get to another gopher.\n";
    NOTIFY( str )
}				/* finish_func() */

int     do_pick( string str )
{
    int     num;

    if( pending )
    {
	write( "Sorry, there is a pending transaction.\n" );
	return 1;
    }
    if( !str )
	str = "";
    sscanf( str, "%d", num );
    num--;
    if( num < 0 || num >= sizeof( current_menu ) )
    {
	write( "Out of range, 1.." + sizeof( current_menu ) + ".\n" +
	       "Syntax pick <number>\n" );
	return 1;
    }
/* Ok, do the selection... */
    switch( current_menu[ num ][ TYPE ] )
    {
	case MENU:
	    path += ({ current_menu[ num ][ DATA ] });
	    break;
	case SEARCH:
	    write( "What do you want to input to the menu item :\n" +
		   current_menu[ num ][ DATA ][ TEXT ] + "? " );
	    input_to( "do_search", 0, num );
	    path += ({ current_menu[ num ][ DATA ] });
	    return 1;
    }
    write( "Please wait, transaction in progress.\n" );
    do_connect( current_menu[ num ][ TYPE ], current_menu[ num ][ DATA ] );
    return 1;
}				/* do_pick() */

void    do_search( string str, int num )
{
    do_connect( SEARCH, current_menu[ num ][ DATA ], str );
}				/* do_search() */

varargs void do_connect( int type, mixed *junk, string search )
{
    GOPHERD->do_connect( type, junk[ NAME ], junk[ MACHINE ], junk[ PORT ],
			 "finish_func", search );
    pending = 1;
    return;
}				/* do_connect() */

int     do_pop()
{
    if( sizeof( path ) == 1 )
    {
	notify_fail( "Already at the top level.\n" );
	return 0;
    }
    path = path[ 0..sizeof( path ) - 2 ];
    write( "Please wait, transaction in progress.\n" );
    do_connect( MENU, path[ sizeof( path ) - 1 ] );
    return 1;
}				/* do_pop() */

int     do_gopher( string str )
{
    string  dest, port;
    int     p;

    if( !str )
    {
	notify_fail( "Syntax: gopher <machine> [port]\n" );
	return 0;
    }
    if( sscanf( str, "%s %d", dest, p ) != 2 )
    {
	dest = str;
	p = 70;
    }
    if( sizeof( explode( dest, " " ) ) > 1 )
    {
	notify_fail( "No spaces allowed in destingation field.\n" );
	return 0;
    }
    NOTIFY( "Connecting to " + dest + " " + p + "\n" );
    path = ({ ({ "", "", dest, p + "" }) });
    do_connect( MENU, path[ 0 ] );
    return 1;
}				/* do_gopher() */

int     do_show( string str )
{
    int     num;

    if( !str )
	str = "";
    sscanf( str, "%d", num );
    num--;
    if( num < 0 || num >= sizeof( current_menu ) )
    {
	write( "Out of range, 1.." + sizeof( current_menu ) + ".\n" +
	       "Syntax show <number>\n" );
	return 1;
    }
    printf( "Path=%s\nHost=%s\nPort=%s\nType=%s\n",
	    current_menu[ num ][ DATA ][ NAME ], current_menu[ num ][ DATA ][ MACHINE ],
	    current_menu[ num ][ DATA ][ PORT ],
	    ({ "file", "menu", "search/query" })[ current_menu[ num ][ TYPE ] ] );
    return 1;
}				/* do_show() */