Allow configuration of tipsfile path

grml · Dec 6, 2011 · 376af34 · 376af34
1 parent 2a798f2
commit 376af34
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/grml-tips b/grml-tips
@@ -39,6 +39,10 @@ Print this help and exit.
 
 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
@@ -75,10 +79,12 @@ my $grml_tips = '/usr/share/grml-tips/grml_tips';
 
 my $help;
 my $tagsonly;
+my $tipsfile; 
 
 my $result = GetOptions (
     "help" => \$help,
-    "tagsonly" => \$tagsonly
+    "tagsonly" => \$tagsonly,
+    "tipsfile=s" => \$grml_tips, 
 );
 
 my $pattern   = shift;

diff --git a/grml-tips-tags b/grml-tips-tags
@@ -7,8 +7,14 @@
 ################################################################################
 
 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;