diff options
| author | fukachan <fukachan> | 2003-08-23 07:24:40 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-08-23 07:24:40 +0000 |
| commit | 9723a7a408f11cf8beaf8f618d2863c2f3e28ddb (patch) | |
| tree | dd4b1e0ae8d32873a0a289d5ba2a7cf01a2cc3ad /fml/lib/FML/Process/QueueManager.pm | |
| parent | 1757df2907216e1ab833c05ac8a2757f0b6a67e7 (diff) | |
| download | fml8-9723a7a408f11cf8beaf8f618d2863c2f3e28ddb.tar.gz fml8-9723a7a408f11cf8beaf8f618d2863c2f3e28ddb.tar.bz2 fml8-9723a7a408f11cf8beaf8f618d2863c2f3e28ddb.zip | |
define $curproc->log, logwarn, logerror and log_message() methods.
modified to use $curproc->log*() interface.
Diffstat (limited to 'fml/lib/FML/Process/QueueManager.pm')
| -rw-r--r-- | fml/lib/FML/Process/QueueManager.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fml/lib/FML/Process/QueueManager.pm b/fml/lib/FML/Process/QueueManager.pm index 21e75149..65fe87df 100644 --- a/fml/lib/FML/Process/QueueManager.pm +++ b/fml/lib/FML/Process/QueueManager.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: QueueManager.pm,v 1.12 2003/03/18 10:38:33 fukachan Exp $ +# $FML: QueueManager.pm,v 1.13 2003/08/23 04:35:40 fukachan Exp $ # package FML::Process::QueueManager; @@ -94,12 +94,12 @@ sub send } else { # XXX-TODO: $q->remove() if invalid queue ? - Log("$qid is invalid"); + $curproc->log("$qid is invalid"); } $q->unlock(); } else { - Log("$qid is locked. retry"); + $curproc->log("$qid is locked. retry"); } } } @@ -132,10 +132,10 @@ sub _send }); if ($r) { - Log("queue=$qid status=sent"); + $curproc->log("queue=$qid status=sent"); } else { - Log("queue=$qid status=fail"); + $curproc->log("queue=$qid status=fail"); } return $r; |