#!/usr/bin/perl -Tw
#
-# $Id: fs-setup,v 1.28 2000-10-30 10:47:26 ivan Exp $
+# $Id: fs-setup,v 1.29 2000-11-07 15:00:37 ivan Exp $
#
# ivan@sisd.com 97-nov-8,9
#
# fix radius attributes ivan@sisd.com 98-sep-27
#
# $Log: fs-setup,v $
-# Revision 1.28 2000-10-30 10:47:26 ivan
+# Revision 1.29 2000-11-07 15:00:37 ivan
+# session monitor
+#
+# Revision 1.28 2000/10/30 10:47:26 ivan
# nas.last can't be defined NULL if indexed
#
# Revision 1.26 2000/07/06 08:57:27 ivan
'nas', 'varchar', '', $char_d,
'nasip', 'varchar', '', 15,
'nasfqdn', 'varchar', '', $char_d,
-# 'last', 'timestamp', '', '',
-#change to above when move to DBIx::DBSchema!!!
- 'last', 'datetime', '', '',
+ 'last', @date_type,
],
'primary_key' => 'nasnum',
'unique' => [ [ 'nas' ], [ 'nasip' ] ],
'sessionnum', 'int', '', '',
'portnum', 'int', '', '',
'svcnum', 'int', '', '',
-# 'login', 'timestamp', '', '',
-# 'logout', 'timestamp', '', '',
-#change to above when move to DBIx::DBSchema!!!
- 'login', 'datetime', '', '',
- 'logout', 'datetime', NULL, '',
+ 'login', @date_type,
+ 'logout', @date_type,
],
'primary_key' => 'sessionnum',
'unique' => [],