Subversion Repositories DevTools

Rev

Rev 1119 | Rev 1123 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1119 Rev 1121
Line 27... Line 27...
27 
 
 27 
 
28 
#
 28 
#
29 
#   Globals
 29 
#   Globals
30 
#
 30 
#
31 
my @Manifests;                      # Manifest entries
 31 
my @Manifests;                      # Manifest entries
- 
 
 32 
my %package_dirs;                   # Package dirs discovered and used
32 
 
 33 
 
33 
#-------------------------------------------------------------------------------
 34 
#-------------------------------------------------------------------------------
34 
# Function        : BEGIN
 35 
# Function        : BEGIN
35 
#
 36 
#
36 
# Description     : Setup directive hooks
 37 
# Description     : Setup directive hooks
Line 223... Line 224...
223 
                        Verbose("ManifestFiles: Search in $dir");
 224 
                        Verbose("ManifestFiles: Search in $dir");
224 
                        next unless ( -d $dir );
 225 
                        next unless ( -d $dir );
225 
                        my @files = glob ( "$dir/${base_name}_*.deb" );
 226 
                        my @files = glob ( "$dir/${base_name}_*.deb" );
226 
                        next unless ( @files );
 227 
                        next unless ( @files );
227 
                        push @debian_file_path, @files;
 228 
                        push @debian_file_path, @files;
- 
 
 229 
                        $package_dirs{$package_dir}{used} = 1;
228 
                    }
 230 
                    }
229 
                }
 231 
                }
230 
            }
 232 
            }
231 
        }
 233 
        }
232 
 
 234 
 
233 
        ReportError ("Required Debain package not found: $base_name") unless @debian_file_path;
 235 
        ReportError ("Required Debain package not found: $base_name") unless @debian_file_path;
234 
        ReportError ("Multiple matching Debian Packages located") if ( $#debian_file_path > 0 );
 236 
        ReportError ("Multiple matching Debian Packages located: $base_name", @debian_file_path ) if ( $#debian_file_path > 0 );
235 
        return $debian_file_path[0];
 237 
        return $debian_file_path[0];
236 
    }
 238 
    }
237 
 
 239 
 
238 
    #-------------------------------------------------------------------------------
 240 
    #-------------------------------------------------------------------------------
239 
    # Function        : LocateMugDir
 241 
    # Function        : LocateMugDir
Line 387... Line 389...
387 
    #
 389 
    #
388 
    print_mf ("#");
 390 
    print_mf ("#");
389 
    print_mf ("# End of File");
 391 
    print_mf ("# End of File");
390 
    close MF;
 392 
    close MF;
391 
    ErrorDoExit();
 393 
    ErrorDoExit();
- 
 
 394 
 
- 
 
 395 
    #
- 
 
 396 
    #   Sanity test of packages that did not provide a debian file
- 
 
 397 
    #   Just a hint that something may have been missed
- 
 
 398 
    #
- 
 
 399 
    my @not_used_packages;
- 
 
 400 
    foreach my $package_dir ( getPackagePaths ('--All') )
- 
 
 401 
    {
- 
 
 402 
        next if ( $package_dir =~ m~/manifest-tool/~ );
- 
 
 403 
        unless ( exists $package_dirs{$package_dir}{used} )
- 
 
 404 
        {
- 
 
 405 
            push @not_used_packages, $package_dir;
- 
 
 406 
        }
- 
 
 407 
    }
- 
 
 408 
    if ( @not_used_packages )
- 
 
 409 
    {
- 
 
 410 
        Warning ("Packages that did not contribute packages to the manifest:",
- 
 
 411 
                  @not_used_packages );
- 
 
 412 
    }
- 
 
 413 
 
392 
    return;
 414 
    return;
393 
 
 415 
 
394 
    #-------------------------------------------------------------------------------
 416 
    #-------------------------------------------------------------------------------
395 
    # Function        : print_mf
 417 
    # Function        : print_mf
396 
    #
 418 
    #