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

INTEGRATION: CWS newscp2 (1.2.2); FILE MERGED

Browse source 
2004/02/05 12:27:50 is 1.2.2.1:
Issue number:
Submitted by:
Reviewed by:
This commit is contained in:
Rüdiger Timm 2004-02-10 13:27:36 +00:00
parent b29218882a
commit 624acdd313
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
solenv/bin/modules/par2script/check.pm
View file

@ -2,9 +2,9 @@
#
# $RCSfile: check.pm,v $
#
# $Revision: 1.2 $
# $Revision: 1.3 $
#
# last change: $Author: kz $ $Date: 2004-01-29 11:42:06 $
# last change: $Author: rt $ $Date: 2004-02-10 14:27:36 $
#
# The Contents of this file are made available subject to the terms of
# either of the following licenses
@ -152,13 +152,13 @@ sub check_needed_directories
# definitions are defined.
##################################################
sub check_directories_in_file_definitions
sub check_directories_in_item_definitions
{
my ($setupscript) = @_;
my ($setupscript, $item) = @_;
print "Checking files ... ";
print "Checking $item ... ";
my $allfiles = par2script::work::get_all_items_from_script($setupscript, "File");
my $allfiles = par2script::work::get_all_items_from_script($setupscript, $item);
my $alldirectorygids = par2script::work::get_all_gids_from_script($setupscript, "Directory");
for ( my $i = 0; $i <= $#{$allfiles}; $i++ )
@ -177,7 +177,7 @@ sub check_directories_in_file_definitions
if ( ! par2script::existence::exists_in_array($filedir, $alldirectorygids) )
{
die "ERROR: Directory $filedir in file $onefile->{'gid'} not defined!\n";
die "ERROR: Directory $filedir in $item $onefile->{'gid'} not defined!\n";
}
}