Opendchub perl bot
 

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 "
";

*** close PLIK;}


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