<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2800.1276" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=525140216-19122003><FONT face=Arial 
size=2>Hi,</FONT></SPAN></DIV>
<DIV><SPAN class=525140216-19122003><FONT face=Arial 
size=2></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=525140216-19122003><FONT face=Arial size=2>I was looking for a 
way to dynamically set the session-timeout to the end of the month.&nbsp; Since 
this does not seem to be standard, I made an attempt to write a 
PostAuthHook:</FONT></SPAN></DIV>
<DIV><SPAN class=525140216-19122003></SPAN><SPAN class=525140216-19122003><FONT 
face=Arial size=2></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=525140216-19122003><FONT face=Arial size=2>use 
Time::Local;</FONT></SPAN></DIV>
<DIV><FONT face=Arial size=2><SPAN class=525140216-19122003># If 
Session-Timeout=EM then set it to the number of seconds left in this 
month.</SPAN></FONT></DIV>
<DIV><SPAN class=525140216-19122003><FONT face=Arial size=2>sub<BR>{<BR>&nbsp;my 
$p = ${$_[1]};<BR>&nbsp;<BR>&nbsp;my $SessionTimeout = 
$p-&gt;get_attr('Session-Timeout');<BR>&nbsp;if (defined 
$SessionTimeout)<BR>&nbsp;{<BR>&nbsp;&nbsp;if( $SessionTimeout eq 
'EM')<BR>&nbsp;&nbsp;{<BR>&nbsp;&nbsp;&nbsp;my $sec;<BR>&nbsp;&nbsp;&nbsp;my 
$min;<BR>&nbsp;&nbsp;&nbsp;my $hour;<BR>&nbsp;&nbsp;&nbsp;my 
$mday;<BR>&nbsp;&nbsp;&nbsp;my $mon;<BR>&nbsp;&nbsp;&nbsp;my 
$year;<BR>&nbsp;&nbsp;&nbsp;my $wday;<BR>&nbsp;&nbsp;&nbsp;my 
$yday;<BR>&nbsp;&nbsp;&nbsp;my 
$isdst;<BR>&nbsp;&nbsp;&nbsp;($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) 
= localtime(time);</FONT></SPAN></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><SPAN class=525140216-19122003><FONT face=Arial 
size=2>&nbsp;&nbsp;&nbsp;$mon++;<BR>&nbsp;&nbsp;&nbsp;$year+=1900;</FONT></SPAN></DIV>
<DIV>&nbsp;</DIV>
<DIV><SPAN class=525140216-19122003><FONT face=Arial 
size=2>&nbsp;&nbsp;&nbsp;if($mon eq 
12)<BR>&nbsp;&nbsp;&nbsp;{<BR>&nbsp;&nbsp;&nbsp;&nbsp;$mon = 
0;<BR>&nbsp;&nbsp;&nbsp;&nbsp;$year++;<BR>&nbsp;&nbsp;&nbsp;}</FONT></SPAN></DIV>
<DIV><FONT face=Arial size=2></FONT>&nbsp;</DIV>
<DIV><SPAN class=525140216-19122003><FONT face=Arial size=2>&nbsp;&nbsp;&nbsp;my 
$Timeout = timelocal(0,0,0,1,$mon,$year) -1 - 
time;<BR>&nbsp;&nbsp;&nbsp;$p-&gt;change_attr('Session-Timeout',$Timeout);<BR>&nbsp;&nbsp;}<BR>&nbsp;}<BR>}<BR></FONT></SPAN></DIV>
<DIV><SPAN class=525140216-19122003><FONT face=Arial size=2>If anybody knows a 
better way to do this, please let me know.</FONT></SPAN></DIV>
<DIV><SPAN class=525140216-19122003><FONT face=Arial 
size=2></FONT></SPAN>&nbsp;</DIV>
<DIV><SPAN class=525140216-19122003><FONT face=Arial 
size=2>Greetings,</DIV></FONT></SPAN>
<DIV>&nbsp;</DIV>
<DIV align=left>
<DIV align=left><FONT face=Tahoma size=2>Herman verschooten</FONT></DIV>
<DIV align=left><FONT face=Tahoma size=2></FONT>&nbsp;</DIV>
<DIV align=left><FONT face=Tahoma size=2></FONT>&nbsp;</DIV>
<DIV align=left><FONT face=Tahoma size=2>WebVisie bvba</FONT></DIV>
<DIV align=left><FONT face=Arial size=1><EM>Een klare kijk op interne en externe 
communicatie</EM></FONT></DIV>
<DIV align=left><FONT face=Arial 
size=2>_______________________________________________</FONT></DIV>
<DIV align=left><FONT size=1><FONT face=Arial><FONT size=+0><FONT size=1>Oudaan 
15&nbsp;/ 33</FONT>&nbsp;</FONT><FONT 
size=1>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;2000 
Antwerpen&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </FONT></FONT><A 
href="http://www.webvisie.net/"><FONT face=Arial 
color=#000000>http://www.webvisie.net</FONT></A></FONT></DIV>
<DIV align=left><FONT face=Arial size=1>tel 
03/206.72.70&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fax 
03/234.93.82&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<A 
href="mailto:h.verschooten@webvisie.net"><FONT face=Arial color=#000000 
size=1>h.verschooten@webvisie.net</FONT></A></FONT><FONT size=1><FONT 
face=Arial><FONT size=2>&nbsp;&nbsp; </FONT></FONT></FONT></DIV></DIV>
<DIV>&nbsp;</DIV></BODY></HTML>