From f15292bd1198c60bfe7ed9b0b0f11f921dcc8b33 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Wed, 27 Apr 2016 19:07:53 +0200
Subject: [PATCH] cleanup

---
 .gitignore      |  2 +-
 tivsm-helper.pl | 28 +++++++++++++++++++++++++---
 2 files changed, 26 insertions(+), 4 deletions(-)

diff --git a/.gitignore b/.gitignore
index f5269ec..abf7bb8 100644
--- a/.gitignore
+++ b/.gitignore
@@ -9,4 +9,4 @@ filepath.mod.c
 jbb_version.h
 modules.order
 tivsm-filepath-*.deb
-
+dsmerror.log
diff --git a/tivsm-helper.pl b/tivsm-helper.pl
index 78cc10b..69f93cb 100755
--- a/tivsm-helper.pl
+++ b/tivsm-helper.pl
@@ -1,5 +1,27 @@
 #!/usr/bin/perl
 
+=head1 NAME
+
+  tivsm-helper.pl
+
+=head1 DESCRIPTION
+
+=head2 display current packages, when they are installed
+
+  ./tivsm-helper.pl
+
+=head2 install the packages
+
+  ./tivsm-helper.pl install
+
+=head2 remove the packages
+
+ATTN: use at own risk!
+
+  ./tivsm-helper.pl remove
+
+=cut
+
 use strict;
 
 my %packages= (
@@ -14,6 +36,7 @@ my %packages= (
   'tivsm-jbb'      => 'tivsm-jbb.amd64.deb'
 );
 
+# the order of packages seems to be very important for the installation!
 my @packages= qw(
   gskcrypt64
   gskssl64
@@ -26,7 +49,7 @@ my @packages= qw(
   tivsm-jbb
 );
 
-print "packages: [", join (' ', @packages), "]\n";
+# print "packages: [", join (' ', @packages), "]\n";
 
 my %op_modes= map { $_ => 1 } qw(show remove install);
 my $op_mode= 'show';
@@ -38,8 +61,7 @@ while (my $arg= shift (@ARGV))
 
   if ($op_mode eq 'show')
   {
-    system ('dpkg', '-l', 'tivsm*');
-    system ('dpkg', '-l', 'gsk*');
+    system (qw(dpkg -l gsk* tivsm*));
   }
   elsif ($op_mode eq 'remove')
   {
-- 
GitLab