solenv/bin/cws.pl

244     my $master = $ENV{WORK_STAMP};
250     if ( !$master ) {
256     $cws->master($master);
261         print STDERR "CWS-DEBUG: ... master: $master, child: $child, $id\n";
264 …  print_error("Child workspace $child for master workspace $master not found in EIS database.", 2);
288     if ( $cws->master() ne $masterws ) {
293         $cws->master($masterws);
307     my $master    = $cws->master();
345             print_error("Failed to register child workspace '$child' for master '$master'.", 12);
353             print "for master workspace '$master' (milestone '$milestone').\n";
404     my $masterws = $cws->master();
595         $cws->master($masterws);
666     my $masterws = $cws->master();
683     my $masterws = $cws->master();
769     my $masterws = $cws->master();
811     my $masterws = $cws->master();
836     my $masterws = $cws->master();
865     my $masterws = $cws->master();
895     my $masterws = $cws->master();
926     my $masterws = $cws->master();
945     my $masterws = $cws->master();
964     my $masterws = $cws->master();
983     my $masterws = $cws->master();
1002     my $masterws = $cws->master();
1021     my $masterws = $cws->master();
1118     my ($master, $milestone);
1122         ($master, $milestone) = split(/:/, $qualified_milestone);
1123         $invalid++ unless ( $master && $milestone );
1135     $master = $cws->master() if !$master;
1136     if ( !$cws->is_milestone($master, $milestone) ) {
1137 …      print_error("Milestone '$milestone' is not registered with master workspace '$master'.", 21);
1139     return ($master, $milestone);
1517     my $master   = uc $args_ref->[0];
1520     if (!is_master($master)) {
1521         print_error("'$master' is not a valid master workspace.", 7);
1530     $cws->master($master);
1561         if ( !$cws->is_milestone($master, $milestone) ) {
1562 …       print_error("Milestone '$milestone' is not registered with master workspace '$master'.", 8);
1566         $milestone=$cws->get_current_milestone($cws->master());
1623     $cws->master($masterws);
1627             $cws->master($masterws);
1641         $masterws = $cws->master(); # CWS can have another master than specified in ENV
1863     my $master = $cws->master();
1933     my $old_masterws = $cws->master();