From a1229776442a152419f7c45a44ae96884a7c0c25 Mon Sep 17 00:00:00 2001
From: Matthew Barksdale <matthew@matt-tech.info>
Date: Thu, 14 Apr 2011 03:27:58 -0400
Subject: [PATCH] Added deoper subroutine to deoper Auto on a server

---
 modules/Oper.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/modules/Oper.pm b/modules/Oper.pm
index ee6bd53..a3cca3d 100644
--- a/modules/Oper.pm
+++ b/modules/Oper.pm
@@ -70,6 +70,15 @@ sub oper {
     return 1;
 }
 
+# Deopers Auto on the specified server.
+sub deoper {
+    my ($svr) = @_;
+    Auto::socksnd($svr, "MODE $State::IRC::botinfo{$svr}{nick} -o");
+    return 1;
+}
+
+# End of the API
+
 # Start initialization.
 API::Std::mod_init('Oper', 'Xelhua', '1.01', '3.0.0a10');
 # build: perl=5.010000