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);
=item check
-Checks all fields to make sure this is a valid example. If there is
+Checks all fields to make sure this is a valid NAS. If there is
an error, returns the error, otherwise returns false. Called by the insert
and replace methods.
|| $self->ut_text('nas')
|| $self->ut_ip('nasip')
|| $self->ut_domain('nasfqdn')
- || $self->ut_numbern('last');
+ || $self->ut_numbern('last')
+ || $self->SUPER::check
+ ;
}
-=back
+=item heartbeat TIMESTAMP
+
+Updates the timestamp for this nas
+
+=cut
-=head1 VERSION
+sub heartbeat {
+ 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);
+}
-$Id: nas.pm,v 1.1 2000-10-27 20:18:32 ivan Exp $
+=back
=head1 BUGS
-The author forgot to customize this manpage.
+heartbeat method uses SQL directly and doesn't update history tables.
=head1 SEE ALSO