Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: bacek/aloha
base: 5b11e7adf1
...
head fork: bacek/aloha
compare: 7bb784138f
  • 4 commits
  • 4 files changed
  • 0 commit comments
  • 1 contributor
View
10 bot.pl
@@ -44,9 +44,9 @@
$bot->load('Auth');
$bot->load('Loader');
-$bot->load('Infobot');
-$bot->load('Karma');
-$bot->load('Seen');
-$bot->load('Message');
-$bot->load('Maths');
+#$bot->load('Infobot');
+#$bot->load('Karma');
+#$bot->load('Seen');
+#$bot->load('Message');
+#$bot->load('Maths');
$bot->run();
View
2  lib/Bot/BasicBot/Pluggable/Module/Clock.pm
@@ -35,7 +35,7 @@ sub told {
local $ENV{TZ} = $tz->[1];
push @dates, strftime("$tz->[0]: %a, %H:%M %Z", localtime());
}
- $self->reply($message, $message->{who} . ': ' . join(' / ', @dates));
+ $self->reply($message, join(' / ', @dates));
}
}
View
2  lib/Bot/BasicBot/Pluggable/Module/Msg.pm
@@ -49,7 +49,7 @@ sub said {
foreach ( @{$notes} ) {
my $msg = $_->{'who'} . ' asked me to tell you ';
- $msg .= '(' . timedelta_to_string(time - $_->{when}) .') ' if $_->{when};
+ #$msg .= '(' . timedelta_to_string(time - $_->{when}) .') ' if $_->{when};
$msg .= $_->{message};
$self->tell( $message->{'who'}, $msg);
View
2  lib/Bot/BasicBot/Pluggable/Store/DBIJSON.pm
@@ -18,8 +18,6 @@ sub init {
$self->{dsn} ||= 'dbi:SQLite:bot-basicbot.sqlite';
$self->{table} ||= 'basicbot';
$self->create_table;
-
- DBI->trace(2);
}
sub dbh {

No commit comments for this range

Something went wrong with that request. Please try again.