/* -*- LPC -*- */ /* * $Locker: $ * $Id: upg_rade.c,v 1.2 2003/03/21 19:53:29 ceres Exp $ * $Log: upg_rade.c,v $ * Revision 1.2 2003/03/21 19:53:29 ceres * Modified for new login object * * Revision 1.1 1998/01/06 05:25:41 ceres * Initial revision * */ /* upgrade command, trial out by Turrican for a commands daemon. */ mixed cmd(string str) { seteuid(geteuid(this_player())); (clone_object("/secure/login"))->do_upgrade(this_player()); return 1; } void dest_me() { destruct(this_object()); } void clean_up() { dest_me(); } void reset() { dest_me(); }