Subversion Repositories DevTools

Rev

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

Rev 321 Rev 335
Line 559... Line 559...
559
#
559
#
560
if (! -d $VIEWDIR || ! $opt_reuse )
560
if (! -d $VIEWDIR || ! $opt_reuse )
561
{
561
{
562
    Message( "Create the view" . ($GBE_SANDBOX ? " in a SANDBOX" : ""));
562
    Message( "Create the view" . ($GBE_SANDBOX ? " in a SANDBOX" : ""));
563
 
563
 
-
 
564
    my $view_comment = "ViewDir: $VIEWDIR";
-
 
565
    $view_comment .= " Created: " . localtime;
564
    #
566
    #
565
    #   Tried creating a co-located view under Windows, but had problems
567
    #   Tried creating a co-located view under Windows, but had problems
566
    #       1) Did not work on WindowsServer based build machine ??
568
    #       1) Did not work on WindowsServer based build machine ??
567
    #       2) Deleting the view could be a problem if the user had
569
    #       2) Deleting the view could be a problem if the user had
568
    #          files open in the view.
570
    #          files open in the view.
569
    #       3) Documentation doesn't really like the use of -colocated
571
    #       3) Documentation doesn't really like the use of -colocated
570
    #
572
    #
571
    foreach my $view_count ( 1 .. 5 )
573
    foreach my $view_count ( 1 .. 5 )
572
    {
574
    {
573
        my $cc_race_condition;
575
        my $cc_race_condition;
574
        my $cmd = ClearToolCmd ('mkview', '-snapshot', '-tag', $VIEWTAG, $VIEWDIR);
576
        my $cmd = ClearToolCmd ('mkview', '-snapshot', '-tag', $VIEWTAG, '-tcomment', $view_comment, $VIEWDIR);
575
        open(CMD, "$cmd 2>&1 |") || Error( "can't run command: $!");
577
        open(CMD, "$cmd 2>&1 |") || Error( "can't run command: $!");
576
        @error_list = ();
578
        @error_list = ();
577
        while (<CMD>)
579
        while (<CMD>)
578
        {
580
        {
579
            #
581
            #