<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package TaskManager::Constants;

use strict;
use warnings;

use constant TM_STATUS_NEW	=&gt; 0;
use constant TM_STATUS_LOCK	=&gt; 5;
use constant TM_STATUS_WORK	=&gt; 10;
use constant TM_STATUS_DONE	=&gt; 20;
use constant TM_STATUS_FAIL	=&gt; 30;

use constant TM_SERVER_LIMIT_TYPE_LOADAVG =&gt; 'loadavg';
use constant TM_SERVER_LIMIT_TYPE_TASKNUM =&gt; 'tasknum';

use constant TM_SERVER_STATUS_ACTIVE =&gt; 'active';
use constant TM_PROJECT_STATUS_ACTIVE =&gt; 'active';
use constant TM_TASK_STATUS_ACTIVE =&gt; 'active';

use constant TM_MAX_TOTAL_CHILD =&gt; 32;

## XXX: dirty, but quickly
our $CFG;

our @ISA = qw(Exporter);
our @EXPORT = qw(
	TM_STATUS_NEW
	TM_STATUS_LOCK
	TM_STATUS_WORK
	TM_STATUS_DONE
	TM_STATUS_FAIL
	TM_SERVER_LIMIT_TYPE_LOADAVG TM_SERVER_LIMIT_TYPE_TASKNUM
	TM_SERVER_STATUS_ACTIVE TM_PROJECT_STATUS_ACTIVE TM_TASK_STATUS_ACTIVE
	TM_MAX_TOTAL_CHILD
	$CFG
);


1;
</pre></body></html>