/* -*- LPC -*- */ /* * $Locker: $ * $Id: cleanup.c,v 1.1 1998/01/06 05:11:09 ceres Exp $ * $Log: cleanup.c,v $ * Revision 1.1 1998/01/06 05:11:09 ceres * Initial revision * */ /* command, trial out by Turrican for a commands daemon. */ inherit "/cmds/base"; inherit "/cmds/speech"; mixed cmd(string mess) { if("/secure/bulk_delete"->delete_files(mess)) write("Ok.\n"); else return notify_fail("Sorry.\n"); }