/* /secure/cmds/creator/cat.c
* from the Foundation II LPC Library
* command to display file contents
* created by Descartes of Borg 940124
* some updates made 950915
*/
#include <lib.h>
inherit LIB_DAEMON;
mixed cmd(string str) {
string *arr;
string tmp;
if( !str ) return "You must specify a file to cat.";
else str = absolute_path((string)this_player()->query_cwd(), str);
if( !file_exists(str) ) return "File " + str + " not found.";
else if( !(tmp = read_file(str)) )
return "Unable to read file " + str + ".";
if( sizeof(arr = explode(tmp, "\n")) > 100 )
tmp = implode(arr[0..99], "\n") + "\n\t*** TRUNCATED ***";
message("system", tmp, this_player());
return 1;
}
int help() {
message("help", "Syntax: <cat [file]>\n\n"
"Displays the contents of the file mentioned all at once.",
this_player());
}
