Subversion Repositories DevTools

Rev

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

Rev 5410 Rev 5499
Line 1... Line 1...
1 
########################################################################
 1 
########################################################################
2 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
 2 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
3 
#
 3 
#
4 
# Module name   : create_dpkg2.pl
 4 
# Module name   : create_dpkg.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
8 
#
 8 
#
9 
# Description   : This script is used to create a dpkg_archive.
 9 
# Description   : This script is used to create a dpkg_archive.
Line 180... Line 180...
180 
    $data{fullname} = $target;
 180 
    $data{fullname} = $target;
181 
    $data{type} = $type;
 181 
    $data{type} = $type;
182 
    $data{machtype} = $GBE_MACHTYPE;
 182 
    $data{machtype} = $GBE_MACHTYPE;
183 
    $data{host} = $GBE_HOSTNAME;
 183 
    $data{host} = $GBE_HOSTNAME;
184 
 
 184 
 
185 
    # Put a nice '/' on the end of the patch elements
 185 
    # Put a nice '/' on the end of the path elements
186 
    $data{path} .= '/'
 186 
    $data{path} .= '/'
187 
        if ( exists ($data{path}) && length($data{path}) > 0);
 187 
        if ( exists ($data{path}) && length($data{path}) > 0);
188 
 
 188 
 
189 
    push @fileList, \%data;
 189 
    push @fileList, \%data;
190 
}
 190 
}
Line 487... Line 487...
487 
 
 487 
 
488 
    #
 488 
    #
489 
    #   If the environment variable GBE_DPKG_SBOX is defined then the package
 489 
    #   If the environment variable GBE_DPKG_SBOX is defined then the package
490 
    #   is being built within a development sandbox. In such a sandbox the
 490 
    #   is being built within a development sandbox. In such a sandbox the
491 
    #   version numbers of the packages are ignored. Publishing a package
 491 
    #   version numbers of the packages are ignored. Publishing a package
492 
    #   fromm such an environment is certainly not reproducible - so don't allow
 492 
    #   from such an environment is certainly not reproducible - so don't allow
493 
    #   it to happen
 493 
    #   it to happen
494 
    #
 494 
    #
495 
    #   Allow versions of 99.99.99 as these are known to be test versions
 495 
    #   Allow versions of 99.99.99 as these are known to be test versions
496 
    #
 496 
    #
497 
    unless ( $opt_archive eq 'local' || $opt_archive eq 'sandbox' )
 497 
    unless ( $opt_archive eq 'local' || $opt_archive eq 'sandbox' )