diff options
| -rwxr-xr-x | bin/icli | 36 | 
1 files changed, 35 insertions, 1 deletions
| @@ -186,6 +186,35 @@ sub display_queue {  	}  } +sub display_downtime { +	my ($d) = @_; +	my $v = $verbosity; + +	printf('%-20.20s', $d->{'host_name'}); + +	if ($v >= 3) { +		printf( +			' %s %-10.10s', +			pretty_date($d->{'entry_time'}), +			$d->{'author'}, +		); +	} +	if ($v >= 2) { +		printf(' %-30.30s', $d->{'comment'}); +	} +	printf( +		' %s %s', +		pretty_date($d->{'start_time'}), +		pretty_date($d->{'end_time'}), +	); +	if ($v >= 2) { +		print ($d->{'fixed'} ? ' Fixed' : ' Flexi'); +	} + +	print "\n"; +} + +  sub display_service {  	my ($s) = @_; @@ -195,7 +224,7 @@ sub display_service {  	printf(" %s"     , service_state($s->{'has_been_checked'}, $s->{'current_state'}));  	if ($v >= 2) { -		printf(" %d/%d", $s->{'current_attempt'}, $s->{'max_attempts'}); +		printf(' %d/%d', $s->{'current_attempt'}, $s->{'max_attempts'});  	}  	printf(" %s\n", $s->{'plugin_output'}); @@ -305,6 +334,11 @@ elsif ($list_type eq 'h') {  elsif ($list_type eq 'q') {  	display_queue();  } +elsif ($list_type eq 'd') { +	foreach my $downtime (@{$data->{downtimes}}) { +		display_downtime($downtime); +	} +}  else {  	die("See perldoc -F $0\n");  } | 
