Opendchub perl bot

[pahnin sd <pahninsd@gmail.com>]

Hi I am running a dc hub server on my debian with opendchub
i want to write a bot which logs ip of users connected
so here is te code I am trying to execute but it couldn't log anything

            

$botname = "Admin";
 
sub main()
{
    odch::register_script_name($botname);
}

 
sub new_user_connected()
{
    my($user) = @_;
    my($host) = odch::get_hostname($user);
    my($ip) = odch::get_ip($user);
    $iplog = ">>/var/log/hubiplog";
    open(PLIK, $iplog);
    print PLIK $ip;
    print PLIK "\n";
    close PLIK;
}

the file /var/log/hubiplog is under group 'odchub' user 'odchub'