Subversion Repositories DevTools

Rev

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

Rev 255 Rev 261
Line 36... Line 36...
36 
my $RM_DB;
 36 
my $RM_DB;
37 
my %pname;
 37 
my %pname;
38 
my %rc;
 38 
my %rc;
39 
my %rl;
 39 
my %rl;
40 
my %rname;
 40 
my %rname;
- 
 
 41 
my %official;
41 
my $indefinite = 0;
 42 
my $indefinite = 0;
42 
my %StateData = ( 4 => 'Idle' , 2 => 'Paused', 5 => 'Waiting', 3 => 'Building', 1 => 'Broken');
 43 
my %StateData = ( 4 => 'Idle' , 2 => 'Paused', 5 => 'Waiting', 3 => 'Building', 1 => 'Broken');
43 
my $ff_string = "\f";
 44 
my $ff_string = "\f";
44 
 
 45 
 
45 
#-------------------------------------------------------------------------------
 46 
#-------------------------------------------------------------------------------
Line 146... Line 147...
146 
    {
 147 
    {
147 
        foreach my $rname ( sort keys %{$pname{$pname}} )
 148 
        foreach my $rname ( sort keys %{$pname{$pname}} )
148 
        {
 149 
        {
149 
            my $rtag_id = $pname{$pname}{$rname};
 150 
            my $rtag_id = $pname{$pname}{$rname};
150 
 
 151 
 
151 
            print BOLD GREEN "[$rtag_id] $rname{$rtag_id}", RESET, "\n";
 152 
            print BOLD GREEN "[$rtag_id] $rname{$rtag_id} ($official{$rtag_id})", RESET, "\n";
152 
            my @orderm;
 153 
            my @orderm;
153 
            my @orders;
 154 
            my @orders;
154 
            my $building = 0;
 155 
            my $building = 0;
155 
 
 156 
 
156 
            foreach my $rcon_id ( keys %{$rc{$rtag_id}}  )
 157 
            foreach my $rcon_id ( keys %{$rc{$rtag_id}}  )
Line 273... Line 274...
273 
    # if we are not or cannot connect then return 0 as we have not found anything
 274 
    # if we are not or cannot connect then return 0 as we have not found anything
274 
    connectRM( \$RM_DB) unless $RM_DB;
 275 
    connectRM( \$RM_DB) unless $RM_DB;
275 
 
 276 
 
276 
    # First get details from pv_id
 277 
    # First get details from pv_id
277 
 
 278 
 
278 
    my $m_sqlstr = "SELECT rc.RCON_ID, rc.RTAG_ID, rc.GBE_ID, rc.DAEMON_HOSTNAME, rc.DAEMON_MODE, rc.GBE_BUILDFILTER, rt.RTAG_NAME, p.PROJ_NAME" .
 279 
    my $m_sqlstr = "SELECT rc.RCON_ID, rc.RTAG_ID, rc.GBE_ID, rc.DAEMON_HOSTNAME, rc.DAEMON_MODE, rc.GBE_BUILDFILTER, rt.RTAG_NAME, p.PROJ_NAME, rt.OFFICIAL" .
279 
                    " FROM release_config rc, RELEASE_TAGS rt, PROJECTS p" .
 280 
                    " FROM release_config rc, RELEASE_TAGS rt, PROJECTS p" .
280 
                    " WHERE rt.RTAG_ID = rc.RTAG_ID AND rt.PROJ_ID = p.PROJ_ID";
 281 
                    " WHERE rt.RTAG_ID = rc.RTAG_ID AND rt.PROJ_ID = p.PROJ_ID AND rt.OFFICIAL != 'A'";
281 
 
 282 
 
282 
 
 283 
 
283 
    my $sth = $RM_DB->prepare($m_sqlstr);
 284 
    my $sth = $RM_DB->prepare($m_sqlstr);
284 
    if ( defined($sth) )
 285 
    if ( defined($sth) )
285 
    {
 286 
    {
Line 295... Line 296...
295 
                    my $hostname = $row[3];
 296 
                    my $hostname = $row[3];
296 
                    my $hostmode = $row[4];
 297 
                    my $hostmode = $row[4];
297 
                    my $filter = $row[5];
 298 
                    my $filter = $row[5];
298 
                    my $rname = $row[6];
 299 
                    my $rname = $row[6];
299 
                    my $pname = $row[7];
 300 
                    my $pname = $row[7];
- 
 
 301 
                    my $official = $row[8];
300 
 
 302 
 
301 
                    next unless ( $hostname );
 303 
                    next unless ( $hostname );
302 
                    if ( @opt_rtag )
 304 
                    if ( @opt_rtag )
303 
                    {
 305 
                    {
304 
                        next unless ( defined $opt_rtag{$rtag_id} );
 306 
                        next unless ( defined $opt_rtag{$rtag_id} );
Line 314... Line 316...
314 
                    $rc{$rtag_id}{$rcon_id} = \%data;
 316 
                    $rc{$rtag_id}{$rcon_id} = \%data;
315 
 
 317 
 
316 
                    $rname{$rtag_id} = "$pname: $rname";
 318 
                    $rname{$rtag_id} = "$pname: $rname";
317 
 
 319 
 
318 
                    $pname{$pname}{$rname} = $rtag_id;
 320 
                    $pname{$pname}{$rname} = $rtag_id;
- 
 
 321 
 
- 
 
 322 
                    $official{$rtag_id} = $official;
- 
 
 323
319 
#                    print "@row\n";
 324 
#                    print "@row\n";
320 
                }
 325 
                }
321 
            }
 326 
            }
322 
            $sth->finish();
 327 
            $sth->finish();
323 
        }
 328 
        }
Line 421... Line 426...
421 
 
 426 
 
422 
dstatus - Display Daemon Status
 427 
dstatus - Display Daemon Status
423 
 
 428 
 
424 
=head1 SYNOPSIS
 429 
=head1 SYNOPSIS
425 
 
 430 
 
426 
  jats CCbc2 [options] [old_label new_label]
 431 
  jats dstatus [options]
427 
 
 432 
 
428 
 Options:
 433 
 Options:
429 
    -help              - brief help message
 434 
    -help              - brief help message
430 
    -help -help        - Detailed help message
 435 
    -help -help        - Detailed help message
431 
    -man               - Full documentation
 436 
    -man               - Full documentation