Subversion Repositories DevTools

Rev

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

Rev 1357 Rev 2354
Line 15... Line 15...
15 
#                   Install packages
 15 
#                   Install packages
16 
#                   Remove the view
 16 
#                   Remove the view
17 
#
 17 
#
18 
#               The script can do a lot of other things too.
 18 
#               The script can do a lot of other things too.
19 
#
 19 
#
- 
 
 20 
#
- 
 
 21 
#               Defined exit code for automation
- 
 
 22 
#                   10 - No files in extracted view
- 
 
 23 
#                        Root directory not found
- 
 
 24 
#                   11 - Label not found
- 
 
 25 
#                   1  - Everything else
- 
 
 26 
#
20 
#......................................................................#
 27 
#......................................................................#
21 
 
 28 
 
22 
require 5.008_002;
 29 
require 5.008_002;
23 
use strict;
 30 
use strict;
24 
use warnings;
 31 
use warnings;
Line 466... Line 473...
466 
        }
 473 
        }
467 
        close(CMD);
 474 
        close(CMD);
468 
        last if ( $found );
 475 
        last if ( $found );
469 
    }
 476 
    }
470 
 
 477 
 
471 
    Error ("Label $spec not found in @ROOT_VOBS")
 478 
    Error ('ExitCode=11', "Label $spec not found in @ROOT_VOBS")
472 
        unless ( $found );
 479 
        unless ( $found );
473 
    Verbose ("Label $spec found in vob: $found" );
 480 
    Verbose ("Label $spec found in vob: $found" );
474 
 
 481 
 
475 
    $ROOT_VOB = $found;
 482 
    $ROOT_VOB = $found;
476 
 
 483 
 
Line 657... Line 664...
657 
    }
 664 
    }
658 
 
 665 
 
659 
    #
 666 
    #
660 
    #   Ensure that the VOB root was extracted
 667 
    #   Ensure that the VOB root was extracted
661 
    #
 668 
    #
662 
    Error ("Root directory not found: $VIEWDIR$ROOT_VOB")
 669 
    Error ('ExitCode=10', "Root directory not found: $VIEWDIR$ROOT_VOB")
663 
        unless( -d $VIEWDIR . $ROOT_VOB );
 670 
        unless( -d $VIEWDIR . $ROOT_VOB );
- 
 
 671 
 
664
672 
    #
- 
 
 673 
    #   Ensure some files were extracted
- 
 
 674 
    #
- 
 
 675 
    Error ('ExitCode=10', DisplayPath("View files in: $VIEWDIR, but no files were extracted"))
- 
 
 676 
        unless ( $load_count );
- 
 
 677 
 
- 
 
 678 
 
665 
    #
 679 
    #
666 
    #   If Unix based view, then get rid of the VOBS directory
 680 
    #   If Unix based view, then get rid of the VOBS directory
667 
    #
 681 
    #
668 
    if ( $UNIX )
 682 
    if ( $UNIX )
669 
    {
 683 
    {