file isExecutable
Thanks Craig
# Original by Andy Harrison, # Rewrite by Decklin Foster, # Available under the GPL. use vars qw(%opts $in_group); die "usage: $0 -s 'screen name' gaim.buddy\n" unless $opts{s}; my ($type, $args) = split ' ', $_, 2; print " }\n" if ($in_group); my ($buddy, $alias) = split /:/, $args;