Subversion Repositories DevTools

Rev

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

Rev 2022 Rev 3347
Line 21... Line 21...
21
#                   -outfile    xxxdepends.xml/build.pl
21
#                   -outfile    xxxdepends.xml/build.pl
22
#                   -pname      package_name
22
#                   -pname      package_name
23
#                   -pversion   package_version
23
#                   -pversion   package_version
24
#                   -infofile   path_to_info_file
24
#                   -infofile   path_to_info_file
25
#                   -baselabel  View label
25
#                   -baselabel  View label
26
#                   -isawip     Is A WIP (optional)
26
#                   -isawip     Is a WIP (optional)
27
#
27
#
28
#......................................................................#
28
#......................................................................#
29
 
29
 
30
use strict;
30
use strict;
31
use warnings;
31
use warnings;
Line 264... Line 264...
264
    my $author;
264
    my $author;
265
 
265
 
266
    #
266
    #
267
    #   Determine the author of the workspace - before we update it
267
    #   Determine the author of the workspace - before we update it
268
    #   The original author will be used to mark the work in the repo
268
    #   The original author will be used to mark the work in the repo
269
    #   This better describes the task done
269
    #   This better describes the task done, unless its a ripple build.
270
    #
270
    #
271
    $author = $session->{'InfoWs'}{'Last Changed Author'};
271
    $author = $session->{'InfoWs'}{'Last Changed Author'};
272
    Error ("Internal: Svn Session data item 'InfoWs' not present")
272
    Error ("Internal: Svn Session data item 'InfoWs' not present")
273
        unless ( defined $author );
273
        unless ( defined $author );
274
 
274
 
Line 290... Line 290...
290
 
290
 
291
    #
291
    #
292
    #   Update the svn:author of the workspace rather than 'buildadm'
292
    #   Update the svn:author of the workspace rather than 'buildadm'
293
    #   Allow badly configured repos. Don't fail if can't update the author
293
    #   Allow badly configured repos. Don't fail if can't update the author
294
    #
294
    #
-
 
295
    #   Assumption
-
 
296
    #       We either have a WIP or a Ripple
-
 
297
    #           If its a WIP then we retain the original author
-
 
298
    #           If its a ripple then we allow the actionto be marked as 'buildadm'
-
 
299
    #
-
 
300
    if ( $opt_isa_wip )
-
 
301
    {
295
    Verbose ("Author: $author");
302
        Verbose ("Author: $author");
296
    $session->setRepoProperty('svn:author', $author, 1);
303
        $session->setRepoProperty('svn:author', $author, 1);
-
 
304
    }
297
 
305
 
298
    if ( $opt_isa_wip )
306
    if ( $opt_isa_wip )
299
    {
307
    {
300
        Verbose( 'Is a WIP');
308
        Verbose( 'Is a WIP');
301
        Verbose( '$session->WsType: ', $session->WsType);
309
        Verbose( '$session->WsType: ', $session->WsType);