Subversion Repositories DevTools

Rev

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

Rev 285 Rev 331
Line 66... Line 66...
66 
our $GBE_MACHTYPE;
 66 
our $GBE_MACHTYPE;
67 
 
 67 
 
68 
my %PLATFORMS = ();
 68 
my %PLATFORMS = ();
69 
my %dirs_processed = ();
 69 
my %dirs_processed = ();
70 
my $symlinks;
 70 
my $symlinks;
- 
 
 71 
my $allow_overwrite = 0;
71 
 
 72 
 
72 
#...
 73 
#...
73 
#
 74 
#
74 
my $INTDIR;                                 # Interface directory (target)
 75 
my $INTDIR;                                 # Interface directory (target)
75 
my $BINDIR;                                 # Build directory (Not used)
 76 
my $BINDIR;                                 # Build directory (Not used)
Line 104... Line 105...
104 
$symlinks = eval { symlink("",""); 1 } || 0;
 105 
$symlinks = eval { symlink("",""); 1 } || 0;
105 
 
 106 
 
106 
#
 107 
#
107 
#   Report machine information
 108 
#   Report machine information
108 
#
 109 
#
109 
Verbose ("GBE_VERBOSE  : $GBE_VERBOSE" );
 110 
Verbose ("GBE_VERBOSE    : $GBE_VERBOSE" );
110 
Verbose ("GBE_MACHTYPE : $GBE_MACHTYPE" );
 111 
Verbose ("GBE_MACHTYPE   : $GBE_MACHTYPE" );
111 
Verbose ("SymLinks     : $symlinks" );
 112 
Verbose ("SymLinks       : $symlinks" );
- 
 
 113 
Verbose ("AllowOverwrite : $allow_overwrite" );
112 
Verbose ("Cmd          : @ARGV");
 114 
Verbose ("Cmd            : @ARGV");
113 
 
 115 
 
114 
################################################################################
 116 
################################################################################
115 
#
 117 
#
116 
#   Parse user arguments
 118 
#   Parse user arguments
117 
#   Arguments
 119 
#   Arguments
Line 145... Line 147...
145 
        $PLATFORMS{$platform}{'PARTS'} = \@platforms;
 147 
        $PLATFORMS{$platform}{'PARTS'} = \@platforms;
146 
 
 148 
 
147 
    } elsif ( /^--NoSymlinks/i ) {
 149 
    } elsif ( /^--NoSymlinks/i ) {
148 
        $symlinks = 0;
 150 
        $symlinks = 0;
149 
 
 151 
 
- 
 
 152 
    } elsif ( /^--AllowOverWrite/i ) {
- 
 
 153 
        $allow_overwrite = 1;
- 
 
 154 
 
150 
    } else {
 155 
    } else {
151 
        Warning("Unknown argument(ignored): $_");
 156 
        Warning("Unknown argument(ignored): $_");
152 
 
 157 
 
153 
    }
 158 
    }
154 
}
 159 
}
Line 643... Line 648...
643 
    my $done;
 648 
    my $done;
644 
    (my $file = $srcFile) =~ s~.*/~~;       # Filename. Just to be pretty
 649 
    (my $file = $srcFile) =~ s~.*/~~;       # Filename. Just to be pretty
645 
 
 650 
 
646 
    #
 651 
    #
647 
    #   Delete target file. If it exists
 652 
    #   Delete target file. If it exists
- 
 
 653 
    #       Don't warn if we are allowed to overwrite files
- 
 
 654 
    #       This is done for sandbox and local_archive packages
648 
    #
 655 
    #
649 
    if ( -f $dstFile )
 656 
    if ( -f $dstFile )
650 
    {
 657 
    {
651 
        unlink ($dstFile );
 658 
        unlink ($dstFile );
652 
        Message("overwriting existing dpkg_archive item [$file] --> [$dstFile]\n");
 659 
        Message("overwriting existing dpkg_archive item [$file] --> [$dstFile]\n")
- 
 
 660 
            unless ( $allow_overwrite );
653 
    }
 661 
    }
654 
 
 662 
 
655 
    #
 663 
    #
656 
    #   Try a symlink first
 664 
    #   Try a symlink first
657 
    #
 665 
    #