File: message.mpi

package info (click to toggle)
madoka 4.2.3-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 960 kB
  • ctags: 45
  • sloc: perl: 1,006; makefile: 45; sh: 4
file content (22 lines) | stat: -rw-r--r-- 536 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
# madoka 4.2 rc_message
#
# rc/message.mpi
#    Copyright(c)1998- cookie / The madoka project
#

my($var, $arg) = split(/=\s*/, $rc_line, 2);

if ($var eq 'away') {
  $mes_away = $arg;
} elsif ($var eq 'down') {
  $mes_down = $arg;
} elsif ($var eq 'quit') {
  $mes_quit = $arg;
} elsif ($var eq 'part') {
  $mes_part = $arg;
} elsif ($var eq 'priv') {
  my($chan, $mes) = split(/\s+/, $arg, 2);
  my($chanr, $chanv) = &alias_chan($chan);
  &down("[ERROR] priv in [message]\n") unless &check_chan($chanr);
  $mes_priv{$chanr} = $mes;
}