Prevent a bunch of warnings about workflows that have not yet been run when getting the status report from Spectre.

perlDreamer · perlDreamer · commit 8370cb15c833 · 2012-06-01T16:21:46.000-07:00
diff --git a/sbin/spectre.pl b/sbin/spectre.pl
@@ -178,7 +178,7 @@ sub getStatusReport {
     foreach my $instance (@{JSON->new->decode($result)}) {
 		my $originalPriority = ($instance->{priority} - 1) * 10;
         my $priority = $instance->{workingPriority}."/".$originalPriority;
-		$output .= sprintf $pattern, $priority, $instance->{status}, $instance->{sitename}, $instance->{instanceId}, $instance->{lastState}, $instance->{lastRunTime};
+		$output .= sprintf $pattern, $priority, $instance->{status}, $instance->{sitename}, $instance->{instanceId}, $instance->{lastState}, ($instance->{lastRunTime} || '');
         $total++;
     }
     $output .= sprintf "\n%19.19s %4d\n", "Total Workflows", $total;

Original file line number	Diff line number	Diff line change
`@@ -178,7 +178,7 @@ sub getStatusReport {`
`178`	`178`	`foreach my $instance (@{JSON->new->decode($result)}) {`
`179`	`179`	`my $originalPriority = ($instance->{priority} - 1) * 10;`
`180`	`180`	`my $priority = $instance->{workingPriority}."/".$originalPriority;`
`181`		`- $output .= sprintf $pattern, $priority, $instance->{status}, $instance->{sitename}, $instance->{instanceId}, $instance->{lastState}, $instance->{lastRunTime};`
	`181`	`+ $output .= sprintf $pattern, $priority, $instance->{status}, $instance->{sitename}, $instance->{instanceId}, $instance->{lastState}, ($instance->{lastRunTime} \|\| '');`
`182`	`182`	`$total++;`
`183`	`183`	`}`
`184`	`184`	`$output .= sprintf "\n%19.19s %4d\n", "Total Workflows", $total;`