Adding upstream version 1.4.5.upstream/1.4.5upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 69 insertions, 0 deletions

diff --git a/src/perl/common/Log.xs b/src/perl/common/Log.xs
new file mode 100644
index 0000000..532095f
--- /dev/null
+++ b/src/perl/common/Log.xs
@@ -0,0 +1,69 @@
+#define PERL_NO_GET_CONTEXT
+#include "module.h"
+
+MODULE = Irssi::Log  PACKAGE = Irssi
+PROTOTYPES: ENABLE
+
+void
+logs()
+PREINIT:
+	GSList *tmp;
+PPCODE:
+	for (tmp = logs; tmp != NULL; tmp = tmp->next) {
+		XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Log")));
+	}
+
+Irssi::Log
+log_create_rec(fname, level)
+	char *fname
+	int level
+
+Irssi::Log
+log_find(fname)
+	char *fname
+
+#*******************************
+MODULE = Irssi::Log  PACKAGE = Irssi::Log  PREFIX = log_
+#*******************************
+
+void
+log_item_add(log, type, name, servertag)
+	Irssi::Log log
+	int type
+	char *name
+	char *servertag
+
+void
+log_item_destroy(log, item)
+	Irssi::Log log
+	Irssi::Logitem item
+
+Irssi::Logitem
+log_item_find(log, type, item, servertag)
+	Irssi::Log log
+	int type
+	char *item
+	char *servertag
+
+void
+log_update(log)
+	Irssi::Log log
+
+void
+log_close(log)
+	Irssi::Log log
+
+void
+log_write_rec(log, str, level, now = -1)
+	Irssi::Log log
+	char *str
+	int level
+	time_t now
+
+void
+log_start_logging(log)
+	Irssi::Log log
+
+void
+log_stop_logging(log)
+	Irssi::Log log