/*    /secure/cmds/creator/tail.c
 *    from the Foundation II Object Library
 *    Displays the last screenful of information from a file
 *    created by Descartes of Borg 950915
 */

#include <lib.h>

inherit LIB_DAEMON;

mixed cmd(string args) {
    string *lines;
    string buff;
    int scr;

    if( !args ) return "You must specify a file to tail.";
    else args = absolute_path((string)this_player()->query_cwd(), args);
    if( !file_exists(args) ) return "File " + args + " not found.";
    if( !(buff = read_file(args)) ) return "Unable to tail " + args + ".";
    scr = (((int *)this_player()->GetScreen())[1] || 24);
    if( scr > 100 ) scr = 100;
    if( sizeof(lines = explode(buff, "\n")) > scr ) 
      buff = implode(lines[<scr..], "\n");
    message("system", buff, this_player());
    return 1;
}

void help() {
    message("help", "Syntax: <tail [file]>\n\n"
	    "Displays the last screenful of information for the specified "
	    "file.\n\n"
	    "See also: cat, head, more.", this_player());
}