Subversion Repositories DevTools

Rev

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

Rev 2029 Rev 2426
Line 71... Line 71...
71 
my $opt_prod_build = 0;                     # Build ion Only
 71 
my $opt_prod_build = 0;                     # Build ion Only
72 
my $opt_view_root = $ENV{'GBE_VIEWBASE'};   # Root of the view
 72 
my $opt_view_root = $ENV{'GBE_VIEWBASE'};   # Root of the view
73 
my $opt_prefix = 1;                         # Prefix the view tag with user-name
 73 
my $opt_prefix = 1;                         # Prefix the view tag with user-name
74 
my $opt_tag;                                # View tag insert (build or export or user)
 74 
my $opt_tag;                                # View tag insert (build or export or user)
75 
my $bad_label_name = 0;                     # Badly formed label
 75 
my $bad_label_name = 0;                     # Badly formed label
- 
 
 76 
my $opt_escrow = 0;                         # Escrow Mode
76 
 
 77 
 
77 
#
 78 
#
78 
#   Globals - Provided by the JATS environment
 79 
#   Globals - Provided by the JATS environment
79 
#
 80 
#
80 
my $USER            = $ENV{'USER'};
 81 
my $USER            = $ENV{'USER'};
Line 255... Line 256...
255 
        $noReleaseWs = 0;
 256 
        $noReleaseWs = 0;
256 
        Error ('Cannot mix -[mk]branch and -devMode=' . $opt_devModeStr ) if ( $opt_branch );
 257 
        Error ('Cannot mix -[mk]branch and -devMode=' . $opt_devModeStr ) if ( $opt_branch );
257 
    } elsif ( $opt_devModeStr =~ m/^escrow$/i) {
 258 
    } elsif ( $opt_devModeStr =~ m/^escrow$/i) {
258 
        # JATS internal use only. Not advertised
 259 
        # JATS internal use only. Not advertised
259 
        $opt_devMode = 'exact';
 260 
        $opt_devMode = 'exact';
- 
 
 261 
        $opt_escrow = 1;
260 
        $checkDelta = 0;
 262 
        $checkDelta = 0;
261 
        $noReleaseWs = 0;
 263 
        $noReleaseWs = 0;
262 
        $traceBack = 1;
 264 
        $traceBack = 1;
263 
        Error ('Cannot mix -[mk]branch and -devMode=' . $opt_devModeStr ) if ( $opt_branch );
 265 
        Error ('Cannot mix -[mk]branch and -devMode=' . $opt_devModeStr ) if ( $opt_branch );
264 
    } else {
 266 
    } else {
Line 631... Line 633...
631 
    delete_view();
 633 
    delete_view();
632 
 
 634 
 
633 
    #
 635 
    #
634 
    #   Create the workspace
 636 
    #   Create the workspace
635 
    #
 637 
    #
636 
    $svnSession->SvnCo ( $view_tag, $workSpace );
 638 
    $svnSession->SvnCo ( $view_tag, $workSpace , 'escrow' => $opt_escrow );
637 
    Error ("Cannot locate the created Workspace")
 639 
    Error ("Cannot locate the created Workspace")
638 
        unless ( -d $workSpace);
 640 
        unless ( -d $workSpace);
639 
    importTagChanges()
 641 
    importTagChanges()
640 
        if ($update_tagsChanges);
 642 
        if ($update_tagsChanges);
641 
 
 643 
 
Line 1123... Line 1125...
1123 
    }
 1125 
    }
1124 
 
 1126 
 
1125 
    $svnSession->SvnCo ( $svnSession->FullPath() . '/' . $view_tag,
 1127 
    $svnSession->SvnCo ( $svnSession->FullPath() . '/' . $view_tag,
1126 
                        $VIEWDIR,
 1128 
                        $VIEWDIR,
1127 
                        'export' => 1,
 1129 
                        'export' => 1,
- 
 
 1130 
                        'escrow' => $opt_escrow,
1128 
                        'print' => 0 );
 1131 
                        'print' => 0 );
1129 
 
 1132 
 
1130 
    #
 1133 
    #
1131 
    #   Count this files in the view
 1134 
    #   Count this files in the view
1132 
    #   Done so that its clear when we have a empty workspace in escrow extractions
 1135 
    #   Done so that its clear when we have a empty workspace in escrow extractions
Line 1201... Line 1204...
1201 
            else
 1204 
            else
1202 
            {
 1205 
            {
1203 
                $svnSession->SvnCo ($sfile, $tfile,
 1206 
                $svnSession->SvnCo ($sfile, $tfile,
1204 
                                        'export' => 1,
 1207 
                                        'export' => 1,
1205 
                                        'force' => 1,
 1208 
                                        'force' => 1,
- 
 
 1209 
                                        'escrow' => $opt_escrow,
1206 
                                        'pretext' => 'Replacing ' );
 1210 
                                        'pretext' => 'Replacing ' );
1207 
            }
 1211 
            }
1208 
        }
 1212 
        }
1209 
    }
 1213 
    }
1210 
}
 1214 
}