/*    /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(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;
}

string GetHelp(){
    return ("Syntax: cat <file>\n\n"
            "Displays the contents of the file mentioned all at once. "
            "May truncate output if it is a long file.\n"
            "See also: longcat");
}