File: 366.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 (21 lines) | stat: -rw-r--r-- 625 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
# madoka 4.2 sv_366
#
# server/366.mpi
#    Copyright(c)1998- cookie / The madoka project
#

# RPL_ENDOFNAMES
sub sv_366 {
  my($from, $pr) = @_;
  my($nick, $chan, $mes) = ($pr =~ /^([^\s]+) ([^\s]+) :?(.*)$/);
  my($chanr, $chanv) = &alias_chan($chan);
  vec($sv_state, 1, 1) = 1;
  &send('ccn', ":$from 366 $us_nick $chanr :$mes\n");
  if (vec($at_state, 4, 1) && !$topic{$chanr} && $at_topic{$chanr}) {
    &send('sv', "TOPIC $chanr :$at_topic{$chanr}\n");
  }
  if ($at_mode{$chanr} && vec($at_state, 1, 1) &&
      &list_exist($ls_mem{$chanr}, "\@$us_nick")) {
    &send('sv', "MODE $chanr $at_mode{$chanr} \n");
  }
}