Blame
Date:
Fri Dec 17 13:35:57 2021 UTC
Message:
Imported sources
001
2021-12-17
jrmu
Output
002
2021-12-17
jrmu
========
003
2021-12-17
jrmu
004
2021-12-17
jrmu
putserv BOT TEXT
005
2021-12-17
jrmu
006
2021-12-17
jrmu
Sends text to the IRC server. Returns nothing.
007
2021-12-17
jrmu
008
2021-12-17
jrmu
Bind
009
2021-12-17
jrmu
========
010
2021-12-17
jrmu
011
2021-12-17
jrmu
bind TYPE FLAGS MASK PROC
012
2021-12-17
jrmu
013
2021-12-17
jrmu
Binds perl procedures to events. Currently flags and mask are ignored. Returns the name of the command that was added.
014
2021-12-17
jrmu
015
2021-12-17
jrmu
1. MSG
016
2021-12-17
jrmu
017
2021-12-17
jrmu
bind "MSG" FLAGS COMMAND PROC
018
2021-12-17
jrmu
procname BOT NICK USERHOST HANDLE TEXT
019
2021-12-17
jrmu
020
2021-12-17
jrmu
Called on /msg commands. The first word of the msg is the command, and the rest
021
2021-12-17
jrmu
the text.
022
2021-12-17
jrmu
023
2021-12-17
jrmu
bind("msg", "", "admin", $proc);
024
2021-12-17
jrmu
sub proc {
025
2021-12-17
jrmu
my ($bot, $nick, $userhost, $hand, $text) = @_;
026
2021-12-17
jrmu
...
027
2021-12-17
jrmu
}
028
2021-12-17
jrmu
029
2021-12-17
jrmu
2. PUB
030
2021-12-17
jrmu
031
2021-12-17
jrmu
bind "PUB" FLAGS COMMAND PROC
032
2021-12-17
jrmu
procname BOT NICK USERHOST HANDLE CHANNEL TEXT
033
2021-12-17
jrmu
034
2021-12-17
jrmu
bind("pub", "", "help", $proc);
035
2021-12-17
jrmu
sub proc {
036
2021-12-17
jrmu
my ($bot, $nick, $userhost, $hand, $chan, $text) = @_;
037
2021-12-17
jrmu
...
038
2021-12-17
jrmu
}
039
2021-12-17
jrmu
040
2021-12-17
jrmu
Called on commands in a channel. The first word of the msg is the command, and the rest
041
2021-12-17
jrmu
the text.
042
2021-12-17
jrmu
043
2021-12-17
jrmu
3. MSGM (stackable)
044
2021-12-17
jrmu
045
2021-12-17
jrmu
bind "MSGM" FLAGS MASK PROC
046
2021-12-17
jrmu
procname BOT NICK USERHOST HANDLE TEXT
047
2021-12-17
jrmu
048
2021-12-17
jrmu
bind("msgm", "", "", $proc);
049
2021-12-17
jrmu
sub proc {
050
2021-12-17
jrmu
my ($bot, $nick, $userhost, $hand, $text) = @_;
051
2021-12-17
jrmu
...
052
2021-12-17
jrmu
}
053
2021-12-17
jrmu
054
2021-12-17
jrmu
Match all text from a /msg. MSGM binds are processed before MSG binds.
055
2021-12-17
jrmu
056
2021-12-17
jrmu
4. PUBM (stackable)
057
2021-12-17
jrmu
058
2021-12-17
jrmu
bind "PUBM" FLAGS MASK PROC
059
2021-12-17
jrmu
procname BOT NICK USERHOST HANDLE CHAN TEXT
060
2021-12-17
jrmu
061
2021-12-17
jrmu
bind("pubm", "", "", $proc);
062
2021-12-17
jrmu
sub proc {
063
2021-12-17
jrmu
my ($bot, $nick, $userhost, $hand, $chan, $text) = @_;
064
2021-12-17
jrmu
...
065
2021-12-17
jrmu
}
066
2021-12-17
jrmu
067
2021-12-17
jrmu
Match all text from a message on a channel. PUBM binds are processed before PUB binds.
068
2021-12-17
jrmu
069
2021-12-17
jrmu
5. NOTC (stackable)
070
2021-12-17
jrmu
071
2021-12-17
jrmu
bind "NOTC" FLAGS MASK PROC
072
2021-12-17
jrmu
procname BOT NICK USERHOST HANDLE TEXT DEST
073
2021-12-17
jrmu
074
2021-12-17
jrmu
bind("notc", "", "", $proc);
075
2021-12-17
jrmu
sub proc {
076
2021-12-17
jrmu
my ($bot, $nick, $userhost, $hand, $text, $dest) = @_;
077
2021-12-17
jrmu
...
078
2021-12-17
jrmu
}
079
2021-12-17
jrmu
080
2021-12-17
jrmu
Called when a notice is sent. $dest is either the bot's nickname or channel.
081
2021-12-17
jrmu
You should not respond to a /notice, so this is useful for logging and analytics.
082
2021-12-17
jrmu
083
2021-12-17
jrmu
6. JOIN (stackable)
084
2021-12-17
jrmu
085
2021-12-17
jrmu
bind "JOIN" FLAGS MASK PROC
086
2021-12-17
jrmu
procname BOT NICK USERHOST HANDLE CHANNEL
087
2021-12-17
jrmu
088
2021-12-17
jrmu
bind("join", "", "", $proc);
089
2021-12-17
jrmu
sub proc {
090
2021-12-17
jrmu
my ($bot, $nick, $userhost, $hand, $chan) = @_;
091
2021-12-17
jrmu
...
092
2021-12-17
jrmu
}
093
2021-12-17
jrmu
094
2021-12-17
jrmu
Called when someone joins a channel.
095
2021-12-17
jrmu
096
2021-12-17
jrmu
7. PART (stackable)
097
2021-12-17
jrmu
098
2021-12-17
jrmu
bind "PART" FLAGS MASK PROC
099
2021-12-17
jrmu
procname BOT NICK USERHOST HANDLE CHANNEL TEXT
100
2021-12-17
jrmu
101
2021-12-17
jrmu
bind("part", "", "", $proc);
102
2021-12-17
jrmu
sub proc {
103
2021-12-17
jrmu
my ($bot, $nick, $userhost, $hand, $chan, $text) = @_;
104
2021-12-17
jrmu
...
105
2021-12-17
jrmu
}
106
2021-12-17
jrmu
107
2021-12-17
jrmu
Called when someone parts a channel.
IRCNow