Log Users

[Msftblows]

I already have a user registration form set up, but now I want to be able to
display the last 10 visitors which logged into my site.

The current code I have does the following:

displays the last user to login 
what they did 
what anonymous users are doing using 3 different files


$session_username = user name
$pvaluekw = last key word by logged in user
$pnovaluekw = anonymouse users last key word

Any help would be appreciated

Thanks!

The current script:
###########################
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;

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]