Subversion Repositories DevTools

Rev

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

Rev 363 Rev 369
Line 223... Line 223...
223 
 
 223 
 
224 
    $e_repository = ("      *Non Standard archive")
 224 
    $e_repository = ("      *Non Standard archive")
225 
        unless ( $opt_archive eq 'main' );
 225 
        unless ( $opt_archive eq 'main' );
226 
 
 226 
 
227 
 
 227 
 
228 
    #
 - 
 
229 
    #   If the environment variable GBE_DPKG_SBOX is defined then the package
 - 
 
230 
    #   is being built within a development sandbox. In such a sandbox the
 - 
 
231 
    #   version numbers of the packages are ignored. Publishing a package
 - 
 
232 
    #   fromm such an environment is certainly not reproducible - so don't allow
 - 
 
233 
    #   it to happen
 - 
 
234 
    #
 - 
 
235 
    unless ( $opt_archive eq 'local' || $opt_archive eq 'sandbox' )
 - 
 
236 
    {
 - 
 
237 
        if ( $ENV{GBE_DPKG_SBOX} )
 - 
 
238 
        {
 - 
 
239 
            Error ("Cannot publish a package that has been generated",
 - 
 
240 
                   "within a Sandbox as the version of dependent packages",
 - 
 
241 
                   "is not guaranteed.");
 - 
 
242 
        }
 - 
 
243 
    }
 - 
 
244 
 
 - 
 
245 
 
 - 
 
246 
    #   Locate the package
 228 
    #   Locate the package
247 
    #   Packages are located by looking for a file called descpkg within the
 229 
    #   Packages are located by looking for a file called descpkg within the
248 
    #   main package directory.
 230 
    #   main package directory.
249 
    #
 231 
    #
250 
    #   This installation process only handles one such file
 232 
    #   This installation process only handles one such file
Line 342... Line 324...
342 
    Information1("USER          = [$USER]");
 324 
    Information1("USER          = [$USER]");
343 
    Information ("")                                if ( $opt_merge || $opt_override );
 325 
    Information ("")                                if ( $opt_merge || $opt_override );
344 
    Information ("Opt:Override  = Enabled")         if ( $opt_override );
 326 
    Information ("Opt:Override  = Enabled")         if ( $opt_override );
345 
    Information ("Opt:Merge     = Enabled")         if ( $opt_merge );
 327 
    Information ("Opt:Merge     = Enabled")         if ( $opt_merge );
346 
    Information ("Opt:TestMode  = Enabled. No Package Transferred") if ( $opt_test );
 328 
    Information ("Opt:TestMode  = Enabled. No Package Transferred") if ( $opt_test );
- 
 
 329 
    Warning     ("Sandbox Build = Yes") if ($ENV{GBE_DPKG_SBOX}) ;
347 
    Information ("---------------------------------------------------------------");
 330 
    Information ("---------------------------------------------------------------");
348 
 
 331 
 
- 
 
 332 
    #
- 
 
 333 
    #   If the environment variable GBE_DPKG_SBOX is defined then the package
- 
 
 334 
    #   is being built within a development sandbox. In such a sandbox the
- 
 
 335 
    #   version numbers of the packages are ignored. Publishing a package
- 
 
 336 
    #   fromm such an environment is certainly not reproducible - so don't allow
- 
 
 337 
    #   it to happen
- 
 
 338 
    #
- 
 
 339 
    #   Allow versions of 99.99.99 as these are known to be test versions
- 
 
 340 
    #
- 
 
 341 
    unless ( $opt_archive eq 'local' || $opt_archive eq 'sandbox' )
- 
 
 342 
    {
- 
 
 343 
        if ( $ENV{GBE_DPKG_SBOX} )
- 
 
 344 
        {
- 
 
 345 
            unless ( $DPKG_VERSION =~ /^99.99.99/ )
- 
 
 346 
            {
- 
 
 347 
                Error("Cannot not publish a package that has been generated",
- 
 
 348 
                   "within a Sandbox as the version of dependent packages",
- 
 
 349 
                   "is not guaranteed.",
- 
 
 350 
                   "Only version 99.99.99 is allowed");
- 
 
 351 
            }
- 
 
 352 
        }
- 
 
 353 
    }
- 
 
 354 
 
- 
 
 355 
 
349 
    # done.
 356 
    # done.
350 
    return 1;
 357 
    return 1;
351 
}
 358 
}
352 
 
 359 
 
353 
#------------------------------------------------------------------------------
 360 
#------------------------------------------------------------------------------