#include <lib.h>
#include <daemons.h>

inherit LIB_DAEMON;

mapping NamesMap = ([]);

mixed cmd(string args) {
    string ip_string, port_string, ip;
    int d1, d2, d3, d4, port;

    if(sscanf(args,"%s %s",ip_string, port_string) != 2){
        this_object()->help();
        return 1;
    }

    if(sscanf(ip_string,"%d.%d.%d.%d",d1,d2,d3,d4) != 4 && 
            !RESOLV_D->GetResolving()){
        write("This mud is not using name resolution. Use a "+
                "numerical ip address, like 11.22.33.44");
        return 1;
    }

    if(!atoi(port_string)){
        write("The port must be numerical, such as: 6666");
        return 1; 
    }

    if(d4){
        this_object()->eventStartConnection(this_player(), args);
        return 1;
    }

    write("Attempting to resolve \""+ip_string+"\". If this fails, "+
            "try using a numerical ip address, like 1.2.3.4");
    NamesMap[ip_string] = ([ "dude": this_player(), "port" : port_string ]);
    RESOLV_D->eventResolve(ip_string, "resolve_callback");
    return 1;
}

void resolve_callback(string name, string number, int key){
    string cle, port;
    object ob;
    if(NamesMap[number]){
        cle = number;
    }
    else if(NamesMap[name]){
        cle = name;
    }
    else return;

    ob = NamesMap[cle]["dude"];
    port = NamesMap[cle]["port"];
    map_delete(NamesMap, cle);
    if(ob){
        ob->eventPrint(number+" resolves to: "+name);
        this_object()->eventStartConnection(ob, number + " " + port);
    }
}

int eventStartConnection(object who, string where){
    object client = new("/secure/obj/tc");
    if(!client || !who) return 0;

    if(!telnet_privp(who)){
        who->eventPrint("You are not a member of the group of users permitted "
                "to use this mud's telnet facility.");
        return 1;
    }
    client->SetConnection(where);
    client->eventMove(who);
    client->do_connect(where, who);
    return 1;
}

void help() {
    message("help", "Syntax: telnet <ip address> <port>\n\n"
            "If you are in the TELNET group, this connects you to another "
            "computer or mud on the ip and port specified.\n\n", this_player());
}