/* -*- LPC -*- */ /* * $Locker: $ * $Id: ban.c,v 1.4 2001/06/01 20:56:23 ceres Exp $ * */ #include <parser.h> #include <access.h> inherit "/cmds/base"; /* * This will ban a site */ mixed cmd(string ip, string reason) { seteuid("Root"); if (this_player() != this_player(1)) return 0; if(!"/secure/master"->query_lord(geteuid(previous_object())) && !"/d/liaison/master"->query_deputy(geteuid(previous_object()))) return notify_fail("Only lords or liaison deputies can do that.\n"); if(strsrch(ip, "*") != -1) return notify_fail("This command does not take wildcards.\n"); if (!"/secure/bastards"->change_access(ip, 2, reason, time() + (60*60*2))) { write("Error changing permissions.\n"); return 0; } write("Site banned.\n"); return 1; } /* cmd() */ int help() { return notify_fail( "Syntax: ban <ip number> <reason>\n"); } mixed *query_patterns() { return ({ "<word'address'> <string'reason'>", (: cmd($4[0], implode($4[1..], "")) :), "help", (: help() :) }); } /* query_patterns() */