#!/usr/bin/perl -w
print "Post Production Report program \n";
print "Enter the Date (yyyymmdd) for the report: \n";
$date= <STDIN>;
chomp ($date);
print "Enter report type (d for detail or s for summary): \n";
$type= <STDIN>;
chomp ($type);

if ($type =~ /^d\b/) {
    $reptr=-detail
} else {
    $reptr=-summary
}
$1=~[\d0-9];
$2=~[\d0-9];
$3=~[\d0-9];
$4=~[\d0-9];
system `cd /tivoli/maestro/schedlog`;
$sched_log="M$date$1$2$3$4";
`conman "reptr $reptr $sched_log"`;