View ¡m../sdba/bin/log_im.pl¡n
sub log_im { #Get the victim, message, the bot's screenname, and the bot's reply. #log_im($victim,$msg,$screenname,$reply); $victim = shift; $msg = shift; $screenname = shift; $reply = shift; #Print it to the DOS window. print "<$victim> $msg\n<$screenname> $reply\n\n"; #Write it to a log in the logs folder. my $time = localtime; open (SDBADATA, ">>logs/".$imnet."msglog.txt"); print SDBADATA "$time\t<$victim> $msg\n<$screenname> $reply\n"; close(SDBADATA); open (DAT, ">>logs/$victim.log"); print DAT "$victim: $msg\n\n"; close (DAT); } 1;