// This file written mostly by Tim Johnson (Tim@TimMUD)

static void send_chanlist_reply(string mudname, int old_chanid){
    string channame; // channel name
    //	string *output; // array of which channel names to tell them about
    mapping out=([ ]); // mapping to send
    //int i; // counter
    //trr("send_chanlist_reply, mudname="+mudname+", old_chanid="+old_chanid);
    foreach(channame in keys(channel_updates)){
        //#ifndef SEND_WHOLE_CHANLIST
        //	if(channel_updates[channame]>old_chanid){ // needs updating
        //#endif
        if(!channels[channame]){ // add to output;
            out[channame] = 0;
        }
        else{
            out[channame] = ({ channels[channame][1],
              channels[channame][0] }); // host, type
        }
        //#ifndef SEND_WHOLE_CHANLIST
        //	}
        //#endif
    }
    //trr("Chanlist: "+identify(out),"blue");
    write_data(connected_muds[mudname],({
        "chanlist-reply",
        5,
        router_name,
        0,
        mudname,
        0,
        channel_update_counter,
        out,
      }));
    mudinfo[mudname]["old_chanlist_id"]=channel_update_counter;
}