view release on metacpan or  search on metacpan

bin/js.pl  view on Meta::CPAN

    my $scheduleName = $job->schedule->name;
    my $classIDlength = 23;
    if ($opts{'v'}) {
      $classID .= "/".$scheduleName;
      $classIDlength = 40;
    }
    $classID = sprintf("%-".$classIDlength."s", $classID);

    my $jid = $job->id;
    $jid = sprintf("%7u", $job->id) unless ($opts{'x'});
    my $try = defined($job->try) ? $job->try : 0;
    my $state = $stateCodes{$job->state};


    if ($opts{'x'}) {
      my $startTime = substr(localtime($job->start), 4);
      print "  <job id=\"$jid\"";
      print " try=\"$try\"" if ($try);
      print " policy=\"$policyName\" schedule=\"$scheduleName\" client=\"$who\" start=\"$startTime\"";
    }
    else {
      my $startTime = ((time - $job->start) < (24 * 60 * 60)) ?
	  substr(localtime($job->start), 11, 8) :
	  " ".substr(localtime($job->start), 4, 6)." ";
      print "$who $classID ${jid}-${try} $startTime $state";
    }

    if (my $stu = $job->storageUnit) {
      if ($opts{'x'}) {
	print " storageunit=\"".$stu->label."\"";
      }
      else {
        printf(" %10s ", $stu->label);
      }
    }
    else {
      printf(" %10s ", "") unless ($opts{'x'});
    }

    if ($state eq "D") {
      if ($opts{'x'}) {
	print " exitcode=\"".$job->status."\" elapsed=\"".dispInterval($job->elapsedTime)."\"";
      }
      else {
        printf(" %3d ", $job->status);
        print dispInterval($job->elapsedTime);
      }
      if ($job->status == 0) {
	if (defined($job->dataWritten)) {
	  $totalWritten += ($job->dataWritten / 1024);
	  $MBytes += $job->dataWritten / 1024;
	}
      }
    }
    elsif ($state eq "A") {
      my $op = $job->operation;
      if ($opts{'x'}) {
	print " operation=\"$op\" elapsed=\"".dispInterval($job->elapsedTime)."\"";
      }
      else {
        print " $op ".dispInterval($job->busy);
      }
    }

    if ($state ne "Q") {
      if (defined($job->filesWritten)) {
	if ($opts{'x'}) {
	  print " files=\"".$job->filesWritten."\"";
	}
	else {
          printf(" %7d", $job->filesWritten);
	}
      }
      else {
	printf(" 7%s", "") unless ($opts{'x'});
      }
      if (defined($job->dataWritten)) {
	if ($opts{'x'}) {
	  print " kbytes=\"".$job->dataWritten."\"";
	}
	else {
          printf(" %10d", $job->dataWritten);
	}
      }
      else {
	printf(" 10%s", "") unless ($opts{'x'});
      }
      if (($job->elapsedTime > 0) && defined($job->dataWritten)) {
        my $speed = sprintf("%.2f", ($job->dataWritten / $job->elapsedTime / 1024));
	if ($opts{'x'}) {
	  print " speed=\"$speed\"";
	}
	else {
          print " $speed";
	}
      }

      if (($state eq "A") && ($job->volume)) {
	print " ".$job->volume->id if (!$opts{'x'});
      }
    }

    print ">" if ($opts{'x'});

    if ($opts{'f'}) {
      for my $f ($job->files) {
	next if ($f =~ /NEW_STREAM/);
	if ($opts{'x'}) {
	  print "\n    <file name=\"$f\"/>";
	}
	else {
	  print "\n  $f";
	}
      }
    }
    if ($opts{'e'}) {
      my @el = $job->errors;
      for my $e (@el) {
	my $tm = $$e{tod};
	my $msg = $$e{message};