X-Git-Url: https://git.hcoop.net/clinton/bobotpp.git/blobdiff_plain/a63393232f9a19067d58d12065255a10a053f723..6b7614a8f1ae00cb470a620af4e0b6ffbbaa1951:/source/ScriptCommands.C

diff --git a/source/ScriptCommands.C b/source/ScriptCommands.C
index 310fd4b..c320f7a 100644
--- a/source/ScriptCommands.C
+++ b/source/ScriptCommands.C
@@ -14,7 +14,7 @@
 
 // You should have received a copy of the GNU General Public License
 // along with this program; if not, write to the Free Software
-// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
+// Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
 
 #ifdef HAVE_CONFIG_H
 #include "config.h"
@@ -31,6 +31,8 @@
 #include "DCCPerson.H"
 #include "DCCManager.H"
 #include "Parser.H"
+#include "Commands.H"
+#include "Message.H"
 #include <libguile.h>
 
 #define VERIFY_STRING(par) if (!SCM_STRINGP((par))) \
@@ -646,7 +648,21 @@ ScriptCommands::sendCTCP(SCM to, SCM command , SCM message)
   VERIFY_STRING(message);
 
   IQUEUE->sendCTCP (Utils::scm2str (to), Utils::scm2str (command),
-		   Utils::scm2str (message));
+		    Utils::scm2str (message));
+
   return SCM_UNSPECIFIED;
 }
+
+SCM
+ScriptCommands::sendNotice (SCM to, SCM message)
+{
+  VERIFY_STRING (to);
+  VERIFY_STRING (message);
+
+  return (scm_long2num 
+	  (Commands::Notice (Interp::bot, 
+			     Utils::scm2str (to),
+			     Utils::scm2str (message)).getCode ()));
+  
+}
 #endif