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

# ERR_CHANNELISFULL
sub sv_471 {
  my($from, $pr) = @_;
  (local $chan, my $mes) = ($pr =~ /^[^\s]+ ([^\s]+) :?(.*)$/);
  &list_del($chl, $chan);
  &send('ccn', ":$from 471 $us_nick $chan :" .
        &mio('SERVER_471_1', $mes) . "\n");
  &send('ccn', "NOTICE $us_nick :" .
	&mio('SERVER_471_2', "Cannot join channel ($chan/+l)") . "\n");
}