Permalink
Browse files

deer.pm: Fix deer not eating the whole argument soup

  • Loading branch information...
1 parent 5f47a58 commit a29fc841140d9b2fd4a44665fdf44677787a3c5f @incognico committed Jun 24, 2013
Showing with 3 additions and 3 deletions.
  1. +3 −3 modules/deer.pm
View
@@ -9,8 +9,8 @@ use DBI;
### start config
my @cankill = qw(nico!nico@korea-dpr.org);
-my $deerchan = '#idletalk';
-my $deeritor = '<temporarily unavailable>';
+my $deerchan = '#deer';
+my $deeritor = 'http://example.com/deeritor';
my $maxsearch = 20;
my %sql = (
@@ -165,7 +165,7 @@ sub on_privmsg {
my $cmd = uc(shift(@args));
if ($cmd eq 'DEER') {
- my ($ret, $creator, $irccode, $deer, $special) = fetchdeer($args[0] ? $args[0] : 'random');
+ my ($ret, $creator, $irccode, $deer, $special) = fetchdeer($args[0] ? "@args" : 'random');
if ($ret == 1) {
main::msg($target, 'deer: database error');

0 comments on commit a29fc84

Please sign in to comment.