1 |
#!/usr/bin/perl |
#!/usr/bin/perl |
2 |
use warnings; |
use warnings; |
3 |
use strict; |
use strict; |
4 |
|
use POSIX; |
5 |
use Proc::Daemon; |
use Proc::Daemon; |
6 |
my $nick = "<%= nick %>"; |
my $nick = "<%= nick %>"; |
7 |
my $server = "<%= server %>"; |
my $server = "<%= server %>"; |
8 |
|
|
9 |
|
|
10 |
Proc::Daemon::Init(); |
Proc::Daemon::Init(); |
11 |
|
my (undef, undef, $uid) = getpwname("nobody"); |
12 |
|
POSIX::setuid($uid); |
13 |
|
|
14 |
fork() || exec "ii -n $nick -i /var/lib/ii/$nick -s $server"; |
fork() || exec "ii -n $nick -i /var/lib/ii/$nick -s $server"; |
15 |
wait(); |
wait(); |