summaryrefslogtreecommitdiff
path: root/src/perl/irc/IrcServer.xs
blob: 2d4108e91769764d357418700e32cd0d9f881be6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
MODULE = Irssi::Irc	PACKAGE = Irssi::Irc::Server  PREFIX = irc_server_

void
values(server)
	Irssi::Irc::Server server
PREINIT:
        HV *hv;
PPCODE:
	hv = newHV();
	perl_server_fill_hash(hv, (SERVER_REC *) server);

	hv_store(hv, "real_address", 12, new_pv(server->real_address), 0);
	hv_store(hv, "usermode", 8, new_pv(server->usermode), 0);
	hv_store(hv, "userhost", 8, new_pv(server->userhost), 0);
	XPUSHs(sv_2mortal(newRV_noinc((SV*)hv)));

char *
irc_server_get_channels(server)
	Irssi::Irc::Server server

void
send_raw(server, cmd)
	Irssi::Irc::Server server
	char *cmd
CODE:
	irc_send_cmd(server, cmd);

void
send_raw_now(server, cmd)
	Irssi::Irc::Server server
	char *cmd
CODE:
	irc_send_cmd_now(server, cmd);

void
send_raw_split(server, cmd, nickarg, max_nicks)
	Irssi::Irc::Server server
	char *cmd
	int nickarg
	int max_nicks
CODE:
	irc_send_cmd_split(server, cmd, nickarg, max_nicks);

MODULE = Irssi::Irc	PACKAGE = Irssi::Irc::Connect  PREFIX = irc_server_

void
values(conn)
	Irssi::Irc::Connect conn
PREINIT:
        HV *hv;
PPCODE:
	hv = newHV();
	perl_server_connect_fill_hash(hv, (SERVER_CONNECT_REC *) conn);

	hv_store(hv, "alternate_nick", 14, new_pv(conn->alternate_nick), 0);
	XPUSHs(sv_2mortal(newRV_noinc((SV*)hv)));

Irssi::Irc::Server
irc_server_connect(conn)
	Irssi::Irc::Connect conn