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