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
    #