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]
