Lines Matching defs:error
62 # Print a list of error messages and exit.
64 sub error
448 open($pfh, "<&=STDIN") or error( [10,
451 error([10, gettext('Cannot open %s: %s'), $projfile, $!]);
467 error(@$pf);
486 error([6, gettext('Project "%s" does not exist'), $pname])
636 error(@$err);
649 error([10, gettext('Cannot create %s: %s'), $tmpprojf, $!]);
656 error([10, gettext('Cannot set ownership of %s: %s'),
661 error([10, gettext('cannot rename %s to %s: %s'),
668 my $error;
670 if (($error = setproject($pname, "root", TASK_FINAL|TASK_PROJ_PURGE)) != 0) {
672 if ($error == SETPROJ_ERR_TASK) {
674 error([5, gettext("resource control limit has ".
677 error([5, gettext("user \"%s\" is not a member ".
680 error([5, gettext("the invoking task is final\n"
683 error([5, gettext("could not join project \"%s".
687 } elsif ($error == SETPROJ_ERR_POOL) {
689 error([5, gettext("no resource pool accepting ".
693 error([5, gettext("specified resource pool ".
697 error([5, gettext("could not bind to default ".
704 # $error represents the position - within the semi-colon
705 # delimited $attribute - that generated the error
707 if ($error <= 0) {
708 error([5, gettext("setproject failed for ".
714 /(\S+?)=\S+?(?:;|\z)/g)[$error - 1];
717 error([5, gettext("warning, resource ".
720 $pname, $error]);
722 error([5, gettext("warning, %s ".