2 # wtf.pl: interface to bsd wtf
3 # Author: Tim Riker <Tim@Rikers.org>
4 # Source: modified from jethro's patch
5 # Licensing: Artistic License (as perl itself)
8 # Copyright (c) 2005 Tim Riker
18 my @binaries = ( '/usr/games/wtf', '/usr/local/bin/wtf' );
26 return ("no binary found.");
28 if ( $query =~ /^$|[^\w]/ ) {
29 return ("usage: wtf <foo>.");
31 if ( !&::validExec($query) ) {
32 return ("argument appears to be fuzzy.");
36 foreach (`$binary '$query' 2>&1`) {
45 &::performStrictReply( &wtf(@_) );
51 # vim:ts=4:sw=4:expandtab:tw=80