Match on tags only instead of the whole tip
+=item B<--tipsfile TIPSFILE>
+
+Use TIPSFILE instead of /usr/share/grml-tips/grml_tips
+
=back
=head1 EXAMPLES
my $help;
my $tagsonly;
+my $tipsfile;
my $result = GetOptions (
"help" => \$help,
- "tagsonly" => \$tagsonly
+ "tagsonly" => \$tagsonly,
+ "tipsfile=s" => \$grml_tips,
);
my $pattern = shift;
################################################################################
use strict;
+use Getopt::Long;
my $grml_tips = '/usr/share/grml-tips/grml_tips';
+
+my $result = GetOptions (
+ "tipsfile=s" => \$grml_tips
+);
+
open (my $fh, '<', $grml_tips) or die "Could not open $grml_tips: $!";
my @tags;