/* -*- LPC -*- */ /* * $Locker: $ * $Id: dump_socket_status.c,v 1.2 1998/09/01 13:52:13 wodan Exp $ * * */ string dump_socket_status() { string ret = @END Fd State Mode Local Address Remote Address -- --------- -------- --------------------- --------------------- END; foreach (mixed *item in socket_status()) { ret += sprintf("%2d %|9s %|8s %-21s %-21s\n", item[0], item[1], item[2], item[3], item[4]); } return ret; }