summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorlookshe <lookshe@fumuga.com>2012-03-07 03:43:26 +0100
committerlookshe <lookshe@fumuga.com>2012-03-07 03:43:26 +0100
commit5fd5a2093478eb338d3a07b4f94ac04da7748c24 (patch)
tree1c0cdf873d600b1fb9df47faa66627c6217c3026
parent5455232d68904d820ca332e38efac74516e8b5d3 (diff)
little bugfixes for new wiki scripts
-rw-r--r--wiki.tcl2
-rw-r--r--wiki2.pl2
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;