#!/usr/bin/perl -w

use strict;

my $sudo = ''; $sudo = "sudo " if ($> != 0);

my @days = qw(Su Mo Tu We Th Fr Sa);

while ($#ARGV >= 0) {
	my $client = shift @ARGV;
	my $getwin = 0;
	foreach my $line
		(`$sudo /usr/openv/netbackup/bin/admincmd/bppllist -byclient $client`) {
		print "\n$client ", (split(' ', $line))[1], " " if ($line =~ m/^CLASS /);
		$getwin = 1 if ($line =~ m/^SCHED .*-FULL/);
		if ($getwin == 1 && $line =~ m/^SCHEDWIN /) {
			my @schedwin = split(' ', $line);
			shift @schedwin;
			for (my $idx = 0; $idx < 14; $idx += 2) {
				if ($schedwin[$idx + 1] > 0) {
					my $hours = ($schedwin[$idx]
						- ($schedwin[$idx] % 3600)) / 3600;
					my $minutes = (($schedwin[$idx]
						- ($schedwin[$idx] % 60)) / 60)
						- ($hours * 60);
					print $days[$idx / 2], " ";
					printf "%02d:%02d-", $hours, $minutes;
					$hours = (($schedwin[$idx] + $schedwin[$idx + 1])
						- ($schedwin[$idx] % 3600)) / 3600;
					$minutes = ((($schedwin[$idx] + $schedwin[$idx + 1])
						- ($schedwin[$idx] % 60)) / 60)
						- ($hours * 60);
					printf "%02d:%02d ", $hours, $minutes;
				}
			}
			$getwin = 0;
		}
	}
	print "\n";
}