X-Git-Url: http://git.grml.org/?a=blobdiff_plain;f=grml-tips-tags;h=a7a4d49eea90e7483c20a60d1b7f190ef85a03a4;hb=fe95fb2f99b2c35aec74130ad1040e8dbb728a70;hp=c1cdd0d16db311a9378c454adf5c07dfdae414be;hpb=2a798f2c3283509108bb0162d382989f6282096f;p=grml-tips.git

diff --git a/grml-tips-tags b/grml-tips-tags
index c1cdd0d..a7a4d49 100755
--- 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;
@@ -18,8 +24,12 @@ while (my $line = <$fh>) {
     push @tags, split(/[, ]+/, $1);
 }
 
+close ($fh);
 #make tags unique
 my %seen = ();
 @tags = grep { ! $seen{$_} ++ } @tags;
 
-print join("\n", @tags) . "\n";
+open (my $fh, '>', '/usr/share/grml-tips/tags') 
+	or die "Could not open '/usr/share/grml-tips/tags' for writing: $!";
+print $fh join("\n", @tags) . "\n";
+close($fh)