projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
tax report fix sort
[freeside.git]
/
FS
/
FS
/
nas.pm
diff --git
a/FS/FS/nas.pm
b/FS/FS/nas.pm
index
873c9bc
..
2d17df8
100644
(file)
--- a/
FS/FS/nas.pm
+++ b/
FS/FS/nas.pm
@@
-2,8
+2,8
@@
package FS::nas;
use strict;
use vars qw( @ISA );
use strict;
use vars qw( @ISA );
-use FS::Record qw();
-
#use FS::Record qw( qsearch qsearchs
);
+use FS::Record qw(
qsearchs); #qsearch
);
+
use FS::UID qw( dbh
);
@ISA = qw(FS::Record);
@ISA = qw(FS::Record);
@@
-114,28
+114,35
@@
sub check {
|| $self->ut_text('nas')
|| $self->ut_ip('nasip')
|| $self->ut_domain('nasfqdn')
|| $self->ut_text('nas')
|| $self->ut_ip('nasip')
|| $self->ut_domain('nasfqdn')
- || $self->ut_numbern('last');
+ || $self->ut_numbern('last')
+ || $self->SUPER::check
+ ;
}
}
-=
sub
heartbeat TIMESTAMP
+=
item
heartbeat TIMESTAMP
Updates the timestamp for this nas
=cut
sub heartbeat {
Updates the timestamp for this nas
=cut
sub heartbeat {
- warn "warning: heartbeat unimplemented!"
+ my($self, $timestamp) = @_;
+ my $dbh = dbh;
+ my $sth =
+ $dbh->prepare("UPDATE nas SET last = ? WHERE nasnum = ? AND last < ?");
+ $sth->execute($timestamp, $self->nasnum, $timestamp) or die $sth->errstr;
+ $self->last($timestamp);
}
=back
=head1 VERSION
}
=back
=head1 VERSION
-$Id: nas.pm,v 1.
2 2000-11-07 15:00:37 ivan
Exp $
+$Id: nas.pm,v 1.
7 2003-08-05 00:20:43 khoff
Exp $
=head1 BUGS
=head1 BUGS
-
The author forgot to customize this manpage
.
+
heartbeat method uses SQL directly and doesn't update history tables
.
=head1 SEE ALSO
=head1 SEE ALSO