Skip to content
Snippets Groups Projects
Commit f15292bd authored by Gerhard Gonter's avatar Gerhard Gonter :speech_balloon:
Browse files

cleanup

parent a7aeabf2
Branches
No related tags found
No related merge requests found
...@@ -9,4 +9,4 @@ filepath.mod.c ...@@ -9,4 +9,4 @@ filepath.mod.c
jbb_version.h jbb_version.h
modules.order modules.order
tivsm-filepath-*.deb tivsm-filepath-*.deb
dsmerror.log
#!/usr/bin/perl #!/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; use strict;
my %packages= ( my %packages= (
...@@ -14,6 +36,7 @@ my %packages= ( ...@@ -14,6 +36,7 @@ my %packages= (
'tivsm-jbb' => 'tivsm-jbb.amd64.deb' 'tivsm-jbb' => 'tivsm-jbb.amd64.deb'
); );
# the order of packages seems to be very important for the installation!
my @packages= qw( my @packages= qw(
gskcrypt64 gskcrypt64
gskssl64 gskssl64
...@@ -26,7 +49,7 @@ my @packages= qw( ...@@ -26,7 +49,7 @@ my @packages= qw(
tivsm-jbb tivsm-jbb
); );
print "packages: [", join (' ', @packages), "]\n"; # print "packages: [", join (' ', @packages), "]\n";
my %op_modes= map { $_ => 1 } qw(show remove install); my %op_modes= map { $_ => 1 } qw(show remove install);
my $op_mode= 'show'; my $op_mode= 'show';
...@@ -38,8 +61,7 @@ while (my $arg= shift (@ARGV)) ...@@ -38,8 +61,7 @@ while (my $arg= shift (@ARGV))
if ($op_mode eq 'show') if ($op_mode eq 'show')
{ {
system ('dpkg', '-l', 'tivsm*'); system (qw(dpkg -l gsk* tivsm*));
system ('dpkg', '-l', 'gsk*');
} }
elsif ($op_mode eq 'remove') elsif ($op_mode eq 'remove')
{ {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment