MV_FORTUNE_COMMAND — location of the Unix fortune program
Interchange 5.9.0:
Source: code/UserTag/fortune.tag
Line 16 (context shows lines 6-20)
# (at your option) any later version. See the LICENSE file for details. # # $Id: fortune.tag,v 1.7 2007-03-30 23:40:57 pajamian Exp $ UserTag fortune Order short UserTag fortune addAttr UserTag fortune Version $Revision: 1.7 $ UserTag fortune Routine <<EOR sub { my ($short, $opt) = @_; my $cmd = $Global::Variable->{MV_FORTUNE_COMMAND} || '/usr/games/fortune'; my @flags; push @flags, '-s' if is_yes($short); for(grep length($_) == 1, keys %$opt) { push @flags, "-$_" if $opt->{$_};