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
}