code:

code:

###############################################################<br># WHO'S ONLINE FOR UBB<br># Last Updated: 28/3/01 @ 19:44<br>#<br># This Version By: Elliott "Borg" Brady ([email protected])<br>#  <a href="https://ubbdev.com/"   target="_blank">https://ubbdev.com/</a> <br>#<br># Originally By: Dave Downin ([email protected])<br>#  <a href="http://www.arlo.net/"   target="_blank">http://www.arlo.net/</a> <br>#<br># PLEASE DO NOT REMOVE THE COPYRIGHT NOTICE - I WORKED HARD TO<br># CREATE THIS HACK, AND IT PROVIDES ME WITH USEFUL INFORMATION<br># SHOULD YOU REQUIRE HELP OR ASSISTANCE<br>###############################################################<br># Version Notes:<br># 3.0  - A new era begins (UBB Version 6 support). All respect to Dave for<br>#           the original modification.<br>#<br># 3.1  - timeformat sub replaced to fix errror. Thanks mikels!<br># 3.2 @ 19:44 - re-did most of code to localise variables (and hopefully make mod_perl friendly)<br># 3.3 @ 01:55 - fixed "." bug<br>$version = "3.3";<br><br>sub whos_online_ssi {<br>##### Who's online? Code Block by Elliott "Borg" Brady<br>#<!--#exec cgi="D:/216.205.119.230/ubbcgi/ultimatebb.cgi?ubb=whos_online_ssi&link=https://ubbdev.com&name=Site%20Intro"--><br>local($Online_Wording, $Online_Details, $replace, @nullit);<br>$in{name} =~ s/+/&/;<br>$in{name} =~ s/%20/ /;<br><br>&WriteUserSession("$vars_wordlets_mods{whos_online_viewing} <A HREF="$in{$link}">$in{name}</A>");<br><br>undef($Online_Wording); undef($Online_Details); undef($replace);<br>($Online_Wording, $Online_Details, @nullit) = &GetOnlineUsers($username);<br><br>$replace = qq~<br><table border="0" cellpadding="0" cellspacing="1" width="$vars_style{TableWidth}"><br><tr bgcolor="$vars_style{TableBorderColor}"><td><br><table border="0" bgcolor="$vars_style{TableBorderColor}" width="100%" cellpadding="4" cellspacing="1"><br><tr bgColor="$vars_style{AltColumnColor1}"><td bgColor="$vars_style{AltColumnColor1}"><br><FONT SIZE="1" FACE="$vars_style{FontFace}" color="$vars_style{BBTitleFontColor}"><A HREF="$vars_config{CGIURL}/ultimatebb.cgi?ubb=whos_online"><B>$Online_Wording</A></B></FONT><br><br><FONT SIZE="1" FACE="$vars_style{FontFace}" color="$vars_style{FontColor}">$Online_Details</font></td></tr></table></td></tr></table>~;<br><br>##### / Who's online? Code block by Elliott "Borg" Brady<br>print "$replace";<br>undef($maxline); undef ($maxtotal);<br>exit;<br>}<br><br>sub whos_online {<br>local(*FILE, $include_yourself, $inactive_time, $refresh_time, $see_invisible, $display_host, $members_per_page, $online_message, $online_message_forum, $ssi_msg);<br>local ($version, $Header, $page, $start_at, $tot, @found, $usertime, $username, $this_user_number, $host_ip, $where);<br><br># get assigned style template!<br>unless (exists($template_match{summary_page})) { $template_match{summary_page} = 1; }<br>require "$vars_config{NonCGIPath}/styles/vars_style_$template_match{summary_page}.cgi";<br><br>&set_page_elements;<br>print $Header;<br><br>   if (-e "$vars_config{VariablesPath}/vars_whos_online.cgi") {<br>      require "$vars_config{VariablesPath}/vars_whos_online.cgi";<br>   } else {        # Use Defaults if no file<br>        $include_yourself = 1;<br>        $inactive_time = 5;<br>        $refresh_time = 60;<br>        $see_invisible = "both";<br>        $display_host = "admin";<br>        $members_per_page = 75;<br>        $online_message = "summary";<br>        $online_message_forum = "list";<br>        $ssi_msg = "list";<br>   }<br><br><br>$page = $in{'p'};<br>if (!$page) { $page = 1; }<br>$start_at = $members_per_page * ($page - 1);<br><br>&WriteUserSession("$vars_wordlets_mods{whos_online_viewing} <A HREF="$vars_config{CGIURL}/ultimatebb.cgi?ubb=whos_online">$vars_wordlets_mods{whos_online_whos_online}</A>");<br>($Online_Wording, $Online_Details, @found) = &GetOnlineUsers($username);<br><br>$tot = @found;<br>undef($status);<br>if ($ubber[4]) {<br>        my @temp_profile = &OpenProfile($ubber[4]);<br>        $status = "mods" if ($temp_profile[8] =~ /mod/ig);<br>        $status = "admin" if ($temp_profile[8] =~ /admin/ig);<br>#        $status = "admin" if ($ubber[0] =~ /Borg/ig);                        # Used for debugging<br>}<br>if ($see_invisible eq "both" && $status) { $adminstatus = 1; }<br>if ($see_invisible eq $status) { $adminstatus = 1; }<br><br>if ($display_host eq $status) { $hostinfo = 1; }<br>if ($display_host eq "both" && $status) { $hostinfo = 1; }<br>if ($display_host eq "everyone") { $hostinfo = 1; }<br><br>$current = time;<br>if (($vars_time{TimeZoneOffset} ne "") &#0124;&#0124; ($vars_time{TimeZoneOffset} ne "0")) {<br>   $current = $current + ($vars_time{TimeZoneOffset} * 3600);<br>}<br>($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = &get_date($current);<br>   if ($vars_time{DateFormat} eq "USX") { $vars_time{DateFormat} = "USExpanded"; }<br>   $TheDate = &DateFormat("$mon-$mday-$year", "$vars_time{DateFormat}");<br>   $TheTime = &TimeFormat("$hour:$min");<br>   $current_dt = "$TheDate / $TheTime";<br><br>($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = &get_date($maxtime);<br>   if ($vars_time{DateFormat} eq "USX") { $vars_time{DateFormat} = "USExpanded"; }<br>   $TheDate = &DateFormat("$mon-$mday-$year", "$vars_time{DateFormat}");<br>   $TheTime = &TimeFormat("$hour:$min");<br>   $max_dt = "$TheDate / $TheTime";<br>$BorderTop = "";<br>$BorderBottom = "";<br><br># print header<br>print<<HEAD;<br><META HTTP-EQUIV=REFRESH CONTENT="$refresh_time; URL=$vars_config{CGIURL}/ultimatebb.cgi?ubb=whos_online#tabletop"><br><CENTER><br><A NAME="tabletop"><br><br><TABLE border="0" width="$vars_style{TableWidth}"><br><TR><TD align="left" valign="top" ><br><A HREF="$vars_config{CGIURL}/ultimatebb.cgi"><IMG src="$vars_config{NonCGIURL}/$vars_style{BBTitle}" border="0"></A><br></TD><br><TD align="center"><br><B><br><FONT size="3" face="$vars_style{FontFace}" color="$vars_style{BBTitleFontColor}">$vars_config{BBName}</FONT></B><br><br><br><FONT size="1" face="$vars_style{FontFace}"><br>$MainButtonsLine<br></FONT><br></TD></TR></TABLE></b><br><br><br><br><table border="0" width="$vars_style{TableWidth}"><br><tr><br><TD valign="bottom" align="right"><br><FONT SIZE="1" FACE="$vars_style{FontFace}"><br></FONT><br></TD><br></tr><br></table><br><br><!-- Navigation/Login Table --><br><br>$TBT<br><br><TR bgcolor="$vars_style{AltColumnColor1}"><br><TD NOWRAP align="left" valign="bottom"><br><FONT SIZE="1"  FACE="$vars_style{FontFace}"><br><B>&#187; <br>$show_logout<br></B><br> </font><br></TD><br><TD valign="bottom" align="right"><br><FONT SIZE="1" FACE="$vars_style{FontFace}"><br><B><br><A HREF="$vars_config{CGIURL}/ultimatebb.cgi"><ACRONYM TITLE="$vars_wordlets{forum_home_link}"><br>$vars_config{BBName}</ACRONYM></A> &#187; $vars_wordlets_mods{whos_online_whos_online}  <br></B><br></FONT><br></TD><br></TR><br><br>$TBB<br><br><!-- End Navigation/Login Table --><br><br><table border="0" width="$vars_style{TableWidth}"><br><tr><br><TD valign="top" align="left"><br><FONT SIZE="2" FACE="$vars_style{FontFace}"><br>$this_forum[16]<br></FONT><br></TD><br></tr><br></table><br><br><br><br>$BorderTop<br><br><table border=0 cellpadding=2 cellspacing=0 width=$vars_style{TableWidth}><br><tr bgcolor="$vars_style{TableColorStrip}"><br><td align="left" valign="middle"><FONT SIZE="1" FACE="$vars_style{FontFace}" color="$vars_style{CategoryStripTextColor}">$vars_wordlets_mods{whos_online_column_user}</FONT></td><br><br><td align="left" valign="middle"><FONT SIZE="1" FACE="$vars_style{FontFace}" color="$vars_style{CategoryStripTextColor}">$vars_wordlets_mods{whos_online_column_where}</FONT></td><br><br><td align="left" valign="middle"><FONT SIZE="1" FACE="$vars_style{FontFace}" color="$vars_style{CategoryStripTextColor}">$vars_wordlets_mods{whos_online_column_time}</FONT></td></tr><br>HEAD<br><br><br>#####################################<br># Figure out & create page link HTML<br><br>if (!$members_per_page) {<br>   $members_per_page = $tot + 1;<br>} else {<br>   $total_pages = ($tot + 1)/$members_per_page;<br>   if ($total_pages > int(($tot +1)/$members_per_page)) {<br>      $total_pages++;<br>   }<br>   if ($total_pages >= 2) {<br>   $pages = qq(<FONT FACE="$vars_style{FontFace}" color="$vars_style{FontColor}">$vars_wordlets_mods{whos_online_page} );<br>   for ($i = 1; $i <= $total_pages; $i++) {<br>      if ($page eq $i) {<br>         $pages .= "$i ";<br>      } else {<br>         $pages .= qq(<A HREF="$vars_config{CGIURL}/ultimatebb.cgi?ubb=whos_online&p=$i">$i</A> );<br>      }<br>   }<br>   $pages .= qq(<FONT>);<br>   }<br>}<br><br># End page link HTML code<br>######################################<br><br>if (!$found[0]) {<br>   print qq(<TR><TD COLSPAN=3 ALIGN=CENTER valign=middle bgcolor="$vars_style{AltColumnColor1}"><br>            <FONT SIZE="1" FACE="$vars_style{FontFace}">$OnlineUserMsg</TD></TR>);<br>}<br>$end_at = $start_at + $members_per_page;<br>if ($tot <= $end_at) { $end_at = $tot; }<br>undef($flip);<br>for ($i = $start_at; $i < $end_at; $i++) {<br>   ($usertime,$username,$this_user_number,$host_ip,$where) = split(/|^|/,$found[$i]);<br>   if ($username =~ /.inv/ && !$adminstatus) { next; }<br>   undef($invisible);<br>   if ($username =~ /.inv/) {<br>      $username =~ s/.inv//;<br>      $invisible = " ($vars_wordlets_mods{whos_online_invisible})";<br>   }<br>   if ($username eq "guest") {<br>      $guest_counter++;<br>      $username = "$vars_wordlets_mods{whos_online_Guest} #" . "$guest_counter";<br>   }<br>   if ($hostinfo) {<br>      $hostname = gethostbyaddr($host_ip, AF_INET);<br>      if (!$hostname) { $hostname = $host_ip; }<br>   }<br>   if ($hostinfo) { $hostname = "<br><small>($hostname)</small>"; }<br>($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = &get_date($usertime);<br>   if ($vars_time{DateFormat} eq "USX") { $vars_time{DateFormat} = "USExpanded"; }<br>   $TheDate = &DateFormat("$mon-$mday-$year", "$vars_time{DateFormat}");<br>   $TheTime = &TimeFormat("$hour:$min");<br>   print "<tr ";<br>   if (!$flip) {<br>   print "bgcolor='$vars_style{AltColumnColor1}'";<br>   $flip = "1";<br>   } else {<br>   print "bgcolor='$vars_style{AltColumnColor2}'";<br>   $flip = "";<br>   }<br>   $username =~ s/.inv//g;<br><br>   if ($username !~ /guest/ig) {<br><br>   print qq(><br><br>   <td align=left valign=middle><font size="2" FACE="$vars_style{FontFace}"><br>   <a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=get_profile&u=$this_user_number">);<br>   } else { print qq(><br><br>   <td align=left valign=middle><font size="1" FACE="$vars_style{FontFace}">); }<br>   print qq($username</A> $invisible $hostname</font> </td><br><br>   <td align=left valign=middle><font size="1" FACE="$vars_style{FontFace}"><br>   $where</font> </td><br><br>   <td align=left valign=middle><font size="1" FACE="$vars_style{FontFace}"<br>   color="$vars_style{TimeColor}">$hour:$min $vars_wordlets_mods{whos_online_time}<br>   </font></td></tr>);<br>}<br><br># print footer<br>print<<FOOT;<br><br><tr bgcolor="$vars_style{CategoryStripColor}"><br><td colspan=3 align=center><br><table border=0 cellpadding=1 cellspacing=2><br><tr><br><br><td align="left" valign="middle" bgcolor="$vars_style{CategoryStripColor}"><B><br><FONT SIZE="1" FACE="$vars_style{FontFace}" color="$vars_style{CategoryStripTextColor}">$vars_wordlets_mods{whos_online_currently}</FONT></B></td><br><br><td align="left" valign="middle" bgcolor="$vars_style{CategoryStripColor}"><B><br><FONT SIZE="1" FACE="$vars_style{FontFace}" color="$vars_style{CategoryStripTextColor}">$current_dt ($totalcount $vars_wordlets_mods{whos_online_visitors})</FONT></B></td></tr><br><tr><br><br><td align="left" valign="middle" bgcolor="$vars_style{CategoryStripColor}"><B><br><FONT SIZE="1" FACE="$vars_style{FontFace}" color="$vars_style{CategoryStripTextColor}">$vars_wordlets_mods{whos_online_record}<br></FONT></B></td><br><br><td align="left" valign="middle" bgcolor="$vars_style{CategoryStripColor}"><B><br><FONT SIZE="1" FACE="$vars_style{FontFace}" color="$vars_style{CategoryStripTextColor}">$max_dt ($maxtotal $vars_wordlets_mods{whos_online_visitors})<br></FONT></B></td></tr><br></table><br></td></tr><br><br><tr><td colspan=3 align=right>$pages</td></tr></table><br><br><br><br><center><br><FONT SIZE="1" FACE="$vars_style{FontFace}" color="$vars_style{FontColor}"><br>$vars_wordlets_mods{whos_online_reload_every} $refresh_time $vars_wordlets_mods{whos_online_seconds}</FONT><br></center><br><br><br>FOOT<br><br>print $Footer;<br>undef($maxline); undef($maxtotal); undef($Footer); undef($Header); undef($totalcount); undef($max_dt); undef($current_dt);<br>}<br><br>sub get_date {<br><br>   ($seed) = @_;<br>   if (!$seed) { $seed = time; }<br>   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($seed);<br>   $mon++;<br><br>   $year = 1900 + $year;<br>   $wday = (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$wday];<br>   $nice_mon = (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$mon];<br>   if ($mday <= "9") {  $mday = "0$mday"; }<br>   if ($hour <= 9) { $hour = "0$hour"; }<br>   if ($min <= 9) { $min = "0$min"; }<br>   if ($sec <= 9) { $sec = "0$sec"; }<br>   if ($isdst) { $tz = "EDT"; } else { $tz = "EST"; }<br><br>   $unix_date = scalar localtime;<br><br>return ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);<br>}<br><br>### Sub thanks to mikels<br>sub TimeFormat {<br>local($time_formatted, @timearray, $get_hour, $get_minute);<br><br>if ($vars_time{TimeFormat} eq '24HR') {<br>@timearray = split(/ /, $_[0]); chomp($timearray[1]);<br>($get_hour, $get_minute) = split(/:/, $timearray[0]);<br>chomp($get_minute);<br>if ($timearray[1] eq 'PM') {<br>if ($get_hour < 12) { $get_hour = ($get_hour + 12); }<br>} else {<br>if ($get_hour == 12) { $get_hour = '0'; }<br>}<br>$get_hour = &Do2Digit($get_hour);<br>$get_minute = &Do2Digit($get_minute);<br>$time_formatted = "$get_hour:$get_minute";<br>} else {<br>$time_formatted = "$_[0]";<br>}<br>return($time_formatted);<br>} # end TimeFormat<br>sub PageTopHTML {<br><br>   if ($DisplayRegistration eq "NO") {<br>      $RegLinkHere = "";<br>   }  else {<br>      $RegLinkHere = qq(| <A HREF="$CGIURL/Ultimate.cgi?action=agree"><ACRONYM TITLE="Registration is free!">register</ACRONYM></A> );<br>   }<br><br>   if (-e "$CGIPath/login.cgi" && $login_hack) {<br>      if ($cookie{UserName}) {<br>        $LogoutText = qq(<A HREF="$CGIURL/login.cgi?action=logout">logout</A> );<br>      } else {<br>        $LogoutText = qq(<A HREF="$CGIURL/login.cgi">login</A> );<br>      }<br>   }<br><br>   if (-e "$CGIPath/active.cgi" && $active_topics) {<br>      $ActiveText = qq(| <A HREF="$CGIURL/active.cgi">active topics</A>);<br>   }<br><br>   if (-e "$CGIPath/memberlist.cgi" && $memberlist_hack) {<br>      $MemberText = qq(| <A HREF="$CGIURL/memberlist.cgi">members</A>);<br>   }<br><br>   if (-e "$CGIPath/team.cgi" && $team_hack) {<br>      $TeamText = qq(| <A HREF="$CGIURL/team.cgi">team</A>);<br>   }<br><br>   if ($AllowSearch eq "FALSE") {<br>      $SearchOption = "";<br>   }  else {<br>   $SearchOption = qq(| <A HREF="$CGIURL/search.cgi?action=intro&default=$number"><ACRONYM TITLE="Perform a search by keyword, date, or name.">search</ACRONYM></A>);<br>   }<br><br>$PageTopHTML = qq(<br><center><br><table border="1" cellpadding="10" cellspacing="0" cols="2"><br><tr><TD align=center><br><A HREF="Ultimate.cgi"><IMG SRC="$NonCGIURL/$BBTitle" BORDER=0></A><br></td><br><td align=center><br><B><FONT SIZE="3" FACE="$FontFace" COLOR="$BBTitleFontColor">$BBName</FONT></B><br><br><FONT SIZE="1" FACE="$FontFace"><br>$LogoutText<br>$RegLinkHere<br>| <A HREF="$CGIURL/ubbmisc.cgi?action=editbio"><ACRONYM TITLE="Click here to edit your profile.">profile</ACRONYM></A><br>| <A HREF="$CGIURL/ubbmisc.cgi?action=setprefs"><ACRONYM TITLE="Set your preferences.">preferences</ACRONYM></A><br>| <A HREF="$NonCGIURL/faq.html" target=_blank><ACRONYM TITLE="Frequently Asked Questions">faq</ACRONYM></A><br>$SearchOption<br>$MemberText<br>$TeamText<br>$ActiveText<br></font></font></td></tr></table>);<br><br>}<br><br>sub ConfigureHTML {<br><br>if ($include_yourself) {<br>   $IncludeYes = "CHECKED"; } else { $IncludeNo = "CHECKED"; }<br><br>if ($see_invisible eq "admin") {<br>   $Invisible0 = "SELECTED"; } else { $Invisible1 = "SELECTED"; }<br><br>if ($display_host eq "admin") {<br>   $Host0 = "SELECTED";<br>} elsif ($display_host eq "both") {<br>   $Host1 = "SELECTED";<br>} elsif ($display_host eq "everyone") {<br>   $Host2 = "SELECTED"; } else { $Host3 = "SELECTED"; }<br><br>if ($online_message eq "summary") {<br>   $Online0 = "SELECTED";<br>} elsif ($online_message eq "list") {<br>   $Online1 = "SELECTED"; } else { $Online2 = "SELECTED"; }<br><br>if ($members_per_page eq "25") {<br>   $MPP0 = "SELECTED";<br>} elsif ($members_per_page eq "50") {<br>   $MPP1 = "SELECTED";<br>} elsif ($members_per_page eq "75") {<br>   $MPP2 = "SELECTED";<br>} elsif ($members_per_page eq "100") {<br>   $MPP3 = "SELECTED"; } else { $MPP4 = "SELECTED"; }<br><br>print <<CONFIGURE;<br><html><br><head><title>Who's Online Configuration</title></head><br><BODY bgcolor="#FFFFFF" link="#000080" vlink="#808000"><br><br><center><br><FONT SIZE="2" FACE="Verdana, Arial"> C O N F I G U R E      W H O ' S      O N L I N E</FONT><br><br><br><br><FONT SIZE="$TextSize" FACE="$FontFace"><br>This will allow you to control how the Who's Online feature will display and opperate.</FONT><br><br><br><br><FORM ACTION="$CGIURL/UBB6online.cgi" METHOD="POST"><br><INPUT TYPE="HIDDEN" NAME="action" VALUE="WriteSettings"><br>$BorderTop<br><table border=0 cellpadding=4 border=0 cellspacing=1 width=$vars_style{TableWidth}><br><tr bgcolor="$vars_style{AltColumnColor1}"><td><br><FONT SIZE="$TextSize" FACE="$FontFace"><B>Include Yourself</B><br><br>If you set this option to "yes", you will be able to see yourself when<br>viewing the list.  If it is set to "no", you will not see yourself, but<br>you will be counted and everyone else will see you.</FONT></td><br><td><FONT SIZE="$TextSize" FACE="$FontFace"><br><INPUT TYPE=RADIO NAME="include_yourself" VALUE="1" $IncludeYes> yes   <br><INPUT TYPE=RADIO NAME="include_yourself" VALUE="0" $IncludeNo> no</FONT></td></tr><br><tr bgcolor="$vars_style{AltColumnColor2}"><td><br><FONT SIZE="$TextSize" FACE="$FontFace"><B>Time Until Logged Out</B><br><br>This determines how long until a user is "logged out" of the system.  If<br>someone is active on the forums, their session will keep being updated<br>which will keep them from being logged out.</FONT></td><br><td><INPUT NAME=inactive_time SIZE=3 VALUE="$inactive_time"><br><FONT SIZE="$TextSize" FACE="$FontFace">minutes</font></td></tr><br><tr bgcolor="$vars_style{AltColumnColor1}"><td><br><FONT SIZE="$TextSize" FACE="$FontFace"><B>Refresh Rate</B><br><br>This setting allows you to set how long before the Who's Online details<br>page reloads.  If you don't wish to have the page reload, set this to "0".<br></FONT></td><br><td><INPUT NAME=refresh_time SIZE=3 VALUE="$refresh_time"><br><FONT SIZE="$TextSize" FACE="$FontFace">seconds</FONT></td></tr><br><tr bgcolor="$vars_style{AltColumnColor2}"><td><br><FONT SIZE="$TextSize" FACE="$FontFace"><B>See Invisible Users</B><br><br>Who should be able to see invisible users when viewing the detailed page?<br></FONT></td><br><td><FONT SIZE="$TextSize" FACE="$FontFace"><select name=see_invisible><br><OPTION VALUE="admin" $Invisible0> Admins Only<br><OPTION VALUE="both" $Invisible1> Admins & Moderators</select><br></FONT></td></tr><br><tr bgcolor="$vars_style{AltColumnColor1}"><td><br><FONT SIZE="$TextSize" FACE="$FontFace"><B>Display Host/IP Info</B><br><br>Who should be able to see host/ip information on the detailed page? Note:<br>Setting this to anything other than NO ONE could drastically increase the<br>load on your server.</FONT></td><br><td><FONT SIZE="$TextSize" FACE="$FontFace"><select name=display_host><br><OPTION VALUE="admin" $Host0> Admins Only<br><OPTION VALUE="both" $Host1> Admins & Moderators<br><OPTION VALUE="everyone" $Host2> Everyone<br><OPTION VALUE="none" $Host3> No One</FONT></select></td></tr><br><tr bgcolor="$vars_style{AltColumnColor2}"><td><br><FONT SIZE="$TextSize" FACE="$FontFace"><B>Entries Per Page</B><br><br>On the detailed page, you can control how many entries to display on each<br>page.  This could be usefull if your site is very busy!</FONT></td><br><td><FONT SIZE="$TextSize" FACE="$FontFace"><select name=members_per_page><br><OPTION $MPP0>25<br><OPTION $MPP1>50<br><OPTION $MPP2>75<br><OPTION $MPP3>100<br><OPTION VALUE="0" $MPP4>All</select></font></td></tr><br><tr bgcolor="$vars_style{AltColumnColor1}"><td><br><FONT SIZE="$TextSize" FACE="$FontFace"><B>Display Type</B><br><br>On the main page (in Ultimate.cgi) you can choose to have it display a<br>summary message, or list the users who are online.  Or, you can choose<br>to disable the display on the main page.</td><br><td><FONT SIZE="$TextSize" FACE="$FontFace"><select name=online_message><br><OPTION VALUE="summary" $Online0>Summary<br><OPTION VALUE="list" $Online1>List Users<br><OPTION VALUE="off" $Online2>Do Not Display<br></select></FONT></td></tr><br><br></table><br>$BorderBottom<br><br><br><br><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$TimeColor">UserName:<br><INPUT NAME=UserName VALUE="$cookie{'UserName'}" SIZE=25><br><br>Password:<br><INPUT TYPE=PASSWORD NAME=Password VALUE="$cookie{'Password'}" SIZE=25><br></FONT><br><br><br><br><INPUT TYPE=SUBMIT VALUE="Submit Settings"><br><INPUT TYPE=RESET VALUE="Reset"><br></FORM><br>CONFIGURE<br><br>}<br><br>sub CheckID {<br>#    &VerifyAdmin($UserName, $Password);<br>    if ($Proceed eq "true") {<br>       &WriteSettings;<br>       $ConfirmLine = "<center>Your settings have been updated.</center>";<br>#       &ConfirmHTML2;<br>    }<br>}<br><br>sub WriteSettings {<br>    open(FILE,">$vars_config{MembersPath}/UBB6online.cfg");<br>    print FILE "$include_yourself = $in{'include_yourself'};n";<br>    print FILE "$inactive_time = $in{'inactive_time'};n";<br>    print FILE "$refresh_time = $in{'refresh_time'};n";<br>    print FILE "$see_invisible = $in{'see_invisible'};n";<br>    print FILE "$display_host = $in{'display_host'};n";<br>    print FILE "$members_per_page = $in{'members_per_page'};n";<br>    print FILE "$online_message = $in{'online_message'};n";<br>    close(FILE);<br>}<br>1;

code:

code: