#!/usr/bin/perl

package Rehash;
use cybot;

# by Alberto Simões

register_command("rehash",sub{
	my ($bot,$chan,$nick,$host) = @_;

	if ($nick eq $bot->{boss} && $bot->{chost} eq $bot->{bossmask}) {
	  $bot->rehash;
	  $bot->message($chan,"rehashed");
	} else {
	  $bot->message($chan,"$nick: permission denied");
	}
      } ," reload all modules.");


1;