/*    /secure/cmds/creator/rm.c
 *    from the Foundation II LPC Library
 *    the command to delete files
 *    created by Descartes of Borg 930802
 */
#include <lib.h>

inherit LIB_DAEMON;

mixed cmd(string str) {
    string *files;
    string tmp;
    object ob;
    int i;

    if( !str || str == "" ) return "Correct syntax: <rm [file]>";
    if( (ob=previous_object())->GetForced() ) {
        message("system", "Someone attempted to force you to rm " + str + ".",
		previous_object());
        return 1;
    }
    tmp = absolute_path((string)ob->query_cwd(), str);
    if( !sizeof(files = (string *)ob->wild_card(tmp)) ) files = ({ tmp });
    if( !(i=sizeof(files)) ) {
        message("system", "File "+tmp+" does not exist.", this_player());
        return 1;
    }
    while(i--) {
        switch( file_size(files[i]) ) {
            case -1: message("system", "File "+files[i]+" does not exist.",
			     this_player()); break;
            case -2: message("system", files[i]+" is a directory.", 
			     this_player()); break;
            default: message("system", rm(files[i]) ? files[i]+": Ok." :
			     files[i]+": Permission denied.", this_player());
	      break;
        }
    }
    return 1;
}

void help() {
    message("help", "Syntax: <rm [file]>\n\n"
	    "The command deletes the file named.  Once deleted, the file "
	    "cannot be recovered.  Note wild cards work with this command, "
	    "but there is no prompt, so be VERY CAREFULL!!!!", this_player());
}