diff options
author | lookshe <lookshe@fumuga.com> | 2012-03-07 03:43:26 +0100 |
---|---|---|
committer | lookshe <lookshe@fumuga.com> | 2012-03-07 03:43:26 +0100 |
commit | 5fd5a2093478eb338d3a07b4f94ac04da7748c24 (patch) | |
tree | 1c0cdf873d600b1fb9df47faa66627c6217c3026 | |
parent | 5455232d68904d820ca332e38efac74516e8b5d3 (diff) |
little bugfixes for new wiki scripts
-rw-r--r-- | wiki.tcl | 2 | ||||
-rw-r--r-- | wiki2.pl | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -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"; } @@ -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; |