projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add Search::DBDate, which provokes failure in the LC server.
[irspy-moved-to-github.git]
/
lib
/
ZOOM
/
IRSpy
/
Task.pm
diff --git
a/lib/ZOOM/IRSpy/Task.pm
b/lib/ZOOM/IRSpy/Task.pm
index
04d5a3c
..
e39e184
100644
(file)
--- a/
lib/ZOOM/IRSpy/Task.pm
+++ b/
lib/ZOOM/IRSpy/Task.pm
@@
-1,4
+1,4
@@
-# $Id: Task.pm,v 1.1 2006-10-06 11:33:07 mike Exp $
+# $Id: Task.pm,v 1.2 2006-10-12 14:36:34 mike Exp $
package ZOOM::IRSpy::Task;
package ZOOM::IRSpy::Task;
@@
-32,12
+32,13
@@
pointer to the next task to be performed after this.
sub new {
my $class = shift();
sub new {
my $class = shift();
- my($conn, %cb) = @_;
+ my($conn, $udata, %cb) = @_;
return bless {
irspy => $conn->{irspy},
conn => $conn,
cb => \%cb,
return bless {
irspy => $conn->{irspy},
conn => $conn,
cb => \%cb,
+ udata => $udata,
timeRegistered => time(),
}, $class;
}
timeRegistered => time(),
}, $class;
}
@@
-53,6
+54,11
@@
sub conn {
return $this->{conn};
}
return $this->{conn};
}
+sub udata {
+ my $this = shift();
+ return $this->{udata};
+}
+
sub run {
my $this = shift();
die "can't run base-class task $this";
sub run {
my $this = shift();
die "can't run base-class task $this";