strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove some unused perl functions.

Browse source 
Added in CWS nativefixer5, but never used:
	installer::existence::filename_exists_in_filesarray
	installer::existence::filegid_exists_in_filesarray
Added in CWS native222, but never used:
	installer::downloadsigner::logfollowmeinfohash
Added in CWS newscpzip2, but never used:
	installer::converter::convert_hash_into_array
Added in 2004, used for a month, then dropped from usage:
	installer::converter::get_number_from_directory
This commit is contained in:
Jordan Ayers 2011-08-24 21:55:08 -05:00 committed by Norbert Thiebaud
parent b56108b3fb
commit a73b9fc0e2
3 changed files with 0 additions and 93 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
solenv/bin/modules/installer/converter.pm
View file

@ -48,13 +48,6 @@ sub convert_array_to_hash
return \%newhash;
}
sub convert_hash_into_array
{
my ($hashref) = @_;
return [map { "$_ = $hashref->{$_}\n" } keys %{$hashref}];
}
#############################################################################
# Converting a string list with separator $listseparator
# into an array
@ -216,24 +209,6 @@ sub combine_arrays_from_references_first_win
return [map { "$_ $hashref2->{$_}\n" } keys %{$hashref2}];
}
#################################################################
# Returning the current ending number of a directory
#################################################################
sub get_number_from_directory
{
my ( $directory ) = @_;
my $number = 0;
if ( $directory =~ /\_(\d+)\s*$/ )
{
$number = $1;
}
return $number;
}
#################################################################
# Replacing separators, that are included into quotes
#################################################################

18
solenv/bin/modules/installer/downloadsigner.pm
View file

@ -544,24 +544,6 @@ sub createproductlist
return \@infofilelist;
}
#############################################
# Logging the content of the download hash
#############################################
sub logfollowmeinfohash
{
my ( $followmehash ) = @_;
print "\n*****************************************\n";
print "Content of follow-me info file:\n";
print "finalinstalldir: $followmehash->{'finalinstalldir'}\n";
print "downloadname: $followmehash->{'downloadname'}\n";
print "languagestring: $followmehash->{'languagestring'}\n";
foreach my $lang ( @{$followmehash->{'languagesarray'}} ) { print "languagesarray: $lang\n"; }
foreach my $path ( @{$followmehash->{'includepatharray'}} ) { print "includepatharray: $path"; }
foreach my $key ( sort keys %{$followmehash->{'allvariableshash'}} ) { print "allvariableshash: $key : $followmehash->{'allvariableshash'}->{$key}\n"; }
}
########################################################################
# Renaming the follow me info file, if it was successfully used.
# This can only be done, if the parameter "-d" was used with a

50
solenv/bin/modules/installer/existence.pm
View file

@ -137,54 +137,4 @@ sub get_specified_file_by_name
return $onefile;
}
#####################################################################
# Checking existence of a specific file, defined by its "Name"
#####################################################################
sub filename_exists_in_filesarray
{
my ($filesarrayref, $searchname) = @_;
my $foundfile = 0;
for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
{
my $onefile = ${$filesarrayref}[$i];
my $filename = $onefile->{'Name'};
if ( $filename eq $searchname )
{
$foundfile = 1;
last;
}
}
return $foundfile;
}
#####################################################################
# Checking existence of a specific file, defined by its "gid"
#####################################################################
sub filegid_exists_in_filesarray
{
my ($filesarrayref, $searchgid) = @_;
my $foundfile = 0;
for ( my $i = 0; $i <= $#{$filesarrayref}; $i++ )
{
my $onefile = ${$filesarrayref}[$i];
my $filegid = $onefile->{'gid'};
if ( $filegid eq $searchgid )
{
$foundfile = 1;
last;
}
}
return $foundfile;
}
1;