view release on metacpan or  search on metacpan

bin/autorep  view on Meta::CPAN

	if (defined($job->{command}) && $job->{command} ne "") {
		printf("%*scommand: %s\n", $level*2, "", $job->{command});
	}
	if (defined($job->{machine}) && $job->{machine} ne "") {
		printf("%*smachine: %s\n", $level*2, "", $job->{machine});
	}

	printf("%*s#owner: %s\n", $level*2, "", $job->{owner});
	printf("%*spermission: %s\n", $level*2, "", $job->{permission});
	if ($job->{date_conditions} > 0) {
		my @date_cond = qw(days_of_week start_times start_mins run_calendar exclude_calendar run_window);
		printf("%*sdate_conditions: %s\n", $level*2, "", $job->{date_conditions});
		foreach (@date_cond) {
			if (defined($job->{$_}) && length($job->{$_}) > 0) {
				printf("%*s$_: %s\n", $level*2, "", $job->{$_});
			}
		}
	} elsif (defined($job->{condition}) && $job->{condition} ne "") {
		printf("%*scondition: %s\n", $level*2, "", $job->{condition});
	}
	printf("%*sdescription: \"%s\"\n", $level*2, "", $job->{description});