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
    #