diff options
author | Daniel Friesel <derf@finalrewind.org> | 2014-06-01 21:13:03 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2014-06-01 21:13:03 +0200 |
commit | 8bc973db6d3a21d23bb1f9fac0573c5e438768fd (patch) | |
tree | c5a1b8841345c16a4532fd920351354039077901 /bin | |
parent | dbbe3c116cf1f7ab9944d4d85118bb21fb12b91a (diff) |
-ld: improve output format. TODO: -vv and -vvv
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/icli | 35 |
1 files changed, 30 insertions, 5 deletions
@@ -95,6 +95,12 @@ sub pretty_duration { my $now = time(); my $dif = $now - $since; + return pretty_duration_abs($dif); +} + +sub pretty_duration_abs { + my ($dif) = @_; + return sprintf( '%dd %dh %dm %ds', int( $dif / ( 24 * 3600 ) ), int( ( $dif / 3600 ) % 24 ), @@ -619,15 +625,19 @@ sub display_downtime { pretty_date( $d->{'entry_time'} ), $d->{'author'}, ); } - if ( $v >= 2 ) { - printf( ' %-30.30s', $d->{'comment'} ); - } - printf( ' %s %s', + printf( + ' %-20.20s %-20.20s', pretty_date( $d->{'start_time'} ), pretty_date( $d->{'end_time'} ), ); if ( $v >= 2 ) { - print( $d->{'fixed'} ? ' Fixed' : ' Flexi' ); + printf( '%-17.17s', + $d->{'fixed'} + ? ' Fixed' + : ' ' . pretty_duration_abs( $d->{duration} ) ); + } + if ( $v >= 2 ) { + print( $d->{comment} ); } print "\n"; @@ -1111,10 +1121,25 @@ elsif ( $list_type eq 'q' ) { } elsif ( $list_type eq 'd' ) { say "Host downtimes:"; + if ( $verbosity == 1 ) { + printf( "%-25.25s %-20.20s %-20.20s\n", 'Host', 'start', 'stop' ); + } + elsif ( $verbosity == 2 ) { + printf( "%-25.25s %-20.20s %-20.20s %-17.17s %s\n", + 'Host', 'start', 'stop', 'duration', 'comment' ); + } foreach my $downtime ( @{ $data->{hostdowntimes} } ) { display_downtime($downtime); } say "\nService downtimes:"; + if ( $verbosity == 1 ) { + printf( "%-25.25s %-25.25s %-20.20s %-20.20s\n", + 'Host', 'Service', 'start', 'stop' ); + } + elsif ( $verbosity == 2 ) { + printf( "%-25.25s %-25.25s %-20.20s %-20.20s %-17.17s %s\n", + 'Host', 'Service', 'start', 'stop', 'duration', 'comment' ); + } foreach my $downtime ( @{ $data->{servicedowntimes} } ) { display_downtime($downtime); } |