blob: e4c3cd7cf21f44da5d006aca50d63cbb0a9bf445 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/usr/bin/perl
#*******************************************************************************
# Copyright (c) 2006 IBM Corporation and others.
# All rights reserved. This program and the accompanying materials
# are made available under the terms of the Eclipse Public License v1.0
# which accompanies this distribution, and is available at
# http://www.eclipse.org/legal/epl-v10.html
#
# Contributors:
# David Dykstal (IBM) - initial API and implementation
# Martin Oberhuber (Wind River) - ongoing maintenance
#*******************************************************************************
use warnings;
print STDERR "Which tag do you want to fetch? (default is HEAD): ";
$answer = <STDIN>;
chomp($answer);
$tag = $answer ? $answer : "HEAD";
$incantation = "cvs ";
$incantation .= '-d :pserver:anonymous:none@dev.eclipse.org:/cvsroot/tools ';
$incantation .= "checkout ";
$incantation .= "-r ${tag} ";
$incantation .= "-d builder ";
$incantation .= "org.eclipse.tm.rse/releng/org.eclipse.rse.build ";
print($incantation);
system($incantation);
print("\n");
print("Builder has been fetched and is in the builder subdirectory\n");
|
