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);