sameip.c

来自「C实现的MUD,对大家基本入门网络游戏很有帮助!」· C语言 代码 · 共 136 行

/*  <SecCrypt CPL V3R05>  */
 
//  by  snowcat
//  sameip
//  modified  by  dream

#include  <ansi.h>

inherit  F_CLEAN_UP;
string  ip2add(string);
int  strnotlast(string,  string);

int  main(object  me,  string  arg)
{
    object  who,  ob;
    int  i,  j,  count;
    string  *dir,  *ppls,  name,  address;

    if  (!wizardp(me))
        return  notify_fail("你没有权力使用这个指令。\n");

    if  (!arg)
	        return  notify_fail("指令格式：sameip  <使用者姓名>  |  <IP  地址>\n");

    count  =  strlen(arg);
    while(count--)
        if(  arg[count]  ==  '.'  )  {
            name=arg;
            break;
        }
    seteuid(getuid());

if  (name  !=  arg)  {
    name=arg;
    if(  file_size(DATA_DIR  +  "login/"  +  name[0..0]  +  "/"  +  name  +  __SAVE_EXTENSION__)<0  )
        return  notify_fail("没有这位使用者。\n");

    who  =  new(LOGIN_OB);
    who->set("id",  name);
    if  (!  who->restore())
        return  notify_fail("没有这位使用者。\n");

    write(who->query("name")+"上次从  "+who->query("last_from")+"  上线。\n");
    if  (!  who->query("last_from"))
        return  notify_fail("");
    address  =  ip2add((string)who->query("last_from"));
}
else  address  =  arg;

    write("寻找从  "+address+"  上线的使用者：\n");
    count  =  0;
    dir  =  get_dir(DATA_DIR  +  "login/");
    i  =  0;
    destruct(who);
    call_out  ("search_dir",0,count,dir,i,address,me);
    return  1;
}

string  ip2add(string  ip)
{
int  domaincout;
string  s1,s2,s3;

domaincout=sscanf(ip,  "%s.%s",  s1,ip);
if  (domaincout==2)  domaincout=sscanf(ip,  "%s.%s",  s2,ip);
else  return  (s1);
if  (domaincout==2)  domaincout=sscanf(ip,  "%s.%s",  s3,ip);
else  return  (s1+"."+ip);
	while  (domaincout==2)  {
		s1=s2;  s2=s3;
		domaincout=sscanf(ip,  "%s.%s",  s3,ip);
	}
return  (s1+"."+s2+"."+ip);
}

void  search_dir  (int  count,  string  *dir,  int  i,  string  address,  object  me)
{
    object  ob;
    int  j;
    string  *ppls,  name,  str,  adr,  s1,  s2,  s3,  s4;
    string  info;

    if  (i  ==  sizeof(dir))  {
          tell_object(me,"共有"+to_chinese(count)+"位使用者从这个地址上线。\n");
    }  else  {
        ppls  =  get_dir(DATA_DIR  +  "login/"  +  dir[i]  +  "/");
        for(j=0;  j<sizeof(ppls);  j++)  {
            reset_eval_cost();
            if  (sscanf(ppls[j],  "%s.o",  str)==1)  {
//  What  are  these  for???  Where  was  "name"  assigned?  
//                if  (name  ==  str)
//                    continue;
                ob  =  new(LOGIN_OB);
                ob->set("id",  str);
                if  (!  ob->restore())  {
                    destruct(ob);
                    continue;
                }
                if  (!  ob->query("last_from"))  {
                    destruct(ob);
                    continue;
                }
                adr  =  ob->query("last_from");
                if  (strsrch(adr,  address)==-1)  {
                    destruct(ob);
                    continue;
                }

                info  =  sprintf("%-10s%-14s%-11s%-6s%s\n",  
                                              ob->query("id"),
                                              ob->query("name"),
                                              ctime(ob->query("last_on"))[0..10],
                                              ctime(ob->query("last_on"))[20..24],
                                              ob->query("last_from"));
                tell_object  (me,info);

                destruct(ob);
                count  ++;
            }
        }
        i++;
        call_out  ("search_dir",0,count,dir,i,address,me);
    }
}

int  help(object  me)
{
write(@HELP
指令格式：  sameip  <使用者姓名>  |  <IP  地址>

查找所有与使用者用同一地址上线的使用者。
HELP
    );
        return  1;
}