Method code for $sys.server_info()

[Turn off line numbering]

---

  1: arg what, @long;
  2: var tmp;
  3: 
  4: switch (what) {
  5:     case 'up_time:
  6:         return time() - startup['time];
  7:     case 'startup_time:
  8:         return startup['time];
  9:     case 'server_hostname:
 10:         return $dns.hostname("");
 11:     case 'server_ip:
 12:         return $dns.ip("");
 13:     case 'last_backup:
 14:         return backup['last];
 15:     case 'driver_version:
 16:         tmp = .version();
 17:         return (long ? "Genesis " : "") + tmp[1] + "." + tmp[2] + "." + tmp[3] + "-" + (listlen(tmp) == 3 ? "NEED TO UPGRADE" : tmp[4]);
 18:     case 'core_version:
 19:         return (long ? "ColdCore " : "") + core_version;
 20:     case 'version:
 21:         tmp = .version();
 22:         return "Genesis/" + tmp[1] + "." + tmp[2] + "." + tmp[3] + "-" + tmp[4] + " " + "ColdCore/" + core_version;
 23:     default:
 24:         throw(~unknown, "Unknown flag.");
 25: }
 26: 
 27: // $#Edited: 19 Jul 99 09:56 $brandon

---

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