diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2007-07-04 02:00:24 +0000 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2007-07-04 02:00:24 +0000 |
| commit | 2e39d5b2b95c2e705fd962c9752070f816c1dfec (patch) | |
| tree | 64d6fde2a4cd488d7add12ca4897daee216777ae /modules/event.pl | |
| parent | 6fe4d3ecbdc3196c7c62b9b7e00d5063bd0dbee9 (diff) | |
critical bug fix + code optimizations
Diffstat (limited to 'modules/event.pl')
| -rw-r--r-- | modules/event.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/modules/event.pl b/modules/event.pl index ede0efd..971a542 100644 --- a/modules/event.pl +++ b/modules/event.pl @@ -4,6 +4,7 @@ use strict; use Data::Dumper; use Text::LevenshteinXS qw(distance); +use IO::All; #require 'modules/inspect.pl'; sub cs { @@ -77,6 +78,7 @@ sub on_join { my $chan = lc $event->{to}->[0]; if ( lc $conn->{_nick} eq lc $nick) { $::sc{$chan} = {}; + mkdir($::settings->{log}->{dir} . $chan); $conn->sl("who $chan"); $conn->privmsg('ChanServ', "op $chan" ) if (defined cs($chan)->{op}) && (cs($chan)->{op} eq 'yes'); } |