MG Mud User | 88f1247 | 2016-06-24 23:31:02 +0200 | [diff] [blame] | 1 | /* This sefun is to provide a replacement for the efuns query_ip_name() and |
| 2 | * query_ip_number(). |
| 3 | * Feel free to add it to your mudlibs, if you have much code relying on that. |
| 4 | */ |
| 5 | |
| 6 | #if ! __EFUN_DEFINED__(query_ip_name) |
| 7 | |
| 8 | #include <interactive_info.h> |
| 9 | |
| 10 | private varargs string _query_ip_name(object player) |
| 11 | { |
| 12 | object ob = player; |
| 13 | ob ||= efun::this_player(); |
| 14 | |
MG Mud User | 88f1247 | 2016-06-24 23:31:02 +0200 | [diff] [blame] | 15 | return efun::interactive_info(ob, II_IP_NAME); |
| 16 | } |
| 17 | |
| 18 | private varargs string _query_ip_number(object player) |
| 19 | { |
| 20 | object ob = player; |
| 21 | ob ||= efun::this_player(); |
| 22 | |
MG Mud User | 88f1247 | 2016-06-24 23:31:02 +0200 | [diff] [blame] | 23 | return efun::interactive_info(ob, II_IP_NUMBER); |
| 24 | } |
| 25 | |
| 26 | // * Herkunfts-Ermittlung |
| 27 | string query_ip_number(object ob) |
| 28 | { |
| 29 | ob= ob || this_player(); |
| 30 | if (!objectp(ob) || !interactive(ob)) return 0; |
Zesstra | 4dbb988 | 2019-11-26 21:26:36 +0100 | [diff] [blame^] | 31 | if(ob->query_realip() && ob->query_realip()!="") |
MG Mud User | 88f1247 | 2016-06-24 23:31:02 +0200 | [diff] [blame] | 32 | { |
Zesstra | 4dbb988 | 2019-11-26 21:26:36 +0100 | [diff] [blame^] | 33 | return ob->query_realip(); |
MG Mud User | 88f1247 | 2016-06-24 23:31:02 +0200 | [diff] [blame] | 34 | } |
| 35 | return _query_ip_number(ob); |
| 36 | } |
| 37 | |
| 38 | string query_ip_name(mixed ob) |
| 39 | { |
| 40 | if ( !ob || objectp(ob) ) |
| 41 | ob=query_ip_number(ob); |
Zesstra | 4dbb988 | 2019-11-26 21:26:36 +0100 | [diff] [blame^] | 42 | return "/p/daemon/iplookup"->host(ob); |
MG Mud User | 88f1247 | 2016-06-24 23:31:02 +0200 | [diff] [blame] | 43 | } |
| 44 | |
| 45 | #endif |
| 46 | |