Method code for $sys.server_info()

[Turn on line numbering]

---

arg what, @long;
var tmp;

switch (what) {
    case 'up_time:
        return time() - startup['time];
    case 'startup_time:
        return startup['time];
    case 'server_hostname:
        return $dns.hostname("");
    case 'server_ip:
        return $dns.ip("");
    case 'last_backup:
        return backup['last];
    case 'driver_version:
        tmp = .version();
        return (long ? "Genesis " : "") + tmp[1] + "." + tmp[2] + "." + tmp[3] + "-" + (listlen(tmp) == 3 ? "NEED TO UPGRADE" : tmp[4]);
    case 'core_version:
        return (long ? "ColdCore " : "") + core_version;
    case 'version:
        tmp = .version();
        return "Genesis/" + tmp[1] + "." + tmp[2] + "." + tmp[3] + "-" + tmp[4] + " " + "ColdCore/" + core_version;
    default:
        throw(~unknown, "Unknown flag.");
}

// $#Edited: 19 Jul 99 09:56 $brandon

---

["// Created 26-Mar-1995 as a part of ColdCore, see: @help Credit"]