From 5fd5a2093478eb338d3a07b4f94ac04da7748c24 Mon Sep 17 00:00:00 2001
From: lookshe <lookshe@fumuga.com>
Date: Wed, 7 Mar 2012 03:43:26 +0100
Subject: little bugfixes for new wiki scripts

---
 wiki.tcl | 2 +-
 wiki2.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/wiki.tcl b/wiki.tcl
index d3609b4..a461114 100644
--- a/wiki.tcl
+++ b/wiki.tcl
@@ -23,7 +23,7 @@ if {$arg == ""} {
    return 0
 }
 
-   set output [split "[exec perl /home/eggdrop/eggdrop/scripts/wiki2.pl \"$arg\" de]" "\n"]
+   set output [split "[exec perl /home/eggdrop/eggdrop/scripts/wiki2.pl $arg de]" "\n"]
    foreach out $output {
       putserv "PRIVMSG $chan :$out";
    }
diff --git a/wiki2.pl b/wiki2.pl
index 87c7c8c..c2033ad 100644
--- a/wiki2.pl
+++ b/wiki2.pl
@@ -15,7 +15,7 @@ if (!$lang) {
 
 my $wiki = WWW::Wikipedia->new( language => $lang);
 
-my $result = $wiki->search( $ARGV[0] );
+my $result = $wiki->search( "$ARGV[0]" );
 if (defined $result) {
    my @lines = split('\n', $result->text());
    my @newlines;
-- 
cgit v1.2.3