diff options
| author | ivan <ivan> | 2000-12-03 13:44:05 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2000-12-03 13:44:05 +0000 |
| commit | c7effea426d7cefcebc4b32f162fd1719095fc12 (patch) | |
| tree | 6a7e15cf2d676c0d2e2e059e49fa3f187bc8d25f /FS/FS/port.pm | |
| parent | e966cec8367fbc5f21b366f9c497fc0260292407 (diff) | |
beginnings of web status for session monitor
Diffstat (limited to 'FS/FS/port.pm')
| -rw-r--r-- | FS/FS/port.pm | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/FS/FS/port.pm b/FS/FS/port.pm index c1bdee9..ee4611d 100644 --- a/FS/FS/port.pm +++ b/FS/FS/port.pm @@ -4,6 +4,7 @@ use strict; use vars qw( @ISA ); use FS::Record qw( qsearchs ); use FS::nas; +use FS::session; @ISA = qw(FS::Record); @@ -26,6 +27,8 @@ FS::port - Object methods for port records $error = $record->check; + $session = $port->session; + =head1 DESCRIPTION An FS::port object represents an individual port on a NAS. FS::port inherits @@ -113,11 +116,20 @@ sub check { ''; #no error } +=item session + +Returns the currently open session, or if no session is currently open, the +most recent session. See L<FS::session>. + +=cut + + + =back =head1 VERSION -$Id: port.pm,v 1.1 2000-10-27 20:18:32 ivan Exp $ +$Id: port.pm,v 1.2 2000-12-03 13:44:05 ivan Exp $ =head1 BUGS @@ -135,7 +147,10 @@ added hfields ivan@sisd.com 97-nov-13 $Log: port.pm,v $ -Revision 1.1 2000-10-27 20:18:32 ivan +Revision 1.2 2000-12-03 13:44:05 ivan +beginnings of web status for session monitor + +Revision 1.1 2000/10/27 20:18:32 ivan oops, also necessary for session monitor Revision 1.1 1999/08/04 08:03:03 ivan |