diff --git a/.gitignore b/.gitignore index f5269ecd3b8ebe849a88de459c3a88f9c344d50b..abf7bb8d63a5b646859f72b4916f2d7036680c61 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 78cc10b4ad9ff5aa50d5da6a2484a8a48ca42172..69f93cba3f69a5e78d8f0599f979af91d82781ec 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') {