/* -*- LPC -*- */ /* * $Locker: $ * $Id: he_ad.c,v 1.1 1998/01/06 05:25:41 ceres Exp $ * $Log: he_ad.c,v $ * Revision 1.1 1998/01/06 05:25:41 ceres * Initial revision * */ /* head command, by Wodan. */ mixed cmd(string str) { int i; string *files; seteuid(geteuid(this_player())); if (!str) return notify_fail("Usage: head <file>\n"); files = this_player()->get_files(str); if (!sizeof(files)) return notify_fail("File does not exist.\n"); str = files[0]; i = file_length(str); if (i < 0) { printf("File not found.\n"); return 1; } if (i > 20) i=20; write(read_file(str,1,i)); return 1; } void dest_me() { destruct(this_object()); } void clean_up() { dest_me(); } void reset() { dest_me(); }