DAY (list YEAR MONTH DATE)
HM (list HOUR MINUTE)
TOTAL '()
+ GAP SITE:control.activity.gap
+ CLIP SITE:control.activity.clip
)
# Load CONTROL.DAT
(list DOW (6 30) 120 (20 0)))
)
-(setf
- GAP (or (lookup 'gap CONTROL) 15)
- CLIP (or (lookup 'clip CONTROL) 1000)
- )
-
# Load the configured control mechanism
(if (lookup 'control CONTROL) (load $it)
(die "** Unknown control mechanism. Exiting!!"))
listener.tundev = /dev/net/tun
control.action = ipset-control.lsp
+control.activity.gap = 10
+control.activity.clip = 1000
control.dat = control.dat
control.net = 10.0.0.0/8
control.extra.dat = control-extra.dat
</tr>
</MAP>
</table>
- <div id="extras">
- <div id="gap_toggle" class="extra">
- <select name="gap">
- <MAP> (X) (map list gap-options) <option value="X"
-<?newlisp (if (= (mapv X) GAP) "selected" "")?>>X</option></MAP>
- </select>
- idle minutes between activity sessions.
- </div>
- <div id="clip-toggle">
- <select name="clip" class="extra">
- <MAP> (X) (map list clip-options) <option value="X"
-<?newlisp (if (= (mapv X) CLIP) "selected" "")?>>X</option></MAP>
- </select>
- networks packets in a minute, to count as activity.
- </div>
- </div>
<div id="form_submit" class="extra" >
<?newlisp UPDATE?>
<input type="submit" value="update">