WebSVN – DevTools – Diff – /debian_packager/branches/For_1.24.0000/src/tools/scripts/DebianPackager.pl



########################################################################
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
#
# Module name   : DebianPackager.pl
# Module type   : Makefile system
# Compiler(s)   : Perl
# Environment(s): jats

#                       Tar Gzip the image
#                       Transfer it to the users 'BIN' directory, where it is available to be packaged.
#
#                 Summary of directives available to the user-script:
#                       Message                 - Display progress text
#                       Verbose                 - Display progress text
#                       AddInitScript           - Add an init script
#                       CatFile                 - Append to a file
#                       ConvertFile             - Convert file(s) to Unix or Dos Text
#                       CopyDir                 - Copy directory tree
#                       CopyFile                - Copy a file
#                       CopyBinFile             - Copy an executable file
#                       CopyLibFile             - Copy a library file
#                       CopyDebPackage          - Copy a Debian Package
#                       CreateDir               - Create a directory
#                       AllFiles                - Specify control and script files 
#                       DebianFiles             - Specify control and script files (Debian Only)
#                       RpmFiles                - Specify control and script files (RPM Only)
#                       AllControlFile          - Specify control and script files
#                       DebianControlFile       - Specify control and script files (Debian Only)
#                       RpmControlFile          - Specify control and script files (RPM Only)
#                       AllDepends               - Add Depends entry to control file
#                       DebianDepends           - Add Depends entry to control file (Debian Only)
#                       RpmDepends              - Add Depends entry to control file (RPM Only)
 
#                       EchoFile                - Place text into a file
#                       MakeSymLink             - Create a symbolic link
#                       PackageDescription      - Specify the package description
#                       ReplaceTags             - Replace Tags on target file
#                       SetFilePerms            - Set file permissions

#                       IsVariant               - Flow control
#                       IsAlias                 - Flow control
#                       RpmSetDefAttr           - Specify default file properties (RPM Only)
#                       RpmSetAttr              - Specify file properties (RPM Only)    
#                       SetBaseDir              - Sets base for installed files (RPM Hint for directory ownership)
#                       Section                 - Set current section
#
#                 Thoughts for expansion:
#                       SrcDir                  - Extend path for resolving local files
#
#                   Less used:

use ArrayHashUtils;
use JatsError;
use JatsLocateFiles;
use ReadBuildConfig;
use JatsCopy ();                            # Don't import anything
use PackagerUtils;
 
#
#   Command line options
#
my $opt_debug   = $ENV{'GBE_DEBUG'};        # Allow global debug

my $opt_pkglibdir;
my $opt_pkgbindir;
my $opt_pkgpkgdir;
my $opt_noarch;
my $opt_tarFile;
my $opt_tarOnly;
my $opt_rpm = 0;
my $opt_debian = 0;
my $opt_output;
 
#

my @ConfigList;                             # Config Files
my %opt_aliases;                            # Cached Alias Names
my @RpmDefAttr = ('-','root','root','-');   # RPM: Default File Attributes
my @RpmAttrList;                            # RPM: File attributes
my %OwnedDirs;                              # RPM: Dirs marked as owned
 
my $ActiveSection = 1;                      # Indicates if the section is active
 
#-------------------------------------------------------------------------------
# Function        : Main Entry point
#
# Description     : This function will be called when the package is initialised

                'PackagePkgDir=s'   => \$opt_pkgpkgdir,
                'Variant:s'         => \$opt_variant,
                'PkgArch:s'         => \$opt_pkgarch,
                'NoArch'            => \$opt_noarch,
                'tarFile=s'         => \$opt_tarFile,
                'tarOnly'           => \$opt_tarOnly,
                'genRpm'            => \$opt_rpm,
                'genDeb'            => \$opt_debian,
                'output=s'          => \$opt_output,
                'script=s'          => \$opt_package_script,
                'rpmRelease=s'      => \$opt_rpmRelease,

    #   Defaults
    #
    $opt_pkgarch = $opt_platform unless ( $opt_pkgarch );
 
    #
    #   Determine build operations
    #   
    my $genDebian = $opt_debian;
    my $genRpm = $opt_rpm;
    if ($opt_tarOnly) {
        $genDebian = $genRpm = 0; 
    }
     
 
    #
    #   Display variables used
    #
    Message    ("= Building Installer ================================================");
    Message    ("        Format: Debian") if ($genDebian);
    Message    ("        Format: RPM") if ($genRpm);
    Message    ("        Format: TGZ") if ($opt_tarFile);
    Message    ("          Name: $opt_name");
    Message    ("       Package: $opt_buildname");
    Message    ("       Variant: $opt_variant") if ($opt_variant);
    Message    ("       Version: $opt_buildversion");

    Message    ("          Type: $opt_type");
    Message    ("   RPM Release: $opt_rpmRelease") if ($opt_rpmRelease);
    Message    ("      Pkg Arch: $opt_pkgarch") if ($opt_pkgarch);
    Verbose    ("       Verbose: $opt_verbose");
    Verbose    ("  InterfaceDir: $opt_interfacedir");
    Message    ("        Output: " . StripDir($opt_output))  if ($genDebian || $genRpm);
    Message    ("        Output: " . StripDir($opt_tarFile)) if $opt_tarFile;
    Message    ("======================================================================");
 
    #
    #   Perform Clean up

    #   Invoke the user script to do the hard work
    #
    unless (my $return = do $opt_package_script) {
            Error ("Couldn't parse $opt_package_script: $@") if $@;
            Error ("Couldn't do $opt_package_script: $!") unless defined $return;
        };
    $ActiveSection = 1;
 
    #
    #   Now have an image of the directory that we wish to package
    #   Complete the building of the package
    #
    if ($opt_tarFile) {
 
        BuildTarFile();
        Message ("Created TGZ file");
    }
 
    #
    #   Create an RPM
    #
    if ($genRpm) {
 
        BuildRPM ();
        Message ("Created RPM");
    }
 
    #
    #   Create a Debian Package
    #
    if ($genDebian) {
        BuildDebianPackage ();
        Message ("Created Debian Package");
    }
}
 

            '--file', $opt_tarFile,
            '.'
            );
}
 
#-------------------------------------------------------------------------------
# Function        : Section 
#
# Description     : Allows the Package file to be split into section
#                   This direcive is always active.
#
# Inputs          : Selector
#                       ALL     - Active
#                       RPM     - Active section when building an RPM
#                       DEBIAN  - Active section if build a Debian package
#                       TAR     - Active section if building a TAR
#
# Returns         : Nothing
#                   Will fkag to indicate if directives are active. 
#
sub Section
{
    my $newActiveSection;
    my $flip = sub {
        my ($val, $mode) = @_;
        if ( defined $mode) {
            return $val ? 0 : 1;
        }
        return $val;
    };
 
    $newActiveSection = 1 unless (@_);
    foreach my $arg ( @_)
    {
        if ($arg =~ m/^(!)*DEBIAN/i) {
            $newActiveSection = 1 if  $flip->($opt_debian, $1);
 
        } elsif ($arg =~ m/^(!)*RPM/i) {
            $newActiveSection = 1 if  $flip->($opt_rpm, $1);
 
        } elsif ($arg =~ m/^(!)*TAR/i) {
            $newActiveSection = 1 if $flip->($opt_tarFile, $1);
 
        } elsif (uc($arg) eq 'ALL') {
            $newActiveSection = 1;
 
        } elsif ( $arg eq 1  ) {
                $newActiveSection = 1;
 
        } elsif ( $arg eq 0  ) {
 
        } else {
            Warning ("Section: Unknown argument $arg");
        }
    }
 
    $ActiveSection = $newActiveSection ? 1: 0;
    Verbose ("Section State: $ActiveSection");
 
}
 
#-------------------------------------------------------------------------------
# Function        : UpdateDebianControlFile
#
# Description     : Update the Debian 'control' file to fix up various fields

# Returns         : Nothing
#
sub UpdateDebianControlFile
{
    my($src) = @_;
    return 1 unless ($ActiveSection);
    my $dst = "$WorkDirInit/DEBIAN/control";
 
    unless ( $src )
    {
        CreateDebianControlFile();

#
# Returns         : 
#
sub CreateDebianControlFile
{
    return 1 unless ($ActiveSection);
    my $dst = "$WorkDirInit/DEBIAN/control";
 
    Verbose ("CreateDebianControlFile: $dst" );
 
    my $depData = join (', ', @DependencyList );

# Returns         : Nothing
#
sub UpdateRedHatControlFile
{
    my($src) = @_;
    return 1 unless ($ActiveSection);
    my $dst = $opt_specFile;
    unless ( $src )
    {
        CreateRedHatControlFile();
        return;

    print $sf ("# Standard SPEC Tags\n");
    print $sf "Summary:        Installer for the $opt_name Package\n";
    print $sf "Name:           $opt_name\n";
    print $sf "Version:        $opt_buildversion\n";
    print $sf "Release:        $opt_rpmRelease\n";
    print $sf "License:        COPYRIGHT - VIX IP PTY LTD (\"VIX\"). ALL RIGHTS RESERVED.\n";
    print $sf "Source:         None\n";
    print $sf "BuildArch:      $opt_pkgarch\n";
    print $sf "Group:          VIX/System\n";
    print $sf "Vendor:         Vix Technology\n";
    print $sf "Autoreq:        No\n";

            close ($cf);
            print $sf "\n";
        }
    };
    
    #   Run the PreInstall script as %pretrans
    #       %pretrans is the only script that can terminate the RPM installation
    &$insertRpmControlFile ('pretrans', 'preinst');
    &$insertRpmControlFile ('post',     'postinst');
    &$insertRpmControlFile ('preun',    'prerm');
    &$insertRpmControlFile ('postun',   'postrm');
 
    #
    #   Insert the list of files to be processed
    #       Can't use /* as this will mess with permissions of the root directory. 
    #       Can list Top Level directories and then use *

#
# Returns         : 
#
sub SetVerbose
{
    return 1 unless ($ActiveSection);
    my ($level) = @_;
 
    $level = $opt_verbose unless ( $level );
    $opt_verbose = $level;
    ErrorConfig( 'verbose' => $level);

#                   Sets $WorkDir
#
sub SetBaseDir
{
    my ($path, @opts) = @_;
    return 1 unless ($ActiveSection);
    
    my $rootdir = $path || '/';
    $rootdir = '/' . $rootdir;
    $rootdir =~ s~/+~/~g; 
    Verbose ("Setting RootDir: $rootdir");

}
 
#-------------------------------------------------------------------------------
# Function        : DebianFiles
#                   RpmFiles
#                   AllFiles
#
# Description     : Name Debian and RPM builder control files
#                   May be called multiple times
#
# Inputs          :   $fName    - Name under which the function is being called

#                       --Control=file
#                       --PreRm=file
#                       --PostRm=file
#                       --PreInst=file
#                       --PostInst=file
#                       --SimpleSharedLibs
#                         
#
# Returns         : Nothing
#
sub MULTI_Files
{
    my $fName = shift;
    return 1 unless ($ActiveSection);
    Verbose ("Specify Installer Control Files and Scripts");
    foreach  ( @_ )
    {
        if ( m/^--Control=(.+)/i ) {
            MULTI_ControlFile($fName, 'control',$1)

            MULTI_ControlFile($fName, 'preinst',$1)
 
        } elsif ( m/^--PostInst=(.+)/i ) {
            MULTI_ControlFile($fName, 'postinst',$1)
 
        } elsif ( m/^--SimpleSharedLibs/i ) {
 
            my $file = catfile($WorkDirBase, 'ldconfig.sh' );
 
            open (my $df, '>', $file) || Error ("$fName: Cannot create:$file");
            print $df "#!/bin/sh\n";
            print $df "/sbin/ldconfig\n";
            print $df "exit 0\n";
            close $df;
 
            MULTI_ControlFile($fName, 'postinst',$file);
            MULTI_ControlFile($fName, 'postrm',$file);
 
        } else {
            Error ("$fName: Unknown option: $_");
        }
    }
}
 
#-------------------------------------------------------------------------------
# Function        : DebianControlFile
#                   RpmControlFile 
#                   AllControlFile
#
# Description     : Add special control files to the Debian/RedHat Installer 
#                   Not useful for embedded installers
#
#                   More general than DebianFiles() or RpmFiles

# Returns         : 
#
sub MULTI_ControlFile
{
    my ($fName, $name, $file, @options) = @_;
    return 1 unless ($ActiveSection);
    my $fromPackage = 0;
 
    #
    #   Process options
    foreach ( @options)

}
 
#-------------------------------------------------------------------------------
# Function        : DebianDepends 
#                   RpmDepends
#                   AllDepends
#
# Description     : This directive allows simple dependency information to be  
#                   inserted into the control file
#                   
#                   Names will be massaged into conforming names.
#
#                   Not useful in embedded system
#
# Inputs          : Entry             - A dependency entry
#                   ...               - More entries
#                   Options
#                       --Raw          - Prevent name modification
#                       --NoRaw        - Enable name modification
#                   
#
# Returns         : Nothing
#
sub MULTI_Depends
{
    return 1 unless ($ActiveSection);
    shift;
    my $raw = 0;
 
    #
    #   Convert the provided name into a canonical name
    #   Simplifies use when using both RPM and Debian
    foreach ( @_)
    {
        if (m~^--(No)?Raw~i) {
            $raw = ! defined($1);
            next;
        }
        my $name = $_;
        $name = canonicalName($_, $opt_rpm ? 'RPM' : 'DEBIAN' , 1) unless $raw;
        push @DependencyList, $name;
    }
    
}
 
#-------------------------------------------------------------------------------
# Function        : PackageDescription
#

#
# Returns         : 
#
sub PackageDescription
{
    return 1 unless ($ActiveSection);
    ($opt_description) = @_;
}
 
#-------------------------------------------------------------------------------
# Function        : MakeSymLink

sub MakeSymLink
{
    my $no_clean;
    my $no_dot;
    my @args;
    return 1 unless ($ActiveSection);
 
    #
    #   Extract options
    #
    foreach ( @_ )

#
# Returns         : Full path to destination file
#
sub CopyFile
{
    return 1 unless ($ActiveSection);
    CopyFileCommon( \&ResolveFile, @_ );
}
 
#-------------------------------------------------------------------------------
# Function        : CopyBinFile

#                   Options:
#                       --FromPackage
#                       --SoftLink=xxxx
#                       --LinkFile=xxxx
#
 
# Returns         : Full path to destination file
#
sub CopyBinFile
{
    return 1 unless ($ActiveSection);
    CopyFileCommon( \&ResolveBinFile, @_ );
}
 
#-------------------------------------------------------------------------------
# Function        : CopyLibFile

#                   The routine will also recognize Windows DLLs
#                   These are of the form fred[P|D|].nnnnn.dll
#
sub CopyLibFile
{
    return 1 unless ($ActiveSection);
    CopyFileCommon( \&ResolveLibFile, @_ );
}
 
#-------------------------------------------------------------------------------
# Function        : CopyDebianPackage

#                       - bin/Arch[P|D]
#
#
sub CopyDebianPackage
{
    return 1 unless ($ActiveSection);
    CopyFileCommon( \&ResolveDebPackage, '--FromPackage', @_ );
}
 
#-------------------------------------------------------------------------------
# Function        : CopyFileCommon

#                       --FromPackage
#                       --FromBuild
#                       --SoftLink=xxxx
#                       --LinkFile=xxxx
#                       --ConfFile
#                       --Platform=xxxx[,yyyyy]
#
# Returns         : 
#
sub CopyFileCommon
{
    my $from_package = 0;
    my $isa_linkfile = 0;
    my $isa_configFile = 0;
    my @llist;
    my @args;
    my @platforms;
 
    #
    #   Parse options
    #
    foreach ( @_ )

            $isa_configFile = 1;
 
        } elsif ( m/^--SoftLink=(.+)/ ) {
            push @llist, $1;
 
        } elsif ( m/^--Platform=(.+)/ ) {
            push @platforms, split(',', $1 );
 
        } elsif ( m/^--/ ) {
            Error ("FileCopy: Unknown option: $_");
 
        } else {
            push @args, $_;

    $dst_dir = "/$dst_dir/";
    $dst_dir =~ s~/+~/~g;
    $dst_dir =~ s~/$~~;
 
    Verbose ("CopyFile: $src, $dst_dir, " . ($dst_name || ''));
    foreach $src ( &$resolver( $from_package, $src, \@platforms ) )
    {
        my $dst_fname = $dst_name ? $dst_name : StripDir($src);
        my $dst_file = "$dst_dir/$dst_fname";
        Verbose ("CopyFile: Copy $src, $dst_file" );
        

    my $user_src_dir = $src_dir;
    my $opt_source;
    my $opt_package;
    my @fileList;
    my $isFiltered;
    return 1 unless ($ActiveSection);
 
    #
    #   Setup the basic copy options
    #       May be altered as we parse user options
    #

{
    my $no_copy;
    my $basedir = "";
    my @args;
    my $from_package = 0;
    return 1 unless ($ActiveSection);
 
    # This directive is only available on the VIX platforms
    #   Kludgey test - at the moment
    #
    if ($opt_pkgarch =~ m~i386~)

# Returns         :
#
sub CatFile
{
    my ($src, $dst) = @_;
    return 1 unless ($ActiveSection);
 
    $dst = $WorkDir . '/' . $dst;
    $dst =~ s~//~/~;
    Verbose ("CatFile: $src, $dst");
    $src = ResolveFile(0, $src );

# Returns         : 
#
sub EchoFile
{
    my ($file, $text) = @_;
    return 1 unless ($ActiveSection);
    Verbose ("EchoFile: $file");
 
    $file = $WorkDir . '/' . $file;
    $file =~ s~//~/~;
 

# Returns         : 1
#
sub ConvertFiles
{
    my @uargs;
    return 1 unless ($ActiveSection);
    my $lineEnding = "\n";
    my ($dosSet, $unixSet);
    my $search =  JatsLocateFiles->new( '--NoRecurse' );
 
    #

#
# Returns         : 1
#
sub ReplaceTags
{
    return 1 unless ($ActiveSection);
    my @uargs;
    my $search =  JatsLocateFiles->new( '--NoRecurse' );
    my @tagsList;
    my $tagSep = ',';
    my @tagOrder;

# Returns         : 
#
sub SetFilePerms
{
 
    return 1 unless ($ActiveSection);
    my @args;
    my $perms;
    my $recurse = 0;
 
    #

#                               the filter will be applied when it comes time to chmod the dir 
#
#------------------------------------------------------------------------------
sub SetPermissions
{
    return 1 unless ($ActiveSection);
    my ( $path, $filePerms, $dirPerms, $someDone );
    my ( $rootOnly, $skipRoot ) = ( 0, 0 );
    
    my $search =  JatsLocateFiles->new( '--Recurse', '--DirsToo' );
 

# Returns         : Nothing
#
sub CreateDir
{
    my ($path, @opts) = @_;
    return 1 unless ($ActiveSection);
    Verbose ("Create Dir: $path");
    my $owner  = 0;
    foreach ( @opts) {
        if (m~^--Owner~i ) {
            $owner = 1;

#                       The default group id.
#                       The default permissions, or "mode" for directories.
#                   
sub RpmSetDefAttr
{
    return 1 unless ($ActiveSection);
    return 1 unless $opt_rpm;
    my @args = @_;
    Error ("RpmSetDefAttr: Expecting 4 arguments") if (scalar @args ne 4);
    @RpmDefAttr = @_;
    return 1;

#                   $user - user name to place on the file  (optional)
#                   $group  - group name to place eon the file (optional)
#
sub RpmSetAttr
{
    return 1 unless ($ActiveSection);
    return 1 unless $opt_rpm;
    my ($file, $mode, $user, $group, @extra) = @_;
    Error ("RpmSetAttr: Too many arguments") if @extra;
 
    #

# Function        : IsProduct
#                   IsPlatform
#                   IsTarget
#                   IsVariant
#                   IsAlias
#                   IsDebian
#                   IsRpm
#                   IsTar
#
# Description     : This function allows some level of control in the
#                   packaging scripts. It will return true if the current
#                   product is listed.
#

    #
    Error("IsAlias not supported in this version of JATS")
        unless (defined &ReadBuildConfig::getAliases);
    #
    #   Create an hash of aliases to simplify testing
    #   Do it once and cache the results
    #
    unless (%opt_aliases) {
        %opt_aliases = map { $_ => 1 } getAliases();
    }
 

        return 1 if ( exists $opt_aliases{$_} );
    }
    return 0;
}
 
sub IsDebian()
{
    return $opt_debian ? 1 : 0;
}
 
sub IsRpm()
{
    return $opt_rpm ? 1 : 0;
}
 
sub IsTar()
{
    return $opt_tarFile ? 1 : 0;
}
 
 
#************ INTERNAL USE ONLY  **********************************************
# Function        : FindFiles
#
# Description     : Locate files within a given dir tree

# Returns         : Nothing
#                   Will remove .LINKS files that are processed
#
sub ExpandLinkFiles
{
    return 1 unless ($ActiveSection);
    foreach my $linkfile ( FindFiles( $WorkDir, ".LINKS" ))
    {
        next if ( $linkfile =~ m~/\.svn/~ );
        my $BASEDIR = StripFileExt( $linkfile );
        $BASEDIR =~ s~^$WorkDir/~~;

#
#                   Will scan 'parts' subdirs
#
# Inputs          : $from_package       - 0 - Local File
#                   $file
#                   $refPlatforms       - Not used
#
# Returns         : Path
#
#************ INTERNAL USE ONLY  **********************************************
sub ResolveFile
{
    my ($from_package, $file,$refPlatforms) = @_;
    my $wildcard = ($file =~ /[*?]/);
    my @path;
 
    #
    #   Determine the paths to search

    else
    {
        @path = ('.', $opt_localincdir);
    }
 
 
    #   Determine a full list of 'parts' to search
    #       Default: Provided within the build information
    #       User   : Can provide a list
    my @parts = getPlatformPartsList($refPlatforms);
 
 
    my @done;
    foreach my $root (  @path )
    {
        foreach my $subdir ( @parts )

                push @done, $sfile if ( -f $sfile || -l $sfile )
            }
        }
    }
 
    DisplaySearchPath('ResolveFile', $file, \@parts, undef, \@path) unless (@done) ;
 
 
    Warning ("ResolveFile: Multiple instances of file found. Only first is used", @done)
        if ( $#done > 0 && ! $wildcard && !wantarray );
 
    return wantarray ? @done : $done[0];

#                       Local Include
#                   Or  (FromPackage)
#                       Our Package directory
#                       Interface directory (BuildPkgArchives)
#                       Packages (LinkPkgArchive)
#                   Will scan 'parts' subdirs (default)
#                   May scan user-provided parts (cross platform packaging)
#
# Inputs          : $from_package       - 0 - Local File
#                   $file
#                   $refPlatforms       - (optional) Ref to an array of platforms to scan
#
# Returns         : Path
#
sub ResolveBinFile
{
    my ($from_package, $file, $refPlatforms) = @_;
    my @path;
    my @types;
    my $wildcard = ($file =~ /[*?]/);
 
    #

        @types = '';
    }
 
    #
    #   Determine a full list of 'parts' to search
    #       Default: Provided within the build information
    #       User   : Can provide a list
    #
    my @parts = getPlatformPartsList($refPlatforms);
 
 
    my @done;
    foreach my $root (  @path )
    {
        foreach my $subdir ( @parts )

                }
            }
        }
    }
 
    #
    #   Pretty display the search path - on error
    #       Will not return.
    #
    DisplaySearchPath('ResolveBinFile', $file, \@parts, \@types, \@path) unless (@done) ;
 
    if ( $#done > 0 && ! $wildcard )
    {
        Warning ("ResolveBinFile: Multiple instances of file found. Only first is used", @done);
        splice (@done, 1);

#                                     Do not provide 'lib' or '.so' or version info
#                                     May contain embedded options
#                                       --Dll           - Use Windows style versioned DLL
#                                       --VersionDll    - Use the versioned DLL
#                                       --3rdParty      - Use exact name provided
#                   $refPlatforms       - Ref to an array of platforms to scan
#
# Returns         : Path
#
sub ResolveLibFile
{
    my ($from_package, $file, $refPlatforms) = @_;
    my $wildcard = ($file =~ /[*?]/);
    my @options;
    my $num_dll;
    my @types;
    my @path;
    #
    #   Extract options from file
    #
    $num_dll = 0;

    else
    {
        @path = ($opt_libdir, $opt_locallibdir);
    }
 
 
    #   Determine a full list of 'parts' to search
    #       Default: Provided within the build information
    #       User   : Can provide a list
    my @parts = getPlatformPartsList($refPlatforms);
 
    @types = ( $opt_type, '');
 
    my @done;
    foreach my $root (  @path )
    {
        foreach my $type ( @types )
        {
            foreach my $subdir ( @parts )
            {
                my $sfile;
                my $exact;

                }
            }
        }
    }
 
    DisplaySearchPath('ResolveLibFile', $file, \@parts, \@types, \@path) unless (@done) ;
 
 
    if ( $#done > 0 && ! $wildcard )
    {
        Warning ("ResolveLibFile: Multiple instances of file found. Only first is used", @done);
        splice (@done, 1);

#
# Inputs          : $from_package   - 0:Local File
#                   $baseName       - Basename for a 'DebianPackage'
#                                     Do not provide version info, architecture or suffix
#                                     May contain embedded options
#                                       --Arch=XXX      - Specify alternate architcuture
#                                       --Product=YYYY  - Specify product family
#                                       --Debug         - Use alternate build type
#                                       --Prod          - Use alternate build type
#                   $refPlatforms       - Ref to an array of platforms to scan
#
# Returns         : Path
#
sub ResolveDebPackage
{
    my ($from_package, $file, $refPlatforms) = @_;
    my @path;
    my $arch;
    my $product;
    my $buildType;
    my @types;

    if (defined $product) {
        $file .= ( '_' . $product)
        }
    $file .= '_' . $arch;
 
 
    #   Determine a full list of 'parts' to search
    #       Default: Provided within the build information
    #       User   : Can provide a list
    my @parts = getPlatformPartsList($refPlatforms);
 
 
    my @done;
    foreach my $root (  @path )
    {
        foreach my $subdir ( @parts )

                }
            }
        }
    }
 
    DisplaySearchPath('ResolveDebPackage', $file, \@parts, \@types, \@path) unless (@done) ;
 
 
    if ( $#done > 0 )
    {
        Error ("ResolveDebPackage: Multiple instances of Package found.", @done);
    }
    return wantarray ? @done : $done[0];
}
 
#-------------------------------------------------------------------------------
# Function        : prettyArray 
#
# Description     : Generate a quoted string from an array
#
# Inputs          : Array Ref
#
# Returns         : A string
#
sub prettyArray
{
    my ($arrayRef) = @_;
    return join(',', map { qq!"$_"! }  @{$arrayRef})
}
 
#-------------------------------------------------------------------------------
# Function        : DisplaySearchPath 
#
# Description     : Pretty display of the search path
#                   Error display
#
# Inputs          : $name   - Function Name
#                   $file   - Base filename being searched
#                   $parts  - Ref to array of parts searched
#                   $types  - Ref to array of types searched - may be undef
#                   $path   - Ref to array of paths searched
#
# Returns         : Will not return
#
sub DisplaySearchPath
{
    my ($name, $file, $parts, $types, $path) = @_;
    my @text;
 
    push @text, $name . ': File not found: ' . $file;
    push @text, 'Search Platforms: ' . prettyArray($parts);
    push @text, 'Search Types: ' . prettyArray($types) if defined $types;
    push @text, 'Search Path:', @$path;
    Error (@text);
}
 
#-------------------------------------------------------------------------------
# Function        : getPlatformPartsList  
#
# Description     : Determine a full list of 'parts' to search
#                       Default: Provided within the build information
#                       User   : Can provide a list
#
# Inputs          : $refPlatforms - Ref to an array of user provided platforms
#                                   If provided will override the internal list
#
# Returns         : An array 
#
sub getPlatformPartsList
{
    my ($refPlatforms) = @_;
    my @parts;
 
    if ($refPlatforms && scalar @{$refPlatforms}) {
        @parts = @{$refPlatforms};
 
    } else {
        @parts = getPlatformParts ();
    }
    push @parts, '';
    return @parts;
}
 
#-------------------------------------------------------------------------------
# Function        : AUTOLOAD
#
# Description     : Intercept unknown user directives and issue a nice error message
#                   This is a simple routine to report unknown user directives
#                   It does not attempt to distinguish between user errors and

Rev 6859	Rev 6861
Line 1...	Line 1...
1	`########################################################################`	1	`########################################################################`
2	`# Copyright (c) VIX TECHNOLOGY (AUST) LTD`	2	`# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.`
3	`#`	3	`#`
4	`# Module name : DebianPackager.pl`	4	`# Module name : DebianPackager.pl`
5	`# Module type : Makefile system`	5	`# Module type : Makefile system`
6	`# Compiler(s) : Perl`	6	`# Compiler(s) : Perl`
7	`# Environment(s): jats`	7	`# Environment(s): jats`
Line 36...	Line 36...
36	`# Tar Gzip the image`	36	`# Tar Gzip the image`
37	`# Transfer it to the users 'BIN' directory, where it is available to be packaged.`	37	`# Transfer it to the users 'BIN' directory, where it is available to be packaged.`
38	`#`	38	`#`
39	`# Summary of directives available to the user-script:`	39	`# Summary of directives available to the user-script:`
40	`# Message - Display progress text`	40	`# Message - Display progress text`
-		41	`# Verbose - Display progress text`
41	`# AddInitScript - Add an init script`	42	`# AddInitScript - Add an init script`
42	`# CatFile - Append to a file`	43	`# CatFile - Append to a file`
43	`# ConvertFile - Convert file(s) to Unix or Dos Text`	44	`# ConvertFile - Convert file(s) to Unix or Dos Text`
44	`# CopyDir - Copy directory tree`	45	`# CopyDir - Copy directory tree`
45	`# CopyFile - Copy a file`	46	`# CopyFile - Copy a file`
46	`# CopyBinFile - Copy an executable file`	47	`# CopyBinFile - Copy an executable file`
47	`# CopyLibFile - Copy a library file`	48	`# CopyLibFile - Copy a library file`
48	`# CopyDebPackage - Copy a Debian Package`	49	`# CopyDebPackage - Copy a Debian Package`
49	`# CreateDir - Create a directory`	50	`# CreateDir - Create a directory`
-		51	`# AllFiles - Specify control and script files`
50	`# DebianFiles - Specify control and script files (Debian Only)`	52	`# DebianFiles - Specify control and script files (Debian Only)`
51	`# RpmFiles - Specify control and script files (RPM Only)`	53	`# RpmFiles - Specify control and script files (RPM Only)`
-		54	`# AllControlFile - Specify control and script files`
52	`# DebianControlFile - Specify control and script files (Debian Only)`	55	`# DebianControlFile - Specify control and script files (Debian Only)`
53	`# RpmControlFile - Specify control and script files (RPM Only)`	56	`# RpmControlFile - Specify control and script files (RPM Only)`
54	`# AllControlFile - Specify control and script files (Debian and RPM)`	57	`# AllDepends - Add Depends entry to control file`
55	`# DebianDepends - Add Depends entry to control file (Debian Only)`	58	`# DebianDepends - Add Depends entry to control file (Debian Only)`
56	`# RpmDepends - Add Depends entry to control file (RPM Only)`	59	`# RpmDepends - Add Depends entry to control file (RPM Only)`
57	`# AllDepends - Add Depends entry to control file (Debian and RPM)`	-
58	`# EchoFile - Place text into a file`	60	`# EchoFile - Place text into a file`
59	`# MakeSymLink - Create a symbolic link`	61	`# MakeSymLink - Create a symbolic link`
60	`# PackageDescription - Specify the package description`	62	`# PackageDescription - Specify the package description`
61	`# ReplaceTags - Replace Tags on target file`	63	`# ReplaceTags - Replace Tags on target file`
62	`# SetFilePerms - Set file permissions`	64	`# SetFilePerms - Set file permissions`
Line 67...	Line 69...
67	`# IsVariant - Flow control`	69	`# IsVariant - Flow control`
68	`# IsAlias - Flow control`	70	`# IsAlias - Flow control`
69	`# RpmSetDefAttr - Specify default file properties (RPM Only)`	71	`# RpmSetDefAttr - Specify default file properties (RPM Only)`
70	`# RpmSetAttr - Specify file properties (RPM Only)`	72	`# RpmSetAttr - Specify file properties (RPM Only)`
71	`# SetBaseDir - Sets base for installed files (RPM Hint for directory ownership)`	73	`# SetBaseDir - Sets base for installed files (RPM Hint for directory ownership)`
-		74	`# Section - Set current section`
72	`#`	75	`#`
73	`# Thoughts for expansion:`	76	`# Thoughts for expansion:`
74	`# SrcDir - Extend path for resolving local files`	77	`# SrcDir - Extend path for resolving local files`
75	`#`	78	`#`
76	`# Less used:`	79	`# Less used:`
Line 96...	Line 99...
96	`use ArrayHashUtils;`	99	`use ArrayHashUtils;`
97	`use JatsError;`	100	`use JatsError;`
98	`use JatsLocateFiles;`	101	`use JatsLocateFiles;`
99	`use ReadBuildConfig;`	102	`use ReadBuildConfig;`
100	`use JatsCopy (); # Don't import anything`	103	`use JatsCopy (); # Don't import anything`
-		104	`use PackagerUtils;`
101		105
102	`#`	106	`#`
103	`# Command line options`	107	`# Command line options`
104	`#`	108	`#`
105	`my $opt_debug = $ENV{'GBE_DEBUG'}; # Allow global debug`	109	`my $opt_debug = $ENV{'GBE_DEBUG'}; # Allow global debug`
Line 122...	Line 126...
122	`my $opt_pkglibdir;`	126	`my $opt_pkglibdir;`
123	`my $opt_pkgbindir;`	127	`my $opt_pkgbindir;`
124	`my $opt_pkgpkgdir;`	128	`my $opt_pkgpkgdir;`
125	`my $opt_noarch;`	129	`my $opt_noarch;`
126	`my $opt_tarFile;`	130	`my $opt_tarFile;`
-		131	`my $opt_tarOnly;`
127	`my $opt_rpm = 0;`	132	`my $opt_rpm = 0;`
128	`my $opt_debian = 0;`	133	`my $opt_debian = 0;`
129	`my $opt_output;`	134	`my $opt_output;`
130		135
131	`#`	136	`#`
Line 166...	Line 171...
166	`my @ConfigList; # Config Files`	171	`my @ConfigList; # Config Files`
167	`my %opt_aliases; # Cached Alias Names`	172	`my %opt_aliases; # Cached Alias Names`
168	`my @RpmDefAttr = ('-','root','root','-'); # RPM: Default File Attributes`	173	`my @RpmDefAttr = ('-','root','root','-'); # RPM: Default File Attributes`
169	`my @RpmAttrList; # RPM: File attributes`	174	`my @RpmAttrList; # RPM: File attributes`
170	`my %OwnedDirs; # RPM: Dirs marked as owned`	175	`my %OwnedDirs; # RPM: Dirs marked as owned`
171		-
-		176	`my $ActiveSection = 1; # Indicates if the section is active`
172		177
173	`#-------------------------------------------------------------------------------`	178	`#-------------------------------------------------------------------------------`
174	`# Function : Main Entry point`	179	`# Function : Main Entry point`
175	`#`	180	`#`
176	`# Description : This function will be called when the package is initialised`	181	`# Description : This function will be called when the package is initialised`
Line 211...	Line 216...
211	`'PackagePkgDir=s' => \$opt_pkgpkgdir,`	216	`'PackagePkgDir=s' => \$opt_pkgpkgdir,`
212	`'Variant:s' => \$opt_variant,`	217	`'Variant:s' => \$opt_variant,`
213	`'PkgArch:s' => \$opt_pkgarch,`	218	`'PkgArch:s' => \$opt_pkgarch,`
214	`'NoArch' => \$opt_noarch,`	219	`'NoArch' => \$opt_noarch,`
215	`'tarFile=s' => \$opt_tarFile,`	220	`'tarFile=s' => \$opt_tarFile,`
-		221	`'tarOnly' => \$opt_tarOnly,`
216	`'genRpm' => \$opt_rpm,`	222	`'genRpm' => \$opt_rpm,`
217	`'genDeb' => \$opt_debian,`	223	`'genDeb' => \$opt_debian,`
218	`'output=s' => \$opt_output,`	224	`'output=s' => \$opt_output,`
219	`'script=s' => \$opt_package_script,`	225	`'script=s' => \$opt_package_script,`
220	`'rpmRelease=s' => \$opt_rpmRelease,`	226	`'rpmRelease=s' => \$opt_rpmRelease,`
Line 264...	Line 270...
264	`# Defaults`	270	`# Defaults`
265	`#`	271	`#`
266	`$opt_pkgarch = $opt_platform unless ( $opt_pkgarch );`	272	`$opt_pkgarch = $opt_platform unless ( $opt_pkgarch );`
267		273
268	`#`	274	`#`
-		275	`# Determine build operations`
-		276	`#`
-		277	`my $genDebian = $opt_debian;`
-		278	`my $genRpm = $opt_rpm;`
-		279	`if ($opt_tarOnly) {`
-		280	`$genDebian = $genRpm = 0;`
-		281	`}`
-		282
-		283
-		284	`#`
269	`# Display variables used`	285	`# Display variables used`
270	`#`	286	`#`
271	`Message ("= Building Installer ================================================");`	287	`Message ("= Building Installer ================================================");`
272	`Message (" Format: Debian") if ($opt_debian);`	288	`Message (" Format: Debian") if ($genDebian);`
273	`Message (" Format: RPM") if ($opt_rpm);`	289	`Message (" Format: RPM") if ($genRpm);`
274	`Message (" Format: TGZ") if ($opt_tarFile);`	290	`Message (" Format: TGZ") if ($opt_tarFile);`
275	`Message (" Name: $opt_name");`	291	`Message (" Name: $opt_name");`
276	`Message (" Package: $opt_buildname");`	292	`Message (" Package: $opt_buildname");`
277	`Message (" Variant: $opt_variant") if ($opt_variant);`	293	`Message (" Variant: $opt_variant") if ($opt_variant);`
278	`Message (" Version: $opt_buildversion");`	294	`Message (" Version: $opt_buildversion");`
Line 282...	Line 298...
282	`Message (" Type: $opt_type");`	298	`Message (" Type: $opt_type");`
283	`Message (" RPM Release: $opt_rpmRelease") if ($opt_rpmRelease);`	299	`Message (" RPM Release: $opt_rpmRelease") if ($opt_rpmRelease);`
284	`Message (" Pkg Arch: $opt_pkgarch") if ($opt_pkgarch);`	300	`Message (" Pkg Arch: $opt_pkgarch") if ($opt_pkgarch);`
285	`Verbose (" Verbose: $opt_verbose");`	301	`Verbose (" Verbose: $opt_verbose");`
286	`Verbose (" InterfaceDir: $opt_interfacedir");`	302	`Verbose (" InterfaceDir: $opt_interfacedir");`
287	`Message (" Output: " . StripDir($opt_output));`	303	`Message (" Output: " . StripDir($opt_output)) if ($genDebian \|\| $genRpm);`
288	`Message (" Output: " . StripDir($opt_tarFile)) if $opt_tarFile;`	304	`Message (" Output: " . StripDir($opt_tarFile)) if $opt_tarFile;`
289	`Message ("======================================================================");`	305	`Message ("======================================================================");`
290		306
291	`#`	307	`#`
292	`# Perform Clean up`	308	`# Perform Clean up`
Line 335...	Line 351...
335	`# Invoke the user script to do the hard work`	351	`# Invoke the user script to do the hard work`
336	`#`	352	`#`
337	`unless (my $return = do $opt_package_script) {`	353	`unless (my $return = do $opt_package_script) {`
338	`Error ("Couldn't parse $opt_package_script: $@") if $@;`	354	`Error ("Couldn't parse $opt_package_script: $@") if $@;`
339	`Error ("Couldn't do $opt_package_script: $!") unless defined $return;`	355	`Error ("Couldn't do $opt_package_script: $!") unless defined $return;`
340	`}`	356	`};`
-		357	`$ActiveSection = 1;`
341		358
342	`#`	359	`#`
343	`# Now have an image of the directory that we wish to package`	360	`# Now have an image of the directory that we wish to package`
344	`# Complete the building of the package`	361	`# Complete the building of the package`
345	`#`	362	`#`
346	`if ($opt_tarFile)`	363	`if ($opt_tarFile) {`
347	`{`	-
348	`BuildTarFile();`	364	`BuildTarFile();`
349	`Message ("Created TGZ file");`	365	`Message ("Created TGZ file");`
350	`}`	366	`}`
351		367
352	`#`	368	`#`
353	`# Create an RPM`	369	`# Create an RPM`
354	`#`	370	`#`
355	`if ($opt_rpm)`	371	`if ($genRpm) {`
356	`{`	-
357	`BuildRPM ();`	372	`BuildRPM ();`
358	`Message ("Created RPM");`	373	`Message ("Created RPM");`
359	`}`	374	`}`
360		375
-		376	`#`
361	`if ($opt_debian)`	377	`# Create a Debian Package`
362	`{`	378	`#`
-		379	`if ($genDebian) {`
363	`BuildDebianPackage ();`	380	`BuildDebianPackage ();`
364	`Message ("Created Debian Package");`	381	`Message ("Created Debian Package");`
365	`}`	382	`}`
366	`}`	383	`}`
367		384
Line 498...	Line 515...
498	`'--file', $opt_tarFile,`	515	`'--file', $opt_tarFile,`
499	`'.'`	516	`'.'`
500	`);`	517	`);`
501	`}`	518	`}`
502		519
-		520	`#-------------------------------------------------------------------------------`
-		521	`# Function : Section`
-		522	`#`
-		523	`# Description : Allows the Package file to be split into section`
-		524	`# This direcive is always active.`
-		525	`#`
-		526	`# Inputs : Selector`
-		527	`# ALL - Active`
-		528	`# RPM - Active section when building an RPM`
-		529	`# DEBIAN - Active section if build a Debian package`
-		530	`# TAR - Active section if building a TAR`
-		531	`#`
-		532	`# Returns : Nothing`
-		533	`# Will fkag to indicate if directives are active.`
-		534	`#`
-		535	`sub Section`
-		536	`{`
-		537	`my $newActiveSection;`
-		538	`my $flip = sub {`
-		539	`my ($val, $mode) = @_;`
-		540	`if ( defined $mode) {`
-		541	`return $val ? 0 : 1;`
-		542	`}`
-		543	`return $val;`
-		544	`};`
-		545
-		546	`$newActiveSection = 1 unless (@_);`
-		547	`foreach my $arg ( @_)`
-		548	`{`
-		549	`if ($arg =~ m/^(!)*DEBIAN/i) {`
-		550	`$newActiveSection = 1 if $flip->($opt_debian, $1);`
-		551
-		552	`} elsif ($arg =~ m/^(!)*RPM/i) {`
-		553	`$newActiveSection = 1 if $flip->($opt_rpm, $1);`
-		554
-		555	`} elsif ($arg =~ m/^(!)*TAR/i) {`
-		556	`$newActiveSection = 1 if $flip->($opt_tarFile, $1);`
-		557
-		558	`} elsif (uc($arg) eq 'ALL') {`
-		559	`$newActiveSection = 1;`
-		560
-		561	`} elsif ( $arg eq 1 ) {`
-		562	`$newActiveSection = 1;`
-		563
-		564	`} elsif ( $arg eq 0 ) {`
-		565
-		566	`} else {`
-		567	`Warning ("Section: Unknown argument $arg");`
-		568	`}`
-		569	`}`
-		570
-		571	`$ActiveSection = $newActiveSection ? 1: 0;`
-		572	`Verbose ("Section State: $ActiveSection");`
-		573
-		574	`}`
503		575
504	`#-------------------------------------------------------------------------------`	576	`#-------------------------------------------------------------------------------`
505	`# Function : UpdateDebianControlFile`	577	`# Function : UpdateDebianControlFile`
506	`#`	578	`#`
507	`# Description : Update the Debian 'control' file to fix up various fields`	579	`# Description : Update the Debian 'control' file to fix up various fields`
Line 519...	Line 591...
519	`# Returns : Nothing`	591	`# Returns : Nothing`
520	`#`	592	`#`
521	`sub UpdateDebianControlFile`	593	`sub UpdateDebianControlFile`
522	`{`	594	`{`
523	`my($src) = @_;`	595	`my($src) = @_;`
-		596	`return 1 unless ($ActiveSection);`
524	`my $dst = "$WorkDirInit/DEBIAN/control";`	597	`my $dst = "$WorkDirInit/DEBIAN/control";`
525		598
526	`unless ( $src )`	599	`unless ( $src )`
527	`{`	600	`{`
528	`CreateDebianControlFile();`	601	`CreateDebianControlFile();`
Line 582...	Line 655...
582	`#`	655	`#`
583	`# Returns :`	656	`# Returns :`
584	`#`	657	`#`
585	`sub CreateDebianControlFile`	658	`sub CreateDebianControlFile`
586	`{`	659	`{`
-		660	`return 1 unless ($ActiveSection);`
587	`my $dst = "$WorkDirInit/DEBIAN/control";`	661	`my $dst = "$WorkDirInit/DEBIAN/control";`
588		662
589	`Verbose ("CreateDebianControlFile: $dst" );`	663	`Verbose ("CreateDebianControlFile: $dst" );`
590		664
591	`my $depData = join (', ', @DependencyList );`	665	`my $depData = join (', ', @DependencyList );`
Line 627...	Line 701...
627	`# Returns : Nothing`	701	`# Returns : Nothing`
628	`#`	702	`#`
629	`sub UpdateRedHatControlFile`	703	`sub UpdateRedHatControlFile`
630	`{`	704	`{`
631	`my($src) = @_;`	705	`my($src) = @_;`
-		706	`return 1 unless ($ActiveSection);`
632	`my $dst = $opt_specFile;`	707	`my $dst = $opt_specFile;`
633	`unless ( $src )`	708	`unless ( $src )`
634	`{`	709	`{`
635	`CreateRedHatControlFile();`	710	`CreateRedHatControlFile();`
636	`return;`	711	`return;`
Line 715...	Line 790...
715	`print $sf ("# Standard SPEC Tags\n");`	790	`print $sf ("# Standard SPEC Tags\n");`
716	`print $sf "Summary: Installer for the $opt_name Package\n";`	791	`print $sf "Summary: Installer for the $opt_name Package\n";`
717	`print $sf "Name: $opt_name\n";`	792	`print $sf "Name: $opt_name\n";`
718	`print $sf "Version: $opt_buildversion\n";`	793	`print $sf "Version: $opt_buildversion\n";`
719	`print $sf "Release: $opt_rpmRelease\n";`	794	`print $sf "Release: $opt_rpmRelease\n";`
720	`print $sf "License: Vix Technology, All rights reserved.\n";`	795	`print $sf "License: COPYRIGHT - VIX IP PTY LTD (\"VIX\"). ALL RIGHTS RESERVED.\n";`
721	`print $sf "Source: None\n";`	796	`print $sf "Source: None\n";`
722	`print $sf "BuildArch: $opt_pkgarch\n";`	797	`print $sf "BuildArch: $opt_pkgarch\n";`
723	`print $sf "Group: VIX/System\n";`	798	`print $sf "Group: VIX/System\n";`
724	`print $sf "Vendor: Vix Technology\n";`	799	`print $sf "Vendor: Vix Technology\n";`
725	`print $sf "Autoreq: No\n";`	800	`print $sf "Autoreq: No\n";`
Line 754...	Line 829...
754	`close ($cf);`	829	`close ($cf);`
755	`print $sf "\n";`	830	`print $sf "\n";`
756	`}`	831	`}`
757	`};`	832	`};`
758		833
759	`#`	834	`# Run the PreInstall script as %pretrans`
-		835	`# %pretrans is the only script that can terminate the RPM installation`
760	`&$insertRpmControlFile ('pre', 'preinst');`	836	`&$insertRpmControlFile ('pretrans', 'preinst');`
761	`&$insertRpmControlFile ('post', 'postinst');`	837	`&$insertRpmControlFile ('post', 'postinst');`
762	`&$insertRpmControlFile ('preun', 'prerm');`	838	`&$insertRpmControlFile ('preun', 'prerm');`
763	`&$insertRpmControlFile ('postun','postrm');`	839	`&$insertRpmControlFile ('postun', 'postrm');`
764		840
765	`#`	841	`#`
766	`# Insert the list of files to be processed`	842	`# Insert the list of files to be processed`
767	`# Can't use /* as this will mess with permissions of the root directory.`	843	`# Can't use /* as this will mess with permissions of the root directory.`
768	`# Can list Top Level directories and then use *`	844	`# Can list Top Level directories and then use *`
Line 907...	Line 983...
907	`#`	983	`#`
908	`# Returns :`	984	`# Returns :`
909	`#`	985	`#`
910	`sub SetVerbose`	986	`sub SetVerbose`
911	`{`	987	`{`
-		988	`return 1 unless ($ActiveSection);`
912	`my ($level) = @_;`	989	`my ($level) = @_;`
913		990
914	`$level = $opt_verbose unless ( $level );`	991	`$level = $opt_verbose unless ( $level );`
915	`$opt_verbose = $level;`	992	`$opt_verbose = $level;`
916	`ErrorConfig( 'verbose' => $level);`	993	`ErrorConfig( 'verbose' => $level);`
Line 929...	Line 1006...
929	`# Sets $WorkDir`	1006	`# Sets $WorkDir`
930	`#`	1007	`#`
931	`sub SetBaseDir`	1008	`sub SetBaseDir`
932	`{`	1009	`{`
933	`my ($path, @opts) = @_;`	1010	`my ($path, @opts) = @_;`
-		1011	`return 1 unless ($ActiveSection);`
934		1012
935	`my $rootdir = $path \|\| '/';`	1013	`my $rootdir = $path \|\| '/';`
936	`$rootdir = '/' . $rootdir;`	1014	`$rootdir = '/' . $rootdir;`
937	`$rootdir =~ s~/+~/~g;`	1015	`$rootdir =~ s~/+~/~g;`
938	`Verbose ("Setting RootDir: $rootdir");`	1016	`Verbose ("Setting RootDir: $rootdir");`
Line 947...	Line 1025...
947	`}`	1025	`}`
948		1026
949	`#-------------------------------------------------------------------------------`	1027	`#-------------------------------------------------------------------------------`
950	`# Function : DebianFiles`	1028	`# Function : DebianFiles`
951	`# RpmFiles`	1029	`# RpmFiles`
-		1030	`# AllFiles`
952	`#`	1031	`#`
953	`# Description : Name Debian and RPM builder control files`	1032	`# Description : Name Debian and RPM builder control files`
954	`# May be called multiple times`	1033	`# May be called multiple times`
955	`#`	1034	`#`
956	`# Inputs : $fName - Name under which the function is being called`	1035	`# Inputs : $fName - Name under which the function is being called`
Line 958...	Line 1037...
958	`# --Control=file`	1037	`# --Control=file`
959	`# --PreRm=file`	1038	`# --PreRm=file`
960	`# --PostRm=file`	1039	`# --PostRm=file`
961	`# --PreInst=file`	1040	`# --PreInst=file`
962	`# --PostInst=file`	1041	`# --PostInst=file`
-		1042	`# --SimpleSharedLibs`
963	`#`	1043	`#`
964	`#`	1044	`#`
965	`# Returns : Nothing`	1045	`# Returns : Nothing`
966	`#`	1046	`#`
967	`sub MULTI_Files`	1047	`sub MULTI_Files`
968	`{`	1048	`{`
969	`my $fName = shift;`	1049	`my $fName = shift;`
-		1050	`return 1 unless ($ActiveSection);`
970	`Verbose ("Specify Installer Control Files and Scripts");`	1051	`Verbose ("Specify Installer Control Files and Scripts");`
971	`foreach ( @_ )`	1052	`foreach ( @_ )`
972	`{`	1053	`{`
973	`if ( m/^--Control=(.+)/i ) {`	1054	`if ( m/^--Control=(.+)/i ) {`
974	`MULTI_ControlFile($fName, 'control',$1)`	1055	`MULTI_ControlFile($fName, 'control',$1)`
Line 983...	Line 1064...
983	`MULTI_ControlFile($fName, 'preinst',$1)`	1064	`MULTI_ControlFile($fName, 'preinst',$1)`
984		1065
985	`} elsif ( m/^--PostInst=(.+)/i ) {`	1066	`} elsif ( m/^--PostInst=(.+)/i ) {`
986	`MULTI_ControlFile($fName, 'postinst',$1)`	1067	`MULTI_ControlFile($fName, 'postinst',$1)`
987		1068
-		1069	`} elsif ( m/^--SimpleSharedLibs/i ) {`
-		1070
-		1071	`my $file = catfile($WorkDirBase, 'ldconfig.sh' );`
-		1072
-		1073	`open (my $df, '>', $file) \|\| Error ("$fName: Cannot create:$file");`
-		1074	`print $df "#!/bin/sh\n";`
-		1075	`print $df "/sbin/ldconfig\n";`
-		1076	`print $df "exit 0\n";`
-		1077	`close $df;`
-		1078
-		1079	`MULTI_ControlFile($fName, 'postinst',$file);`
-		1080	`MULTI_ControlFile($fName, 'postrm',$file);`
-		1081
988	`} else {`	1082	`} else {`
989	`Error ("$fName: Unknown option: $_");`	1083	`Error ("$fName: Unknown option: $_");`
990	`}`	1084	`}`
991	`}`	1085	`}`
992	`}`	1086	`}`
993		1087
994	`#-------------------------------------------------------------------------------`	1088	`#-------------------------------------------------------------------------------`
995	`# Function : DebianControlFile`	1089	`# Function : DebianControlFile`
996	`# RpmControlFile`	1090	`# RpmControlFile`
-		1091	`# AllControlFile`
997	`#`	1092	`#`
998	`# Description : Add special control files to the Debian/RedHat Installer`	1093	`# Description : Add special control files to the Debian/RedHat Installer`
999	`# Not useful for embedded installers`	1094	`# Not useful for embedded installers`
1000	`#`	1095	`#`
1001	`# More general than DebianFiles() or RpmFiles`	1096	`# More general than DebianFiles() or RpmFiles`
Line 1011...	Line 1106...
1011	`# Returns :`	1106	`# Returns :`
1012	`#`	1107	`#`
1013	`sub MULTI_ControlFile`	1108	`sub MULTI_ControlFile`
1014	`{`	1109	`{`
1015	`my ($fName, $name, $file, @options) = @_;`	1110	`my ($fName, $name, $file, @options) = @_;`
-		1111	`return 1 unless ($ActiveSection);`
1016	`my $fromPackage = 0;`	1112	`my $fromPackage = 0;`
1017		1113
1018	`#`	1114	`#`
1019	`# Process options`	1115	`# Process options`
1020	`foreach ( @options)`	1116	`foreach ( @options)`
Line 1051...	Line 1147...
1051	`}`	1147	`}`
1052		1148
1053	`#-------------------------------------------------------------------------------`	1149	`#-------------------------------------------------------------------------------`
1054	`# Function : DebianDepends`	1150	`# Function : DebianDepends`
1055	`# RpmDepends`	1151	`# RpmDepends`
-		1152	`# AllDepends`
1056	`#`	1153	`#`
1057	`# Description : This directive allows simple dependency information to be`	1154	`# Description : This directive allows simple dependency information to be`
1058	`# inserted into the control file`	1155	`# inserted into the control file`
-		1156	`#`
-		1157	`# Names will be massaged into conforming names.`
1059	`#`	1158	`#`
1060	`# Not useful in embedded system`	1159	`# Not useful in embedded system`
1061	`#`	1160	`#`
1062	`# Inputs : Entry - A dependency entry`	1161	`# Inputs : Entry - A dependency entry`
1063	`# ... - More entries`	1162	`# ... - More entries`
-		1163	`# Options`
-		1164	`# --Raw - Prevent name modification`
-		1165	`# --NoRaw - Enable name modification`
1064	`#`	1166	`#`
1065	`#`	1167	`#`
1066	`# Returns : Nothing`	1168	`# Returns : Nothing`
1067	`#`	1169	`#`
1068	`sub MULTI_Depends`	1170	`sub MULTI_Depends`
1069	`{`	1171	`{`
-		1172	`return 1 unless ($ActiveSection);`
1070	`shift;`	1173	`shift;`
-		1174	`my $raw = 0;`
-		1175
-		1176	`#`
-		1177	`# Convert the provided name into a canonical name`
-		1178	`# Simplifies use when using both RPM and Debian`
-		1179	`foreach ( @_)`
-		1180	`{`
-		1181	`if (m~^--(No)?Raw~i) {`
-		1182	`$raw = ! defined($1);`
-		1183	`next;`
-		1184	`}`
-		1185	`my $name = $_;`
-		1186	`$name = canonicalName($_, $opt_rpm ? 'RPM' : 'DEBIAN' , 1) unless $raw;`
1071	`push @DependencyList, @_;`	1187	`push @DependencyList, $name;`
-		1188	`}`
-		1189
1072	`}`	1190	`}`
1073		1191
1074	`#-------------------------------------------------------------------------------`	1192	`#-------------------------------------------------------------------------------`
1075	`# Function : PackageDescription`	1193	`# Function : PackageDescription`
1076	`#`	1194	`#`
Line 1081...	Line 1199...
1081	`#`	1199	`#`
1082	`# Returns :`	1200	`# Returns :`
1083	`#`	1201	`#`
1084	`sub PackageDescription`	1202	`sub PackageDescription`
1085	`{`	1203	`{`
-		1204	`return 1 unless ($ActiveSection);`
1086	`($opt_description) = @_;`	1205	`($opt_description) = @_;`
1087	`}`	1206	`}`
1088		1207
1089	`#-------------------------------------------------------------------------------`	1208	`#-------------------------------------------------------------------------------`
1090	`# Function : MakeSymLink`	1209	`# Function : MakeSymLink`
Line 1106...	Line 1225...
1106	`sub MakeSymLink`	1225	`sub MakeSymLink`
1107	`{`	1226	`{`
1108	`my $no_clean;`	1227	`my $no_clean;`
1109	`my $no_dot;`	1228	`my $no_dot;`
1110	`my @args;`	1229	`my @args;`
-		1230	`return 1 unless ($ActiveSection);`
1111		1231
1112	`#`	1232	`#`
1113	`# Extract options`	1233	`# Extract options`
1114	`#`	1234	`#`
1115	`foreach ( @_ )`	1235	`foreach ( @_ )`
Line 1170...	Line 1290...
1170	`#`	1290	`#`
1171	`# Returns : Full path to destination file`	1291	`# Returns : Full path to destination file`
1172	`#`	1292	`#`
1173	`sub CopyFile`	1293	`sub CopyFile`
1174	`{`	1294	`{`
-		1295	`return 1 unless ($ActiveSection);`
1175	`CopyFileCommon( \&ResolveFile, @_ );`	1296	`CopyFileCommon( \&ResolveFile, @_ );`
1176	`}`	1297	`}`
1177		1298
1178	`#-------------------------------------------------------------------------------`	1299	`#-------------------------------------------------------------------------------`
1179	`# Function : CopyBinFile`	1300	`# Function : CopyBinFile`
Line 1189...	Line 1310...
1189	`# Options:`	1310	`# Options:`
1190	`# --FromPackage`	1311	`# --FromPackage`
1191	`# --SoftLink=xxxx`	1312	`# --SoftLink=xxxx`
1192	`# --LinkFile=xxxx`	1313	`# --LinkFile=xxxx`
1193	`#`	1314	`#`
1194	`#`	-

Subversion Repositories DevTools

(root)/debian_packager/branches/For_1.24.0000/src/tools/scripts/DebianPackager.pl – Rev 6859 → 6861