ii/templates/ii_wrapper.pl

#!/usr/bin/perl
use warnings;
use strict;
use POSIX;
use Proc::Daemon;
my $nick = "<%= nick %>";
my $server = "<%= server %>";


Proc::Daemon::Init();
my (undef, undef, $uid) = getpwname("nobody"); 
POSIX::setuid($uid);

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