sub get_username_now {

if ($session_username eq "") { print qq~<b><font size="2">Welcome to </b> <font color="#FF0000">$sitename! </font></font><br>~;}

if ($session_username ne "") { print qq~
<table border="1" bordercolorlight="#808080" bordercolordark="#808080" bordercolor="#808080" cellspacing="1">
  <tr>
    <td bgcolor="#C0C0C0" bordercolor="#808080" bordercolorlight="#808080" bordercolordark="#808080">
<b>Loged in as: </b> <font color="#FF0000"><u> $session_username!</u></font>
<a href="$script_url?db=$form_data{'db'}&website=$form_data{'website'}&language=$form_data{'language'}&session_key="><br><font color="#FF0000">Log off</font></a>
</td>
  </tr>
</table><br>
~;}




if ($session_username ne "") {
open (FILElastuser, ">$path/language/english/logs/lastuser.log");
print FILElastuser "$session_username";
  close (FILElastuser);}

open(IPS,"<$path/language/english/logs/lastuser.log");
$pvalue = <IPS>;
close(IPS); 

if ($session_username ne "") {
if ($helptopic ne "") {
open (FILElastuser, ">$path/language/english/logs/lastkw.log");
print FILElastuser "$helptopic";
  close (FILElastuser);
}
}

open(IPS,"<$path/language/english/logs/lastkw.log");
$pvaluekw = <IPS>;
close(IPS); 


if ($session_username eq "") {
if ($helptopic ne "") {
open (FILElastuser, ">$path/language/english/logs/nolastkw.log");
print FILElastuser "$helptopic";
  close (FILElastuser);
}
}

open(IPS,"<$path/language/english/logs/nolastkw.log");
$pnovaluekw = <IPS>;
close(IPS); 


print qq~
<table border="1" bordercolorlight="#808080" bordercolordark="#808080" bordercolor="#808080" cellspacing="1">
  <tr>
    <td bgcolor="#C0C0C0" bordercolor="#808080" bordercolorlight="#808080" bordercolordark="#808080">
 <font size="2">Usage Details</font>
    </td>
    </tr>
  <tr>
    <td bgcolor="#C0C0C0" bordercolor="#808080" bordercolorlight="#808080" bordercolordark="#808080">
~;

if ($pvalue ne "") { print qq~<b><font size="1">Last User to login: </font></b> <font size="1" color="#FF0000"><u> $pvalue!</u></font><br>~;}

if ($pvaluekw ne "") { print qq~<b><font size="1">Last action: </font></b> <font size="1" color="#FF0000"><u><a HREF="$pvaluekw" onClick="window.open('$script_url?db=$form_data{'db'}&website=$form_dat1a{'website'}&language=$form_data{'language'}&session_key=$session_key&popup_help=on&helptopic=$pvaluekw','userhelp','WIDTH=400,HEIGHT=400,scrollbars=yes,left=150,top=100,screenX=150,screenY=100');return false"> $pvaluekw!</a></u></font><br>~;}

if ($pnovaluekw ne "") { print qq~<b><font size="1">Last public user action: </font></b> <font size="1" color="#FF0000"><u> <a HREF="$pnovaluekw" onClick="window.open('$script_url?db=$form_data{'db'}&website=$form_dat1a{'website'}&language=$form_data{'language'}&session_key=$session_key&popup_help=on&helptopic=$pnovaluekw','userhelp','WIDTH=400,HEIGHT=400,scrollbars=yes,left=150,top=100,screenX=150,screenY=100');return false">$pnovaluekw!</u></font><br>~;}

print qq~
    </td>
    </tr>
    </table>
</body>
~;
}


1;